Genuary 2024 Day 10 - Hexagonal

-- genuary #10 2024
-- hexagonal
-- by carson kompon

?"\^!5f10█●"
g=128
::_::
	cls()
	local z=0
	for x=0,g,64 do
		for y=0,g,64 do
			for i=0,6do
				local d=i/6-(t()/8)
				if(z%2==0)d=-d
				local nd=d+(1/6)
				local r=32+(i%2)*sin(t()/8)*8
				line(x+cos(d)*r,y+sin(d)*r,x+cos(nd)*r,y+sin(nd)*r,1)
			end
			z+=1
		end
	end
	flip()
goto _