int riceMax = 100;
Rice[] riceList =  new Rice[riceMax];
MidiOut midiOut;

int screenCache = 0;
String[] noteList = {"C","C#","D","D#","E","F","F#","G","G#","A","A#","B"};
int[] maj = {0,4,7};//0
int[] minor = {0,3,7};
int[] maj7 = {0,4,7,11};//2
int[] seven = {0,4,7,10};
int[] seven13 = {0,4,5,7,10};//4
int[] m7 = {0,3,7,10};
int[] majb5 = {0,4,6};//6
int[] dim = {0,3,6};
int[] dim7 = {0,3,6,10};//8
int[] maj4 = {0,4,5,7};
int[] maj2 = {0,2,4,7};//10
int[] maj6 = {0,4,7,9};
int[] maj7b = {0,4,7,10};//12
int[] m11 = {0,2,3,7,10};
int[] m13 = {0,3,5,7,10};//14
int[] m6 = {0,3,5,9};
int[] seven9 = {0,2,4,10};//16
int[] seven5 = {0,4,10};//17

int[] song1 = {5,5 ,7,7,7,0,5,6 ,5,5 ,7,7,7,0,5,5 ,6,6,11,11,6,6, 2, 2,7,7, 3, 3,9,2 ,7,0 };//keyShift
int[] song2 = {2,11,4,3,5,2,2,17,2,11,4,3,5,2,2,11,2,2,16,16,5,5,16,16,5,5,16,16,5,16,5,16 };//currentChord

color[] colorBank = new color[16];

int[][] chordList = {maj,minor,maj7,seven,seven13,m7,majb5,dim,dim7,maj4,maj2,maj6,maj7b,m11,m13,m6,seven9,seven5};
String[] chordListName = {"","m","maj7","7","13","m7","majb5","dim","dim7","add4","add2","6","7b","m11","m13","m6","7#9","7#5"};
int currentChord;
int keyShift;
int relationMax = 500;
Relation[] relationList = new Relation[relationMax];
BFont DIN;
int token;
float timer = 0;
color bg,tbg,cbg;
float camX,camY;
float tcamX,tcamY;
float panX,panY;
float tpanX,tpanY;
int beat = 0;

void setup() {
  size(640, 480);
  framerate(60);
  colorMode(RGB,256);
  colorBank[0] = color(70,110,120);
  colorBank[1] = color(209,34,47);
  colorBank[2] = color(160,110,13);
  colorBank[3] = color(20,113,86);
  colorBank[4] = color(139,121,0);
  colorBank[5] = color(143,125,0);
  colorBank[6] = color(230,109,2);
  colorBank[7] = color(97,43,0);
  colorBank[8] = color(165,198,145);
  colorBank[9] = color(22,111,83);
  colorBank[10] = color(216,200,63);
  colorBank[11] = color(92,57,64);
  colorBank[12] = color(162,162,134);
  colorBank[13] = color(152,162,134);
  colorBank[14] = color(162,152,134);
  colorBank[15] = color(162,162,124);

  bg = color(162,162,134);
  cbg = color(162,162,134);
  tbg = colorBank[int(random(15.4))];

  for (int i=0; i<relationMax; i++) {
    //   print(relationList[i]);
  }
  for (int i=0; i<riceMax; i++) {
    riceList[i] = new Rice(i);
  }

  DIN = loadFont("Arial.vlw");
  colorMode(RGB,256);
  background(162,162,134);
  ///midi
  midiOut = new MidiOut();
  midiOut.showAvailableOutputs();
  midiOut.openOutput(0);
  currentChord = song2[0];
  keyShift = song1[0];
  token = 0;
  camX = random(-400,400);
  camY = random(-400,400);
  tcamX = 0;
  tcamY = 0;
  panX = random(-400,400);
  panY = random(-400,400);
  tpanX = 0;
  tpanY = 0;
}

void keyPressed()
{
  if(key == '1') {
    currentChord = 0;
  }
  if(key == '2') {
    currentChord = 1;
  }
  if(key == '3') {
    currentChord = 2;
  }
  if(key == '4') {
    currentChord = 3;
  }
  if(key == '5') {
    currentChord = 4;
  }
  if(key == '6') {
    currentChord = 5;
  }
  if(key == '7') {
    currentChord = 6;
  }
  if(key == '8') {
    currentChord = 7;
  }
  if(key == '-') {
    keyShift = (keyShift-1+12)%12;
  }
  if(key == '=' || key=='+') {
    keyShift = (keyShift+1+12)%12;
  }
  if(key == 'c' || key=='C'){
    screenCache = (screenCache + 1)%2;
  }
}

void loop() {
  colorMode(RGB,256);
  cbg = color(float(red(cbg))*0.99+float(red(tbg))*0.01,float(green(cbg))*0.9+float(green(tbg))*0.1,float(blue(cbg))*0.8+float(blue(tbg))*0.2,10);
  if(screenCache ==0){
    background(cbg);
  }
//  fill(cbg);
//  rect(0,0,width,height);
  timer += 1;
  if(timer> 150){
    timer =0;
    beat++;
    if(beat >= song1.length)beat = 0;
 //   if(random(100)>50)keyShift = (keyShift+7+12)%12;
 //   currentChord = int(random(13));
    keyShift = song1[beat];
    currentChord = song2[beat];
    tbg = colorBank[int(random(15.4))];
    colorMode(HSB,256);
    tbg = color(hue(tbg),saturation(tbg)*0.5,brightness(tbg)*0.4);
    tcamX = tcamX+random(-200,200);
    tcamY = tcamY+random(-200,200);
    tpanX = random(-100,100);
    tpanY = random(-100,100);
  }
  camX = camX*0.9 + tcamX*0.1;
  camY = camY*0.9 + tcamY*0.1;
  panX = panX*0.9 + tpanX*0.1;
  panY = panY*0.9 + tpanY*0.1;
  color bg = color(0,0,0,4);
  fill(bg);
  //  rect(0,0,width,height);
  token++;
  if(token>=riceMax)token=0;

  for (int i=0; i<relationMax; i++) {
    if(relationList[i]!=null){
      if(relationList[i].connected2 ==1){
        relationList[i].render();
      }
    }
  }
  for (int i=0; i<riceMax; i++) {
    riceList[i].render();
  }
  colorMode(RGB,256);
  fill(256,256,256);
  textFont(DIN,20);
  text(noteList[keyShift]+chordListName[currentChord],5,height-15);
}

class Relation{
  int index;
  int index1, index2;
  float d;
  int connected, connected2;//connected2 is to identify render the line or not
  float pos,speed;
  int dir;
  float a;//alpha
  int group, groupCount;
  boolean playNote;
  color c;

  Relation(int Index, int Index1,int Index2){
    index = Index;
    index1 = Index1;
    index2 = Index2;
    d = 70;
    connected2 = 1;
    connected = 1;
    dir = 1;
    speed = 4;
    //speed = float(pow(2,int(random(1,4.4))))/4;
    pos = 5+random(90);
    a = 0;
    colorMode(HSB,100);
    int randomColor = int(random(0,11.4));
    c = colorBank[randomColor];
    group = index;
    playNote = true;
  }

  void render(){
    checkGroup();
    checkTension();
    groupCount = countGroup(group);
    setSpeed(group,float(0.8*groupCount));
    //  drawCurve(group,groupCount);
    colorMode(HSB,100);
    if(connected == 1){
      a = max(a*0.9,20);
    }else{
      a = a*0.99;
      if(a<1){
        connected2 = 0;
      }
    }
    // stroke(60,50,50,a);
    stroke(hue(relationList[group].c),saturation(relationList[group].c),brightness(relationList[group].c),a);
    //  print(index1 +","+ index2 + ";");
    strokeWeight(a/50);
    push();
    translate(width/2+panX,height/2+panY,-100);
    rotateX(camX*0.01);
    rotateY(camY*0.01);
//    rotateX((mouseY-height/2)*0.01);
//    rotateY((mouseX-width/2)*0.01);
    translate(-width/2,-height/2);
    line(riceList[index1].cx,riceList[index1].cy,riceList[index1].cz,riceList[index2].cx,riceList[index2].cy,riceList[index2].cz);
    strokeWeight(1);
    pop();
    if(playNote && connected == 1){
      pos += dir*speed;
      if(pos> 100){
        // dir = -1;
        // pos = 100;
        //  dir *= -1;
        pos = 0;
        midiOut.setNoteOff(0,riceList[index2].pitch);
        midiOut.setNoteOn(0,riceList[index2].pitch, max(127-int(speed*4),30));
        riceList[index2].voice += (max(127-int(speed*2),30))*0.35;
        riceList[index2].speed2 += 20;
        // midiOut.setNoteOff(0,riceList[index1].pitch);
        playNote = false;
        int next;
        if(riceList[index2].relationP==-1 || riceList[index2].relationN==-1){//  end of group
          next = index;
        }else if(riceList[index2].relationP != index){
          next = riceList[index2].relationP;
        }else{
          next = riceList[index2].relationN;
        }
        relationList[next].a = 100;
        relationList[next].playNote = true;
        if(relationList[next].index1 != index2){
          int tmp1 = relationList[next].index1;
          int tmp2 = relationList[next].index2;
          relationList[next].index1 = tmp2;
          relationList[next].index2 = tmp1;
        }
      }else{
        noFill();
        float dx = riceList[index2].cx-riceList[index1].cx;
        float dy = riceList[index2].cy-riceList[index1].cy;
        float dz = riceList[index2].cz-riceList[index1].cz;
        push();
        translate(width/2+panX,height/2+panY,-100);
//        rotateX((mouseY-height/2)*0.01);
//        rotateY((mouseX-width/2)*0.01);
        rotateX(camX*0.01);
        rotateY(camY*0.01);
        translate(-width/2,-height/2);
        ellipseMode(CENTER_DIAMETER);
        translate(riceList[index1].cx+dx*pos/100, riceList[index1].cy+dy*pos/100,riceList[index1].cz+dz*pos/100);
//        translate(riceList[index1].cx+dx*pos/100, riceList[index1].cy+dy*pos/100);
        rotateY(camY*-0.01);
        rotateX(camX*-0.01);
//        rotateY((mouseX-width/2)*-0.01);
//        rotateX((mouseY-height/2)*-0.01);
        stroke(hue(relationList[group].c),saturation(relationList[group].c),brightness(relationList[group].c),a*0.6);
        ellipse(0,0, 3, 3);
        stroke(hue(relationList[group].c),saturation(relationList[group].c),brightness(relationList[group].c),a*0.3);
        ellipse(0,0, 6, 6);
        pop();
      }
    }
  }

  void spawn(int Index1,int Index2){
    index1 = Index1;
    index2 = Index2;
    connected = 1;
    connected2 =1;
    a = 0;
    group = index;
    playNote = true;
  }

  void checkGroup(){
    int group2 = group;
    if(riceList[index1].relationP!=-1)group = min(group,relationList[riceList[index1].relationP].group);
    if(riceList[index1].relationN!=-1)group = min(group,relationList[riceList[index1].relationN].group);
    if(riceList[index2].relationP!=-1)group = min(group,relationList[riceList[index2].relationP].group);
    if(riceList[index2].relationN!=-1)group = min(group,relationList[riceList[index2].relationN].group);
    if(group2!=group){
      playNote = false;
    }
  }

  void resetGroup(int Group){
    for(int i=0; i< relationMax; i++){
      if(relationList[i] != null){
        if(relationList[i].group == Group){
          relationList[i].group = relationList[i].index;
          relationList[i].playNote = true;
        }
      }
    }
  }

  int countGroup(int Group){
    int Count = 0;
    for(int i=0; i< relationMax; i++){
      if(relationList[i] != null){
        if(relationList[i].group == Group){
          Count++;
        }
      }
    }
    return Count;
  }

  void drawCurve(int Group, int Count){
    if(Count >= 4){
      stroke(relationList[group].c);
      beginShape(LINE_LOOP);
      for(int i=0; i< relationMax; i++){
        if(relationList[i] != null){
          if(relationList[i].group == Group){
            float x = riceList[relationList[i].index1].cx*0.5 + riceList[relationList[i].index2].cx*0.5;
            float y = riceList[relationList[i].index1].cy*0.5 + riceList[relationList[i].index2].cy*0.5;
            curveVertex(x,y);
          }
        }
      }
      endShape();
    }
  }

  void setSpeed(int Group, float Speed){
    for(int i=0; i< relationMax; i++){
      if(relationList[i] != null){
        if(relationList[i].group == Group){
          relationList[i].speed = Speed;
        }
      }
    }
  }

  void checkTension(){
    int keyInChord1 = 0;
    for(int a=0;a<chordList[currentChord].length;a++){
      if(riceList[index1].pitch2 == (chordList[currentChord][a]+keyShift+120)%12){
        keyInChord1=1;
        break;
      }
    }
    int keyInChord2 = 0;
    for(int a=0;a<chordList[currentChord].length;a++){
      if(riceList[index2].pitch2 == (chordList[currentChord][a]+keyShift+120)%12){
        keyInChord2=1;
        break;
      }
    }

    float dx = riceList[index1].cx - riceList[index2].cx;
    float dy = riceList[index1].cy - riceList[index2].cy;
    d = sqrt(dx*dx + dy*dy);
    if((d > 360 || keyInChord1==0 || keyInChord2==0)&&connected==1 ){
      //////////// breakup
      connected = 0;
      if(riceList[index1].indexP == index2)riceList[index1].indexP = -1;riceList[index1].relationP = -1;
      if(riceList[index1].indexN == index2)riceList[index1].indexN = -1;riceList[index1].relationN = -1;
      if(riceList[index2].indexP == index1)riceList[index2].indexP = -1;riceList[index2].relationP = -1;
      if(riceList[index2].indexN == index1)riceList[index2].indexN = -1;riceList[index2].relationN = -1;
      resetGroup(group);
      /*   if(riceList[index1].indexP == index2)riceList[index1].indexP = -1;
      if(riceList[index1].indexN == index2)riceList[index1].indexN = -1;
      if(riceList[index2].indexP == index1)riceList[index2].indexP = -1;
      if(riceList[index2].indexN == index1)riceList[index2].indexN = -1;*/
      //    midiOut.setNoteOff(0,riceList[index1].pitch);
      //    midiOut.setNoteOff(0,riceList[index2].pitch);
      //////////////////

    }
  }
}
///////////////////////////////////////////////////////////
class Rice{
  //  float x,y; // root position
  float cx, cy, cz;// current position
  int index, indexP, indexN;
  int relationP,relationN;
  int controller;
  int pitch,pitch2,octave; // pitch2 = 0-11
  int col,row;
  String note;
  String actionFoot,actionHead;
  float angle,angleB, speed, speed2, energy, torque, standTimer, stareTimer;
  int torqueDir;
  float voice;
  float a;//alpha
  boolean connectionFull;
  color c;

  Rice(int I){
    //    x= random(width);
    //    y= random(height);
    cx= random(width/2-200,width/2+200);
    cy= random(height/2-200,height/2+200);
    cz = random(-200,200);
    index = I;
    indexP = -1;
    indexN = -1;
    pitch = int(random(30,100));
    pitch2 = pitch%12;
    octave = int(Math.floor(pitch/12));
    note = noteList[pitch2];
    actionFoot = "walk";
    actionHead = "turn";
    angle = random(0,PI*2);angleB = random(0,PI*2);
    speed = random(0.2,1);
    speed2 = 0;
    energy = random(5,20);
    torque = random(5,20);
    torqueDir = int(random(-10,10));
    standTimer = stareTimer = 0;
    voice = 0;
    a = 0;
    connectionFull = false;
    relationP =relationN = -1;
    c = colorBank[pitch2];
  }

  void refreshPosition(){
    speed2 = speed2*0.7;
    if(energy> 2 && actionFoot!="stand"){
      walk();
    }else{
      if(actionFoot!="stand"){
        standTimer = random(1,10);
      }
      stand();
    }
    if(torque> 2 && actionHead!="stare"){
      turn();
    }else{
      if(actionHead!="stare"){
        torqueDir = int(random(-10,10));
        stareTimer = random(5,20);
      }
      stare();
    }
    float cxSum,cySum,czSum,proportionX, proportionY,proportionZ;
    cxSum = cx*20;cySum = cy*20;czSum = cz*20; proportionX =20 ;proportionY =20;proportionZ =20;
    if(indexP !=-1){
      float t;
      if(relationP!=-1){
        t = relationList[relationP].d/5000;
      }else{
        t = 0.01;
      }
      cxSum += riceList[indexP].cx*t;
      cySum += riceList[indexP].cy*t;
      czSum += riceList[indexP].cz*t;
      proportionX += t;
      proportionY += t;
      proportionZ += t;
    }
    if(indexN !=-1){
      float t;
      if(relationN!=-1){
        t = relationList[relationN].d/5000;
      }else{
        t = 0.01;
      }
      cxSum += riceList[indexN].cx* t;
      cySum += riceList[indexN].cy* t;
      czSum += riceList[indexN].cz* t;
      proportionX += t;
      proportionY += t;
      proportionZ += t;
    }
    if(indexP != -1 || indexN != -1){
      //     cxSum += float(pitch)/128*width * 0.07;
      //     proportionX += 0.07;
      cxSum += width/2 * 0.02;
      proportionX += 0.02;
      cySum += height/2 * 0.02;
      proportionY += 0.02;
      czSum += 0 * 0.02;
      proportionZ += 0.02;
    }
    cx = cxSum/proportionX;
    cy = cySum/proportionY;
    cz = czSum/proportionZ;
  }

  void turn(){
    actionHead = "turn";
    if(torqueDir>0){
      angle += float(torque)/180*PI;
      angleB += float(torque)/300*PI;
    }
    if(torqueDir<=0){
      angle -= float(torque)/180*PI;
      angleB -= float(torque)/300*PI;
    }
    torque--;
  }

  void stare(){
    torque++;
    stareTimer--;
    if(stareTimer>0){
      actionHead = "stare";
    }else{
      actionHead = "turn";
    }
  }

  void walk(){
    actionFoot = "walk";
    float comx = cos(angle);
    float comy = sin(angle);
    float h = speed+speed2;
    float comz = sin(angleB);
    float dz = h*comz;
    cz += dz;
    float h2 = sqrt(h*h -dz*dz);
    cx += h2*comx;
    cy += h2*comy;
    energy--;
  }

  void stand(){
    energy = energy + 10;
    standTimer--;
    if(standTimer>0){
      actionFoot = "stand";
    }else{
      actionFoot = "walk";
    }
  }

  void checkConnection(){
    float dx,dy,dz,d;
    for(int i=index+1;i<riceMax;i++){

      int keyInChord = 0;
      for(int a=0;a<chordList[currentChord].length;a++){
        if(riceList[i].pitch2 == (chordList[currentChord][a]+keyShift+120)%12){
          keyInChord=1;
          break;
        }
      }
      if(!riceList[i].connectionFull && !connectionFull && riceList[i].indexP != index && riceList[i].indexN != index && indexP != i && indexN != i && keyInChord==1){
        dx = riceList[i].cx - cx;
        dy = riceList[i].cy - cy;
        dz = riceList[i].cz - cz;
        d = sqrt(dx*dx + dy*dy + dz*dz);
        if(d<320){
          //// gain connection
          int done = 0;
          for(int j=0; j<relationMax && done==0;j++){
            if(relationList[j]==null){
              relationList[j] = new Relation(j,index,i);
              if(indexP==-1){
                indexP = i;
                relationP = j;
              }else{
                indexN = i;
                relationN = j;
              }
              if(riceList[i].indexP==-1){
                riceList[i].indexP = index;
                riceList[i].relationP = j;
              }else{
                riceList[i].indexN = index;
                riceList[i].relationN = j;
              }
              done =1;
            }else if(relationList[j].connected==0){
              relationList[j].spawn(index,i);
              if(indexP==-1){
                indexP = i;
                relationP = j;
              }else{
                indexN = i;
                relationN = j;
              }
              if(riceList[i].indexP==-1){
                riceList[i].indexP = index;
                riceList[i].relationP = j;
              }else{
                riceList[i].indexN = index;
                riceList[i].relationN = j;
              }
              done = 1;
            }
          }
        }
      }
      hasEmptyConnection();
    }

  }

  void hasEmptyConnection(){
    connectionFull = (indexP != -1 && indexN != -1);
    //    if(index==0)print(indexP + "," + indexN+"...");
    //connectionFull = true;
  }

  void render(){
    voice = voice*0.9;
    refreshPosition();
    int keyInChord = 0;
    for(int a=0;a<chordList[currentChord].length;a++){
      if(pitch2 == (chordList[currentChord][a]+keyShift+120)%12){
        keyInChord=1;
        break;
      }
    }
    hasEmptyConnection();
    if(index < riceMax-1 && !connectionFull && keyInChord==1 && token==index){
      checkConnection();
    }

  //if(index==0 || index==riceList[0].indexP || index==riceList[0].indexN ){text(index+"."+indexP+"."+indexN, cx, cy-15);}

    noStroke();
    ellipseMode(CENTER_DIAMETER);
    push();
    translate(width/2+panX,height/2+panY,-100);
//    rotateX((mouseY-height/2)*0.01);
//    rotateY((mouseX-width/2)*0.01);
    rotateX(camX*0.01);
    rotateY(camY*0.01);
    translate(-width/2,-height/2);
    translate(cx,cy,cz);
    //    sphereDetail(16);
    //    sphere(10+voice*2);
    rotateY(camY*-0.01);
    rotateX(camX*-0.01);
//    rotateY((mouseX-width/2)*-0.01);
//    rotateX((mouseY-height/2)*-0.01);
    colorMode(HSB,100);
    color c1;
    if(indexP!=-1 || indexN!=-1){
      a = a*0.9 + 30*0.1;//30
      c1 = color(hue(c),saturation(c),brightness(c),a);
      fill(hue(c1),saturation(c1),brightness(c1),alpha(c1)*0.2);
      ellipse(0, 0, 10+voice*2.8, 10+voice*2.8);
      fill(hue(c1),saturation(c1),brightness(c1),alpha(c1)*0.3);
      ellipse(0, 0, 10+voice*2.5, 10+voice*2.5);
   //if(connectionFull){note="full";}else{note="empty";}
      //  textFont(metaBold, 9+voice*2);
      //  text(note, cx, cy-15);
      fill(c1);
      ellipse(0, 0, 15+voice*2, 15+voice*2);
    }else{
      a = a*0.95+ 15*0.05;//15
      c1 = color(hue(c),saturation(c),brightness(c),a);
      fill(c1);
      ellipse(0, 0, 7, 7);
    }

    float comx = cos(angle);
    float comy = sin(angle);
    float h = 3;
    float comz = sin(angleB);
    float dz = h*comz;
    float h2 = sqrt(h*h -dz*dz);
    float dx =  h2*comx;
    float dy =  h2*comy;
    translate(dx,dy,dz);
    ellipse(0, 0, 3, 3);
    pop();
  }
}