-- genuary #29 2023 -- maximalism -- by carson kompon

-- fxhash snippet w=stat(6)s=1 for i=1,#w do ch=ord(sub(w,i,i))s+=s*31+ch end srand(s)

pal({[0]=15,143,142,8},1)

emitters={} objs={}

for i=1,8 do add(emitters,{ x=rnd(128), y=rnd(128), rot=rnd(), rotspd=(rnd()-.5)/20, spd=0.01+rnd()*2, turnspd=(rnd()-.5)/20, freq=2+rnd(5)\1, tim=0 }) end

cls() ::_::

for i=1,1000 do
	local x=rnd(128)
	local y=rnd(128)
	pset(x,y,max(pget(x,y)-1))
end

for e in all(emitters) do
	if e.tim%e.freq==0 then
		add(objs,{
			x=e.x,
			y=e.y,
			dir=e.rot,
			spd=e.spd,
			turnspd=e.turnspd,
			life=240
		})
	end
	e.rot+=e.rotspd
	e.tim+=1
end

for o in all(objs) do
	o.x+=cos(o.dir)*o.spd
	o.y+=sin(o.dir)*o.spd
	o.dir+=o.turnspd
	o.life-=1
	pset(o.x,o.y,3)
	if(o.life<=0)del(objs,o)
end

flip()

goto _