Genuary 2023 Day 12 - Tessellation

-- genuary #12 2023
-- tessellation
-- by carson kompon
?"\^!5f1072☉3⬅️1😐웃9░4"
s=8l=128\s+1z=s/2
::_::cls()
for i=0,l do
for j=0,l do
x=i*s+(j%2)*z
y=j*s
f=(i*s+j*s)%5*2
h=(sin(t()+(x+y)/32)+sin(t()/2+(x-y)/16)+1)*2
for i=1,h do
line(x-z,y-i-z,x,y-i,1+f)
line(x,y-i,x+z,y-i-z,2+f)
end
end
end
flip()goto _