import processing.opengl.*;


PImage art;
int xsize, ysize;
int speed = 193;
int threshold = 15;
int version = 1, versionen = 5;
int startradius = 10,  maxradius = 25;
int counter = 0, change = 10000;
int agents = 50, maxagents = 200;
float multi = 1.5;
spin[] spinner;
String pictures[] = {"botticelli.jpg","caravaggio.jpg","delacroix.jpg","gauguin2.jpg","gauguin.jpg","hopper.jpg","klimt.jpg","manet.jpg","munch.jpg","renoir.jpg","schiele.jpg","seurat.jpg","turner.jpg","vangogh.jpg"};
//String pictures[] = {"gauguin.jpg","hopper.jpg","manet.jpg","munch.jpg"};
//String pictures[] = {"blackwhite.jpg"};
//String pictures[] = {"title.jpg"};

void setup() {
  art = loadImage( pictures[int(random(pictures.length))] );
  xsize = art.width; ysize = art.height;
  //size(1200,1000,OPENGL);
  size(765,540,OPENGL);
  //size(540,360);

  frameRate(100);
  
  spinner = new spin[maxagents];
  for(int i=0; i<maxagents; i++) {
    int sp = int(random(2))*2 - 1;
    spinner[i] = new spin(int(random(xsize)),int(random(ysize)),int(random(startradius)) +2, int(random(2))*2 - 1, int(random(360)), speed*sp);
    spinner[i].setColor(int(red(art.pixels[(spinner[i].xpos + spinner[i].ypos*xsize)])),int(green(art.pixels[(spinner[i].xpos + spinner[i].ypos*xsize)])),int(blue(art.pixels[(spinner[i].xpos + spinner[i].ypos*xsize)])));
  }
  background(255);
  strokeWeight(1.0/multi);

}


void draw() {
  pushMatrix();
  scale(multi);
  for(int i=0; i<agents; i++) {
    spinner[i].update();
    spinner[i].draw();
  }
  popMatrix();
}

class spin {
  int xpos, ypos, radius, dir, degree, speed;
  color rgb;
  float P1x, P1y, P2x, P2y, P3x, P3y, P4x, P4y;
  
  spin(int x, int y, int r, int di, int de, int s) {
    xpos = x; ypos = y;
    radius = r; dir = di; degree = de; speed = s;
    P1x=0; P1y=0; P2x=0; P2y=0; P3x=0; P3y=0; P4x=x; P4y=y;
  }
  
  void setColor(int cr, int cg, int cb) {
    rgb = color(cr, cg, cb, 255);
  }
  
  void draw() {
    switch(version) {
      case 1:  draw_soft(15);
               break;
      case 2:  break;
      case 3:  break;
      case 4:  
               break;
      case 5: 
               break;
    }
  }
  
  void draw_soft(int alph) {
    stroke(red(rgb),green(rgb),blue(rgb),alph); noFill();
    line(xpos,ypos,(xpos + radius*sin(radians(degree))),(ypos + radius*cos(radians(degree))));
  }
  
  void draw_bezier(int alph) {
    stroke(red(rgb),green(rgb),blue(rgb),255); noFill();
    P1x = P4x; P1y = P4y; 
    P4x = xpos; P4y = ypos;
    P2x = P3x; P2y= P3y;
    P3x = (P4x-P1x)/(2); P3y = (P4y-P1y)/(2) + P3x;
    //println(P1x + " "+P1y+" "+P2x+" "+P2y+" "+P3x+" "+P3y+" "+P4x+" "+P4y);
    bezier(P1x, P1y, P1x+P2x, P1y+P2y, P4x-P3x, P4y-P3y, P4x, P4y);
  }

  
  void draw_circlepoints(int alph) {
    //strokeWeight(1.0);
    noFill(); stroke(red(rgb),green(rgb),blue(rgb),alph);
    //point((xpos + radius*sin(radians(degree))),(ypos + radius*cos(radians(degree))));
    line((xpos + radius*sin(radians(degree))),(ypos + radius*cos(radians(degree))),(xpos + radius*sin(radians(degree)))-0.2,(ypos + radius*cos(radians(degree)))-0.2);
  }
  
  int testendpoint() {
    int xp = int (xpos + radius*sin(radians(degree)));
    int yp = int (ypos + radius*cos(radians(degree)));
    if(xp<0 || xp>=xsize || yp<0 || yp >= ysize) return 0;
    int mpointc = int(red(rgb) + green(rgb) + blue(rgb));
    int epointc = int(red(art.pixels[(xp + yp*xsize)]));
    epointc += int(green(art.pixels[(xp + yp*xsize)]));
    epointc += int(blue(art.pixels[(xp + yp*xsize)]));
    if(abs(mpointc-epointc)<threshold) {
      return 1; 
    } else return 0;
  }
  
  void update() {
    switch(version) {
      case 1:  spiderweb();
               break;
      case 2:  connector();
               break;
      case 3:  connector();
               break;
      case 4:  connector();
               break;
      case 5:  curves();
               break;
    }

  }
  void curves() {
    if(testendpoint()==1) {
      
      xpos += radius*sin(radians(degree));
      ypos += radius*cos(radians(degree));
      degree+=180;
      rgb = color(int(red(art.pixels[xpos + ypos*xsize])),int(green(art.pixels[xpos + ypos*xsize])),int(blue(art.pixels[xpos + ypos*xsize])),255);
      draw_bezier(50);
    }
    degree+=speed;
    while(degree<0) degree+=360;
    while(degree>=360) {
      degree-=360;
      radius+=dir;
    }
    if(radius>maxradius || radius<-maxradius) {
      dir*=-1;
      radius*=0.90;
      radius=startradius;
    }
  }
  
  
 void circlepoints() {
    if(testendpoint()==1) {
      xpos += radius*sin(radians(degree));
      ypos += radius*cos(radians(degree));
      degree+=180;
      rgb = color(int(red(art.pixels[xpos + ypos*xsize])),int(green(art.pixels[xpos + ypos*xsize])),int(blue(art.pixels[xpos + ypos*xsize])),255);
      draw_circlepoints(255);
    }
    degree+=speed;
    while(degree<0) degree+=360;
    while(degree>359) {
      degree-=360;
      radius+=dir;
    }
    if(radius>maxradius || radius<-maxradius) {
      dir*=-1;
      radius*=0.95;
    }
  }
  
  void connector() {
    if(testendpoint()==1) {
      draw_soft(120);
      xpos += radius*sin(radians(degree));
      ypos += radius*cos(radians(degree));
      degree+=180;
      rgb = color(int(red(art.pixels[xpos + ypos*xsize])),int(green(art.pixels[xpos + ypos*xsize])),int(blue(art.pixels[xpos + ypos*xsize])),255);
    }
    //radius+= int(random(4))-2;
    degree+=speed;
    while(degree<0) degree+=360;
    while(degree>=360) {
      degree-=360;
      radius+=dir;
    }
    if(radius>maxradius || radius<-maxradius) {
      dir*=-1;
      radius*=0.90;
      radius=startradius;
    }
  }
  
  void spiderweb() {
    if(testendpoint()==1) {
      xpos += radius*sin(radians(degree));
      ypos += radius*cos(radians(degree));
      degree+=180;
      rgb = color(int(red(art.pixels[xpos + ypos*xsize])),int(green(art.pixels[xpos + ypos*xsize])),int(blue(art.pixels[xpos + ypos*xsize])),255);
      draw_soft(60);
    }
    degree+=speed;
    while(degree<0) degree+=360;
    while(degree>359) {
      degree-=360;
      radius+=dir;
    }
    if(radius>maxradius || radius<-maxradius) {
      dir*=-1;
      radius*=0.95;
    }
  }
}

void mouseReleased() 
{
  version= int(random(versionen))+1;
  if(version==1) {
    maxradius = 40;
    speed=int(ceil(random(2)));
    agents = 200;
    threshold = 5;
  } else if(version==2) {
    //scratch
    agents=maxagents;
    speed = 180;
    threshold = 50;
    startradius = 3;
    maxradius = 15;
  } else if(version==3) {
    //square
    agents=200;
    speed = 90;
    threshold = 15;
    startradius = 3;
    maxradius = 12;
  } else if(version==4) {
    //scribbler
    agents=200;
    speed = 197;
    threshold = 5;
    startradius = 3;
    maxradius = 20;
  } else if(version==5) {
    //bezier
    speed = 193;
    threshold = 15;
    startradius = 10;
    maxradius = 25;
    agents = 50;
  } else {
    agents = maxagents;
    threshold = 20 + int(random(20));
  }
  
  setup();
}