{"name":"Genuary 2023 Day 6 - Steal Like An Artist","description":"-- genuary #6 2023\n-- steal like an artist\n-- by carson kompon\nfrain={}\nfsmile=0\npal({[0]=0,7,5,128,2,136,8,137,9,10,138,11,139,131,140,129},1)\ncls()\nfunction colcycle(z,l)\n\tz=z or 0\n\tl=l or 1\n\treturn 3+((t()/16+z)*13*l)%13\nend\n::_::\n\tt4=t()*4\n\t\n\t-- top left pump\n\tclip(0,0,54,7)\n\tfor i=1,16do\n\t\tx=rnd(54)y=rnd(7)\n\t\tcircfill(x,y,1,colcycle((x+y)/20/16))\n\tend\n\trectfill(0,0,35,2,0)\n\trectfill(11,3,16,3,0)\n\trectfill(0,3,6,5,0)\n\trectfill(53-(sin(t())+.5)/2*5,3,53,4,1)\n\t\n\t-- frog rain\n\tclip(62,69,4,49)\n\tif(fsmile>0)fsmile-=1\n\tfor i=1,8 do\n\t\tcirc(62+rnd(4),69+rnd(49),1,0)\n\tend\n\tif flr(t()*60)%20==0 then\n\t\tadd(frain,{\n\t\t\tx=62+rnd(4),\n\t\t\ty=69,\n\t\t\tc=14+rnd()\\1,\n\t\t\ths=0\n\t\t})\n\tend\n\tfor o in all(frain) do\n\t\to.hs+=0.1\n\t\to.y+=o.hs\n\t\tpset(o.x,o.y,o.c)\n\t\tif(o.y>=118)del(frain,o)fsmile=4\n\tend\n\t\n\t-- top left square\n\tclip(14,14,41,41)\n\trectfill(14,14,55,55,0)\n\tfor i=1,16 do\n\t\tfor j=1,16 do\n\t\t\tpset(\n\t\t\t\t14+((i*6)+((j+i+rnd()%2)*3)+t4)%41,\n\t\t\t\t14+((j*6)+t4)%41,\n\t\t\t\t2\n\t\t\t)\n\t\tend\n\tend\n\tfor i=1,8 do\n\t\tfor j=1,4 do\n\t\t\ttt=t()+i/8\n\t\t\tx=34\n\t\t\ty=48-i*3\n\t\t\ts=8+sin(tt)*5\n\t\t\tline(\n\t\t\t\tx+cos(tt)*s,\n\t\t\t\ty+sin(tt)*s/2,\n\t\t\t\tx+cos(tt+(j/8))*s,\n\t\t\t\ty+sin(tt+(j/8))*s/2,\n\t\t\t\tcolcycle(i/8)\n\t\t\t)\n\t\tend\n\tend\n\t\n\t-- top right square\n\tclip(69,10,49,49)\n\tfor i=1,200 do\n\t\tx=rnd(2)-1\n\t\ty=rnd(2)-1\n\t\tif(x*x+y*y>1)circfill(93+x*24,34+y*24,1,0)\n\tend\n\tcircfill(93+cos(t())*24,34+sin(t())*24,1,5)\n\tcircfill(93+cos(-t())*22,34+sin(-t())*22,1,14)\n\tfor i=1,200 do\n\t\tx=rnd(2)-1\n\t\ty=rnd(2)-1\n\t\tc=8+rnd(2)\n\t\tif(x*x+y*y>.7)c=0\n\t\txx=93+x*24\n\t\tyy=34+y*24\n\t\txd=xx-90\n\t\tyd=yy-31\n\t\tif(xd*xd+yd*yd>18^2)circfill(xx,yy,1,c)\n\tend\n\tfor i=1,200 do\n\t\tx=rnd(2)-1\n\t\ty=rnd(2)-1\n\t\tc=4+(atan2(y,x)*11+t())%11\n\t\tif(x*x+y*y<=.8)circfill(90+x*15,31+y*15,1,c)\n\tend\n\t-- bottom right square\n\tclip(69,69,49,49)\n\tfor i=1,100 do\n\t\tcircfill(69+rnd(49),69+rnd(49),1,0)\n\tend\n\tfor i=1,3 do\n\t\td=t()/2+i/3+(t()/8)\n\t\th=18+sin(t()*4+i/3)*6\n\t\tcircfill(\n\t\t\t93+cos(d)*h,\n\t\t\t93+sin(d)*h,\n\t\t\t4,\n\t\t\tmid(colcycle(i/3),4,14)\n\t\t)\n\tend\n\t\n\t-- bottom left square\n\tclip(10,69,49,49)\n\tfor i=1,9 do\n\t\tcirc(34,93,rnd(20),0)\n\tend\n\tfor i=1,4 do\n\t\tcirc(34,93,(i*4+t()*20)%20,colcycle(0,16))\n\tend\n\t\n\t-- water in middle\n\tclip(60,10,8,58)\n\trectfill(60,10,68,68,0)\n\tfor i=0,8 do\n\t\tl=30+sin(t())*4+sin(t()+i/8)\n\t\tline(60+i,68-l,60+i,68,14)\n\tend\n\t\n\t-- water at bottom\n\tclip(0,118,128,10)\n\trectfill(0,118,128,128,0)\n\tfor i=0,127 do\n\t\tl=3+sin(t()+i/32)*2\n\t\tline(i,128-l,i,128,14)\n\tend\n\t\n\t--== full screen clip ==--\n\tclip(0,0,128,128)\n\t\n\t-- moving tractor beams on left\n\trectfill(1,70,7,90,0)\n\trectfill(1,99,7,116,0)\n\tfor i=0,3 do\n\t\tfor j=0,4 do\n\t\t\ttt=t()*32\n\t\t\tif(i%2==0)tt*=-1\n\t\t\tpset(1+i*2,70+(j*4+tt)%18,2)\n\t\t\ttt*=-1\n\t\t\tpset(1+i*2,99+(j*4+tt)%18,2)\n\t\tend\n\tend\n\t\n\t-- character screen on right\n\trectfill(121,33,125,38,0)\n\tprint(chr(16+flr(t())%212),122,34,colcycle(1,16))\n\tfor i=1,4 do\n\t\tfor j=1,6 do\n\t\t\tc=rnd({0,0,0,0,0,0,0,4+rnd(10)})\n\t\t\tpset(120+((i-1)*2),42+((j-1)*2),c)\n\t\tend\n\tend\n\t\n\t-- falling dots on the left\n\tline(3,25,3,44,0)\n\tfor i=1,4 do\n\t\tpset(3,25+((i*5)+t()*16)%19,1)\n\tend\n\t\n\t-- frog eyes\n\trectfill(58,123,69,126,0)\n\trectfill(57,124,70,125,0)\n\trectfill(59,121,68,122,0)\n\trectfill(60,120,67,120,0)\n\tif fsmile > 0 then\n\t\tpset(61,121,1)\n\t\tpset(66,121,1)\n\telse\n\t\tline(61,121,61,120,1)\n\t\tline(66,121,66,120,1)\n\tend\n\t\n\t-- draw main sprite\n\tpal(7,1)\n\tsspr(0,0,128,128,0,0)\n\tpal(7,7)\n\tflip()\ngoto _","tags":["generative","animated","opensource","pico8","pico-8","genuary","genuary6","creativecoding","tribute"],"symbol":"OBJKT","artifactUri":"ipfs://bafybeibrktsyhxtl6qubzt4e3xg77s4ct3znintmq2l57tvhyjrzlfvoc4","displayUri":"ipfs://QmaQwo2xPfDeKNS8Xph7ebaKyM2kur1eU3vPbLnHZWRBwA","thumbnailUri":"ipfs://QmaQwo2xPfDeKNS8Xph7ebaKyM2kur1eU3vPbLnHZWRBwA","creators":["tz1XqJ9e6NdouxdGvm2V3aknwFnGL6Kinu6A"],"formats":[{"fileSize":3923419,"fileName":"genuary_2023_6.zip","mimeType":"application/x-directory","uri":"ipfs://bafybeibrktsyhxtl6qubzt4e3xg77s4ct3znintmq2l57tvhyjrzlfvoc4"},{"mimeType":"image/gif","fileSize":3561395,"fileName":"cover_genuary_2023_6.gif","dimensions":{"value":"512x512","unit":"px"},"uri":"ipfs://QmaQwo2xPfDeKNS8Xph7ebaKyM2kur1eU3vPbLnHZWRBwA"},{"mimeType":"image/gif","fileSize":3561395,"fileName":"thumbnail_genuary_2023_6.gif","dimensions":{"value":"512x512","unit":"px"},"uri":"ipfs://QmaQwo2xPfDeKNS8Xph7ebaKyM2kur1eU3vPbLnHZWRBwA"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false,"rights":"none","date":"2023-01-07T03:03:08.973Z","mintingTool":"https://teia.art/mint","accessibility":{"hazards":["flashing"]}}