1 ! Copyright (C) 2019 Jack Lucas
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors alien.enums classes.struct combinators kernel
4 math namespaces raylib ;
8 "Hello, Factor!" 200 400 60 MAGENTA draw-text ;
11 640 480 "Hello, Factor!" init-window
15 RAYWHITE clear-background ;
17 ! Save our players position in a dynamic var
20 : show-player-circle ( -- )
22 25.0 RED draw-circle-v ;
24 : setup-game-vars ( -- )
27 Vector2 boa player set ;
30 : change-player-position ( -- )
32 { [ KEY_RIGHT is-key-down ] [ [ 2.0 + ] change-x ] }
33 { [ KEY_LEFT is-key-down ] [ [ -2.0 + ] change-x ] }
34 { [ KEY_DOWN is-key-down ] [ [ 2.0 + ] change-y ] }
35 { [ KEY_UP is-key-down ] [ [ -2.0 + ] change-y ] }
41 clear-window show-player-circle say-hello
45 make-window clear-window setup-game-vars
47 change-player-position
49 window-should-close not