{"name":"Manfred Mohr Random Walk Remix","description":"-- alexthescott\n-- manfred mohr's random walk\n-- 22/11/3\n\n-- new seed every day of the year \nsrand(31*stat(81)+stat(82)) \n\np1={7,6,135,10,138,11,139,3,131,12,140,1,129,130,128,0}\np2={7,135,10,9,15,143,142,137,14,136,8,2,130,133,128,0}\np3={7,15,143,142,14,8,136,137,9,10,135,138,11,139,12,140}\n\np={p1,p2,p3}\nc=rnd(p)\n\nfunction forward()\n\tv=c[1]\n\tdel(c,v)\n\tc[#c+1]=v\n\tpal(c,1)\nend\n\nfor i=1,1 do\n\tforward()\nend\n\n\n\npal(c,1)\n\nfunction draw_lines(lines, a_lines)\n\tfor i=1,#lines-1 do\n\t\tline(lines[i][1],\n\t\t\t\t\t\t\tlines[i][2],\n\t\t\t\t\t\t\tlines[i+1][1],\n\t\t\t\t\t\t\tlines[i+1][2],\n\t\t\t\t\t\t\t7)\n\tend\n\n\tfor l in all(a_lines) do\n\ts=l[1]\n\te=l[2]\n\tc=l[4]\n\tdx=(e[1]-c[1])/5\n\tdy=(e[2]-c[2])/5\n\tif dx<0 and dx!=0 then dx-=0.8 else dx+=0.8 end\n\tif dy<0 and dx!=0 then dy-=0.8 else dy+=0.8 end\n\tc[1]+=dx\n\tc[2]+=dy\n\tif (abs(c[1]-e[1])<=1) c[1]=e[1]\n\tif (abs(c[2]-e[2])<=1) c[2]=e[2]\n\tline(s[1],s[2],c[1],c[2])\n\tif c[1]==e[1] and c[2]==e[2] then\n\t\t\tdel(a_lines,l)\n\t\t\tadd(lines,{s[1],s[2],l[3]})\n\t\t\tadd(lines,{e[1],e[2],l[3]})\n\t\tend\n\tend\nend\n\nfunction add_line(lines, a_lines)\n\tdx=lines[#lines][1]\n\tnx=dx\n\tdy=lines[#lines][2]\n\tny=dy\n\ta=4+rnd(18)/1\n\tif(rnd()<0.5)a*=-1\n\tif #lines>=2 then\n\t\tvert=lines[#lines][3]==false\n\telse\n\t\tvert=rnd()<0.5\n\tend\n\tif vert then\n\t\tthic=rnd()<0.1\n\t\tif dy+a<=2 then\n\t\t\tny=dy-a*1.2\n\t\telseif dy+a>=126 then\n\t\t ny=dy-a*1.2\n\t\telse\n\t\t\tny=dy+a\n\t\tend\n\t\tif thic then\n\t\t\tif #lines>=2 and dx>lines[#lines-1][1] then\n\t\t\t\tthic_x=-1\n\t\t\telse\n\t\t\t\tthic_x=1\n\t\t\tend\n\t\t\tadd(a_lines,{{dx+thic_x*2,dy},{nx+thic_x*2,ny},vert,{dx,dy}})\n\t\t\tadd(a_lines,{{dx+thic_x,dy},{nx+thic_x,ny},vert,{dx,dy}})\n\t\t\tadd(a_lines,{{dx,dy},{nx,ny},vert,{dx,dy}})\n\t\t\treturn true\n\t\tend\n\telse\n\t\tthic=rnd()<0.3\n\t\tif dx+a<=2 then\n\t\t\tnx=dx-a*1.2\n\t\telseif dx+a>=126 then\n\t\t nx=dx-a*1.2\n\t\telse\n\t\t\tnx=dx+a\n\t\tend\n\t\tif thic then\n\t\t\tif #lines>=2 and dy<lines[#lines-1][2] then\n\t\t\t\tthic_y=1\n\t\t\telse\n\t\t\t\tthic_y=-1\n\t\t\tend\n\t\t add(a_lines,{{dx,dy+thic_y*2},{nx,ny+thic_y*2},vert,{dx,dy}})\n\t\t\tadd(a_lines,{{dx,dy+thic_y},{nx,ny+thic_y},vert,{dx,dy}})\n\t\t\tadd(a_lines,{{dx,dy},{nx,ny},vert,{dx,dy}})\n\t\t\treturn true\n\t\tend\n\tend\n\tadd(a_lines,{{dx,dy},{nx,ny},vert,{dx,dy}})\nend\n\nfunction delete_line(lines)\n\tif #lines<=1 then\n\t\tdel(lines,lines[#lines])\n\t\treturn true\n\tend\n\tdel(lines,lines[#lines])\n\treturn false\nend\n\nmohr_lines={{2+rnd(124)\\1,2+rnd(124)\\1}}\nanimating_lines={}\nadd_line(mohr_lines)\nt=0\nreverse=128\nreset_state=false\n_set_fps(60)\ncls(0)\n::_::\n\nif btn(❎) then\n\tcls(0)\nelse\n\tfor i=0,768 do\n\t\tx=rnd(128)\n\t\ty=rnd(128)\n\t\tif abs(x-64)<=1 and abs(y-64)<=1 then\n\t\t\tpset(x,y,0)\n\t\tend\n\t\ta=atan2((64-x)/128,(64-y)/128)\n\t\tx2=x-cos(a)*0.65\n\t\ty2=y-sin(a)*0.65\n\t\tpset(x2,y2,max(pget(x,y)-1,0))\n\tend\nend\n\ndraw_lines(mohr_lines, animating_lines)\nif (t)%12==0 and reset_state==false then\n\tadd_line(mohr_lines, animating_lines)\n\tif (#mohr_lines>=256) then\n\t\treset_state=true\n\tend\nend\nif reset_state==true then\n\tif reverse<=0 then\n\t\tif delete_line(mohr_lines) then\n\t\t\treset_state=false\n\t\t\treverse=128\n\t\t\tmohr_lines={{2+rnd(124)\\1,2+rnd(124)\\1}}\n\t\tend\n\telse\n\t\treverse-=1\n\tend\nend\nt+=1\nt%=3600\nflip()\ngoto _","tags":["pico-8","pico8","creativecoding","mathart","pixelart","generative","animated"],"symbol":"OBJKT","artifactUri":"ipfs://bafybeihrtnqez2cqiix57ajs4ajlzgmceaiciuw3z3md25q6dkdc6x7hby","displayUri":"ipfs://QmbnVYDFZrN7Kh4HSPYLMMiGCWFqNTsyYn5MrurACRQsc7","thumbnailUri":"ipfs://QmbnVYDFZrN7Kh4HSPYLMMiGCWFqNTsyYn5MrurACRQsc7","creators":["tz1St3n29AbYXZXV8W1BG41qYzz86J2CFAW7"],"formats":[{"fileSize":462847,"fileName":"Archive.zip","mimeType":"application/x-directory","uri":"ipfs://bafybeihrtnqez2cqiix57ajs4ajlzgmceaiciuw3z3md25q6dkdc6x7hby"},{"mimeType":"image/gif","fileSize":685275,"fileName":"cover_Archive.gif","dimensions":{"value":"384x384","unit":"px"},"uri":"ipfs://QmbnVYDFZrN7Kh4HSPYLMMiGCWFqNTsyYn5MrurACRQsc7"},{"mimeType":"image/gif","fileSize":685275,"fileName":"thumbnail_Archive.gif","dimensions":{"value":"384x384","unit":"px"},"uri":"ipfs://QmbnVYDFZrN7Kh4HSPYLMMiGCWFqNTsyYn5MrurACRQsc7"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false,"date":"2022-11-04T21:18:33.618Z","mintingTool":"https://teia.art/mint"}