//Camera;
float rotX=-.47;
float rotY= .8;
float transX = 415;
float transY = 142;
float zoom = 1;

// helper for the infinity of the cube and the layers
int l0;
int l1;
int l2;
        
int i0;
int i1;
int i2;
        
int j0;
int j1;
int j2;

float credits_alpha;
float credits_helper;

int gridsize = 10;
int grid_abs = 300;

int max_layers = 30;

int nextgen, helper_ac;
int current_layer=1;

int [] rules = new int [16];
int [] neighbours = new int [4];

int [][]neighbours_gol = new int [26][2];

int [] s_a = new int [2];
int [] h_nextgen = new int [2];

int objects, h_objects = 0;
int h_alpha=35;
int h2_alpha=65;
int ac_motherrule=0;
int ac_layer=0;
int axis=0;

CUBE[][][] cubes;

boolean[][][] generation_current;
boolean[][][] generation_new;

int[][][] generation_new_species;

int[][] pixel_block;
PImage img;

String rules_str="";

boolean b = true, s = true, gol_new = true, orbit = true;
boolean p_inactive = false, p = false, show_d = false , vis = false, l = false, gol = false, s_rules = false, s_layers = false, help = false, current_settings = false, remember_current_settings = false, credits = false;
boolean show_livetime = false, autokill = true, species_evolution = true;


void setup() 
{
  size(1200, 600, P3D);
  frameRate(10);
  background(0);
  
  
  colorMode(RGB);

  color black = color(0, 0, 0);
  
  int[][] imgPixels;
  
  
  img = loadImage("europe map.jpg");
  //image(img, 0, 0, grid_abs, grid_abs);
 
  
  // read all pixel from the img
  imgPixels = new color[grid_abs][grid_abs];
  
  loadPixels();
  for(int j=0; j<grid_abs; j++) {
    for(int i=0; i<grid_abs; i++) {
      imgPixels[i][j] = img.pixels[j*grid_abs+i];
      //println("f: "+imgPixels[i][j]);
      
    }
  }
   
  pixel_block = new int [grid_abs/gridsize][grid_abs/gridsize];
  
  int h_pixel_block = 0;
  
  for (int j=0; j<grid_abs/gridsize; j++)
  {
    for (int i=0; i<grid_abs/gridsize; i++)
    {
      for (int k=1; k<gridsize; k++)
      {
        for (int l=1; l<gridsize; l++)
        {
          if (imgPixels[((i*gridsize)+k)][((j*gridsize)+l)] == black)
          {
            h_pixel_block ++;
          }
        }
      }
      
      pixel_block[i][j] = h_pixel_block;
      
      h_pixel_block=0;
      
      println();
      println("anz -1 ("+i+"/"+j+")   =   "+pixel_block[i][j]);
      println();
    }
  }
  
  
  generation_current = new boolean [max_layers][grid_abs/gridsize][grid_abs/gridsize];
  generation_new = new boolean [max_layers][grid_abs/gridsize][grid_abs/gridsize];
  
  generation_new_species = new int [max_layers][grid_abs/gridsize][grid_abs/gridsize];
  
  cubes = new CUBE[max_layers][grid_abs/gridsize][grid_abs/gridsize];
  
  for (int j=0; j<grid_abs/gridsize; j++)
  {
    for (int i=0; i<grid_abs/gridsize; i++)
    {
      //ignore cells on the edge
      if (j==0 || j==grid_abs/gridsize-1 || i==0 || i==grid_abs/gridsize-1)
      {
        cubes[0][i][j] = new CUBE(0, i, j, false); 
      }
      
      //cells with four neighbours
      else 
      {
        if (pixel_block[i][j] >= (.25*sq(gridsize)))
        {
          //cell alive
          cubes[0][i][j] = new CUBE(0, i, j, true); 
          h_objects ++;  
        }
        else 
        {
          //death cells
          cubes[0][i][j] = new CUBE(0, i, j, false);   
        }
      }
      
    }
  }
  
  randomize_rules();
  
} // end of setup





void draw() 
{
  background(0);
  
  lights();
  
  show_layout();
  
  if (credits)
  {
    PFont font;
    font = loadFont("HelveticaNeue-10.vlw"); 
    textFont(font, 10); 
    fill(255, credits_alpha);
    
    credits_helper = credits_helper*.99;
    
    credits_alpha -= credits_helper; 
    
    textAlign(LEFT);
    
    text("kai franz", 75, 545,0);
    text("internet:   http://kaifranz.de", 75, 555,0);
    text("e_mail:     mail[at]kaifranz.de", 75, 565,0);
    
    if (credits_alpha<3)
    {
      credits=false;
    }
    
  }
  
  
  if (current_settings)
  {
    PFont font;
    font = loadFont("HelveticaNeue-10.vlw"); 
    textFont(font, 10); 
    fill(120);
    
    textAlign(RIGHT);
    
    text("game of life settings", 1125, 100,0);
    text("vizualisation setting", 1125, 220,0);
    
    fill(70);
    
    if (gol)
    {
      text("status . on", 1125, 120,0);
    }
    else text("status . off", 1125, 120,0);
    
    //settings of the game of life
    
    if (species_evolution)
    {
      text("evolution of new spieces . on", 1125, 140,0);
    }
    else text("evolution of new spieces . off", 1125, 140,0);
    
    if (show_livetime)
    {
      text("generation age of cells . on", 1125, 160,0);
    }
    else text("generation age of cells . off", 1125, 160,0);
    
    if (autokill)
    {
      text("autokill of aged cells . on", 1125, 180,0);
    }
    else text("autokill of aged cells . off", 1125, 180,0);
    
    
    //viz settings
    
    text("alpha . inactive objects . "+h_alpha, 1125, 240,0);
    text("alpha . active objects . "+h2_alpha, 1125, 260,0);
    
    if (b)
    {
      text("basic image . shown", 1125, 280,0);
    }
    else text("basic image . hidden", 1125, 280,0);
    
    
    if (show_d)
    {
      text("dimensions . shown", 1125, 300,0);
    }
    else text("dimensions . hidden", 1125, 300,0);
    
    
    if (s)
    {
      text("2.5 d CA geometry . shown", 1125, 340,0);
    }
    else text("2.5 d CA geometry . hidden", 1125, 340,0);
    
    if (s_layers)
    {
      text("2.5 d CA layer structure/pattern  . shown", 1125, 360,0);
    }
    else text("2.5 d CA layer structure/pattern . hidden", 1125, 360,0);
    
    if (s_rules)
    {
      text("2.5 d CA motherrules  . shown", 1125, 380,0);
    }
    else text("2.5 d CA motherrules . hidden", 1125, 380,0);
    
    
    
    
    if (vis)
    {
      text("geometry transparency . on", 1125, 420,0);
    }
    else text("geometry transparency . off", 1125, 420,0);
    
    
    if (p_inactive)
    {
      text("inacive cell representing by vertices . on", 1125, 440,0);
    }
    else text("inacive cell representing by vertices . off", 1125, 440,0);
    
    if (p)
    {
      text("acive cell representing by vertices . on", 1125, 460,0);
    }
    else text("acive cell representing by vertices . off", 1125, 460,0);
    
    if (l)
    {
      text("geometry outlines . shown", 1125, 480,0);
    }
    else text("geometry outlines . hidden", 1125, 480,0);
    
    
    
  }
  
  if (help)
  {
    
    PFont font;
    font = loadFont("HelveticaNeue-10.vlw"); 
    textFont(font, 10); 
    fill(120, 55, 255);
    
    textAlign(LEFT);
    text("keycontrol :", 100, 100,0);
    
    fill(80);
  
    textAlign(LEFT);
    
    text("visual preferences", 200, 130,0);
    text("control 2.5 d CA", 730, 130,0);
    text("control game of life", 730, 240,0);
    text("camera control", 730, 420,0);
    text("(drag the mouse to change the view)", 730, 440,0);
    
    
    fill(255);
    
    text("UP/DOWN", 220, 180,0);
    text("LEFT/RIGHT", 220, 200,0);
    
    text("=", 310, 180,0);
    text("=", 310, 200,0);
    
    text("adjust alpha (transparency) of inactive objecs (geometry 2.5 d CA)", 350, 180,0);
    text("adjust alpha (transparency) of active objects (living objecs game of life)", 350, 200,0);
    
    text("B", 220, 240,0);
    text("S", 220, 260,0);
    text("A", 220, 280,0);
    text("D", 220, 300,0);
    
    text("=", 310, 240,0);
    text("=", 310, 260,0);
    text("=", 310, 280,0);
    text("=", 310, 300,0);
    
    text("show/hide the BASIC IMAGE of the 2.5 CA", 350, 240,0);
    text("show/hide geometry of the 2.5 CA", 350, 260,0);
    text("on/off transparency of the 2.5 CA", 350, 280,0);
    text("show/hide dimensions", 350, 300,0);
   
    
    text(",  (Comma)", 220, 340,0);
    text(".  (Point)", 220, 360,0);
    text("-", 220, 380,0);
    
    text("=", 310, 340,0);
    text("=", 310, 360,0);
    text("=", 310, 380,0);
    
    text("discribe the inactive geometry of the 2.5 CA by VERTICES", 350, 340,0);
    text("discribe the current 2.5 CA by VERTICES", 350, 360,0);
    text("discribe the current 2.5 CA by OUTLINES", 350, 380,0);
    
    
    
    text("F", 220, 420,0);
    text("H", 220, 440,0);
    text("<-- (Backspace)", 220, 460,0);
    text("1 , 2 , 3", 220, 480,0);
    
    text("=", 310, 420,0);
    text("=", 310, 440,0);
    text("=", 310, 460,0);
    text("=", 310, 480,0);
    
    text("show/hide cells with the same MOTHERRULE of the 2.5d CA", 350, 420,0);
    text("show/hide LAYERS of the 2.5d CA (to see the inside pattern)", 350, 440,0);
    text("jump to the next layer/motherrule", 350, 460,0);
    text("jump between X,Y,Z direction of the shown layer", 350, 480,0);
    
    
    
    
    text("TAB", 750, 180,0);
    
    text("=", 840, 180,0);
    
    text("generate a new 2.5 d CA", 880, 180,0);
    
    
    
    text("G", 750, 280,0);
    text("ENTER", 750, 300,0);
    
    text("=", 840, 280,0);
    text("=", 840, 300,0);
    
    text("run the GAME OF LIFE", 880, 280,0);
    text("reset cells / restart game of life", 880, 300,0);
    
    
    text("L", 750, 340,0);
    text("K", 750, 360,0);
    text("J", 750, 380,0);
    
    text("=", 840, 340,0);
    text("=", 840, 360,0);
    text("=", 840, 380,0);
 
    text("show/hide age of the cellgenearations", 880, 340,0);
    text("on/off autokill of aged cell (natural death after 50 gen.)", 880, 360,0);
    text("allow/oppress evolution of new species", 880, 380,0);
    
    text("O", 750, 460,0);
    text("P , Z", 750, 480,0);
    
    text("=", 840, 460,0);
    text("=", 840, 480,0);
 
    text("orbit on/off", 880, 460,0);
    text("pan, zomm on/off", 880, 480,0);
    
  }
  
  else
  
  {
  
    translate(transX, transY);
    rotateX(rotX);
    rotateY(rotY);
    scale(zoom);
  
    if (b)
    {
      image(img, 0, 0, grid_abs-10, grid_abs-10);
    }
  
    if (current_layer < max_layers)
    {
      generate();
    }
  
  
    if (gol && current_layer == max_layers)
    {
      if (gol_new)
      {
        start_gol();
        gol_new=false;
      }
    
      else 
      {
        game_of_life();
      }
    
    }
  
  
    for (int l=0; l<current_layer; l++)
    {
      for (int j=0; j<grid_abs/gridsize; j++)
      {
        for (int i=0; i<grid_abs/gridsize; i++)
        { 
          cubes[l][i][j].show();
        }
      }  
    }
  
  }
  
} // end of draw
  






void reset_gol()
{
  //kill all cells
  
  for (int l=0; l<current_layer; l++)
  {
    for (int j=0; j<grid_abs/gridsize; j++)
    {
      for (int i=0; i<grid_abs/gridsize; i++)
      { 
        cubes[l][i][j].set_aliveness(false);
        cubes[l][i][j].set_species(0);
      }
    }
  }
  
  gol_new=true;
}




void start_gol()
{
  int h_ac = 0;
  
  // ramdom first generatation aliveness (30% of all cells)
  int [] r_layer = new int [round(sq(grid_abs/gridsize)*max_layers*.5)];
  int [] r_x = new int [round(sq(grid_abs/gridsize)*max_layers*.5)];
  int [] r_y = new int [round(sq(grid_abs/gridsize)*max_layers*.5)];
  
  for (int i=0; i<r_layer.length; i++)
  {
    r_layer[i] = int(random(1, max_layers-1));
    r_x[i] = int(random(1, (grid_abs/gridsize-1)));
    r_y[i] = int(random(1, (grid_abs/gridsize-1)));
  }
  
  // set the aliveness
  for (int i=0; i<r_layer.length; i++)
  { 
    h_ac = cubes[r_layer[i]][r_x[i]][r_y[i]].get_activity();
    
    if (h_ac==1)
    {
    cubes[r_layer[i]][r_x[i]][r_y[i]].set_aliveness(true);
    }
  }

}



void game_of_life()
{
 
  for (int l=1; l<=current_layer-1; l++)
  {
    for (int j=0; j<=grid_abs/gridsize-1; j++)
    {
      for (int i=0; i<=grid_abs/gridsize-1; i++)
      { 
         
        // cube is endless: (bodercells have their neighbour at the other side of the cube) 
    
        l0 = l-1;
        l1 = l;
        l2 = l+1;
        
        i0 = i-1;
        i1 = i;
        i2 = i+1;
        
        j0 = j-1;
        j1 = j;
        j2 = j+1;
      
      
        //infinite layer understaning (flip at the border to get the neighbours on the other side)
        if (l==0)
        {
          l0 = max_layers-1;
        }
        if (l==max_layers-1)
        {
          l2 = 0;
        }
        
        if (i==0)
        {
          i0 = grid_abs/gridsize-1;
        }
        if (i==grid_abs/gridsize-1)
        {
          i2 = 0;
        }
      
        if (j==0)
        {
          j0 = grid_abs/gridsize-1;
        }
        if (j==grid_abs/gridsize-1)
        {
          j2 = 0;
        }
          
          
        // get the situation at the neighbourcell
          
        // get aliveness of neighbourscells one layer down
        neighbours_gol[0] =  cubes[l0][i0][j0].get_aliveness();
        neighbours_gol[1] =  cubes[l0][i1][j0].get_aliveness();
        neighbours_gol[2] =  cubes[l0][i2][j0].get_aliveness();
        neighbours_gol[3] =  cubes[l0][i0][j1].get_aliveness();
        neighbours_gol[4] =  cubes[l0][i1][j1].get_aliveness();
        neighbours_gol[5] =  cubes[l0][i2][j1].get_aliveness();
        neighbours_gol[6] =  cubes[l0][i0][j2].get_aliveness();
        neighbours_gol[7] =  cubes[l0][i1][j2].get_aliveness();
        neighbours_gol[8] =  cubes[l0][i2][j2].get_aliveness();
        
        // get aliveness of neighbourscells on the same layer
        neighbours_gol[9] =  cubes[l1][i0][j0].get_aliveness();
        neighbours_gol[10] =  cubes[l1][i1][j0].get_aliveness();
        neighbours_gol[11] =  cubes[l1][i2][j0].get_aliveness();
        neighbours_gol[12] =  cubes[l1][i0][j1].get_aliveness();
        
        neighbours_gol[13] =  cubes[l1][i2][j1].get_aliveness();
        neighbours_gol[14] =  cubes[l1][i0][j2].get_aliveness();
        neighbours_gol[15] =  cubes[l1][i1][j2].get_aliveness();  
        neighbours_gol[16] =  cubes[l1][i2][j2].get_aliveness();
        
        // get aliveness of neighbourscells one layer up
        neighbours_gol[17] =  cubes[l2][i0][j0].get_aliveness();
        neighbours_gol[18] =  cubes[l2][i1][0].get_aliveness();
        neighbours_gol[19] =  cubes[l2][i2][j0].get_aliveness();
        neighbours_gol[20] =  cubes[l2][i0][j1].get_aliveness();
        neighbours_gol[21] =  cubes[l2][i1][j1].get_aliveness();
        neighbours_gol[22] =  cubes[l2][i2][j1].get_aliveness();
        neighbours_gol[23] =  cubes[l2][i0][j2].get_aliveness();
        neighbours_gol[24] =  cubes[l2][i1][j2].get_aliveness();
        neighbours_gol[25] =  cubes[l2][i2][j2].get_aliveness();  
        
        
          
        // self aliveness
        s_a = cubes[l][i][j].get_aliveness();
        
        // evaluate situation and save result for the next generation 
        helper_ac = cubes[l][i][j].get_activity();
          
        h_nextgen = rules_game_of_life (neighbours_gol, s_a);
          
          
        if (h_nextgen[0]==1 && helper_ac==1)
        {
          generation_new[l][i][j] = true;
        }
        else
        {
          generation_new[l][i][j] = false;
        }
          
        if (helper_ac==1)
        {
          generation_new_species[l][i][j] = h_nextgen[1];
        }
        else
        {
          generation_new_species[l][i][j] = 0;
        }
        
      }
    }
  }
  
  
  // kill current generation and create the new generation
  
  for (int l=0; l<current_layer; l++)
  {
    for (int j=0; j<grid_abs/gridsize; j++)
    {
      for (int i=0; i<grid_abs/gridsize; i++)
      { 
        //set new aliveness
        cubes[l][i][j].set_aliveness(generation_new[l][i][j]);
        
        //set new species
        cubes[l][i][j].set_species(generation_new_species[l][i][j]);
      }
    }
  }
  
  
}




void generate()
{
  
  for (int j=0; j<grid_abs/gridsize; j++)
  {
    for (int i=0; i<grid_abs/gridsize; i++)
    {
      
      l0 = current_layer-1;
        
      i0 = i-1;
      i1 = i;
      i2 = i+1;
        
      j0 = j-1;
      j1 = j;
      j2 = j+1;
      
      
      //finite layer understaning (flip at the border to get the neighbours on the other side)
      if (i==0)
      {
        i0 = grid_abs/gridsize-1;
      }
      if (i==grid_abs/gridsize-1)
      {
        i2 = 0;
      }
      
      if (j==0)
      {
        j0 = grid_abs/gridsize-1;
      }
      if (j==grid_abs/gridsize-1)
      {
        j2 = 0;
      }
      
      //cells with four neighbours
      neighbours[0] = cubes[l0][i1][j0].get_activity();
      neighbours[1] = cubes[l0][i2][j1].get_activity();
      neighbours[2] = cubes[l0][i1][j2].get_activity();
      neighbours[3] = cubes[l0][i0][j1].get_activity();
      
      nextgen = rules (neighbours[0], neighbours[1], neighbours[2], neighbours[3]); 
      
      if (nextgen==1)
      {
        //cell alive
        cubes[current_layer][i][j] = new CUBE(current_layer, i, j, true);   
      }
      else 
      {
        //death cells
        cubes[current_layer][i][j] = new CUBE(current_layer, i, j, false);   
      }
            
    }
  }
  
  current_layer++;
  
}



void reset_ca() 
{
  //stop and reset gol
  gol = false;
  reset_gol();

  //reset ca
  randomize_rules();
  objects=h_objects; 
  
  for (int l=1; l<current_layer; l++)
  {
    for (int j=0; j<grid_abs/gridsize; j++)
    {
      for (int i=0; i<grid_abs/gridsize; i++)
      { 
        cubes[l][i][j].set_activity(false);
      }
    }
  }
  
  current_layer=1;
   
}

    



void randomize_rules() 
{
  for (int i = 0; i < rules.length; i++) {
    rules[i] = int(random(2));
  }
  
  rules_str = "";
  
  for (int i = 0; i < rules.length; i++) 
  {
    rules_str = rules_str +str(rules[i]);
  }
  println("-------------------------------------------");
  println(rules_str);
  println("-------------------------------------------");
}
    


// rules method:


// rules game of life

int[] rules_game_of_life (int [][] n, int self[]) 
{
  int h_alive = 0;
  int h_alive_species1 = 0;
  int h_alive_species2 = 0;
  
  
  int [] return_aliveness = new int [2];
  
  return_aliveness[0]=0;
  return_aliveness[1]=0;
  
  
  // count alive and death cells
  for (int i=0; i<n.length; i++)
  {
    if (n[i][0] == 1)
    {
      h_alive++;
    }
    
    if (n[i][1] == 1)
    {
      h_alive_species1++;
    }
    
    if (n[i][1] == 2)
    {
      h_alive_species2++;
    }
    
  }
  
  
  // 1st species
  if (h_alive == 3 && self[0]==1 || h_alive == 4 && self[0]==1   ||  h_alive_species2>=6 && self[0]==0)
  {
    return_aliveness[0]=1;
  }
  if (h_alive == 4 && self[0]==0)
  {
    return_aliveness[0]=1;
  }

  if (species_evolution)
  {
  
    // 2nd species
    if (h_alive <= 4 && self[0]==1 && n[4][0] == 1 && n[21][0] == 1  ||  h_alive <= 4 && self[0]==1 && n[10][0] == 1 && n[15][0] == 1  ||  h_alive_species1>=4 && h_alive_species1<=6 && self[0]==0)
    {
      return_aliveness[0]=1;
      return_aliveness[1]=1;
    }
  
  
    // 3rd species
    if (h_alive_species1>=12 && h_alive_species1<=6 && self[1]==1  ||  h_alive_species1>=12 && h_alive_species1<=6 && self[0]==0  ||  h_alive>=19  || self[0]==1  &&  h_alive_species1==2 || self[0]==0  &&  h_alive_species2==3)
    {
      return_aliveness[0]=1;
      return_aliveness[1]=2;
    }
  
  }  
 
  return return_aliveness;
}





// rules 

int rules (int a, int b, int c, int d) 
{
    if (a == 1 && b == 1 && c == 1 && d == 1) return rules[0];
    if (a == 1 && b == 1 && c == 1 && d == 0) return rules[1];
    if (a == 1 && b == 1 && c == 0 && d == 1) return rules[2];
    if (a == 1 && b == 1 && c == 0 && d == 0) return rules[3];
    if (a == 1 && b == 0 && c == 1 && d == 1) return rules[4];
    if (a == 1 && b == 0 && c == 1 && d == 0) return rules[5];
    if (a == 1 && b == 0 && c == 0 && d == 1) return rules[6];
    if (a == 1 && b == 0 && c == 0 && d == 0) return rules[7];
    if (a == 0 && b == 1 && c == 1 && d == 1) return rules[8];
    if (a == 0 && b == 1 && c == 1 && d == 0) return rules[9];
    if (a == 0 && b == 1 && c == 0 && d == 1) return rules[10];
    if (a == 0 && b == 1 && c == 0 && d == 0) return rules[11];
    if (a == 0 && b == 0 && c == 1 && d == 1) return rules[12];
    if (a == 0 && b == 0 && c == 1 && d == 0) return rules[13];
    if (a == 0 && b == 0 && c == 0 && d == 1) return rules[14];
    if (a == 0 && b == 0 && c == 0 && d == 0) return rules[15];

    return 0;
}




void show_layout()

{ 
  textMode(SCREEN);
  PFont font;
  font = loadFont("HelveticaNeue-10.vlw"); 
  textFont(font, 10); 
  fill(120, 55, 255);
  
  textAlign(RIGHT);
  if (current_settings)
  {
    text("current settings  |x|", 1125, 27,0);
  }
  else
  {
    text("current settings", 1125, 27,0);
  }
  
  textAlign(LEFT);
  if (help)
  {
    text("help  |x|", 75, 27,0);
  }
  else
  {
    text("help", 75, 27,0);
  }
  
  
  
  
  textAlign(LEFT);
  fill(255);
  
  text("cellular automaton . developing layer "+current_layer+" of "+max_layers, 75, 15,0);
  
  if (current_layer==max_layers)
  {
    text("", 280, 15);
  }
  else
  {
    text("|...working|", 275, 15);
  }
  
  
  text("|c| . 2.5d CA . developed by .  kai franz . eth zŸrich . d_arch . prof l.hovestadt . 02.2007", 75, 585);
  
  textAlign(RIGHT);
  
  text("rules: "+rules_str, 1125, 15);
  
  text("objects: "+objects+"   .   vertices: "+objects*4, 1125, 585);
  
}




void export()
{
  beginRaw(DXF, "CA__3d_output___rules"+rules_str+".dxf");

  for (int l=0; l<current_layer; l++)
  {
    for (int j=0; j<grid_abs/gridsize; j++)
    {
      for (int i=0; i<grid_abs/gridsize; i++)
      { 
        cubes[l][i][j].show();
      }
    }
  }

  endRaw();

  // and export situation as tif  
  save("CA__3d_output___rules"+rules_str+".tif");

} // end of export




void export_tif()
{
  // export situation as tif  
  save("CA__3d_output___rules"+rules_str+".tif");

} // end of export_tif





void keyPressed() {
 
  //camera
  if (key == 'o')
  {
    if (orbit)
    {
      orbit = false;
    }
    else 
    {
      orbit = true;
    }
  }

  // CA control
  if (keyCode == TAB) reset_ca(); 
  if (keyCode == ENTER || keyCode == RETURN) reset_gol();
  
  // export control
  if (key == 'e') export();  
  if (key == 'w') export_tif();  
 
 
  // agent control
  if (key == 'g')
  {
    if (gol)
    {
      gol = false;
    }
    else 
    {
      gol = true;
    }
  }
  
  if (key == 'k')
  {
    if (autokill)
    {
      autokill = false;
    }
    else 
    {
      autokill = true;
    }
  }
  
  if (key == 'l')
  {
    if (show_livetime)
    {
      show_livetime = false;
    }
    else 
    {
      show_livetime = true;
    }
  }
  
  if (key == 'j')
  {
    if (species_evolution)
    {
      species_evolution = false;
    }
    else 
    {
      species_evolution = true;
    }
  }


  
  //show/hide
  if (key == '1') axis=0; 
  if (key == '2') axis=1;
  if (key == '3') axis=2;  
  
  if (key == 'f')
  {
    if (s_layers)
    {
      s_layers = false;
    }
    
    if (s_rules)
    {
      s_rules = false;
    }
     else 
    {
      s_rules = true;
    }
  }
  
  
  if (key == 'h')
  {
    if (s_rules)
    {
      s_rules = false;
    }
    
    if (s_layers)
    {
      s_layers = false;
    }
     else 
    {
      s_layers = true;
    }
  }
  
  if (keyCode == BACKSPACE)
  {
    if (ac_motherrule < 15)
    {
      ac_motherrule++;
    }
    else
    {
      ac_motherrule=0;
    }
    
    if (ac_layer < max_layers-1)
    {
      ac_layer++;
    }
    else
    {
      ac_layer=0;
    }
    
  }
  
  if (keyCode == UP)
  {
    if (h_alpha < 245)
    {
      h_alpha++;
    }
  }
  
  if (keyCode == DOWN)
  {
    if (h_alpha > 10)
    {
      h_alpha--;
    }
  }
  
  
  if (keyCode == RIGHT)
  {
    if (h2_alpha < 250)
    {
      h2_alpha++;
    }
  }
  
  if (keyCode == LEFT)
  {
    if (h2_alpha > 10)
    {
      h2_alpha--;
    }
  }
  
  
  
  if (key == 'd')
  {
    if (show_d)
    {
      show_d = false;
    }
    else 
    {
      show_d = true;
    }
  }
  
  if (key == 'a')
  {
    if (vis)
    {
      vis = false;
    }
    else 
    {
      vis = true;
    }
  }
  
  if (key == ',')
  {
    if (p_inactive)
    {
      p_inactive = false;
    }
    else 
    {
      p_inactive = true;
    }
  }
  
  
  if (key == '-')
  {
    if (l)
    {
      l = false;
    }
    else 
    {
      l = true;
    }
  }
  

  if (key == '.')
  {
    if (p)
    {
      p = false;
    }
    else 
    {
      p = true;
    }
  }
  
  if (key == 's')
  {
    if (s)
    {
      s = false;
    }
    else 
    {
      s = true;
    }
  }
  

  //show/hide image
  if (key == 'b')
  {
    if (b)
    {
      b = false;
    }
    else 
    {
      b = true;
    }
  }



}

void mousePressed()
{
  if (mouseX >= 70 && mouseX <= 120   &&   mouseY >= 15 && mouseY <= 40) 
  {
    if (help)
    {
      help=false;
      
      if (remember_current_settings)
      {
        current_settings=true;
      }
      
    }
    else
    {
      remember_current_settings = current_settings;
      if (remember_current_settings)
      {
        current_settings=false;
      }
      
      help=true;
    }
  }
  
  if (mouseX >= 970 && mouseX <= 1130   &&   mouseY >= 15 && mouseY <= 40) 
  {
    if (current_settings)
    {
      current_settings=false;
    }
    else
    {
      if (help)
      {
        help=false;
      }
      
      current_settings=true;
    }
  }
 
 
  if (mouseX >= 70 && mouseX <= 350   &&   mouseY >= 575 && mouseY <= 590) 
  {
    credits_alpha=80;
    credits_helper=2.5;
    credits=true;
    
  }
  
}


void mouseDragged()
{
  if(key == 'p')
  {
    orbit=false;
    
    transX += (mouseX - pmouseX);
    transY += (mouseY - pmouseY); 
    println("trans:   "+transX+" . "+transY);
 
  }
  else if(key == 'z')
  {
    orbit=false;
    
    zoom -= (mouseY - pmouseY) * .05;
    if (zoom <.05)
    {
      zoom = .05;
    }
    println("zoom:   "+zoom); 
    
  }
  else if(orbit)
  {
    
    rotX += (mouseY - pmouseY) * 0.01;
    rotY -= (mouseX - pmouseX) * 0.01;
    println("rot:   "+rotX+" . "+rotY); 
  }

  
}