: DIMS 256 dup ;	# max tex size depends on video mem

load-opengl                   # load the OpenGl PF plugin
DIMS display                  # create a display window
2d                            # set the environment for 2D
animation                     # start the drawing system

variable TEX		      # feedback texture stored here
2 blend			      # enable blending mode
0. renderperiod !	      # set rendering period in ms

::			      # start anonymous function

   m-push			# save transformation
	  TEX @ texture		# set grabbed frame as texture
	  4. rotz 1.2 square	# draw it rotated and zoomed
   m-pop			# restore transformation

   cleartexture			# remove background texture
   3 for 1. rand next rgb	# random color
   360. rand rotz		# random rotation
   .03 square			# draw a small square

   DIMS screen>texture TEX !	# grab current screen
   

; is drawer		      # use anonymous function as drawin routine


interactive			# run interactively