o,s,j=19,sin,{2,4,9,10,7}cls()::_::t=time()for i=0,512 do x,y=i%o,flr(i/o)v,b=9+s(t/10)*6-x,13-cos(t/10)*6-y ?"◆",x*7-4+(1-y%2)*3+rnd(2),y*5-4+rnd(2),j[flr((s(atan2(v,b)*s(t/20)*10+sqrt(v*v+b*b)/15+t)/5+s((v*b)/150+t)/5)*5.5+3.5)] end goto _

t,q,c=0,sin,circfill::_::t+=.01cls(1)for i=0,128 do s=cos(t+i/25)y=i*2-(t%1*100) a=64+47*q(t+i/25)b=10+i/8.3%3 if(s<=0)fillp(23130.5) c(a,y,3.75+s,b)fillp()end for j=-10,2800 do k=59+j%10+q(-t*1+j/3)*39l=j/10+flr(t*50)%2 c(k,l,0,pget(k,l)+12)end flip()goto _

l,f,t,w,p=line,fillp,0,23130.5,sin::_::t+=.0151cls(1)y=0::m::c=62+p(y/50-t)*((y/3+9))+p(-y/30-t)*9 x=0 for x=0,5,.5 do s=9+((y-t*49.5)/3)%4.5+2+2*p(x/(5+y)) if(flr(s)%3==0)f(w) l(c+x,y,c+x,127,s)f()end f(w)l(c,y,c+5,y,13)f()y+=1-y/300 if(y<128)goto m flip()goto _

n=128;r=rnd;c=circ::_::a=0::y::c(64,64,55+a/7,7)a+=1;c(74+a*.9,38+a*2,9-a/5)c(35+a*1.5,35,3.5)c(69-a,41+a*1.5,5.5-a/13)c(33+a/2,39,7)c(59,63,a/5)c(61,58,2) if(a<26)goto y memcpy(0,n*192,n*64)p=0::m::x=r(n)y=r(n)j=sget(x,y) if(r(j)<3)c(x,y,1,j) p+=1if(p<n*7)goto m goto _

c=cos;s=sin;t=5::_::t+=.01for i=0,990 do;x=rnd(127)y=rnd(127)p=x;o=y;w=80+10*s(t);x+=s(o/w+t)*9y+=c(p/w-t)*9q=60+30*c(t/2)v=mid(8,11.3+(s(x/q+t-x/q/2)*.7+s(t/4)*.3+c(y/q-t-y/q/2)*.7+c(t/4)*.3)*1.7,14)fillp()circ(p,o,2,v)fillp(23130.5)circ(p,o,2,v+.5)end;flip()goto _

https://www.lexaloffle.com/bbs/?pid=42140#p42140

https://www.lexaloffle.com/bbs/?pid=41187#p41186

http://www.lexaloffle.com/bbs/?pid=40862#p40862