-- 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 _
