/*
* The Cyclotron Lives! 

    Copyright (c) 2007 Dan Trueman.  All rights reserved.

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
    U.S.A.
    
 -----------------------------------------------------------------------------
 *
 * notes: holding 'a' down will keep the angle constant while dragging
 *        holding 's' down will keep the length constant while dragging
 *        holding 'd' down will allow dragging to adjust the cap size, while keeping everything else constant
 *        pressing 'q' will quantize both times and lengths
 *        shift-clicking will add a new spoke
 *        pressing 'shift-k' will delete current spoke
 *        [ => stop/start this
 *	 { => stop/start this with reset
 *	 ] => stop/start all
 *	 } => stop/start all with reset
 *	 - => reset this
 *	 _ => reset all
 *
 * to add:
 *	-button to rotate cycler by one tic (clockwise)
 *	-multiply all for spoke length, so all spokes can be multiplied by a certain amount
 *
 * dang, shoulda made a Spoke class.... stoooopid. i had no idea how big this thing would become....
 *
 * this version (cyc_sa) is meant to run independently, for web demo purposes, so a bunch of
 * unneeded functionality, mostly having to do with ChucK/OSC communications, has been commented out
 *
 -----------------------------------------------------------------------------*/

int maxspokes = 100;
int numspokes = 4;
float bx[] = new float[maxspokes];
float by[] = new float[maxspokes];
float btheta[] = new float[maxspokes];
float blen[] = new float[maxspokes];
float bs[] = new float[maxspokes]; //init to 5
float binc[] = new float[maxspokes];
float bwarp[] = new float[maxspokes];
boolean bover[] = new boolean[maxspokes]; //init to false
boolean locked[] = new boolean[maxspokes]; //init to false
float bdifx[] = new float[maxspokes];  //init to 0.
float bdify[] = new float[maxspokes];  //init to 0.
int dimx = 600;
int dimy = 600;
int currentSpoke = 0;

//PApplet embed = new PApplet();

float qtheta[] = new float[maxspokes*2]; //for quantizing
int qspokes = 9; //number of spokes to quantize to; qspokes >= numspokes
float qx[] = new float[maxspokes*2];
float qy[] = new float[maxspokes*2];
int numCircles = 10;
float numCirclesInv = 1./numCircles;
float qlen[] = new float[50];

float spokelenNorm;
float spokelenNormInv;

float capsizeMin = 8;
float capsizeMax = 60;

float tempo = 2.;
float diameterSave = 0.9;
float warp = 1.;
boolean Qonly = true;
boolean holdTheta = false;
boolean holdLen = false;
boolean adjustCap = false;
boolean shiftDown = false;
boolean controlDown = false;
boolean playing = false;

int flash = 0;

//OSC stuff
import oscP5.*;
import netP5.*;
OscP5 oscP5;
OscP5 oscP5All;
NetAddress toChuck;
NetAddress toAll;
int thisInPort = 12000;
int thisOutPort = 12001;
int allOutPort = 1999;
//int allInPort = 1998;


float intime; //current time, from ChucK
float xtime, ytime;
float phaseWarp = 1.;

float dphase = 1.; //phase for display; for offsetting if needed

int framerate = 25;

//File stuff
File infile, outfile;

import java.applet.*;
import java.awt.*;
import java.awt.event.*;

//time stuff
float phase = 0.;
float ctime = 0.;
int phaseCtr = 0;

//sound synth stuff
import krister.Ess.*;
AudioChannel myChannel;
SineWave myWave;
int nextspoke = 0;

/*
static public void main(String args[]) {

  if(args.length == 0) PApplet.main(new String[] { 
    "cyc1"  }
  );
  if(args.length == 1) PApplet.main(new String[] { 
    "cyc1", args[0]  }
  );
  if(args.length == 2) PApplet.main(new String[] { 
    "cyc1", args[0], args[1]  }
  );
  if(args.length == 3) PApplet.main(new String[] { 
    "cyc1", args[0], args[1], args[2]  }
  );

  //PApplet.main(new String[] { "cyc1", "portnum", "filename"});
  //println("arg1 inside main: " + args);
}
*/

MenuBar menubar = new MenuBar();
Menu file = new Menu("File");
MenuItem savemenu, openmenu, saveasmenu;

void setup() 
{
  //basic
  size(dimx, dimy + 150);
  frameRate(framerate);

/*
  //println("args len = " + args.length);
  if(args.length >= 1) {
    thisInPort = int(args[0]);
    thisOutPort = thisInPort + 1;
    //allOutPort = thisInPort + 2;
  }

  //menubar stuff
  frame.setMenuBar(menubar);
  menubar.add(file);

  openmenu = new MenuItem("Open", new MenuShortcut(KeyEvent.VK_O));
  file.add(openmenu);  
  openmenu.addActionListener(new OpenFileListener());   

  savemenu = new MenuItem("Save", new MenuShortcut(KeyEvent.VK_S));
  file.add(savemenu);  
  savemenu.addActionListener(new SaveFileListener());   

  saveasmenu = new MenuItem("Save As");
  file.add(saveasmenu);  
  saveasmenu.addActionListener(new SaveAsFileListener());   
 */


  //OSC stuff
  /*
  oscP5 = new OscP5(this, thisInPort);

  OscProperties allOut_properties = new OscProperties();
  allOut_properties.setRemoteAddress("239.0.0.1", allOutPort);
  allOut_properties.setNetworkProtocol(OscProperties.MULTICAST);
  oscP5All = new OscP5(this, allOut_properties);
  //oscP5All = new OscP5(this, "239.0.0.1", allOutPort);
  toChuck = new NetAddress("localhost", thisOutPort);
  //toAll = new NetAddress("localhost", allOutPort);
  */


  //var init
  spokelenNorm = dimx*0.5*diameterSave;
  spokelenNormInv = 1./spokelenNorm;

  for(int i=0;i<maxspokes;i++) bwarp[i] = 1.;
  initSpokes();
  initQspokes();

  //interface init
  makeInterface();
  setTextValues(currentSpoke);
  cspoke_text.setValue(str(currentSpoke));
  ctempo_text.setValue(str(2.));
  framerate_text.setValue(str(framerate));

/*
  if(args.length >= 2) {
    //println("open file " + args[1]);
    openCycler(args[1]);
  }
  if(args.length >= 3) {
    //println("framerate " + int(args[2]));
    framerate = int(args[2]);
    frameRate(framerate);
    framerate_text.setValue(str(framerate));
  }
 */
  
  //sound stuff
  Ess.start(this);

  // create a new AudioChannel
  myChannel=new AudioChannel();

  myChannel.initChannel(myChannel.frames(2));
  
  // generate 8 ms of a soft sine wave
  myWave=new SineWave(440,.1);
  myWave.generate(myChannel,0,myChannel.frames(2));


}

//unlike original Cyclotron, have T=0 be vertical
void placeSpoke(int which, float angle, float len)
{
  //angle = angle*warp;
  angle = pow(angle, warp);
  float xt = dphase*len*sin(TWO_PI*angle);
  float yt = dphase*len*cos(TWO_PI*angle);
  bx[which] = xt + dimx*0.5;
  by[which] = dimy*0.5 - yt;
  btheta[which] = angle;
  blen[which] = len;

  sendSpoke(angle, len*spokelenNormInv, bs[which], binc[which], bwarp[which],  which);
  //redraw();

  //println("spoke num " + which + " " +  bx[which] + " " + by[which] + " " + TWO_PI*angle);

}

//unlike original Cyclotron, have T=0 be vertical
void placeSpokeLocal(int which, float angle, float len)
{
  //angle = angle*warp;
  angle = pow(angle, warp);
  float xt = dphase*len*sin(TWO_PI*angle);
  float yt = dphase*len*cos(TWO_PI*angle);
  bx[which] = xt + dimx*0.5;
  by[which] = dimy*0.5 - yt;
  btheta[which] = angle;
  blen[which] = len;

  //sendSpoke(angle, len*spokelenNormInv, bs[which], binc[which], bwarp[which],  which);
  //redraw();

  //println("spoke num " + which + " " +  btheta[which]);

}

//sets location for racing time ball (around circumferance)
void placeTime()
{

  //if (phaseWarp != 1.) (Math.pow(phaseWarp, phase) - 1.) / (phaseWarp - 1.) => phase;

  float warpFactor;

  //if (phaseWarp != 1.) warpFactor = (pow(phaseWarp, intime) - 1.) / (phaseWarp - 1.);
  //else warpFactor = intime;
  warpFactor = intime;

  float xt = dphase*spokelenNorm*sin(TWO_PI*warpFactor)  ;
  float yt = dphase*spokelenNorm*cos(TWO_PI*warpFactor);

  //float xt = spokelenNorm*sin(TWO_PI*(pow(intime, phaseWarp)))  ;
  //float yt = spokelenNorm*cos(TWO_PI*(pow(intime, phaseWarp)));
  xtime = xt + dimx*0.5;
  ytime = dimy*0.5 - yt;
  //redraw();

}

void placeQtick(int which, float angle)
{

  float xt = spokelenNorm*sin(TWO_PI*angle);
  float yt = spokelenNorm*cos(TWO_PI*angle);
  qx[which] = xt + dimx*0.5;
  qy[which] = dimy*0.5 - yt;

}

void quantizeTimes() {
  if(Qonly) {
    int j=qspokes - 1;
    while(j>=0) {
      //println(j + ":" + qtheta[j]);
      if(btheta[currentSpoke] >= qtheta[j]) {
        btheta[currentSpoke] = qtheta[j];
        j=0;
        //println("quantizing spoke " + i + " to tic " + j + " qspokes = " + qspokes);
      }
      j--;
    }
    placeSpoke(currentSpoke, btheta[currentSpoke], blen[currentSpoke]);
  } 
  else {
    for (int i=0; i<numspokes; i++) {
      int j=qspokes - 1;
      while(j>=0) {
        //println(j + ":" + qtheta[j]);
        if(btheta[i] >= qtheta[j]) {
          btheta[i] = qtheta[j];       
          j=0;
          //println("quantizing spoke " + i + " to tic " + j + " qspokes = " + qspokes);
        }
        j--;
      }
      placeSpoke(i, btheta[i], blen[i]);
    }
  }
}

void quantizeLengths() {
  if(Qonly) {
    int j=numCircles;
    //println("spoke " + i + " = "+ blen[i] + " ");
    if(blen[currentSpoke] > spokelenNorm) blen[currentSpoke] = spokelenNorm;
    while(j>0) {
      if(blen[currentSpoke] < qlen[j] && blen[currentSpoke] > qlen[j-1]) {
        if(qlen[j] - blen[currentSpoke] > blen[currentSpoke] - qlen[j-1]) {
          blen[currentSpoke] = qlen[j-1];
        } 
        else {
          blen[currentSpoke] = qlen[j];
        }
      }
      //println(j + ":" + qlen[j]);
      j--;
    }
    placeSpoke(currentSpoke, btheta[currentSpoke], blen[currentSpoke]);
  } 
  else {
    for (int i=0; i<numspokes; i++) {
      int j=numCircles;
      if(blen[i] > spokelenNorm) blen[i] = spokelenNorm;
      //println("spoke " + i + " = "+ blen[i] + " ");
      while(j>0) {
        if(blen[i] < qlen[j] && blen[i] > qlen[j-1]) {
          if(qlen[j] - blen[i] > blen[i] - qlen[j-1]) {
            blen[i] = qlen[j-1];
          } 
          else {
            blen[i] = qlen[j];
          }
        }
        //println(j + ":" + qlen[j]);
        j--;
      }
      placeSpoke(i, btheta[i], blen[i]);
    }
  }
}

void initSpokes() {
  float angleInc = 1./numspokes; //for evenly spaced spokes
  for(int i=0;i<maxspokes;i++) {
    btheta[i] = 1.;
  }
  for (int i=0;i<numspokes;i++) {
    //bx[i] = width*i/10.0;
    //by[i] = height/10.0;
    bs[i] = 8;
    bover[i] = locked[i] = false;
    bdifx[i] = bdify[i] = 0.;
    binc[i] = .01;
    //bwarp[i] = 1.;
    placeSpoke(i, angleInc*i, spokelenNorm);
  }
}

void initQspokes() {
  float angleInc = 1./qspokes; //for evenly spaced spokes
  for (int i=0;i<qspokes;i++) {
    qtheta[i] = angleInc*i;
    placeQtick( i, qtheta[i]);
    //bx[i] = width*i/10.0;
    //by[i] = height/10.0;
    //placeSpoke(i, angleInc*i, spokelenNorm);
    //println("new tick: " + qtheta[i]);

  }
}

void draw() 
{ 
  
  //time stuff
  if(playing) {
  	ctime = ctime + .04/tempo;
	phase = ctime;
  	if (phaseWarp != 1.) phase = (pow(phaseWarp, phase) - 1.) / (phaseWarp - 1.);
  }
  if(phase >= 1.) {
  	  nextspoke = 0;
  	  phase = ctime = ctime % 1.;
      //phase = 0.;
  }
  if(phase > btheta[nextspoke]) {
          myWave.frequency = blen[nextspoke]/spokelenNorm * 880 + 440;
          myWave.volume = bs[nextspoke]/capsizeMax;
          myWave.generate(myChannel,0,myChannel.frames(2));
  	  myChannel.play();
  	  nextspoke++;
  }
  intime = phase;
  placeTime();
  //end time stuff
  
  if(flash==1) background(255, 0 , 0); //turn background red; useful for downbeating flash
  else background(0);
  smooth();
  fill(0);

  frameRate(framerate);

  //main circle
  stroke(50);
  fill(0);
  ellipse(dimx*0.5, dimy*0.5, (spokelenNorm)*2, (spokelenNorm)*2);

  //length quantize circles
  stroke(20);
  for(int i=numCircles-1;i>0;i--) {
    fill(0);
    qlen[i] = (spokelenNorm)*i*numCirclesInv;
    ellipse(dimx*0.5, dimy*0.5, (spokelenNorm)*i*2.*numCirclesInv, (spokelenNorm)*i*2.*numCirclesInv);
  }
  qlen[numCircles] = (spokelenNorm);
  qlen[0] = 0.;

  //time quantization tics
  for(int i=0;i<qspokes;i++){
    //draw quantization ticks;
    stroke(150);
    fill(150);
    rect(qx[i], qy[i], 0.5, 0.5);
  }

  //spokes
  for(int i=0;i<numspokes;i++){
    // Test if the cursor is over the box 
    if (mouseX > bx[i]-bs[i]*0.5 && mouseX < bx[i]+bs[i]*0.5 && 
      mouseY > by[i]-bs[i]*0.5 && mouseY < by[i]+bs[i]*0.5) {
      if(!bover[i]) {
        //println("over spoke # " + i);
      }
      bover[i] = true;  

      if(!locked[i]) { 
        //stroke(255); 
        //fill(153);
        stroke(0, 0, 150);
        fill(0, 0, 150);
      } 
    } 
    else {
      if (currentSpoke == i) {
        //stroke(255); 
        stroke(150, 0, 0);
        fill(150, 0, 0);
      } 
      else {
        stroke(153);
        fill(153);
      }
      bover[i] = false;
    }

    //Draw the cap  
    //rect(bx[i], by[i], bs[i], bs[i]);
    ellipse(bx[i], by[i], bs[i], bs[i]);
    //draw the spoke
    line(dimx*0.5,dimy*0.5,bx[i],by[i]);

  }

  //draw the running ball, for current time
  stroke(0, 150, 50);
  ellipse(xtime, ytime, 5, 5);
  line(xtime, ytime, dimx*0.5,dimy*0.5);

  //line across the bottom
  stroke(255, 255, 255);
  fill(0, 0, 0);
  line(0, dimy, dimx, dimy);

}

void addSpoke() {

  println("adding spoke");
  float xt = mouseX - dimx/2.;
  float yt = -mouseY + dimy/2.;
  currentSpoke = numspokes++;
  btheta[currentSpoke] = atan2(xt, yt)/TWO_PI;
  if (btheta[currentSpoke] <  0) btheta[currentSpoke] = 1. + btheta[currentSpoke]; 
  blen[currentSpoke] = dist(xt, yt, 0, 0);//*spokelenNormInv;
  bs[currentSpoke] = 8;
  bover[currentSpoke] = locked[currentSpoke] = false;
  bdifx[currentSpoke] = bdify[currentSpoke] = 0.;
  binc[currentSpoke] = .01;
  bwarp[currentSpoke] = bwarp[0];
  sortSpokes();
  sendSpokeNum(numspokes);
  sendAllSpokes();

  //placeSpoke(currentSpoke, btheta[currentSpoke], blen[currentSpoke]);

}

void deleteSpoke() {

  btheta[currentSpoke] = 1.;
  currentSpoke--;
  if(currentSpoke<0) currentSpoke = 0;
  sortSpokes();
  numspokes--;
  sendSpokeNum(numspokes);
  sendAllSpokes();


}

void sortSpokes() {
  //oh, should have made a damn Spoke struct....

  //println("sorting....");

  int minm;
  float ftemp;
  boolean btemp;
  float currentTheta = btheta[currentSpoke]; //brutal

  for(int i=0;i<numspokes;i++) {//sort them here
    minm = i;  
    for(int j=i+1;j<numspokes;j++) 
      if(btheta[j] < btheta[minm]) minm = j;
    //shuffle
    //println("swapping spokes: " + i + ":"+btheta[minm]+":"+btheta[i]);
    ftemp = btheta[i]; 
    btheta[i] = btheta[minm]; 
    btheta[minm] = ftemp;
    ftemp = blen[i]; 
    blen[i] = blen[minm]; 
    blen[minm] = ftemp;
    ftemp = bs[i]; 
    bs[i] = bs[minm]; 
    bs[minm] = ftemp;
    ftemp = bx[i]; 
    bx[i] = bx[minm]; 
    bx[minm] = ftemp;
    ftemp = by[i]; 
    by[i] = by[minm]; 
    by[minm] = ftemp;
    ftemp = bdifx[i]; 
    bdifx[i] = bdifx[minm]; 
    bdifx[minm] = ftemp;
    ftemp = bdify[i]; 
    bdify[i] = bdify[minm]; 
    bdify[minm] = ftemp;
    ftemp = binc[i]; 
    binc[i] = binc[minm]; 
    binc[minm] = ftemp;
    btemp = bover[i]; 
    bover[i] = bover[minm]; 
    bover[minm] = btemp;
    btemp = locked[i]; 
    locked[i] = locked[minm]; 
    locked[minm] = btemp;

  }
  for(int i=0;i<numspokes;i++) {
    //println(i + "=" + btheta[i]);
    if (btheta[i] == currentTheta) {
      currentSpoke = i;
    }
    placeSpokeLocal(i, btheta[i], blen[i]);
  }
  setTextValues(currentSpoke);
  cspoke_text.setValue(str(currentSpoke));
  numspokes_text.setValue(str(numspokes));
  //sendAllSpokes();
}

void reverseSpokes() {

  for(int i=0;i<numspokes;i++) {
    btheta[i] = 1. - btheta[i];
    if(btheta[i] == 1.) btheta[i] = 0.;
  }

  sortSpokes();
  sendAllSpokes();

}

void mousePressed() {
  for(int i=0;i<numspokes;i++){
    if(bover[i]) { 
      locked[i] = true; 
      fill(255, 255, 255);
      currentSpoke = i;
      cspoke_text.setValue(str(i));
      setTextValues(i);
    } 
    else {
      locked[i] = false;
    }
    bdifx[i] = mouseX-bx[i]; 
    bdify[i] = mouseY-by[i]; 

  }
  if(shiftDown) {
    addSpoke();
  }
  //redraw();
}

void keyPressed() {
  if(key == 's') {
    holdLen = true;
    //println("'s' is down");
    //sortSpokes();
    //sendAllSpokes();
  } 
  else if(key == 'a') {
    holdTheta = true;
  } 
  else if(key == 'd') {
    adjustCap = true;
  } 
  else if(key == 'q') {
    quantizeTimes();
    quantizeLengths();
  } 
  else if(key =='[') {
    if(!playing) {
      sendPlay();
      playing = true;
    }
    else {
      sendStop();
      playing = false;
      //sendRestartThis();
      //playThis.setValue(1);
    }
  } 
  else if(key =='{') {
    if(!playing) {
      sendPlay();
      playing = true;
    }
    else {
      sendStop();
      playing = false;
      sendRestartThis();
      //playThis.isSelected(false);
    }
  } 
  else if(key ==']') {
    if(!playing) {
      sendPlayAll();
      playing = true;
    }
    else {
      sendStopAll();
      playing = false;
      //sendRestartThis();
      //playThis.isSelected(false);
    }
  } 
  else if(key =='}') {
    if(!playing) {
      sendPlayAll();
      playing = true;
    }
    else {
      sendStopAll();
      playing = false;
      sendRestartAll();
      //playThis.isSelected(false);
    }
  } 
  else if(key =='-') {
    sendRestartThis();
    //playThis.isSelected(false);
  } 
  else if(key =='_') {
    sendRestartAll();
    //playThis.isSelected(false);
  }
  if(key == CODED) {
    if(keyCode == SHIFT) {
      shiftDown = true;
      //println("shift is down");
    }
    if(keyCode == CONTROL) {
      controlDown = true;
      //println("ctl is down");
    }
  } 
}

void keyTyped() {
  if(key == 'K') {
    //println("deleting spoke");
    if(shiftDown) deleteSpoke();
  }
}

void keyReleased() {
  if(key == 's') {
    holdLen = false;
    //println("'s' is down");
  } 
  else if(key == 'a') {
    holdTheta = false;
  } 
  else if(key == 'd') {
    adjustCap = false;
  }
  if(key == CODED) {
    if(keyCode == SHIFT) {
      shiftDown = false;
      //println("shift released");
    }
    if(keyCode == CONTROL) {
      controlDown = false;
      //println("ctl released");
    }
  } 
}


void mouseDragged() {
  for(int i=0;i<numspokes;i++){
    if(locked[i]) {
      if(adjustCap) {

        //println("shift is down");
        //bs[i] = 5 + ((float)(dimy - mouseY) / dimy) * 20.;
        bs[i] += 10.* (by[i] - mouseY) / dimy;
        if(bs[i] < capsizeMin) bs[i] = capsizeMin;
        if(bs[i] > capsizeMax) bs[i] = capsizeMax;
        setTextValues(currentSpoke);
        sendSpoke(btheta[i], blen[i]*spokelenNormInv, bs[i], binc[i], bwarp[i], i);
        return;

      } //otherwise move spoke, and check to see if theta or len should be held constant

      float newx = mouseX-bdifx[i]; 
      float newy = mouseY-bdify[i]; 

      float xt = newx - dimx*0.5;
      float yt = -newy + dimy*0.5;
      if(!holdTheta) btheta[i] = atan2(xt, yt)/TWO_PI;
      if(!holdLen) blen[i] = dist(xt, yt, 0, 0);

      if (btheta[i] <  0) btheta[i] = 1. + btheta[i];   
      placeSpoke(i, btheta[i], blen[i]);
      setTextValues(i);
      sendSpoke(btheta[i], blen[i]*spokelenNormInv, bs[i], binc[i], bwarp[i], i); //shouldn't need to do this, since placeSpoke sendsSpokes as well
      if(btheta[i] > btheta[i+1]) {
        sortSpokes();
        sendAllSpokes();
      }
      if(i>0) {
        if(btheta[i] < btheta[i-1]) {
          sortSpokes();
          sendAllSpokes();
        }
      } 

    }
  }
  //redraw();
}

void mouseReleased() {
  for(int i=0;i<numspokes;i++){
    locked[i] = false;
  }
  cP5.controller("warp").reset();
  holdLen = false;
  holdTheta = false;

}


/*
* INTERFACE STUFF
 */

import interfascia.*;

GUIController c;
IFTextField cspoke_text;
IFTextField ctime_text;
IFTextField clen_text;
IFTextField csize_text;
IFTextField cdiameter_text;
IFTextField cwarp_text;
IFTextField numspokes_text;
IFTextField numQspokes_text;
IFTextField numQcircles_text;
IFTextField ctempo_text;
IFTextField framerate_text;

IFLabel cspoke_label;
IFLabel ctime_label;
IFLabel clen_label;
IFLabel csize_label;
IFLabel cdiameter_label;
IFLabel ctempo_label;
IFLabel cwarp_label;
IFLabel numspokes_label;
IFLabel numQspokes_label;
IFLabel numQcircles_label;
IFLabel framerate_label;

IFLookAndFeel textLook;

IFButton qb, qb2, restartThis, restartAll, reverse;

IFCheckBox whichQ;
IFLabel whichQ_label;
IFCheckBox playAll; 
IFLabel playAll_label;
IFCheckBox playThis;
IFLabel playThis_label;

//slider
import controlP5.*;
ControlP5 cP5;

void makeInterface()
{

  c = new GUIController(this);
  cspoke_text = new IFTextField("spoke #", 25, dimy+10, 35);
  ctime_text = new IFTextField("spoke time", 80, dimy+10, 80);
  clen_text  = new IFTextField("spoke length", 165, dimy+10, 80);
  csize_text  = new IFTextField("cap size", 250, dimy+10, 80);
  cdiameter_text  = new IFTextField("diameter", 335, dimy+10, 80);
  cwarp_text  = new IFTextField("warp", 250, dimy+105, 80);
  numspokes_text  = new IFTextField("num spokes", 420, dimy+10, 45);
  numQspokes_text  = new IFTextField("num Q spokes", 250, dimy+60, 45);
  numQcircles_text  = new IFTextField("num Q circles", 310, dimy+60, 45);
  framerate_text  = new IFTextField("frame rate", 370, dimy+60, 45);
  qb = new IFButton("Quantize!", 80, dimy+60, 62, 17);
  qb2 = new IFButton("Quantize!", 165, dimy+60, 62, 17);
  whichQ = new IFCheckBox("Qall", 25, dimy+60);
  playAll = new IFCheckBox("Play All", 520, dimy+60);
  playThis = new IFCheckBox("Play This", 520, dimy+90);
  ctempo_text  = new IFTextField("tempo", 500, dimy+10, 80);
  restartAll = new IFButton("!", 500, dimy+60, 17, 17);
  restartThis = new IFButton("!", 500, dimy+90, 17, 17);

  reverse = new IFButton("Reverse!", 350, dimy+105, 62, 17);

  c.add(cspoke_text);
  c.add(ctime_text);
  c.add(clen_text);
  c.add(csize_text);
  c.add(cdiameter_text);
  c.add(ctempo_text);
  c.add(cwarp_text);
  c.add(numspokes_text);
  c.add(numQspokes_text);
  c.add(numQcircles_text);
  //c.add(framerate_text);
  c.add(qb);
  c.add(qb2);
  c.add(reverse);
  //c.add(restartThis);
  c.add(restartAll);
  c.add(whichQ);
  c.add(playAll);
  //c.add(playThis);
  cspoke_text.addActionListener(this);
  ctime_text.addActionListener(this);
  clen_text.addActionListener(this);
  csize_text.addActionListener(this);
  cdiameter_text.addActionListener(this);
  ctempo_text.addActionListener(this);
  cwarp_text.addActionListener(this);
  numspokes_text.addActionListener(this);
  numQspokes_text.addActionListener(this);
  numQcircles_text.addActionListener(this);
  framerate_text.addActionListener(this);
  qb.addActionListener(this);
  qb2.addActionListener(this);
  reverse.addActionListener(this);
  restartThis.addActionListener(this);
  restartAll.addActionListener(this);
  whichQ.addActionListener(this);
  whichQ.setHeight(17);
  playAll.addActionListener(this);
  playAll.setHeight(17);
  playThis.addActionListener(this);
  playThis.setHeight(17);

  numspokes_text.setValue(str(numspokes));
  numQspokes_text.setValue(str(qspokes));
  numQcircles_text.setValue(str(numCircles));

  textLook = new IFLookAndFeel(this, IFLookAndFeel.DEFAULT);
  textLook.textColor = color(150, 0, 0);
  c.setLookAndFeel(textLook);

  cspoke_label = new IFLabel("spoke", 25, dimy+35);
  c.add(cspoke_label);
  ctime_label = new IFLabel("spoke time", 80, dimy+35);
  c.add(ctime_label);
  clen_label = new IFLabel("spoke length", 165, dimy+35);
  c.add(clen_label);
  csize_label = new IFLabel("cap size", 250, dimy+35);
  c.add(csize_label);
  cdiameter_label = new IFLabel("time inc", 335, dimy+35);
  c.add(cdiameter_label);
  ctempo_label = new IFLabel("cycle len (sec)", 500, dimy+35);
  c.add(ctempo_label);
  cwarp_label = new IFLabel("warp inc", 250, dimy+130);
  c.add(cwarp_label);
  numspokes_label = new IFLabel("# spokes", 420, dimy+35);
  c.add(numspokes_label);
  numQspokes_label = new IFLabel("# Q tics", 250, dimy+85);
  c.add(numQspokes_label);
  numQcircles_label = new IFLabel("# Q circs", 310, dimy+85);
  c.add(numQcircles_label);
  framerate_label = new IFLabel("framerate", 370, dimy+85);
  //c.add(framerate_label);
  whichQ_label = new IFLabel("all?", 48, dimy+65);
  c.add(whichQ_label);
  playAll_label = new IFLabel("play", 543, dimy+63);
  c.add(playAll_label);
  playThis_label = new IFLabel("play this", 543, dimy+93);
  //c.add(playThis_label);

  //slider
  cP5 = new ControlP5(this);
  cP5.addSlider("warp", 0.99, 1.01, 1.0, 25, dimy+105, 204, 17).setId(1);

}

void actionPerformed(GUIEvent e) {
  if(e.getMessage().equals("Completed")) {
    if(e.getSource() == ctime_text) {
      //println("received text: " + ctime_text.getValue());
      placeSpoke(currentSpoke, float(ctime_text.getValue()), blen[currentSpoke]);
    } 
    else if(e.getSource() == clen_text) {
      //println("received text: " + clen_text.getValue());
      placeSpoke(currentSpoke, btheta[currentSpoke], float(clen_text.getValue()) * spokelenNorm * numCirclesInv);
    } 
    else if(e.getSource() == cspoke_text) {
      //println("received text: " + float(cspoke_text.getValue()));
      currentSpoke = int(cspoke_text.getValue());
      setTextValues(currentSpoke);
    } 
    else if(e.getSource() == csize_text) {
      bs[currentSpoke] = float(csize_text.getValue()) * (capsizeMax - capsizeMin) + capsizeMin;
      if(bs[currentSpoke] < capsizeMin) bs[currentSpoke] = capsizeMin;
      if(bs[currentSpoke] > capsizeMax) bs[currentSpoke] = capsizeMax;
      setTextValues(currentSpoke);
    } 
    else if(e.getSource() == cdiameter_text) { /* this was for changing the diameter; not using
     float newdiameter = float(cdiameter_text.getValue());
     if(newdiameter <= 1.) { //protect against NaNs
     newdiameter *= 0.9;
     if (newdiameter > 1.) newdiameter = 1.;
     if (newdiameter < 0.125) newdiameter = 0.125;
     spokelenNorm = dimx*newdiameter*0.5;
     spokelenNormInv = 1./spokelenNorm;
     for(int i=0;i<numspokes;i++) {
     placeSpoke(i, btheta[i], blen[i]*newdiameter/diameterSave);
     }
     diameterSave = newdiameter;
     initQspokes();         
     }*/
      binc[currentSpoke] = float(cdiameter_text.getValue());
    } 
    else if(e.getSource() == cwarp_text) {
      for(int i=0;i<maxspokes;i++) {
      	bwarp[i] = float(cwarp_text.getValue());
      	phaseWarp = bwarp[i];
      	}
    } 
    else if(e.getSource() == numspokes_text) {
      numspokes = int(numspokes_text.getValue());
      if(numspokes > maxspokes) numspokes = maxspokes;
      sendSpokeNum(numspokes);
      initSpokes();
      sortSpokes();
      sendAllSpokes();
    } 
    else if(e.getSource() == numQspokes_text) {
      qspokes = int(numQspokes_text.getValue());
      if(qspokes > maxspokes*2) qspokes = maxspokes*2;
      initQspokes();
    } 
    else if(e.getSource() == numQcircles_text) {
      numCircles = int(numQcircles_text.getValue());
      if(numCircles > 50) numCircles = 50;
      if(numCircles < 1) numCircles = 1;
      numCirclesInv = 1./numCircles;
      setTextValues(currentSpoke);
      //initQspokes();
    } 
    else if(e.getSource() == ctempo_text) {
      tempo = float(ctempo_text.getValue());
      sendTempo(tempo);
      //initQspokes();
    } 
    else if(e.getSource() == framerate_text) {
      framerate = int(framerate_text.getValue());
      //println("new framerate = " + framerate);
      frameRate(framerate);
    }
  }
  if(e.getSource() == qb) {
    //println("pressed Quantize!");
    quantizeTimes();
    setTextValues(currentSpoke);
    //sendFloat(0.24, "/blen"); //works!
  } 
  else if(e.getSource() == qb2) {
    //println("pressed spoke length Quantize!");
    quantizeLengths();
    setTextValues(currentSpoke);
  } 
  else if(e.getSource() == whichQ) {
    Qonly = whichQ.isSelected();
    //println("quantize selected only?: " + Qonly);
  } 
  else if(e.getSource() == playAll) {
    if(!playAll.isSelected()) sendPlayAll();
    else sendStopAll();
  } 
  else if(e.getSource() == playThis) {
    if(!playThis.isSelected()) sendPlay();
    else sendStop();
  } 
  else if(e.getSource() == restartAll) {
    //println("sending restart to all");
    sendRestartAll();
  } 
  else if(e.getSource() == restartThis) {
    //println("sending restart to this");
    sendRestartThis();
  } 
  else if(e.getSource() == reverse) {
    //println("reversing");
    reverseSpokes();
  }
}

void controlEvent(ControlEvent theEvent) {

  //println("got a control event from controller with id "+theEvent.controller().id());
  switch(theEvent.controller().id()) {
    case(1):
    warp = (float)(theEvent.controller().value());
    for(int i=0;i<numspokes;i++) {
      placeSpoke(i, btheta[i], blen[i]);
    }
    break;
  }

}


void setTextValues(int i) {

  float thetaNorm = btheta[i];
  if(thetaNorm < 0) thetaNorm = 1. + thetaNorm;
  ctime_text.setValue(str(thetaNorm));
  float lenNorm = blen[i] * spokelenNormInv;
  clen_text.setValue(str(lenNorm*numCircles));
  csize_text.setValue(str(((bs[i] - capsizeMin) / (capsizeMax - capsizeMin))));
  cdiameter_text.setValue(str(binc[i]));
  cwarp_text.setValue(str(bwarp[i]));

  numspokes_text.setValue(str(numspokes));
  numQspokes_text.setValue(str(qspokes));
  numQcircles_text.setValue(str(numCircles));
  cspoke_text.setValue(str(i));
  ctempo_text.setValue(str(tempo));
  framerate_text.setValue(str(framerate));

}

/*
* OSC STUFF
 */

void sendSpoke(float newtheta, float newlen, float newsize, float newinc, float newwarp, int which)
{/*
  OscMessage spokeout = new OscMessage("/spoke");
  spokeout.add(newtheta);
  spokeout.add(newlen);
  spokeout.add((newsize  - capsizeMin) / (capsizeMax - capsizeMin));
  spokeout.add(newinc);
  spokeout.add(newwarp);
  spokeout.add(which);
  oscP5.send(spokeout, toChuck);
  //println("sending spoke num " + which + " " +  btheta[which]);
  */
}

void sendSpokeNum(int howmany)
{/*
  OscMessage spokeout = new OscMessage("/spokeNum");
  spokeout.add(howmany);
  oscP5.send(spokeout, toChuck);
  */
}

void sendAllSpokes()
{/*
  //println("sending all spokes...");
  for(int i=0;i<numspokes;i++) {
    sendSpoke(btheta[i], blen[i]*spokelenNormInv, bs[i], binc[i], bwarp[i], i);
  }
  */
}

void sendTempo(float newtempo)
{
  /*
  //println("sending tempo multiplier...");
  OscMessage spokeout = new OscMessage("/tempo");
  spokeout.add(newtempo);
  oscP5.send(spokeout, toChuck);
  */

}

void sendPlayAll() {
  
  //println("play all");
  playing = true;
  //OscMessage playall = new OscMessage("/play");
  //playall.add(1);
  //oscP5All.send(playall, toAll);
  //oscP5All.send(playall);
  
}

void sendStopAll() {
  
  //println("stop all");
  playing = false;
  //OscMessage playall = new OscMessage("/play");
  //playall.add(0);
  //oscP5All.send(playall, toAll);
  //oscP5All.send(playall);
  
}

void sendPlay() {
  
  //println("play this");
  playing = true;
  //OscMessage playthis = new OscMessage("/play");
  //playthis.add(1);
  //oscP5.send(playthis, toChuck);
  
}

void sendStop() {
  
  //println("stop this");
  playing = false;
  //OscMessage playthis = new OscMessage("/play");
  //playthis.add(0);
  //oscP5.send(playthis, toChuck);
  
}

void sendRestartAll() {
  ctime = 1.;
  /*
  //println("restart all");
  
  OscMessage restart = new OscMessage("/restart");
  restart.add(1);
  //oscP5All.send(restart, toAll);
  oscP5All.send(restart);
  */
}

void sendRestartThis() {
  ctime = 1.;
  /*
  //println("restart this");
  OscMessage restart = new OscMessage("/restart");
  restart.add(1);
  oscP5.send(restart, toChuck);
  */
}

void oscEvent(OscMessage inmessage)
{ /*
  float intheta, inlen, insize, ininc, inwarp;
  String inload;
  int inwhich;

  if(inmessage.checkAddrPattern("/setspoke")==true) { //this one seems to fail after a while; too long?

    intheta = inmessage.get(0).floatValue();
    inlen   = inmessage.get(1).floatValue(); 
    insize  = inmessage.get(2).floatValue();
    ininc	= inmessage.get(3).floatValue();
    inwarp	= inmessage.get(4).floatValue();
    inwhich = inmessage.get(5).intValue();
    numspokes = inmessage.get(6).intValue();

    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);

    btheta[inwhich] = intheta;
    blen[inwhich] 	= inlen * spokelenNorm;
    bs[inwhich] 	= insize * (capsizeMax - capsizeMin) + capsizeMin;
    bwarp[inwhich] 	= inwarp; 
    binc[inwhich]	= ininc;
    phaseWarp = inwarp;
    placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    setTextValues(inwhich);

  } 
  else if(inmessage.checkAddrPattern("/ctime")==true) {
    intime = inmessage.get(0).floatValue();
    //println("got new time: " + intime);
    placeTime();
  } 
  else if(inmessage.checkAddrPattern("/setdphase")==true) {
    dphase = inmessage.get(0).floatValue();
    //println("got new phase: " + phaseWarp);
  }
  else if(inmessage.checkAddrPattern("/flash")==true) {
    flash = inmessage.get(0).intValue();
    //println("got new phase: " + phaseWarp);
  }
  else if(inmessage.checkAddrPattern("/cwarp")==true) {
    phaseWarp = inmessage.get(0).floatValue();
    //println("got new phase: " + phaseWarp);
  } 
  else if(inmessage.checkAddrPattern("/reverse")==true) {
    inwhich = inmessage.get(0).intValue();
    reverseSpokes();
    //println(">>>>>>>>>>>>>>>>> reversing spokes <<<<<<<<<<<<<<<<<<<");
  } 
  else if(inmessage.checkAddrPattern("/load")==true) {
    inload = inmessage.get(0).stringValue();
    openCycler(inload);
    //println("got message to open cycler " + inload);
  } 
  else if(inmessage.checkAddrPattern("/setwarp")==true) {
    float newWarp = inmessage.get(0).floatValue();
    //for(int i=0;i<maxspokes;i++) bwarp[i] = newWarp; //cumbersome; legacy from when wanting to set
    //warp for each spoke. leave for now.
    phaseWarp = newWarp;
    cwarp_text.setValue(str(phaseWarp));
    //sendAllSpokes();
  } 
  else if(inmessage.checkAddrPattern("/setspoketime")==true) {
    inwhich = inmessage.get(0).intValue();
    intheta = inmessage.get(1).floatValue();
    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);
    btheta[inwhich] = intheta;
    placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    setTextValues(inwhich);
  } 
  else if(inmessage.checkAddrPattern("/setspokelen")==true) {
    inwhich = inmessage.get(0).intValue();
    inlen = inmessage.get(1).floatValue();
    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);
    blen[inwhich] = inlen * spokelenNorm;
    placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    setTextValues(inwhich);
  } 
  else if(inmessage.checkAddrPattern("/setspokecap")==true) {
    inwhich = inmessage.get(0).intValue();
    insize = inmessage.get(1).floatValue();
    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);
    bs[inwhich] = insize * (capsizeMax - capsizeMin) + capsizeMin;
    ;
    placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    setTextValues(inwhich);
  } 
  else if(inmessage.checkAddrPattern("/setspokeinc")==true) {
    inwhich = inmessage.get(0).intValue();
    ininc = inmessage.get(1).floatValue();
    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);
    binc[inwhich] = ininc;
    //placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    setTextValues(inwhich);
  } 
  else if(inmessage.checkAddrPattern("/setspokewarp")==true) {
    inwhich = inmessage.get(0).intValue();
    inwarp = inmessage.get(1).floatValue();
    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);
    bwarp[inwhich] = inwarp;
    //placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    setTextValues(inwhich);
  } 
  else if(inmessage.checkAddrPattern("/setspokenum")==true) {
    numspokes = inmessage.get(0).intValue();
    //println("got new spoke: " + inwhich + " theta = " + intheta + " len = " + inlen + " size = " + insize);
    //placeSpokeLocal(inwhich, btheta[inwhich], blen[inwhich]);
    numspokes_text.setValue(str(numspokes));
  }
  */
}



/*
* FILE/MENU STUFF
 */

void openCycler() 
{

  infile = inputFile();
  if(infile!=null) { 
    println("opening file: " + infile.getPath()); 
    outfile = infile;
  }
  String lines[] = loadStrings(infile.getPath());
  if(!lines[0].equals("Cyclotron data file!")) {
    println("not a Cyclotron file!!");
    return;
  }
  for(int i=0;i<lines.length;i++) {
    if(!lines[i].equals("null")) extractLine(lines[i]);//println(lines[i]);
  }
  setTextValues(currentSpoke);
}

void openCycler(String pathname)
{

  String lines[] = loadStrings(pathname);
  if(lines == null) {
    println("unable to read file: " + pathname);
    return;
  }
  if(!lines[0].equals("Cyclotron data file!")) {
    println("not a Cyclotron file!!");
    return;
  }
  for(int i=0;i<lines.length;i++) {
    if(!lines[i].equals("null")) extractLine(lines[i]);//println(lines[i]);
  }
  setTextValues(currentSpoke);

}

void extractLine(String newline)
{
  int endword = newline.indexOf(":");
  String temp;
  if(endword>0) {
    String first = newline.substring(0, endword);
    //println(first);
    if(first.equals("qspokes")) {
      temp = newline.substring(endword+1, newline.length());
      qspokes = int(temp);
      initQspokes();
    } 
    else if(first.equals("numcircles")) {
      temp = newline.substring(endword+1, newline.length());
      numCircles = int(temp);
      numCirclesInv = 1./numCircles;
    } 
    else if(first.equals("cyclelen")) {
      temp = newline.substring(endword+1, newline.length());
      tempo = float(temp);
      ctempo_text.setValue(str(tempo));
      sendTempo(tempo);
    } 
    else if(first.equals("warp")) {
      temp = newline.substring(endword+1, newline.length());
      for(int i=0;i<maxspokes;i++) bwarp[i] = float(temp);
      cwarp_text.setValue(str(bwarp[0]));
    } 
    else if(first.equals("numspokes")) {
      temp = newline.substring(endword+1, newline.length());
      numspokes = int(temp);
      numspokes_text.setValue(temp);
      sendSpokeNum(numspokes);
      //println("numspokes = " + numspokes);
    } 
    else if(first.equals("spoke")) {
      temp = newline.substring(endword+1, newline.indexOf(" ", endword+1));
      int newspoke = int(temp);

      endword = newline.indexOf("theta")+5;
      temp = newline.substring(endword+1, newline.indexOf(" ", endword+1));
      btheta[newspoke] = float(temp);

      endword = newline.indexOf("len")+3;
      temp = newline.substring(endword+1, newline.indexOf(" ", endword+1));
      blen[newspoke] = float(temp);

      endword = newline.indexOf("size")+4;
      temp = newline.substring(endword+1, newline.indexOf(" ", endword+1));
      bs[newspoke] = float(temp);

      endword = newline.indexOf("inc")+3;
      temp = newline.substring(endword+1, newline.length());
      binc[newspoke] = float(temp);

      placeSpoke(newspoke, btheta[newspoke], blen[newspoke]);
      setTextValues(0);

      //println("new spoke -- " + newspoke + " theta: " + newtheta + " len: " + newlen + " newsize: " + newsize + " newinc: " + newinc);
    } 
  }
}


void writeCycler()
{  
  String list[] = new String[maxspokes];// = "CYCLOTRON";
  if(outfile == null) {
    writeNewCycler();
  } 
  else {
    list[0] = "Cyclotron data file!";
    list[1] = "qspokes:" + qspokes;
    list[2] = "numcircles:" + numCircles;
    list[3] = "cyclelen:" + tempo;
    list[4] = "warp:" + bwarp[0];
    list[5] = "numspokes:" + numspokes;
    int spokeNumOut;
    for(int i=6;i<numspokes+6;i++) {
      spokeNumOut = i-6;
      String nums = "spoke:" + spokeNumOut + " theta:" + btheta[spokeNumOut] + " len:" + blen[spokeNumOut] + " size:" + bs[spokeNumOut] + " inc:" + binc[spokeNumOut];
      list[i] = nums;
      saveStrings(outfile, list);

    }
  }
}

void writeNewCycler()
{
  String list[] = new String[maxspokes+5];// = "CYCLOTRON";
  outfile = outputFile();

  if(outfile != null) {
    println("creating file: " + outfile.getPath());
    list[0] = "Cyclotron data file!";
    list[1] = "qspokes:" + qspokes;
    list[2] = "numcircles:" + numCircles;
    list[3] = "cyclelen:" + tempo;
    list[4] = "warp:" + bwarp[0];
    list[5] = "numspokes:" + numspokes;
    int spokeNumOut;
    for(int i=6;i<numspokes+6;i++) {
      spokeNumOut = i-6;
      String nums = "spoke:" + spokeNumOut + " theta:" + btheta[spokeNumOut] + " len:" + blen[spokeNumOut] + " size:" + bs[spokeNumOut] + " inc:" + binc[spokeNumOut];
      list[i] = nums;
      saveStrings(outfile, list);
    }
  }
}

// open a file dialog when the user selects "Open" from the menu
private class OpenFileListener implements ActionListener {
  public void actionPerformed(ActionEvent e) {
    //println("did that open menu thang");
    openCycler();
  }
}

// open a file dialog when the user selects "Open" from the menu
private class SaveFileListener implements ActionListener {
  public void actionPerformed(ActionEvent e) {
    //println("did that save menu thang");
    writeCycler();
  }
}

// open a file dialog when the user selects "Open" from the menu
private class SaveAsFileListener implements ActionListener {
  public void actionPerformed(ActionEvent e) {
    //println("did that saveas menu thang");
    writeNewCycler();
  }
}