Log In  


(276 chars)

★=64
function m(n)
	return ★+sin(n/32)*sin(⧗/2+n/256)^3*32
end
pal({128,133,5,13,6,7,7,7},1)
::l::
cls()
for n=1,10 do
⧗=t()*n/80+n/10
c=cos(⧗)
s=sin(⧗)
for n=0,127 do
color(abs(n-69+rnd()*10)/9)
x=n-★
y=m(n)-★
❎=n-63
▤=m(n+1)-★
pset(x*c-y*s+★,x*s+y*c+★)
end
end
flip()
goto l

3



[Please log in to post a comment]