Genuary 2023 Day 22 - Shadows

-- genuary #22 2023
-- shadows
-- by carson kompon
pal({[0]=134,128,136,137,138,139,140,141,142},1)

gam=8
gsiz=128/gam

cls()
::_::
	
	for i=1,8000 do
		pset(rnd(128),rnd(128),0)
	end
	
	for i=1,gam-1 do
		for j=1,gam-1 do
			local x=i*gsiz
			local y=j*gsiz
			local dx=63-x
			local dy=63-y
			local z=(sin(t()+(sqrt(dx*dx+dy*dy)/128))+1.5)*3
			local siz=3
			local sx=x+z/32
			local sy=y+z/32
			local shd=siz+z/6
			fillp(▒)
			rectfill(sx-shd,sy-shd,sx+shd+1,sy+shd+1,1)
			fillp(█)
			x-=z/2
			y-=z
			rectfill(x-siz,y-siz,x+siz,y+siz,2+((i-1)%7))
		end
	end
	
	flip()
goto _