// DVD opløsning (720x576 pixels)
// Kan også gå i diagonaler 
// Længden på et trin kan også mutere
// Tegner med kurver (curveVertex i stedet for Vertex)

// 2005 Mogens Jacobsen



void setup()
{
  //noLoop();
  size(720,576);
  background( 240, 240, 240);
}

void draw() 
{
int step = 15;
  int x= width/2;
  int y= height/2;

  // Hvor ofte skal en mutation indtræffe? (sandsynlighed i promille)
  int muterprocent = 5;

  // Visuel historik: ------------------------------------
  // Vi tegner en transparent kasse over det gamle billede
  fill(240, 240, 240, 50);
  rect(0,0,width,height);
  fill(255,255,255);
  //-------------------------------------------------------


  // Vi laver et sprog med 4 mulige instrukser
  // O = Op, N = Ned, H = Højre, V=Venstre
  String[] alfabet = new String[14];
  alfabet[0] = "O";
  alfabet[1] = "N";
  alfabet[2] = "H";
  alfabet[3] = "V";
  alfabet[4] = ""; //denne fjerner et tegn fra sætningen!
  alfabet[5] = ""; //gentages for at der er lige sandsynlighed for at blive lang og kort
  alfabet[6] = "HN";
  alfabet[7] = "VO";
  alfabet[8] ="+"; //lad steplængden vokse
   alfabet[9] ="-"; //lad steplængden mindskes
   alfabet[10] = "A"; // de 4 diagonele retninger
   alfabet[11] = "B";
   alfabet[12] = "C";
   alfabet[13] = "D";
  

  // Hent genotypen ind fra filen "dna.txt"
  String DNA[] = loadStrings("dna.txt"); 
  int DNAantal = DNA[0].length(); 



  beginShape(POLYGON); 
  
  for (int i=0; i<DNAantal; i++)
  { 
    char instruks = DNA[0].charAt(i); 


    if (instruks ==  alfabet[0].charAt(0) ) //OP
    {

      x=x;
      y=y-step;
    }

    if (instruks ==  alfabet[1].charAt(0) ) //Højre
    {
      x=x+step;
      y=y;
    }

    if (instruks ==  alfabet[2].charAt(0) ) //Ned
    {
      x=x;
      y=y+step;
    }

    if (instruks ==  alfabet[3].charAt(0) ) //Venstre
    {
      x=x-step;
      y=y;
    }
    
      if (instruks ==  alfabet[10].charAt(0) ) //diagonal op/tv
    {
      x=x-int(sqrt(step)); 
      y=y-int(sqrt(step)); 
    }
          if (instruks ==  alfabet[11].charAt(0) ) //diagonal
    {
      x=x+int(sqrt(step)); 
      y=y-int(sqrt(step)); 
    }
          if (instruks ==  alfabet[12].charAt(0) ) //diagonal 
    {
      x=x+int(sqrt(step)); 
      y=y+int(sqrt(step)); 
    }
          if (instruks ==  alfabet[10].charAt(0) ) //diagonal 
    {
      x=x-int(sqrt(step)); 
      y=y+int(sqrt(step)); 
    }
    
        if (instruks ==  alfabet[8].charAt(0) ) //Step gror
    {
      step=step+2;
    }
            if (instruks ==  alfabet[9].charAt(0) ) //Step mindskes
    {
      step=step-2;
    }

    curveVertex(x,y);
  }
  endShape(); 


  // så vil vi mutere! ----------------------------------
  String muteretDNA = "";
  for (int i=0; i<DNAantal; i++)
  {
    if (int(random(1000))>muterprocent)
    {
      // tegnet kopieres uændret
      muteretDNA =muteretDNA + DNA[0].charAt(i) ;
    }
    else
    {
      // tegnet muterer
      muteretDNA =muteretDNA + alfabet[int(random(14))] ;
    }
  }
    DNA[0]= muteretDNA;
    
  //-------------------------------------------------------
  
  // Skal der komme et REWRITING SYSTEM in her? -----------
  //-------------------------------------------------------
  
  //saveFrame();
  

  // den nye genotype gemmes i filen "dna.txt"
  saveStrings("dna.txt", DNA);

}