(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 |
[Please log in to post a comment]