# -*- pf -*-

load-blit
load-rtc

# open a very large file
"/tmp/data" "r" 
open-file constant hda

# this function reads one frame from the file
: image>image  image>bitmap bitmap>image ;	# convert from 8 -> 16 bit
: read-image   ` image/s8/64/64/1 read-packet ;
: grab         hda read-image image>image ;

# rotation / zoom functions
: angle 350 rand >float ;
: angle 0. ;
: rzoom normal abs 5. * ;
: zoom rzoom rzoom ;
: zoom 1.0 dup ;
: center .5 dup ;
: rot angle zoom center image:zrot ;

# other

# : grab grab image>image ;


# synchronization
: sync 20. rtc-softsync ;

# default application
: tv grab rot blit sync ;
: go ' tv is tick ;


go 		# run scheduler
interactive	# run interactive console