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

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

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