steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

toggle-screen is in the ui now

db4
Doug Coleman 2009-05-13 22:02:45 -05:00
parent 1e6227fe68
commit b98c83de1f
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
extra/jamshred/jamshred.factor
View File

@ -26,15 +26,6 @@ M: jamshred-gadget draw-gadget* ( gadget -- )
[ 100 milliseconds sleep jamshred-loop ] tri [ 100 milliseconds sleep jamshred-loop ] tri
] if ; ] if ;
: fullscreen ( gadget -- )
find-world t swap set-fullscreen* ;
: no-fullscreen ( gadget -- )
find-world f swap set-fullscreen* ;
: toggle-fullscreen ( world -- )
[ fullscreen? not ] keep set-fullscreen* ;
M: jamshred-gadget graft* ( gadget -- ) M: jamshred-gadget graft* ( gadget -- )
[ find-gl-context init-graphics ] [ find-gl-context init-graphics ]
[ [ jamshred-loop ] curry in-thread ] bi ; [ [ jamshred-loop ] curry in-thread ] bi ;
@ -78,7 +69,7 @@ M: jamshred-gadget ungraft* ( gadget -- )
jamshred-gadget H{ jamshred-gadget H{
{ T{ key-down f f "r" } [ jamshred-restart ] } { T{ key-down f f "r" } [ jamshred-restart ] }
{ T{ key-down f f " " } [ jamshred>> toggle-running ] } { T{ key-down f f " " } [ jamshred>> toggle-running ] }
{ T{ key-down f f "f" } [ find-world toggle-fullscreen ] } { T{ key-down f f "f" } [ toggle-fullscreen ] }
{ T{ key-down f f "UP" } [ jamshred>> jamshred-player 1 swap change-player-speed ] } { T{ key-down f f "UP" } [ jamshred>> jamshred-player 1 swap change-player-speed ] }
{ T{ key-down f f "DOWN" } [ jamshred>> jamshred-player -1 swap change-player-speed ] } { T{ key-down f f "DOWN" } [ jamshred>> jamshred-player -1 swap change-player-speed ] }
{ T{ key-down f f "LEFT" } [ jamshred>> 1 jamshred-roll ] } { T{ key-down f f "LEFT" } [ jamshred>> 1 jamshred-roll ] }