Genuary 2024 Day 4 - Pixels

-- genuary #4 2024
-- pixels
-- by carson kompon
o={}
f=0
?"\^!5f100⬇️3;⬅️⬇️"
cols=4
poke(0x5f55,0)
rectfill(0,0,128,128,0)
poke(0x5f55,0x60)
cy=0

function _update60()
	cls()
	add(o,{x=(t()*60)%128,y=0,h=rnd(.2)-.1,v=0,l=0})
	for s in all(o)do
		s.v+=.1
		local ly=s.y
		s.x+=s.h
		if(s.x<0)s.h=abs(s.h/2)
		s.y+=s.v
		if (s.y-ly)>1then
			local ny=s.y
			for i=ly,ny,0.25 do
				s.y=i
				check(s)
			end
			s.y=ny
		else
			check(s)
		end
		if s.y>=127 then
			s.y=127
			place(s)
		end
		--[[
		for h in all(o)do
			if h~=s then
				local dx=s.x-h.x
				local dy=s.y-h.y
				local d=sqrt(dx*dx+dy*dy)
				if d<5then
					local a=atan2(dx,dy)+rnd(.002)-.001
					s.h=cos(a)*d/2
					s.v=sin(a)*d/2
				end
			end
		end
		]]--
		pset(s.x,s.y+cy,cols+1)
	end
	f+=1
	
	if f%60==0then
		cy-=1
		camera(0,cy)
	end
	
	if f%120==0then
		poke(0x5f55,0)
		palt(0,false)
		sspr(0,0,128,128,0,cy+1)
		palt(0,true)
		poke(0x5f55,0x60)
	end
	
	for i=1,20do
		sset(rnd(127),rnd(127),0)
	end
	
	sspr(0,0,128,128,0,cy)
end

function check(s)
	local xx=flr(s.x)
	local yy=flr(s.y)
	if sget(xx,yy)>0then
		local ops={0}
		if(sget(xx-1,yy)==0)add(ops,-1)
		if(sget(xx+1,yy)==0)add(ops,1)
		s.x+=rnd(ops)
		if sget(xx,yy)>0then
			s.y-=1
			place(s)
		end
	end
end

function place(s)
	local c=1+rnd(min((140-s.y)/(128/cols/2),cols))
	sset(s.x,s.y,c)
	del(o,s)
end