von_rostock, 3 months ago

R=rnd::_::S=sin?"^1^c7"
a=t()/8srand(1)
for j=1,18do
b=aR()
A=a(.5+R(.5))
r=R(48)
x=S(b)r+68
y=cos(b)r+80
poke4(R(3)\1-12,S(A),cos(A)/2,1,0,-1,0,0,-1,1)
u=$0
v=$4
k=rnd{0,rnd(1.5)}
d=9+S(a+R())6
if(k>1.25)then
circfill(x,y,d/2,5)
circfill(x,y,d/4,7)
else
e=cos(A)f=S(A)/2
p=x-ed
q=y-fd
d*=2+4-k4
r=p+ed
s=q+fd
d=k
for i=0,d,.1do
line(p-ui,q+vi,r-ui,s+vi,7)
end
line(p,q,r,s,5)
line(r-ud,s+vd)
line(p-ud,q+vd)
line(p,q)
end
end
goto _