Polar Rose

 

Вспомнил старый эффект, написанный на дендиконфе, решил повторить на TIC-80

function TIC()
cls()
for i=0,360,1 do
r=60*math.sin(3*i*3.14/180)
j=i+d
x=r*math.cos(j*3.14/180)
y=r*math.sin(j*3.14/180)
--240x136
pix(x+120,y+78,12)
end
d=d+1
end
------------------------------------------------------------------------
c=3.14/180
a0=0
b0=0
function TIC()
cls()
a0=a0+1
b0=b0+3
for j=0,2,1 do
a=a0+j*60
for i=0,15,1 do
r=60*math.sin(3*(a+i)*c)
x=r*math.cos((a+i+b0)*c)
y=r*math.sin((a+i+b0)*c)
circ(x+120,y+78,i/3,12)
end
end
end