Flower Animation Tweetcart


 t=0R=15
 x=120y=68m=math
 p=m.pi
 function TIC()cls(13)for h=0,2*p,p/4 do
 for i=-10,10,1 do
 a=i^2*.05-5
 b=-a
 c=m.cos(h+t)d=m.sin(h+t)
 pix(R*c+i*c-a*d+x,R*d+i*d+a*c+y,6)pix(R*c+i*c-b*d+x,R*d+i*d+b*c+y,6)circ(x,y,R/2,14)
 end
 end
 t=t+.01
 end

Petals