Polyspiral

 

module polyspiral {
	smooth off
	form 60, 25
	cls #220055, 0
	var inc = 0, x=scale.x / 2, y=scale.y / 2
	var length, angle
	refresh 1000
	gradient 0, #330066
	pen 15 {
		italic 1
		pen 14 {report "M2000 Interpreter"}
		italic 0 
		report "POLYSPIRAL ANIMATION"
	}
	hold
	every 1000/30 {
		release
		inc+=0.00248
		move x, y
		length = TWIPSx*20
		angle = inc		
		for ν=1 to 150
			pen #FF0055
			width 2 {draw angle angle, length}
			length+=TWIPSx*5
			angle+=inc
		next
		if keyPress(32) then exit
		refresh 1000
	}
	refresh 25
}
polyspiral
pen 14