Anonymous user
Polyspiral: Difference between revisions
→{{header|SPL}}
(Added haskell version) |
|||
Line 1,005:
main()</lang>
=={{header|SPL}}==
<lang spl>
width,height = #.scrsize()
#.angle(#.degrees)
#.scroff()
incr = 0
>
incr = (incr+0.05)%360
x = width/2
y = height/2
length = 5
angle = incr
#.scrclear()
#.drawline(x,y,x,y)
> i, 1..150
x += length*#.cos(angle)
y += length*#.sin(angle)
#.drawcolor(#.hsv2rgb(angle,1,1):3)
#.drawline(x,y)
length += 3
angle = (angle+incr)%360
<
#.scr()
<
</lang>
=={{header|zkl}}==
| |||