#include "hspext.as"

	randomize

	title "grotate"
	buffer 3,256,256,1
	picload "face.bmp"

	screen 0,640,480,1
	cls 4
	palcopy 3
	font "Arial",14
	m="HSP2.61 HspExt\nSample 2004"

	max=50
	dim xx,max
	dim yy,max
	dim px,max
	dim py,max
	dim rot,max
	dim prot,max
	repeat max
	rnd xx.cnt,640
	rnd yy.cnt,480
	rnd rot.cnt,4096
	rnd p,2:if p=0 : p=-1
	px.cnt=p*2
	rnd p,2:if p=0 : p=-1
	py.cnt=p*2
	rnd prot.cnt,16
	prot.cnt+=8
	loop

	repeat

	redraw 0
	color 0,0,0:boxf
	gmode 2,64,64
	repeat max
		pos xx.cnt,yy.cnt:grotate 3,0,0,rot.cnt
		xx.cnt+=px.cnt
		if (xx.cnt<2)|(xx.cnt>638) : px.cnt=-px.cnt
		yy.cnt+=py.cnt
		if (yy.cnt<2)|(yy.cnt>478) : py.cnt=-py.cnt
		rot.cnt+=prot.cnt
	loop

	pos 502,422:color 0,0,0:mes m
	pos 500,420:color 255,255,255:mes m
	redraw 1
	await 12

	loop

stop