Genuary 2023 Day 24 - Textile

-- genuary #24 2023
-- textile
-- by carson kompon

-- fxhash snippet
w=stat(6)s=1
for i=1,#w do
ch=ord(sub(w,i,i))s+=s*31+ch
end
srand(s)

pal({[0]=128,133,129,1,134,6,130,2,132,4,131,3,136,8,137,9},1)

cls()

-- define patches
for i=1,100 do
	local x=rnd(128)
	local y=rnd(128)
	local r=8+rnd(32)
	local c=(rnd(8)\1)*2
	if rnd()<.5 then
		circfill(x,y,r,c)
	else
		rectfill(x-r,y-r,x+r,y+r,c)
	end
end

-- copy patches to spritesheet
memcpy(0x0,0x5f00,0x1fff)

cls()

::_::
	-- draw fur-like texture on patches
	local x=rnd(128)
	local y=rnd(128)
	local c=sget(x,y)
	y-=4
	local siz=1+rnd()
	circfill(x+rnd(2)-1,y+1,siz,c)
	circfill(x,y,siz,c+1)
goto _