factor/examples/grad-demo.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