{"name":"Genuary 2023 Day 13 - Something you've always wanted to learn","description":"-- genuary #13 2023\n-- something you've always wanted to learn\n-- by carson kompon\n-- resource: https://datagenetics.com/blog/july22018\npoints={}\ncol=1.1\ndrag=0.999\ngrav=0\nobjs={}\n\nfunction create_obj(pts,c)\n\tobj={\n\t\tpts=pts,c=c,\n\t\tsticka={},stickb={},sticklen={}\n\t}\n\tptlen=#pts\n\tif ptlen>1 then\n\t\tfor i=1,ptlen do\n\t\t\tnxt=1+(i)%ptlen\n\t\t\tobj.sticka[i]=i\n\t\t\tobj.stickb[i]=nxt\n\t\t\tdx=pts[i].x-pts[nxt].x\n\t\t\tdy=pts[i].y-pts[nxt].y\n\t\t\tobj.sticklen[i]=sqrt((dx*dx)+(dy*dy))\n\t\tend\n\tend\n\tadd(objs,obj)\nend\n\nfunction objs_update_points()\n\tfor i=1,#objs do\n\t\ta=objs[i]\n\t\tfor j=1,#a.pts do\n\t\t\to=a.pts[j]\n\t\t\tvx=(o.x-o.xprev)*drag\n\t\t\tvy=(o.y-o.yprev)*drag\n\t\t\tmdx=mx-o.x\n\t\t\tmdy=my-o.y\n\t\t\tif ((mdx*mdx)+(mdy*mdy))<64 then\n\t\t\t\tvx+=(mx-lmx)/3\n\t\t\t\tvy+=(my-lmy)/3\n\t\t\tend\n\t\t\to.xprev=o.x\n\t\t\to.yprev=o.y\n\t\t\to.x+=vx\n\t\t\to.y+=vy\n\t\t\to.y+=grav\n\t\tend\n\tend\nend\n\nfunction objs_constrain_points()\n\tfor i=1,#objs do\n\t\ta=objs[i]\n\t\tfor j=1,#a.pts do\n\t\t\to=a.pts[j]\n\t\t\tif o.x>(128-o.r) then\n\t\t\t\to.x=128-o.r\n\t\t\t\to.xprev=o.x+(vx*col)\n\t\t\telseif o.x<o.r then\n\t\t\t\to.x=o.r\n\t\t\t\to.xprev=o.x+(vx*col)\n\t\t\tend\n\t\t\tif o.y>(128-o.r) then\n\t\t\t\to.y=128-o.r\n\t\t\t\to.yprev=o.y+(vy*col)\n\t\t\telseif o.y<o.r then\n\t\t\t\to.y=o.r\n\t\t\t\to.yprev=o.y+(vy*col)\n\t\t\tend\n\t\tend\n\tend\nend\n\nfunction objs_update_sticks()\n\tfor i=1,#objs do\n\t\ta=objs[i]\n\t\tfor j=1,#a.sticka do\n\t\t\to=a.pts[a.sticka[j]]\n\t\t\tpar=a.pts[a.stickb[j]]\n\t\t\tdx=o.x-par.x\n\t\t\tdy=o.y-par.y\n\t\t\tdist=sqrt((dx*dx)+(dy*dy))\n\t\t\tam=((dist-a.sticklen[j])/dist)/2\n\t\t\to.x-=dx*am\n\t\t\to.y-=dy*am\n\t\t\tpar.x+=dx*am\n\t\t\tpar.y+=dy*am\n\t\tend\n\tend\nend\n\nfunction objs_draw()\n\tfor i=1,#objs do\n\t\ta=objs[i]\n\t\tif #a.pts > 1 then\n\t\t\tfor j=1,#a.sticka do\n\t\t\t\tlx1=a.pts[a.sticka[j]].x\n\t\t\t\tly1=a.pts[a.sticka[j]].y\n\t\t\t\tlx2=a.pts[a.stickb[j]].x\n\t\t\t\tly2=a.pts[a.stickb[j]].y\n\t\t\t\tline(lx1,ly1,lx2,ly2,a.c)\n\t\t\tend\n\t\tend\n\t\tfor j=1,#a.pts do\n\t\t\to=a.pts[j]\n\t\t\tcircfill(o.x,o.y,o.r,a.c)\n\t\tend\n\tend\nend\n\nfunction create_point(x,y,xprev,yprev)\n\txprev=xprev or x+rnd(2)-1\n\typrev=yprev or y+rnd(2)-1\n\treturn {\n\t\tx=x,y=y,r=1.5,\n\t\txprev=xprev,yprev=yprev,\n\t}\nend\n\n--[[\nfor i=1,20 do\n\tpx=rnd(128)\n\tpy=rnd(128)\n\tppx=px+(rnd(2)-1)*5\n\tppy=py+(rnd(2)-1)*5\n\tp=create_point(px,py,ppx,ppy)\n\tang=rnd()\n\tdst=6+rnd()*16\n\tcreate_point(\n\t\tpx+cos(ang)*dst,\n\t\tpy+sin(ang)*dst,\n\t\tpx,py,p\n\t)\nend\n]]--\n\npoke(0x5f2d, 1)\nlmx=stat(32)\nlmy=stat(33)\n\nfor i=1,6 do\n\tpts={}\n\tbasept=create_point(rnd(128),rnd(128))\n\tadd(pts,basept)\n\tsiz=2+rnd(2)\\1\n\tfor j=1,siz do\n\t\tadd(pts,create_point(basept.x+rnd(64)-32,basept.y+rnd(64)-32))\n\tend\n\tcreate_obj(pts,i)\nend\n\n::_::\n\tcls()\n\t\n\tmx=stat(32)\n\tmy=stat(33)\n\tmc=stat(34)\n\t\n\tobjs_update_points()\n\tobjs_constrain_points()\n\tobjs_update_sticks()\n\tobjs_draw()\n\t\n\tcircfill(mx,my,1,7)\n\t\n\tlmx=mx\n\tlmy=my\n\t\n\tflip()\ngoto _","tags":["animated","opensource","CC0","pico8","pico-8","creativecoding","genuary","genuary13","pixelart","verlet","toy","interactive"],"symbol":"OBJKT","artifactUri":"ipfs://bafybeiclt22udqwlczfrcqfntr5jd7d32l4mhny7dqzhsgi5abk3ajxupq","displayUri":"ipfs://QmXfZ2yz6sUi486HEEtjTaH3unojc7mXiBjqcBE7pfkcUA","thumbnailUri":"ipfs://QmXfZ2yz6sUi486HEEtjTaH3unojc7mXiBjqcBE7pfkcUA","creators":["tz1XqJ9e6NdouxdGvm2V3aknwFnGL6Kinu6A"],"formats":[{"fileSize":2369537,"fileName":"genuary_2023_13.zip","mimeType":"application/x-directory","uri":"ipfs://bafybeiclt22udqwlczfrcqfntr5jd7d32l4mhny7dqzhsgi5abk3ajxupq"},{"mimeType":"image/gif","fileSize":1976445,"fileName":"cover_genuary_2023_13.gif","dimensions":{"value":"512x512","unit":"px"},"uri":"ipfs://QmXfZ2yz6sUi486HEEtjTaH3unojc7mXiBjqcBE7pfkcUA"},{"mimeType":"image/gif","fileSize":1976445,"fileName":"thumbnail_genuary_2023_13.gif","dimensions":{"value":"512x512","unit":"px"},"uri":"ipfs://QmXfZ2yz6sUi486HEEtjTaH3unojc7mXiBjqcBE7pfkcUA"}],"decimals":0,"isBooleanAmount":false,"shouldPreferSymbol":false,"rights":"none","date":"2023-01-14T00:27:17.803Z","mintingTool":"https://teia.art/mint"}