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