more weird graphs

[tsh73]

So.
Let's take two concentric circles
and run two dots with different speeds along them.
And just connect these dots by line.
Do it slowly - watch it taking shape.
Whoa!

Changing speed ratio, you get different pictures

'something by tsh73
'along
'[instagram url="http://instagram.com/p/B26m-MslNiV/"]
nomainwin
open "test" for graphics_nsb_nf as #gr
#gr "trapclose [quit]"
#gr "down; home; posxy cx cy"
print cx, cy

r=100
R=130
#gr "size 2"
#gr "circle ";r
#gr "circle ";R

#gr "size 1"
pi=acs(-1)
'2.5, 6 - 7 leaths
'1.5 4 - 5
'2.5 4 - 3
'3 7 - 4
'4 9 - 5
dA=4*pi/200
da=9*pi/200

while 1
   i=i+1
   a=a+da
   A=A+dA
   x1=cx+r*cos(a)
   y1=cy+r*sin(a)
   x2=cx+R*cos(A)
   y2=cy+R*sin(A)
   #gr "line ";int(x1);" ";int(y1);" ";int(x2);" ";int(y2)
   if i>1000 then exit while
   call pause 30
wend
#gr "flush"

wait

[quit]
timer 0
close #gr
end

sub pause mil
   t0=time$("ms")
   while time$("ms")-t0 <mil
       scan
   wend
   exit sub
[quit]
   close #gr
   end
end sub


Now the question is: what speeds produces this

http://instagram.com/p/B26m-MslNiV

?

[tenochtitlanuk]

More of this inspired lunacy! LIKE!