Genuary 2023 Day 25 - Yayoi Kusama

-- genuary #25 2023
-- yayoi kusama
-- by carson kompon
pal({[0]=128,132,4,137,9},1)

cls()

y=0
x=0
dir=1
ddir=1
spd=1
frm=0
z=128+32

function flp()
	y+=8
	dir*=-1
	ddir*=-1
end

::_::
	circfill(
		x-16,
		(y+sin(t()/8+x/64)*3.25)%z-16,
		(4-(frm%5)),
		frm%5
	)
	
	if dir==1 then
		if(x<z)x+=spd
		if(x>=z)flp()
	else
		if(x>0)x-=spd
		if(x<=0)flp()
	end
	frm+=1
goto _