-- disrupted river
-- 2022/12/23
a=rnd?"\^!5f100▒1😐<"
o={}g=128h={}s={}::_::if(t()*30%15==0)add(o,{x=a(g)\1,y=0,s=0})
for i=1,999do
x=a(g)y=a(g)circ(x,y,1,max(a(2),pget(x,y)-1))end
for j in all(o)do
j.s+=.1j.y+=j.s
circ(j.x,j.y,1,4)if(j.y>98)s[j.x+1]-=9del(o,j)end
for i=1,g do
e=s[i]or 0f=h[i]or 32s[i]=e+.01*((32-f)-e)h[i]=f+s[i]line(i-1,g-f,i-1,g,4)end
l={}r={}for j=1,8do
for i=2,g-1do
l[i]=.1*(h[i]-h[i-1])s[i-1]+=l[i]r[i]=.1*(h[i]-h[i+1])s[i+1]+=r[i]end
for i=2,g-1do
h[i-1]+=l[i]h[i+1]+=r[i]end
end
flip()goto _
Disrupted River
December 23, 2022
