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

	x=320:y=320:px=4:py=4
	repeat
	redraw 0
	hsvcolor cnt/2,255,255
	gmode 0,200,200
	grect x,y,cnt*16
	gfdec 4,4,4

	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=100)|(x=540) : px=-px
	y+=py:if (y=100)|(y=380) : py=-py
	loop
stop