#include "hspext.as"
title "grect"
	screen 0,640,480,1
	cls 2
	font "Arial",14
	m="HSP2.61 HspExt\nSample 2004"

	x=320:y=320:z=100:px=2:py=1:pz=1
	repeat
	redraw 0
	grect x,y,cnt*32,z,z,cnt/150

	pos 502,422:color 0,0,0:mes m
	pos 500,420:color 255,255,255:mes m

	await 12
	redraw 1

	x+=px:if (x=0)|(x=640) : px=-px
	y+=py:if (y=0)|(y=480) : py=-py
	z+=pz:if (z=50)|(z=200) : pz=-pz
	loop
stop