//=time() ?>
#pico8
::_::cls(1)q=t()/6
for m=0,1 do c=1-m
for n=-1,1,2 do
for j=2-n*2,2+n*2,n do
r=22+j*7
for a=0,.5,.005 do
z=r*cos(a)*cos(q)k=1+z/150
if(sin(a)*c>-.4 and sgn(z)==-n)circfill(64+r*cos(a)*sin(q)/k,64+(r*sin(a)*m+14+c*8)/k,(3.5+c*4)/k,7*c+m*(12-j))end end end end
flip()goto _
#pico8
cls(7)
circfill(64,64,36,0)
function _draw()
for i=0,3000 do
x=rnd(128) y=rnd(128)
circfill(x,y,1,pget(128-x,y))
end
end
#pico8
f=fillp::_::cls(6)f(23130)m=6*sin(t()/3)for r=60,1,-1 do
c=r^.6/2 circfill(64+cos(t()/6)*13,64+m,r,c+flr(c+.5)*16)end
f()for i=1,7 do
pal(i-1,({7,12,140,1,129})[i],1)for v=3,77 do
y=64+(v-8+m)*cos(i/2)for u=-v/8,v/8 do
x=u+i*16pset(x,y,pget(x,y)-1)end
end end flip()goto _
#pico8 💎
e={3,11,5,8,14,2,9,10,4,13,7,6}
::_::
color(1)
for i=0,80 do line(rnd(128),rnd(128)) end
for n=1,10,3 do
a=n/4-t()/4
x=64+cos(a)*42
y=64+sin(a)*42
for j=-1,1,.02 do
i=flr(j+t()*3)
line(x,y+20,x+j*20,y,e[n+i%3])
color(e[n+(i+1)%3])
line(x+j*10,y-10)
end
end
flip()goto _