Code: Select all
p(a)<=.w/2-#.cos(a)*.r,.h/2-#.sin(a)*.r
w,h = #.scrsize()
r = #.min(w,h)*0.45
#.angle(#.degrees)
#.scroff()
> s, 0..360,.1
#.scrclear(0,0,0)
> a, 0..360
x1,y1 = p(a)
x2,y2 = p(a*s)
#.drawcolor(#.hsv2rgb(a,1,1):3)
#.drawline(x1,y1,x2,y2)
<
#.scr()
#.delay(1/25)
<