init:
n=6; pit=acos(-1)/3; mx1=mx1+rand(100)/2000-0.025; my1=my1+rand(100)/2000-0.025; mh1=mh1+rand(100)/500-0.1; mx2=mx2+rand(100)/2000-0.025; my2=my2+rand(100)/2000-0.025; mh2=mh2+rand(100)/500-0.1; mx3=mx3+rand(100)/2000-0.025; my3=my3+rand(100)/2000-0.025; mh3=mh3+rand(100)/500-0.1; mx4=mx4+rand(100)/2000-0.025; my4=my4+rand(100)/2000-0.025; mh4=mh4+rand(100)/500-0.1; mx5=mx5+rand(100)/2000-0.025; my5=my5+rand(100)/2000-0.025; mh5=mh5+rand(100)/500-0.1; mx6=mx6+rand(100)/2000-0.025; my6=my6+rand(100)/2000-0.025; mh6=mh6+rand(100)/500-0.1;
beat:
mx1=mx1+rand(100)/2000-0.025; my1=my1+rand(100)/2000-0.025; mh1=mh1+rand(100)/500-0.1; mx2=mx2+rand(100)/2000-0.025; my2=my2+rand(100)/2000-0.025; mh2=mh2+rand(100)/500-0.1; mx3=mx3+rand(100)/2000-0.025; my3=my3+rand(100)/2000-0.025; mh3=mh3+rand(100)/500-0.1; mx4=mx4+rand(100)/2000-0.025; my4=my4+rand(100)/2000-0.025; mh4=mh4+rand(100)/500-0.1; mx5=mx5+rand(100)/2000-0.025; my5=my5+rand(100)/2000-0.025; mh5=mh5+rand(100)/500-0.1; mx6=mx6+rand(100)/2000-0.025; my6=my6+rand(100)/2000-0.025; mh6=mh6+rand(100)/500-0.1;
frame:
xp1=xp1+mx1; yp1=yp1+my1; hp1=hp1+mh1; xp2=xp2+mx2; yp2=yp2+my2; hp2=hp2+mh2; xp3=xp3+mx3; yp3=yp3+my3; hp3=hp3+mh3; xp4=xp4+mx4; yp4=yp4+my4; hp4=hp4+mh4; xp5=xp5+mx5; yp5=yp5+my5; hp5=hp5+mh5; xp6=xp6+mx6; yp6=yp6+my6; hp6=hp6+mh6; mx1=if(above(abs(xp1),1),-mx1,mx1); xp1=min(abs(xp1),1)*sign(xp1); my1=if(above(abs(xp1),1),-my1,my1); yp1=min(abs(yp1),1)*sign(yp1); mx1=mx1*0.98+(xp2+xp3+xp4+xp5+xp6-xp1*5)*0.005; my1=my1*0.98+(yp2+yp3+yp4+yp5+yp6-yp1*5)*0.005; mh1=mh1*0.98+(hp2+hp3+hp4+hp5+hp6-hp1*5)*0.005; mx2=if(above(abs(xp2),1),-mx2,mx2); xp2=min(abs(xp2),1)*sign(xp2); my2=if(above(abs(xp2),1),-my2,my2); yp2=min(abs(yp2),1)*sign(yp2); mx2=mx2*0.98+(xp1+xp3+xp4+xp5+xp6-xp2*5)*0.005; my2=my2*0.98+(yp1+yp3+yp4+yp5+yp6-yp2*5)*0.005; mh2=mh2*0.98+(hp1+hp3+hp4+hp5+hp6-hp2*5)*0.005; mx3=if(above(abs(xp3),1),-mx3,mx3); xp3=min(abs(xp3),1)*sign(xp3); my3=if(above(abs(xp3),1),-my3,my3); yp3=min(abs(yp3),1)*sign(yp3); mx3=mx3*0.98+(xp1+xp2+xp4+xp5+xp6-xp3*5)*0.005; my3=my3*0.98+(yp1+yp2+yp4+yp5+yp6-yp3*5)*0.005; mh3=mh3*0.98+(hp1+hp2+hp4+hp5+hp6-hp3*5)*0.005; mx4=if(above(abs(xp4),1),-mx4,mx4); xp4=min(abs(xp4),1)*sign(xp4); my4=if(above(abs(xp4),1),-my4,my4); yp4=min(abs(yp4),1)*sign(yp4); mx4=mx4*0.98+(xp1+xp2+xp3+xp5+xp6-xp4*5)*0.005; my4=my4*0.98+(yp1+yp2+yp3+yp5+yp6-yp4*5)*0.005; mh4=mh4*0.98+(hp1+hp2+hp3+hp5+hp6-hp4*5)*0.005; mx5=if(above(abs(xp5),1),-mx5,mx5); xp5=min(abs(xp5),1)*sign(xp5); my5=if(above(abs(xp5),1),-my5,my5); yp2=min(abs(yp5),1)*sign(yp5); mx5=mx5*0.98+(xp1+xp2+xp3+xp4+xp6-xp5*5)*0.005; my5=my5*0.98+(yp1+yp2+yp3+yp4+yp6-yp5*5)*0.005; mh5=mh5*0.98+(hp1+hp2+hp3+hp4+hp6-hp5*5)*0.005; mx6=if(above(abs(xp6),1),-mx6,mx6); xp6=min(abs(xp6),1)*sign(xp6); my6=if(above(abs(xp6),1),-my6,my6); yp6=min(abs(yp6),1)*sign(yp6); mx6=mx6*0.98+(xp1+xp2+xp3+xp4+xp5-xp6*5)*0.005; my6=my6*0.98+(yp1+yp2+yp3+yp4+yp5-yp6*5)*0.005; mh6=mh6*0.98+(hp1+hp2+hp3+hp4+hp5-hp6*5)*0.005; p=0;
pixel:
p=p+1;
x=xp1*equal(p,1)+xp2*equal(p,2)+xp3*equal(p,3)+xp4*equal(p,4)+xp5*equal(p,5)+xp6*equal(p,6);
y=yp1*equal(p,1)+yp2*equal(p,2)+yp3*equal(p,3)+yp4*equal(p,4)+yp5*equal(p,5)+yp6*equal(p,6);
col=hp1*equal(p,1)+hp2*equal(p,2)+hp3*equal(p,3)+hp4*equal(p,4)+hp5*equal(p,5)+hp6*equal(p,6);
red=abs(sin(col)); green=abs(sin(col+pit)); blue=abs(sin(col-pit)); <edit> DEAR LORD THAT'S A WIDE PAGE!!! 🧟Flock SSC
Teehee...took me all day but I finally got this (mostly) perfect. Except it seems to like to hug the edges for some reason, and I can't figure out why. Any ideas? NO i'm not going to go into detail of the code because it's 12:42 am and i'm tired as FUCK...you'll have to figure it out on your own. And I don't have a zip util on this comp :tear, tear: so you'll have to paste ALL FOUR SECTIONS OF CODE BY YOURSELF (omfg)