// lowpoly-flowers v.006 elout de kok 2003
// http://www.xs4all.nl/~elout/
// p 65

float zpos=0.0f;

int midx,midy;


//int stepper=0;
//int step2=0;

//------mouse & stuff
int mx,my,sx=140,sy=120, middenx,middeny;
float zangle;

//particle bob[] = new particle[20];
flower bobf = new flower();

void setup()
{
  size(600, 400);
  midx=width/2;
  midy=height/2;
  noStroke();
  cursor(CROSS);
}

void loop()
{
  //clear screen
  background(100,100,100);

  // set the position to the middle of your screen
  translate(midx, midy, zpos);

  //check mouse for rotation
  mx=mouseX;
  my=mouseY;
  if ( mx > middenx){sx=0-((midx-mx)/2);}
  else{sx=((mx-midx)/2);}
  if ( my > middeny){sy=0-((midy-my)/2);}
  else{sy=((my-midy)/2);}
  
  zangle= zangle+(sx/4000.0f);
  rotateX(0.6+(sy/40.0));
  rotateY(0.6+(sx/40.0));
  rotateZ(zangle);
  

  //if (mousepressed)
  if(keyPressed)
  {
  if (key == LEFT){ bobf = new flower(); }
  if (key == RIGHT){ bobf = new flower(); }
  if (key == UP){ zpos=zpos+20.0f;}
  if (key == DOWN){ zpos=zpos-20.0f;}
  }
  if (mousePressed==true)
  {
    bobf = new flower();
  }
  
  //draw the flower
  bobf.calc();

  //just add a little delay so the system can handle other tasks as well
  delay(15);

}

class flower
{
  //howmany flower leafs
  int flowerrad=((int)random(12)+2)*2;

  float [] flower_points = new float[(flowerrad*6*3)+6];
  int [] flower_colors = new int[(flowerrad*6*3)+6];
  int [] flower_faces  = new int[(flowerrad*8*3)+3];
  int maxd=flowerrad*8;
  float [] cosd = new float[maxd];
  float [] sind = new float[maxd];

  //init
  flower()
  {
    // precalculate a circle
    for(int i=0; i<maxd; i++) // set up cos/sin table
    {
      cosd[i]=(float)( cos ( (float)i*360/maxd * 3.14159265 / 180.0));
      sind[i]=(float)( sin ( (float)i*360/maxd * 3.14159265 / 180.0));
    }
    //calculate the flower points
    //mid-point
    flower_points[0] = 0.0f; // x
    flower_points[1] = 0.0f; // y
    flower_points[2] = random(120)-60.0f;; // z

    int stepper=3;
    
    float scaler=random(80)+10.0f;
    float scaler2=random(180)+10.0f;
    float scaler3=random(180)+10.0f;
    float pos1=random(80)-40.0f;
    float pos2=random(180)-90.0f;
    float pos3=random(180)-90.0f;
    float pos4=random(180)-90.0f;
    float pos5=random(180)-90.0f;
    boolean flip=false;
        
    for(int i=0; i<maxd; i=i+8)
    {
      //outer mid points
      flower_points[stepper] = cosd[i]*(scaler); // x
      flower_points[stepper+1] = sind[i]*scaler; // y
      flower_points[stepper+2] = pos1; // z
      
      if (flip==false)
      {
        //outer leaf points
        flower_points[stepper+(flowerrad*3)] = cosd[i+4]*scaler2; // x
        flower_points[stepper+1+(flowerrad*3)] = sind[i+4]*scaler2; // y
        flower_points[stepper+2+(flowerrad*3)] = pos2; // z
        //mid leaf points - left
        flower_points[stepper+((flowerrad*2)*3)] = cosd[i+1]*scaler3; // x
        flower_points[stepper+1+((flowerrad*2)*3)] = sind[i+1]*scaler3; // y
        flower_points[stepper+2+((flowerrad*2)*3)] = pos3; // z
        //mid leaf points - right
        flower_points[stepper+((flowerrad*3)*3)] = cosd[i+7]*scaler3; // x
        flower_points[stepper+1+((flowerrad*3)*3)] = sind[i+7]*scaler3; // y
        flower_points[stepper+2+((flowerrad*3)*3)] = pos3; // z
        flip=true;
      }
      else
      {
        //outer leaf points
        flower_points[stepper+(flowerrad*3)] = cosd[i+4]*scaler2; // x
        flower_points[stepper+1+(flowerrad*3)] = sind[i+4]*scaler2; // y
        flower_points[stepper+2+(flowerrad*3)] = pos4; // z        
        //mid leaf points - left
        flower_points[stepper+((flowerrad*2)*3)] = cosd[i+1]*scaler3; // x
        flower_points[stepper+1+((flowerrad*2)*3)] = sind[i+1]*scaler3; // y
        flower_points[stepper+2+((flowerrad*2)*3)] = pos5; // z
        //mid leaf points - right
        flower_points[stepper+((flowerrad*3)*3)] = cosd[i+7]*scaler3; // x
        flower_points[stepper+1+((flowerrad*3)*3)] = sind[i+7]*scaler3; // y
        flower_points[stepper+2+((flowerrad*3)*3)] = pos5; // z
        flip=false;      
      }      
      //stem - top
      flower_points[stepper+((flowerrad*4)*3)] = cosd[i]*(scaler/4); // x
      flower_points[stepper+1+((flowerrad*4)*3)] = sind[i]*(scaler/4); // y
      flower_points[stepper+2+((flowerrad*4)*3)] = -80.0f; // z
      //stem - mid
      flower_points[stepper+((flowerrad*5)*3)] = cosd[i]*(scaler/6); // x
      flower_points[stepper+1+((flowerrad*5)*3)] = sind[i]*(scaler/6); // y
      flower_points[stepper+2+((flowerrad*5)*3)] = -180.0f; // z

      stepper=stepper+3;
    }

    //calculate the flower colours
    flower_colors[0] = (int)random(255); // r
    flower_colors[1] = (int)random(255); // g
    flower_colors[2] = (int)random(255); // b
    int r1=(int)random(255);
    int g1=(int)random(255);
    int b1=(int)random(255);
    int r2=(int)random(255);
    int g2=(int)random(255);
    int b2=(int)random(255);
    int r3=(int)random(255);
    int g3=(int)random(255);
    int b3=(int)random(255);
    int r4=(int)random(255);
    int g4=(int)random(255);
    int b4=(int)random(255);
    int r5=(int)random(255);
    int g5=(int)random(255);
    int b5=(int)random(255);
    stepper=3;
    for(int i=0; i<flowerrad; i++)
    {
      //outermid
      flower_colors[stepper] = r1;   // r
      flower_colors[stepper+1] =g1;  // g
      flower_colors[stepper+2] = b1;   // b
      if (flip==false)
      {
        //leaf top
        flower_colors[stepper+(flowerrad*3)] = r2; // g
        flower_colors[stepper+(flowerrad*3)+1] = g2; // g
        flower_colors[stepper+(flowerrad*3)+2] = b2; // b
        //leaf mid - left
        flower_colors[stepper+((flowerrad*2)*3)] = r3;     // r
        flower_colors[stepper+((flowerrad*2)*3)+1] = g3;   // g
        flower_colors[stepper+((flowerrad*2)*3)+2] = b3;   // b
        //leaf mid - right
        flower_colors[stepper+((flowerrad*3)*3)] = r3;       // r
        flower_colors[stepper+((flowerrad*3)*3)+1] = g3;   // g
        flower_colors[stepper+((flowerrad*3)*3)+2] = b3;   // b
        flip=true;
      }
      else
      {
        //leaf top
        flower_colors[stepper+(flowerrad*3)] = r4; // g
        flower_colors[stepper+(flowerrad*3)+1] = g4; // g
        flower_colors[stepper+(flowerrad*3)+2] = b4; // b
        //leaf mid - left
        flower_colors[stepper+((flowerrad*2)*3)] = r5;     // r
        flower_colors[stepper+((flowerrad*2)*3)+1] = g5;   // g
        flower_colors[stepper+((flowerrad*2)*3)+2] = b5;   // b
        //leaf mid - right
        flower_colors[stepper+((flowerrad*3)*3)] = r5;       // r
        flower_colors[stepper+((flowerrad*3)*3)+1] = g5;   // g
        flower_colors[stepper+((flowerrad*3)*3)+2] = b5;   // b
        flip=false;      
      }
      //stem - top
      flower_colors[stepper+((flowerrad*4)*3)] = 15;     // r
      flower_colors[stepper+((flowerrad*4)*3)+1] = 55;  // g
      flower_colors[stepper+((flowerrad*4)*3)+2] = 15;   // b
      //stem - mid
      flower_colors[stepper+((flowerrad*5)*3)] = 15;     // r
      flower_colors[stepper+((flowerrad*5)*3)+1] = 125;  // g
      flower_colors[stepper+((flowerrad*5)*3)+2] = 55;   // b

      stepper=stepper+3;
    }

    //calculate the faces
    //mid
    stepper=0;
    int step2=0;
    for(int i=0; i<flowerrad-1; i++)
    {
      flower_faces[stepper]=0;
      flower_faces[stepper+1]=step2+1;
      flower_faces[stepper+2]=step2+2;
      stepper=stepper+3;
      step2=step2+1;
    }
    flower_faces[stepper]=0;
    flower_faces[stepper+1]=flowerrad;
    flower_faces[stepper+2]=1;

    //mid to top-leaf
    stepper=stepper+3;
    step2=0;
    int step3=1;
    for(int i=0; i<flowerrad-1; i++)
    {
      flower_faces[stepper]=step2+1;
      flower_faces[stepper+1]=(flowerrad)+step3;
      flower_faces[stepper+2]=step2+2;
      stepper=stepper+3;
      step2++;
      step3++;
    }
    flower_faces[stepper]=flowerrad;
    flower_faces[stepper+1]=(flowerrad*2);
    flower_faces[stepper+2]=1;

    //mid to mid-leaf-left
    stepper=stepper+3;
    step2=0;
    step3=1;
    for(int i=0; i<flowerrad-1; i++)
    {
      flower_faces[stepper]=step2+1;
      flower_faces[stepper+1]=(flowerrad*2)+step3;
      flower_faces[stepper+2]=(flowerrad)+step3;
      stepper=stepper+3;
      step2++;
      step3++;
    }
    flower_faces[stepper]=flowerrad;
    flower_faces[stepper+1]=(flowerrad*2)+step3;
    flower_faces[stepper+2]=(flowerrad*2);

    //mid to mid-leaf-right
    stepper=stepper+3;
    step2=0;
    step3=1;
    for(int i=0; i<flowerrad-1; i++)
    {
      flower_faces[stepper]=step2+2;
      flower_faces[stepper+1]=(flowerrad)+step3;
      flower_faces[stepper+2]=(flowerrad*3)+step3;
      stepper=stepper+3;
      step2++;
      step3++;
    }
    flower_faces[stepper]=1;
    flower_faces[stepper+1]=(flowerrad*2);
    flower_faces[stepper+2]=(flowerrad*3)+step3;
    stepper=stepper+3;

    // mid to stem top
    step2=1;
    step3=2;
    for(int i=0; i<flowerrad-1; i++)
    {
      flower_faces[stepper]=step2;
      flower_faces[stepper+1]=(flowerrad*4)+step2;
      flower_faces[stepper+2]=(flowerrad*4)+step3;

      flower_faces[stepper+3]=step2;
      flower_faces[stepper+4]=(flowerrad*4)+step3;
      flower_faces[stepper+5]=step3;

      step2++;
      step3++;
      stepper=stepper+6;
    }
    step3=1;
    flower_faces[stepper]=step2;
    flower_faces[stepper+1]=(flowerrad*4)+step2;
    flower_faces[stepper+2]=(flowerrad*4)+step3;
    flower_faces[stepper+3]=step2;
    flower_faces[stepper+4]=(flowerrad*4)+step3;
    flower_faces[stepper+5]=step3;

    // stem top to stem mid
    stepper=stepper+6;
    step2=1;
    step3=2;
    for(int i=0; i<flowerrad-1; i++)
    {
      flower_faces[stepper]=(flowerrad*4)+step2;
      flower_faces[stepper+1]=(flowerrad*5)+step2;
      flower_faces[stepper+2]=(flowerrad*5)+step3;

      flower_faces[stepper+3]=(flowerrad*4)+step2;
      flower_faces[stepper+4]=(flowerrad*5)+step3;
      flower_faces[stepper+5]=(flowerrad*4)+step3;

      step2++;
      step3++;
      stepper=stepper+6;
    }
    step3=1;
    flower_faces[stepper]=(flowerrad*4)+step2;
    flower_faces[stepper+1]=(flowerrad*5)+step2;
    flower_faces[stepper+2]=(flowerrad*5)+step3;
    flower_faces[stepper+3]=(flowerrad*4)+step2;
    flower_faces[stepper+4]=(flowerrad*5)+step3;
    flower_faces[stepper+5]=(flowerrad*4)+step3;

    /*
    println("---- start ---- ");
    println("----  ---- ");

    for(int i=0; i<flower_points.length-3; i=i+3)
    {
      print(flower_points[i]);
      print(flower_points[i+1]);
      print(flower_points[i+2]);
      println(" - "+i/3+" - ");
    }
    println("---- faces ---- ");
    println("----  ---- ");

    for(int i=0; i<flower_faces.length-3; i=i+3)
    {
      print(flower_faces[i]+" - ");
      print(flower_faces[i+1]+" - ");
      print(flower_faces[i+2]+" - ");
      println(" - "+i/3+" - ");
    }
    */

  }

  //draw the flower
  void calc()
  {
    beginShape(TRIANGLES);
    for (int i=0;i<(flowerrad*8);i++)
    {
      drawtri3d(
      flower_points[ (flower_faces[i*3])*3],
      flower_points[ ((flower_faces[i*3])*3) + 1],
      flower_points[ ((flower_faces[i*3])*3) + 2],

      flower_points[ (flower_faces[(i*3) + 1])*3 ],
      flower_points[ ((flower_faces[(i*3) + 1])*3) + 1],
      flower_points[ ((flower_faces[(i*3) + 1])*3) + 2],

      flower_points[ (flower_faces[(i*3) + 2])*3 ],
      flower_points[ ((flower_faces[(i*3) + 2])*3) + 1],
      flower_points[ ((flower_faces[(i*3) + 2])*3) + 2],

      flower_colors[ (flower_faces[i*3])*3],
      flower_colors[ ((flower_faces[i*3])*3) + 1],
      flower_colors[ ((flower_faces[i*3])*3) + 2],

      flower_colors[ (flower_faces[(i*3) + 1])*3 ],
      flower_colors[ ((flower_faces[(i*3) + 1])*3) + 1],
      flower_colors[ ((flower_faces[(i*3) + 1])*3) + 2],

      flower_colors[ (flower_faces[(i*3) + 2])*3 ],
      flower_colors[ ((flower_faces[(i*3) + 2])*3) + 1],
      flower_colors[ ((flower_faces[(i*3) + 2])*3) + 2]
      );

    }
    endShape();
  }
}

void drawtri3d(float x1,float y1,float z1, float x2,float y2,float z2, float x3,float y3,float z3, int r1, int g1, int b1, int r2, int g2, int b2, int r3, int g3, int b3)
{
  fill(r1,g1,b1);
  vertex(x1, y1, z1);
  fill(r2,g2,b2);
  vertex(x2, y2, z2);
  fill(r3,g3,b3);
  vertex(x3, y3, z3);
}