bad iris

-- bad iris -- alexthescott

pal({[0]=129,1,133,130,2,136,8,137,142,14,143,15,135,7},1)

rot={}

for i=1,128 do pos={i/128,0.0001*rnd((i+32)/64)} add(rot,pos) end

cls() ::♥:: for i=0,456 do x=rnd(128) y=rnd(128) a=atan2((64-x)/128,(64-y)/128) x2=x-cos(a) y2=y-sin(a) pset(x2,y2,max(pget(x,y)-1,0)) end

for o in all(rot) do for i=0,4 do a=4 r=22+rnd(63) x=64+sin(o[1])r y=64+cos(o[1])r if rnd()<0.5 then x+=r/arnd() else x-=r/arnd() end if rnd()<0.5 then y+=r/arnd() else y-=r/arnd() end pset(x,y,min(pget(x,y)+1,13)) end o[1]+=o[2] end goto ♥