Genuary 2023 Day 30 - Minimalism

-- genuary #30 2023
-- minimalism
-- by carson kompon
z={}r=rnd?"\^!5f10♥⌂⬅️3"
add(z,{x=r(128),y=r(128),d=.25*(r(4)\1),s=.01+r()/2})
cls(0)
::_::
for i=1,100do
x=r(128)y=r(128)
pset(x,y,max(pget(x,y)-1))
end
for m in all(z)do
m.x+=cos(m.d)*m.s
m.y+=sin(m.d)*m.s
if(r()<.1)m.d+=r({.25,-.25})
pset(m.x%128,m.y%128,3)
end
goto _