-- 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 _