 : show-player-circle ( -- )
     player get
     25.0 RED draw-circle-v ;
-    
+
 : setup-game-vars ( -- )
     get-screen-width 2 /
     get-screen-height 2 /


! 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 ;

: render-loop ( -- )
    begin-drawing


: main ( -- )
    make-window clear-window setup-game-vars
    [
        change-player-position
        render-loop
        window-should-close not
    ] loop close-window ;

MAIN: main
