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

raylib.demo: cleanup change-player-position.

clean-macosx-x86-32
John Benediktsson 2019-06-11 19:36:59 -07:00
parent bc7680969f
commit 00a0edb199
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
extra/raylib/demo/demo.factor
View File

@ -27,12 +27,13 @@ SYMBOL: player
! Make this cleaner ! Make this cleaner
: change-player-position ( -- ) : change-player-position ( -- )
{ player get {
{ [ KEY_RIGHT enum>number is-key-down ] [ player get x>> 2.0 + player get x<< ] } { [ KEY_RIGHT enum>number is-key-down ] [ [ 2.0 + ] change-x ] }
{ [ KEY_LEFT enum>number is-key-down ] [ player get x>> -2.0 + player get x<< ] } { [ KEY_LEFT enum>number is-key-down ] [ [ -2.0 + ] change-x ] }
{ [ KEY_DOWN enum>number is-key-down ] [ player get y>> 2.0 + player get y<< ] } { [ KEY_DOWN enum>number is-key-down ] [ [ 2.0 + ] change-y ] }
{ [ KEY_UP enum>number is-key-down ] [ player get y>> -2.0 + player get y<< ] } { [ KEY_UP enum>number is-key-down ] [ [ -2.0 + ] change-y ] }
[ ] } cond ; [ ]
} cond drop ;
: render-loop ( -- ) : render-loop ( -- )
begin-drawing begin-drawing
@ -41,11 +42,10 @@ SYMBOL: player
: main ( -- ) : main ( -- )
make-window clear-window setup-game-vars make-window clear-window setup-game-vars
[ change-player-position [
change-player-position
render-loop render-loop
window-should-close not ] loop window-should-close not
close-window ] loop close-window ;
;
MAIN: main MAIN: main