emergence II #21

fxhash source:
pal({-8,8,9,10,11,12,-4,0,-8,8,9,10,11,12,-4},1)cls()poke(24364,7)
r=rnd
p=srand
w=stat(6)
s=1
for i=1,#w do
ch=ord(sub(w,i,i))s+=s*31+ch
end
if(#w==0)s=rnd(-1)
p(s)c=0::_::
for y=0,129do
if(r()>.80)p(s)
for x=0,129do
if(r()>.90)p(s)
x+=r(8)-4
y+=r(8)-4
c+=r(.005)+0.001
x%=128
y%=128
circfill(x,y,r(3),c)
end
if(r()>.85)flip()
end
goto _

tweetcart source:
pal({-8,8,9,10,11,12,-4,0,-8,8,9,10,11,12,-4},1)cls()poke(24364,7)
r=rnd
p=srand
s=r(-1)p(s)c=0::_::
for y=0,129do
if(r()>.80)p(s)
for x=0,129do
if(r()>.90)p(s)
x+=r(8)-4
y+=r(8)-4
c+=r(.005)+0.001
x%=128
y%=128
circfill(x,y,r(3),c)
end
if(r()>.85)flip()
end
goto _