Genuary 2023 Day 14 - Aesemic

-- genuary #14 2023
-- aesemic
-- by carson kompon
chars=split"▮,■,□,⁙,⁘,‖,◀,▶,「,」,•,、,。,\31"
text=""
cy=0

function get_cy()
	return (cy*7)%(7*17)
end

_set_fps(60)
z=0
pal({[0]=0,128,133,134,15},1)
cls()
::_::
	for i=1,200 do
		x=rnd(128)
		y=rnd(128)
		c=max(pget(x,y)-rnd({0,0,0,1}))
		circ(x+rnd(2)-1,y+rnd(2)-1,1,c)
	end
	if rnd()<.2 then
		color(4)
		cursor(print(rnd(chars)),get_cy())
		if rnd()<.1 then
			cy+=1
			cursor(0,get_cy())
		end
	end
	flip()
	if(z%(16*60)==0)srand(0)
	z+=1
goto _