pouët.net

nó bêbado by Abaddon
the 256-byte intro for TIC-80
supporting 20-year-old Inércia Demoparty
special greetings to psenough!

C=load"return(...)%64*3//64"r=0s=math.sin TIC=load"r=r+.06 for o=0,32639 do n=o%240-60t=o/120-30p=2-math.abs(1-n*t/4^7)^.5n=n*p+c(r)*30t=t*p+s(r)*30p=C(n*2)~1i=C(n+t)>C(n-t)and 6or p+1&3<C(n-t)and 7or 5poke4(o,i)end for o=-.2,1.9,.03 do for i=o,o+6,2.1 do n=75+s(.9*r)*20*(s(i)+s(i*2)*2)t=67+c(r)*20*(c(i)-c(i*2)*2)p=10-2*s(i*3)circ(n,t,2,p)end end"c=math.cos

[ html | dos 80*25 | dos 80*50 | rez's ascii | amiga medres | amiga hires ]