Genuary 2023 Day 23 - More Moiré

-- genuary #23 2023
-- more moiré
-- by carson kompon
pal({[0]=128,130,2,14},1)

gam=32
gsiz=256/gam

lsiz1=92
lsiz2=92

ang1=0.25
ang2=0.25

cls()
::_::
	
	-- screen burn effect
	for i=1,6000 do
		local x=rnd(128)
		local y=rnd(128)
		local c=max(pget(x,y)-1)
		pset(x,y,c)
	end
	
	-- line pair 1
	local _cosa1=cos(ang1)
	local _sina1=sin(ang1)
	for i=-gam/2,gam/2 do
		local x=64+cos(ang1+.25)*gsiz*i
		local y=64+sin(ang1+.25)*gsiz*i
		line(
			x-_cosa1*lsiz1,
			y-_sina1*lsiz1,
			x+_cosa1*lsiz1,
			y+_sina1*lsiz1,
			3
		)
	end
	
	-- line pair 2
	local _cosa2=cos(ang2)
	local _sina2=sin(ang2)
	for i=-gam/2,gam/2 do
		local x=64+cos(ang2+.25)*gsiz*i
		local y=64+sin(ang2+.25)*gsiz*i
		line(
			x-_cosa2*lsiz2,
			y-_sina2*lsiz2,
			x+_cosa2*lsiz2,
			y+_sina2*lsiz2,
			3
		)
	end
	ang2-=1/(16*30)
	
	flip()
goto _