Genuary 2024 Day 3 - Droste effect

-- genuary #3 2024
-- droste effect
-- by carson kompon
?"\^!5f10▒⬇️3⬅️;⌂♥"
a=32
z=0x5f54
v=0x60
w=96
h=72
g=128
r=rnd
cls(0)

function _update60()
	x=64+sin(t()/4)*a-w/2
	y=64+cos(t()/8)*a-h/2
	
	poke(z,v)
	sspr(0,0,g,g,x+2,y+2,w-4,h-4) 
	poke(z,0)
	
	for i=-3,3do
		color(6-abs(i)/3)
		rect(x+i,y+i,x+w-i,y+h-i)
	end
	circ(x+w/2,y+h/2,1,6)
	rect(x-a,y-a,x+w+a,y+h+a,2)
	
	for i=1,1299do
		local x=r(g)
		local y=r(g)
		pset(x+r(9)-5,y+r(9)-5,max(0,pget(x,y)-r(1)))
	end
end