import processing.opengl.*;
import anar.*;





/*
 * Example for Anar library by Guillaume LaBelle + Julien Nembrini
 * http://anar.ch
 */


Obj myObj = new Obj();

RenderPts dotted = new RenderPtsLineDotted(color(255,255,0));

Pt origin = Anar.Pt(0,0,0);
PtIntersect inter,interSkew;

void setup(){
    size(800,400,OPENGL);
  Anar.init(this);
  myObj = createModule();
}

Obj createModule(){
  // Initialize a local object
  Obj module = new Obj();

  // First construction: a basic line
  Pts line1 = new Pts();
  Pts line2 = new Pts();
  Pts line3 = new Pts();
  
  Param c = new Param(60,0,100).addToSlidersMain();
  Param nll = new Param(0);
  
  line1.add(0,0,0);
  line1.add(30,20,0);
  
  line2.add(60, -20,0);
  line2.add(Anar.Pt(c,nll,nll));
  
  line3.add(50, -20,0);
  line3.add(Anar.Pt(c,nll,c));
  
  
  module.add(line1);
  module.add(line2);
  module.add(line3);
  


  // Create set of Points from an uniform distribution of points
  inter = new PtIntersect(line1.pt(0),line1.pt(1),line2.pt(0),line2.pt(1));
  module.add(inter);
  
  // Create projection lines.
  module.add(new Pts(line1.pt(1),inter).render(dotted));
  module.add(new Pts(line2.pt(1),inter).render(dotted));
  

  interSkew = new PtIntersect(line1.pt(0),line1.pt(1),line3.pt(0),line3.pt(1));
  module.add(interSkew);

  Pts skewLine = new Pts();
  
  skewLine.add(interSkew.getInterA());
  skewLine.add(interSkew.getInterB());
  skewLine.render(dotted);
  
  module.add(skewLine);
  
  interSkew.getInterA().fill(255,0,0);
  interSkew.getInterB().fill(255,0,0);
  
  module.add(interSkew.getInterA());
  module.add(interSkew.getInterB());
  

  return module;
}


void draw(){
  background(155);

  fill(50);
  Anar.text("intersection "+inter.toString(),inter);
  Anar.text("skew "+interSkew.toString(),interSkew);

  Anar.text("skew on line1",interSkew.getInterA());
  Anar.text("skew on line3",interSkew.getInterB());
  
  Anar.camTarget(myObj);
  myObj.draw();
}


void keyPressed(){

  if(key==' ')
    RhinoScript.export(myObj,"curveTest");
}