Genuary 2023 Day 17 - A grid inside a grid inside a grid

-- genuary #17 2023
-- a grid inside a grid inside a grid
-- by carson kompon
pal({[0]=0,128,133,134,15},1)
cls()

grids={}
f=0
gc=0
::_::
	
	if f%30==0 then
		add(grids,{
			x=63,y=63,zm=0,c=1+((gc)%4)
		})
		gc+=1
	end
	for g in all(grids) do
		for i=-3,2 do
			for j=-3,2 do
				local xx=g.x+i*g.zm
				local yy=g.y+j*g.zm
				rect(xx,yy,xx+g.zm,yy+g.zm,g.c)
			end
		end
		g.zm+=1/16
		if(g.zm>32)del(grids,g)
	end
	flip()
	f+=1
goto _