1 ! Copyright (C) 2019 Jack Lucas
2 ! See http://factorcode.org/license.txt for BSD license.
4 USING: raylib kernel ranges sequences locals random
5 combinators.random math threads calendar namespaces accessors
6 classes.struct combinators alien.enums ;
11 800 600 "Hello, Factor!" init-window
14 : button-rec ( -- button )
15 50 50 100 100 Rectangle boa ;
17 : white-background ( -- )
18 RAYWHITE clear-background ;
21 "Hello Factor!" 4 4 30 RED draw-text ;
23 : set-button-style ( -- )
25 TEXT_ALIGNMENT enum>number
26 GUI_TEXT_ALIGN_LEFT enum>number
40 begin-drawing white-background
41 say-hello render-gui end-drawing ;
46 window-should-close not