//Tegneprogram der følger en instruks-sætning
//Svært inspireret af Turtle Graphics / "LOGO"
//Denne version er med mange kommentarer inde i koden
// 2005 Mogens Jacobsen

void setup()
{
  noLoop();
  size(200,200);
  background(255);
  fill(200);
}

void draw() 
{
  // Vi starter i midten af skærmen
  int x= width/2;
  int y= height/2;

  // Vi laver et sprog med 4 mulige instrukser
  // O = Op, N = Ned, H = Højre, V=Venstre
  // Sætningen (som vi kalder DNA) udgør vores instrukssæt, vores genotype
  String DNA = "OHNVVVOHNHNNVOH";
  
  //Programmet skal vide hvor mange tegn, der er i sætningen
  int DNAantal = DNA.length(); 

  // Alt det efterfølgende skal betragtes som een figur
  beginShape(POLYGON); 
  
  // Vi går gennem sætningen "DNA" fra første til sidste bogstave. Een plads ad gangen.
  for (int i=0; i<DNAantal; i++)
  { 
    // Programmet læser instruksen (bogstavet) på plads nr "i" i sætningen "DNA"
    char instruks = DNA.charAt(i); 

    if (instruks == 'O' ) //OP
    {
      x=x;
      y=y-10;
    }

    if (instruks == 'H' ) //Højre
    {
      x=x+10;
      y=y;
    }

    if (instruks == 'N' ) //Ned
    {
      x=x;
      y=y+10;
    }

    if (instruks == 'V' ) //Venstre
    {
      x=x-10;
      y=y;
    }
    
    // Det nye punkt afsættes
    vertex(x,y);
  }
  // Her slutter figuren. Nu kan programmet tegne figuren på skærmen.
  endShape(); 
}

//Dette var det rudimentære program
//Prøv at ændre i DNA-sætningen. Een lille ændring i genotypen kan give sig voldsomt udtryk i fænotypen.
//TO DO NEXT? - Ideer?
//Kunstig evolution: Flere figurer tegnes med lille variantion i genotypen. Vi vælger den vi bedst kan lide til at gå videre i næste generation.
//Parre 2 figurer: Deres genotype blandes. Næste generation fødes.