int segmentos = 10;
int largo = 100;
int cgrab =0;
int clec =1;
int multp=1;
int cpistas =0;
int memo = 500;
boolean inicio=false;
float[][] entrada = new float[5000][2];
float[][] salida = new float[memo][2];
float[][][] laspistas = new float[1][memo][2];

void setup(){
  size(500,500,P3D);

}

void draw(){
  background(100);

  float mx = mouseX-(width*0.5);
  float my = mouseY-(height*0.5);
  if(mousePressed){
    grabar(cgrab, mx+(width*0.5),my+(height*0.5));
     // leer();
   mover(mx,my);
    cgrab++;
    clec++;
  }  
  else{
    if(inicio){
      leer();
    }  
  }
}

void mousePressed(){
  inicio=true;
  cpistas++;
  if(cpistas>laspistas.length-1){
    alargarlista();
  //  println("nuevas pistas: "+laspistas.length);
  }
}

void grabar (int t,float x,float y){
  entrada[t][0]=x;
  entrada[t][1]=y;
  if(t<memo){
    laspistas[cpistas][t][0] = x;
    laspistas[cpistas][t][1] = y;
    // println("grabando: "+laspistas[cpistas][t][1]);
  }
}
void mouseReleased(){
  laspistas[cpistas] = lerplistas(entrada,cgrab,laspistas[cpistas].length);
  println(cpistas);
  if(cpistas>1){
  salida = mezclarpistas(laspistas);
  }else{
  salida = laspistas[cpistas];
  }
  
/*  for(int i=0;i<salida.length;i++){
  print(" "+salida[i][0]);
  }*/
  clec =memo-1;

  cgrab =0;
  multp=-1;
}
void leer (){
  clec +=multp;

  float lx = salida[clec][0];
  float ly = salida[clec][1];
  mover(lx-(width*0.5),ly-(height*0.5));
  if(clec==memo-1||clec==0){
    multp*=-1;
  }
}

void mover(float x,float y){
  pushMatrix();
  translate(width*0.5,height*0.1);
  for(int i = 1; i<=15;i++){
    rotateZ(radians(x*i*0.02));
    rotateX(radians(y*i*0.02));
    translate(0,largo/segmentos);
    strokeWeight(1.5);
    box(largo/segmentos,largo/segmentos,largo/segmentos);
  }
  popMatrix();
}

void alargarlista(){
  float[][][] temp = new float[laspistas.length + 1][memo][2];
  System.arraycopy(laspistas, 0, temp, 0, laspistas.length);
  temp[laspistas.length] = new float[memo][2];
  laspistas = temp;
} 


float[][]  lerplistas(float[][] origen,int pocllenas, int largod){
  float[][] destino = new float [largod][2];
  for(int i=0;i<largod;i++){
    for(int j=0;j<2;j++){
      float largoa = float(pocllenas-1);
      float largob = float(largod);
      float pasol = (largoa/largob)*i;
      int uno = int(floor(pasol));
      int dos = int(uno+1);
      float r = lerp(origen[uno][j],origen[dos][j],pasol-uno);
      destino[i][j] = r;
    }
  }
  return destino;
}

float[][] mezclarpistas (float[][][] fuentes){
  float[][] promedio = new float [memo][2];
  for (int i = 0; i< fuentes.length;i++){
    for (int j = 0; j< memo ;j++){
      promedio[j][0] += fuentes[i][j][0]*(1/float(fuentes.length));
      promedio[j][1] += fuentes[i][j][1]*(1/float(fuentes.length));
      }
    }
    return promedio;
}