46 lines
819 B
Factor
46 lines
819 B
Factor
|
! Gradient rendering demo.
|
||
|
|
!
|
||
|
|
! To run this code, bootstrap Factor like so:
|
||
|
|
!
|
||
|
|
! ./f boot.image.le32
|
||
|
|
! -libraries:sdl:name=libSDL.so
|
||
|
|
! -libraries:sdl-gfx:name=libSDL_gfx.so
|
||
|
|
! -libraries:sdl-ttf:name=libSDL_ttf.so
|
||
|
|
!
|
||
|
|
! (But all on one line)
|
||
|
|
!
|
||
|
|
! Then, start Factor as usual (./f factor.image) and enter this
|
||
|
|
! at the listener:
|
||
|
|
!
|
||
|
|
! "examples/grad-demo.factor" run-file
|
||
|
|
|
||
|
|
IN: grad-demo
|
||
|
|
USE: streams
|
||
|
|
USE: sdl
|
||
|
|
USE: sdl-event
|
||
|
|
USE: sdl-gfx
|
||
|
|
USE: sdl-video
|
||
|
|
USE: sdl-ttf
|
||
|
|
USE: namespaces
|
||
|
|
USE: math
|
||
|
|
USE: kernel
|
||
|
|
USE: test
|
||
|
|
USE: compiler
|
||
|
|
USE: strings
|
||
|
|
USE: alien
|
||
|
|
USE: prettyprint
|
||
|
|
USE: lists
|
||
|
|
|
||
|
|
: draw-grad ( -- )
|
||
|
|
[ over rgb ] with-pixels ; compiled
|
||
|
|
|
||
|
|
: grad-demo ( -- )
|
||
|
|
640 480 0 SDL_HWSURFACE [
|
||
|
|
TTF_Init
|
||
|
|
[ draw-grad ] with-surface
|
||
|
|
<event> event-loop
|
||
|
|
SDL_Quit
|
||
|
|
] with-screen ;
|
||
|
|
|
||
|
|
grad-demo
|