#include "d3m.hsp"
	
	xs = -1, 1, 1,-1
	ys = -1,-1, 1, 1
	
	repeat
		redraw 0
		color 255, 255, 255 : boxf
		d3setcam 1500, 0, 500
		color
		d3initlineto
		rad = 0.05 * cnt
		repeat 5
			x = xs(cnt\4) * 500
			y = ys(cnt\4) * 500
			d3rotate x, y, x, y, rad
			d3lineto x, y, 0
			d3line x, y, 0, 0, 0, 700
			d3line x, y, 0, 0, 0, -700
		loop
		redraw
		await 40
	loop