1 ! Copyright (C) 2019 Jack Lucas
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors combinators kernel math namespaces raylib ;
7 "Hello, Factor!" 200 400 60 MAGENTA draw-text ;
10 640 480 "Hello, Factor!" init-window
14 RAYWHITE clear-background ;
16 ! Save our players position in a dynamic var
19 : show-player-circle ( -- )
21 25.0 RED draw-circle-v ;
23 : setup-game-vars ( -- )
26 Vector2 boa player set ;
29 : change-player-position ( -- )
31 { [ KEY_RIGHT is-key-down ] [ [ 2.0 + ] change-x ] }
32 { [ KEY_LEFT is-key-down ] [ [ -2.0 + ] change-x ] }
33 { [ KEY_DOWN is-key-down ] [ [ 2.0 + ] change-y ] }
34 { [ KEY_UP is-key-down ] [ [ -2.0 + ] change-y ] }
40 clear-window show-player-circle say-hello
44 make-window clear-window setup-game-vars
46 change-player-position
48 window-should-close not