MidiIn midiIn;

// Draws to Processing and Postscript simultaneously
// by replacing calls to fill(), line() etc. by
// custom functions that carry out operations in both.

boolean fileOpen=false;
SimplePostscript ps;
int filenum=0;

//storyabout@empal.com

int vine_total_ori = 5;
int vine_total = vine_total_ori;
int vine_max = 1000000;
vine [] vine_array = new vine [vine_max];

void setup(){

  String filename="curl_and_ps_" +filenum +".ps";
  print(filename +"\n");
  ps=SimplePostscript.open(filename, 0,0, width,height);

  // Make a new MidiInputObject and open it
  midiIn = new MidiIn();
  midiIn.showAvailableInputs();
  midiIn.openInput(1);

  size(400,700);
  background(0);
  vine_gen_ori();
}

void loop(){

  for(int i=0;i<vine_total;i++){
    if(vine_array[i].dist>1 && !mousePressed){
      vine_array[i].grow();
    }
  }

  //println(midiIn.getNote(0));

  framerate(midiIn.getController(0,74));

  int init = midiIn.getNote(0);
  if(init > 71 && midiIn.triggered(0)){

    ps.close();
    fileOpen=false;

    String filename="curl_and_ps_" +filenum +".ps";
    print(filename +"\n");
    ps=SimplePostscript.open(filename, 0,0, width,height);
    filenum++;

    fileOpen=true;

    vine_total = vine_total_ori;

    vine_gen_ori();

    background(midiIn.getController(0,7),midiIn.getController(0,91),midiIn.getController(0,93));
  }

}

void vine_gen_ori(){
  for(int i=0;i<vine_total;i++){
    vine_array[i] = new vine();
    vine_array[i].name = "origin";
    vine_array[i].x = width/2;
    vine_array[i].y = height;
    vine_array[i].oldx = vine_array[i].x;
    vine_array[i].oldy = vine_array[i].y;
    vine_array[i].depth = midiIn.getController(0,71) - random(midiIn.getController(0,71)-0.1);
    vine_array[i].dist = 6.5;
    vine_array[i].dist_offset = 0.045;
    vine_array[i].dir = int(random(2))*2 - 1;
    vine_array[i].ceta = 0;
    vine_array[i].ceta_ori = PI/180*(-90) + random(.4) - .2;
    vine_array[i].a = 0;
    vine_array[i].r = 120;
    vine_array[i].g = random(100);
    vine_array[i].b = random(100);
  }
}

void vine_gen_curl(float x, float y, float dist, float ceta, float r, float g, float b){
  vine_array[vine_total] = new vine();
  int i = vine_total;
  vine_array[i].name = "curl";
  vine_array[i].x = x;
  vine_array[i].y = y;
  vine_array[i].oldx = vine_array[i].x;
  vine_array[i].oldy = vine_array[i].y;
  vine_array[i].depth = 0.5;
  vine_array[i].dist = dist;
  vine_array[i].dist_offset = 0.05 + random(0.04);
  vine_array[i].dir = int(random(2))*2 - 1;
  vine_array[i].ceta = 0;
  vine_array[i].ceta_ori = ceta;
  vine_array[i].a = 0;
  vine_array[i].r = r;
  vine_array[i].g = g;
  vine_array[i].b = b;
  vine_total ++;
}

void vine_gen_swirl(float x, float y, float dist, float ceta, float r, float g, float b){
  vine_array[vine_total] = new vine();
  int i = vine_total;
  vine_array[i].name = "swirl";
  vine_array[i].x = x;
  vine_array[i].y = y;
  vine_array[i].oldx = vine_array[i].x;
  vine_array[i].oldy = vine_array[i].y;
  //vine_array[i].depth = 0.5;
  vine_array[i].dist = dist ;
  vine_array[i].dist_offset = 0.05 + random(0.04);
  vine_array[i].dir = int(random(2))*2 - 1;
  vine_array[i].ceta = 0;
  vine_array[i].ceta_ori = ceta;
  vine_array[i].a = 0;
  vine_array[i].r = r;
  vine_array[i].g = g;
  vine_array[i].b = b;
  vine_total ++;
}

class vine{
  float x,y,oldx,oldy,depth,dist,dist_offset,dir;
  float r,g,b;
  float ceta,ceta_ori,a;
  String name;
  vine(){
  }
  void grow(){
    if(name=="curl" || name=="origin"){
      ceta = ceta_ori + depth * sin(a);
    }else if(name=="swirl"){
      ceta = ceta_ori + a ;
    }
    x += dist * cos(ceta);
    y += dist * sin(ceta);
    if(name=="curl" || name=="origin"){
      a += PI/180 * 10 * dir;
    }else if(name=="swirl"){
      a += PI/180 * 10 * dir;
    }
    dist -= dist_offset;
    float tasten = sqrt((midiIn.getVelocity(0)/3)*midiIn.getNote(0));
    float regler = midiIn.getController(0,7);
    //println(tasten);
    doStroke(midiIn.getController(0,73),midiIn.getController(0,75),midiIn.getController(0,72));//rgb
    fill(midiIn.getController(0,93),midiIn.getController(0,91),midiIn.getController(0,7));
    doFill(midiIn.getController(0,93),midiIn.getController(0,91),midiIn.getController(0,7));
    doLine(x,y,oldx,oldy);
    oldx = x;
    oldy = y;
    float leaf_s = sin(x)*sin(y)*tasten;

    if((int)random(20)==0){
      if(name=="origin"){
        if(dist<5.5){
          vine_gen_curl(x,y,dist,ceta,r,g,b);
          doEllipse(x,y,leaf_s,leaf_s);
        }
      }else{
        vine_gen_curl(x,y,dist,ceta,r,g,b);
        doEllipse(x,y,leaf_s,leaf_s);
      }
    }
    if((int)random(20)==0 && (name=="curl")){
      vine_gen_swirl(x,y,dist,ceta,r,g,b);
      doEllipse(x,y,leaf_s,leaf_s);
    }

  }
}

void doStroke(float r,float g,float b) {
  stroke(r,g,b);
  if(fileOpen) ps.setrgb((int)r,(int)g,(int)b);
}

void doFill(float r,float g,float b) {
  fill(r,g,b);
  if(fileOpen) ps.setrgb((int)r,(int)g,(int)b);
}

void doLine(float x1,float y1,float x2,float y2) {
  line(x1,y1,x2,y2);
  if(fileOpen) {
    ps.moveto(x1,height-y1);
    ps.lineto(x2,height-y2);
    ps.stroke();
  }
}

void doEllipse(float x,float y,float xrad,float yrad) {
  ellipse(x,y, xrad,yrad);
  if(fileOpen) {
    ps.circle(x,height-y,xrad/2);
    ps.fill();
  }
}

void doRect(float x,float y,float xrad,float yrad) {
  rect(x,y, xrad,yrad);
  if(fileOpen) {
    ps.rect(x,y,xrad,yrad);
    ps.fill();
  }
}