More colors (noisier)
Room for perf improvements, including those scanlines. But it works!
･｡ﾟ[̲̅$̲̅(̲̅ ͡° ͜ʖ ͡°̲̅)̲̅$̲̅]｡ﾟ.*
when submitting, choose "Update a cartridge thread", and choose this one... you'll get a new tag, either add it at the top of your post or simply replace the old one.
I'm not sure it's only the number of colors though.
here's one I made weeks ago. its behaviour is quite different, and more akin to what's on wiki cca
but maybe we're not on the same rules, I'll have a look at your code...
sorry for the weird style, I think I started this as a tweetjam contrib :)
copy,paste & run
s=127m=128p=16r=rnd g=pget --for i=0,s*s do pset(r(s),r(s),r(p))end for j=0,s do for i=0,s do pset(i,j,r(p)) end end ::z:: for j=0,s do for i=0,s do local c,k,l,r,u,d=g(i,j),(g(i,j)+1)%p,(i+s)%m,(i+1)%m,(j+s)%m,(j+1)%m if( -- g(l,u)==k or g(i,u)==k or -- g(r,u)==k or g(r,j)==k or -- g(r,d)==k or g(i,d)==k or -- g(l,d)==k or g(l,j)==k or false )then c=k end sset(i,j,c) end end memcpy(24576,0,8192)flip()goto z ```
Log in to post a comment