/*

 #######################################################################################
 #######################################################################################
 ######################            I  N  S  E  K  T               ###################### 
 ######################         by david boardman [dĦĦ]           ###################### 
 ######################      http://www.netzfunk.org/?usr=d       ###################### 
 #######################################################################################
 #######################################################################################
 
 
 INSTRUCTIONS
 
 1. Press 0 to 9 to change shape
 2. Press + or - to modify insekt speed
 
 */

int stageSizeX=900, stageSizeY=600;
float x, y, vx, vy;
float _vol, _spec, _mVol, _mSpec;
float osi, osiV;
float r, rv, ra, raRange, spd, incrSpd=.5, maxSpd=20, minSpd=3.5;
float pos1, pos2, pos3, pos4, rnd;

int modeView, num=100, count=0;
float mx[] = new float[num];
float my[] = new float[num];




void setup(){
  size(stageSizeX,stageSizeY);
  smooth();
  background(255);
  framerate(90);
  x=random(stageSizeX);
  y=random(stageSizeY);
  modeView=1;
  vx=x;
  vy=y;
  rv=0;
  ra=0;
  osi=0;
  osiV=random(.1,1); //0.1
  spd=random(5,12);
}


void draw(){
  smooth();
  raRange=random(0.1,1.6); //.1 - 2
  osi+=osiV;
  if(osi > TWO_PI) osi-=TWO_PI;
  x+=cos(r*PI/360)*spd;
  y+=sin(r*PI/360)*spd;
  edgeDetection();
  ra=ra*.9+random(-raRange,raRange);
  rv=rv*.99+ra;
  r+=rv;  

  fill(255,16);
  rect(-4,-4,width+4,height+4);


  for(int i=1; i<num; i++) {
    mx[i-1] = mx[i];
    my[i-1] = my[i];
  } 

  mx[num-1] = x;
  my[num-1] = y;

  stroke(0,200);
  strokeWeight(1);
  strokeCap(ROUND);

  for(int i=0;i<num;i++){
    for(int r=0;r<360;r++){
      if(count==96){

        stroke(0,255);
        strokeWeight(.15);


        switch(modeView){
        case 1:
          line(mx[i],my[i],mx[i]+(i/2)*cos(r*TWO_PI/360),my[i]+(i/2)*sin(r*TWO_PI/360));         
          break;
          // ******************************************************************************************************** //
        case 2:
          fill(0,1);
          strokeWeight(.08);
          beginShape(POLYGON);
          vertex(mx[i],my[i]);
          bezierVertex(mx[i],my[i],mx[i]+(i/4)*cos(r*TWO_PI/360),my[i]+(i/4)*-sin(r*TWO_PI/360),mx[i]+(i/2)*-cos(r*PI/360),my[i]+(i/2)*sin(r*PI/360));   
          bezierVertex(mx[i]+(i/8)*-cos(r*TWO_PI/360),my[i]+(i/8)*sin(r*TWO_PI/360),mx[i]+(i/4)*cos(r*TWO_PI/360),my[i]+(i/4)*-sin(r*TWO_PI/360),mx[i]+(i/2)*-cos(r*PI/360),my[i]+(i/2)*-sin(r*PI/360));                 
          endShape();
          break;
          // ******************************************************************************************************** //
        case 3: 
          fill(0,16);
          beginShape(LINE_LOOP);
          curveVertex(mx[i],my[i]);
          curveVertex(mx[i]+(i/6)*-cos(r*TWO_PI/360),my[i]+(i/-8)*sin(r*TWO_PI/360));
          curveVertex(mx[i]+(i/-2)*cos(r*TWO_PI/360),my[i]+(i/4)*-sin(r*TWO_PI/360));
          curveVertex(mx[i]+(i+random(-6,6))*cos(r*TWO_PI/180),my[i]+(i+random(-6,6))*sin(r*TWO_PI/180));
          endShape();
          break;
          // ******************************************************************************************************** //
        case 4:
          fill(0,1);
          beginShape(LINE_STRIP); 
          vertex(mx[i],my[i]); 
          int l=30;
          int mmin=2;
          bezierVertex(mx[i]+(i/random(mmin,l))*cos(r*TWO_PI/360),my[i]+(i/random(mmin,l))*sin(r*TWO_PI/360),mx[i]+(i/random(mmin,l/2))*cos(r*PI/360),my[i]+(i/random(mmin,l/2))*sin(r*PI/360),mx[i]+(i/random(l))*cos(r*TWO_PI/360),my[i]+(i/random(l))*sin(r*TWO_PI/360)); 
          endShape();
          break;
          // ******************************************************************************************************** //
        case 5:
          strokeCap(PROJECT);
          pos1=mx[i]+(i/16)*tan(r*TWO_PI/360);
          pos2=my[i]+(i/16)*atan(r*TWO_PI/360);
          pos3=mx[i]+(i/8)*cos(r*TWO_PI/360);
          pos4=my[i]+(i/8)*sin(r*TWO_PI/360);
          triangle(pos1,pos2,pos3,pos4,mx[i]+(i/8)*atan2(-pos1,pos3),my[i]+(i/8)*atan2(-pos2,pos4));
          break;
          // ******************************************************************************************************** //
        case 6:
          bezier(mx[i],my[i],mx[i]+(i/2)*cos(r*TWO_PI/360),my[i]+(i/2)*sin(r*TWO_PI/360),mx[i]+(i/2)*-cos(r*TWO_PI/90),my[i]+(i/2)*-sin(r*TWO_PI/90),mx[i]+(i/8)*-cos(r*TWO_PI/180),my[i]+(i/8)*-sin(r*TWO_PI/180));
          break;
          // ******************************************************************************************************** //
        case 7:
          strokeWeight(1.05);
          int l1=10;
          int l2=5;

          beginShape(POINTS); 
          //vertex(mx[i],my[i]); 
          vertex(mx[i]+(i/random(l2))*tan(r*TWO_PI/360),my[i]+(i/random(l2))*tan(r*TWO_PI/360)); 
          vertex(mx[i]+(i/random(l2))*cos(r*TWO_PI/360),my[i]+(i/random(l2))*sin(r*TWO_PI/360)); 
          vertex(mx[i]+(i/random(l2))*tan(r*TWO_PI/360),my[i]+(i/random(l2))*tan(r*TWO_PI/360)); 
          vertex(mx[i]+(i/random(l2))*cos(r*TWO_PI/360),my[i]+(i/random(l2))*sin(r*TWO_PI/360)); 


          vertex(mx[i]+(i/random(l1))*tan(r*TWO_PI/360),my[i]+(i/random(l1))*tan(r*TWO_PI/360)); 
          vertex(mx[i]+(i/random(l1))*cos(r*TWO_PI/360),my[i]+(i/random(l1))*sin(r*TWO_PI/360)); 
          vertex(mx[i]+(i/random(l1))*tan(r*TWO_PI/360),my[i]+(i/random(l1))*tan(r*TWO_PI/360)); 
          vertex(mx[i]+(i/random(l1))*cos(r*TWO_PI/360),my[i]+(i/random(l1))*sin(r*TWO_PI/360)); 
          endShape();

          break;
          // ******************************************************************************************************** //
        case 8:
          strokeWeight(.45);
          fill(255,128);
          stroke(0,128);
          //arc(mx[i], my[i], 30, 30, TWO_PI-PI/random(2,6), (PI*r)/180);
          quad(mx[i], my[i], mx[i]+(i/2)*-cos(r*TWO_PI/360),my[i]+(i/2)*-sin(r*TWO_PI/360), mx[i]+(i/4)*cos(r*TWO_PI/270),my[i]+(i/4)*sin(r*TWO_PI/270),mx[i]+(i/8)*cos(r*TWO_PI/180),my[i]+(i/8)*sin(r*TWO_PI/180));

          break;
          // ******************************************************************************************************** //
        case 9:
          strokeWeight(.06);
          noFill();
          line(mx[i]+(30*TWO_PI/360),my[i]+(30*TWO_PI/360),mx[i]+random(-35,35),my[i]+random(-35,35));
          strokeWeight(.095);
          rnd=random(15,25);
          fill(255,64);
          arc(mx[i], my[i], rnd , rnd, PI/random(22,90), TWO_PI/random(45,360));
          break;
          // ******************************************************************************************************** //
        case 0:
          noFill();
          ellipse(mx[i]+random(-i/4,i/4), my[i]+random(-i/4,i/4),i/2,i/2); 
          fill(255,128);
          strokeWeight(.15);
          ellipse(mx[i], my[i],i/3.5,i/3.5); 

          break;        
          // ******************************************************************************************************** //
        default:

          break;

        }

        count=0;
      }
      count++;
    }
  }
}

public void edgeDetection(){
  // EDGE DETECTION ROUTINE
  if(x<0){
    x=stageSizeX;
    vx+=stageSizeX;
  }
  if(x>stageSizeX){
    x=0;
    vx-=stageSizeX;
  }
  if(y<0){
    y=stageSizeY;
    vy+=stageSizeY;
  }
  if(y>stageSizeY){
    y=0;
    vy-=stageSizeY;
  }

}


void keyPressed(){
  if(key=='1' || key=='2' || key=='3' || key=='4' || key=='5' || key=='6' || key=='7' || key=='8' || key=='9' || key=='0'){
    int stK=int(str(key));
    if(modeView!=stK){
      background(255);
      modeView=stK;
    }
  }

  if(key=='+'){
    if(spd < maxSpd) spd+=incrSpd;
  }

  if(key=='-'){
    if(spd > minSpd) spd-=incrSpd;
  }
}