Genuary 2023 Day 11 - Suprematism

-- genuary #11 2023
-- suprematism
-- by carson kompon

-- credit: https://www.lexaloffle.com/bbs/?tid=34282
function draw_polygon(points)
	local xl,xr,ymin,ymax={},{},129,0xffff
	for k,v in pairs(points) do
		local p2=points[k%#points+1]
		local x1,y1,x2,y2=v[1],flr(v[2]),p2[1],flr(p2[2])
		if y1>y2 then
			y1,y2,x1,x2=y2,y1,x2,x1
		end
		local d=y2-y1
		for y=y1,y2 do
			local xval=flr(x1+(x2-x1)*(d==0 and 1 or (y-y1)/d))
			xl[y],xr[y]=min(xl[y] or 32767,xval),max(xr[y] or 0x8001,xval)
		end
		ymin,ymax=min(y1,ymin),max(y2,ymax)
	end
	for y=ymin,ymax do
		rectfill(xl[y],y,xr[y],y)
	end
end

-- this function took me too long to write bc it's nearly 9pm
function rectfillrot(x,y,w,h,r)
	w/=2
	h/=2
	points={}
	add(points,{
		x-cos(r)*w-cos(r+.25)*h,
		y-sin(r)*w-sin(r+.25)*h
	})
	add(points,{
		x+cos(r)*w-cos(r+.25)*h,
		y+sin(r)*w-sin(r+.25)*h
	})
	add(points,{
		x+cos(r)*w+cos(r+.25)*h,
		y+sin(r)*w+sin(r+.25)*h
	})
	add(points,{
		x-cos(r)*w+cos(r+.25)*h,
		y-sin(r)*w+sin(r+.25)*h
	})
	draw_polygon(points)
end

tears={}
counter=0

::_::
	cls(0)
	color(1)
	if counter%12==0 then
		add(tears,{
			x=24+((rnd(2)\1)*80),
			y=24,spd=0,r=3+rnd(2)-1
		})
	end
	for tear in all(tears) do
		tear.spd+=0.1
		tear.y+=tear.spd
		circfill(tear.x,tear.y,tear.r)
		if(tear.y>=132)del(tears,tear)
	end
	color(8)
	rectfillrot(24,24,32,8,t()/4)
	rectfillrot(24,24,32,8,-t()/4)
	rectfillrot(104,24,32,8,t()/4)
	rectfillrot(104,24,32,8,-t()/4)
	color(9)
	rectfillrot(64,54,28,10,-.125)
	rectfill(49,60,77,68)
	rectfill(63-12,80,63+12,82)
	rectfill(63-18,86,63+18,90)
	color(10)
	rectfillrot(42,100,82,6,-.0625)
	rectfillrot(128-42,100,82,6,.0625)
	color(4)
	rectfill(63-42,100,63+42,108)
	counter+=1
	flip()
goto _