! Copyright (C) 2019 Jack Lucas
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien.enums classes.struct combinators kernel
-math namespaces raylib ;
+USING: accessors combinators kernel math namespaces raylib ;
IN: raylib.demo
: say-hello ( -- )
: setup-game-vars ( -- )
get-screen-width 2 /
get-screen-height 2 /
- Vector2 <struct-boa> player set ;
+ Vector2 boa player set ;
! Make this cleaner
: change-player-position ( -- )
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 ] }
+ { [ KEY_RIGHT is-key-down ] [ [ 2.0 + ] change-x ] }
+ { [ KEY_LEFT is-key-down ] [ [ -2.0 + ] change-x ] }
+ { [ KEY_DOWN is-key-down ] [ [ 2.0 + ] change-y ] }
+ { [ KEY_UP is-key-down ] [ [ -2.0 + ] change-y ] }
[ ]
} cond drop ;