Genuary 2023 Day 2 - Made in 10 minutes

-- genuary #2 2023
-- made in 10 minutes
-- by carson kompon
a1 = 0
a2 = 0
s = 0
dir = 1
::_::
cls(7)
if s==0 then
	a1 += 1
	if a1 >= 60 then
		a1 = 0
		s = 1
	end
else
	a2 += 1
	if a2 >= 60 then
		a2 = 0
		s = 0
		dir = dir * -1
	end
end
for i=-2,10,2 do
	for j=-2,10,2 do
		a = a1/120 * dir
		x = 128/8*i-((a*4)*(128/8)*dir)
		y = 128/8*j
		l = 8
		line(x-cos(a)*l+1,y-sin(a)*l+1,x+cos(a)*l+1,y+sin(a)*l+1,6)
		line(x-sin(-a)*l+1,y-cos(-a)*l+1,x+sin(-a)*l+1,y+cos(-a)*l+1,6)
		
		line(x-cos(a)*l,y-sin(a)*l,x+cos(a)*l,y+sin(a)*l,0)
		line(x-sin(-a)*l,y-cos(-a)*l,x+sin(-a)*l,y+cos(-a)*l,0)
	end
end
for i=-2,8,2 do
	for j=-2,8,2 do
		a = a2/120 * dir
		x = (128-32)/6*i+16
		y = (128-32)/6*j+16-((a*4)*(128/8)*dir)
		l = 8
		line(x-cos(-a)*l,y-sin(-a)*l+1,x+cos(-a)*l,y+sin(-a)*l+1,6)
		line(x-sin(a)*l,y-cos(a)*l+1,x+sin(a)*l,y+cos(a)*l+1,6)
		
		line(x-cos(-a)*l,y-sin(-a)*l,x+cos(-a)*l,y+sin(-a)*l,0)
		line(x-sin(a)*l,y-cos(a)*l,x+sin(a)*l,y+cos(a)*l,0)
	end
end
flip()
goto _