#include "hspext.as"

title "grotate"
buffer 3,256,256,0
cls 4
repeat 16
	hsvcolor cnt*16,192,192
	x=cnt*16
	boxf x,0,x+7,256
	boxf 0,x,256,x+7
loop

	screen 0,640,480,0
	cls 2
	font "Arial",14
	m="HSP2.61 HspExt\nSample 2004"

	size=0:psize=2
	repeat
	redraw 0
	pos 320,240
	color 255,255,255
	gmode 3,128,128,8
	grotate 3,0,0,cnt*16,400+size,400+size
	size+=psize
	if (size=0)|(size=400) : psize=-psize
	pos 502,422:color 0,0,0:mes m
	pos 500,420:color 255,255,255:mes m
	redraw 1
	await 12
	loop

stop