<!-- Quelltextanzeige, Anleitung und Beispiel von: 
Dr. O. Hoffmann, siehe http://hoffmann.bplaced.net/hilfe.php 

Quelltext ab hier: --> 
 
<?php
# SVG mit PHP
# horizontale Bildbreite
if(isset($_GET['x'])) {
 $horizontal=$_GET['x'];
 settype ($horizontal, 'integer');
 if ($horizontal <= 0) {
   $horizontal=100;
 }
} else {
 $horizontal=100;
}
# vertikale Bildbreite
if(isset($_GET['y'])) {
 $vertikal=$_GET['y'];
 settype ($vertikal, 'integer');
  if ($vertikal <= 0) {
   $vertikal=100;
 } 
} else {
 $vertikal=100;
}
# Maßeinheit fuer x und y
if(isset($_GET['m'])) {
   $masseinheit=$_GET['m'];
   if (!(($masseinheit =="px") OR 
   ($masseinheit =="cm") OR 
   ($masseinheit =="mm")) ){
     $masseinheit ="%";
   } 
} else {
 $masseinheit="%";
}

# Anzahl der Durchläufe und Animationsdauer in Sekunden
if(isset($_GET['n'])) {
 $n=min(3000,max(100,ceil($_GET['n'])));
} else {
 $n=600;
}
# Dauer der Animation:
$dur=3*($n+1);

# Abstand
if(isset($_GET['abs'])) {
 $abs=min(2000,max(200,ceil($_GET['abs'])));
} else {
 $abs=500;
}


# Wahrscheinlichkeit spontanen Leuchtens, falls gerade nicht geleuchtet wird,
# in Promille-Werten
if(isset($_GET['wl'])) {
 $wl=min(1000,max(0,ceil($_GET['wl'])));
} else {
 $wl=1;
}


# Wieviele Nachbarn müssen mindestens leuchten, damit das Leuchten anbleibt?
if(isset($_GET['ne'])) {
 $ne=min(114,max(1,ceil($_GET['ne'])));
} else {
 $ne=5;
}


# Ab wievielen Nachbarn wird das Leuchten abgeschaltet?
if(isset($_GET['nt'])) {
 $nt=min(115,max($ne,ceil($_GET['nt'])));
} else {
 $nt=8;
}


# welcher Anteil ist anfangs an, in Promille-Werten
if(isset($_GET['wa'])) {
 $wa=min(1000,max(0,ceil($_GET['wa'])));
} else {
 $wa=300;
}

if(isset($_GET['typ'])) {
 $typ=min(5,max(1,ceil($_GET['typ'])));
} else {
 $typ=2;
}


# Interessante Kombinationen
if(isset($_GET['kombi'])) {
 $kombi=$_GET['kombi'];
} else {
 $kombi=0;
}

if ($kombi==1) {
$typ=1;
$ne=2;
$nt=3;
$wa=50;
$wl=0;
} elseif ($kombi==2) {
$typ=1;
$ne=2;
$nt=4;
$wa=50;
$wl=0;
} elseif ($kombi==3) {
$typ=1;
$ne=3;
$nt=5;
$wa=200;
$wl=0;
} elseif ($kombi==4) {
$typ=2;
$ne=3;
$nt=4;
$wa=30;
$wl=0;
} elseif ($kombi==5) {
$typ=2;
$ne=4;
$nt=6;
$wa=100;
$wl=0;
} elseif ($kombi==6) {
$typ=2;
$ne=5;
$nt=8;
$wa=300;
$wl=0;
} elseif ($kombi==7) {
$typ=2;
$ne=7;
$nt=13;
$wa=300;
$wl=0;
} elseif ($kombi==8) {
$typ=3;
$ne=3;
$nt=4;
$wa=1;
$wl=0;
} elseif ($kombi==9) {
$typ=3;
$ne=3;
$nt=9;
$wa=1;
$wl=0;
} elseif ($kombi==10) {
$typ=3;
$ne=3;
$nt=13;
$wa=1;
$wl=0;
} elseif ($kombi==11) {
$typ=3;
$ne=3;
$nt=16;
$wa=1;
$wl=0;
} elseif ($kombi==12) {
$typ=3;
$ne=16;
$nt=24;
$wa=200;
$wl=0;
} elseif ($kombi==13) {
$typ=3;
$ne=18;
$nt=36;
$wa=200;
$wl=0;
} elseif ($kombi==14) {
$typ=3;
$ne=40;
$nt=80;
$wa=200;
$wl=0;
} elseif ($kombi==15) {
$typ=3;
$ne=50;
$nt=100;
$wa=300;
$wl=0;
} elseif ($kombi==16) {
$typ=3;
$ne=58;
$nt=114;
$wa=600;
$wl=0;
} elseif ($kombi==17) {
$typ=4;
$ne=1;
$nt=2;
$wa=1;
$wl=0;
} elseif ($kombi==18) {
$typ=4;
$ne=4;
$nt=6;
$wa=100;
$wl=0;
} elseif ($kombi==19) {
$typ=4;
$ne=6;
$nt=9;
$wa=50;
$wl=0;
} elseif ($kombi==20) {
$typ=4;
$ne=9;
$nt=14;
$wa=300;
$wl=0;
} elseif ($kombi==21) {
$typ=4;
$ne=12;
$nt=24;
$wa=500;
$wl=0;
} 


# Wieviele Punkte wohin ...

# um den Faktor ist die Zeilenhöhe in y-Richtung kleiner als in x-Richtung, damit man eine
# hexagonale Anordnung erhält.
$ky=sqrt(3/4);

# Radius der Kreise
$cr=$abs/2;
# Anzahl Breite
$anx=ceil(10000/$abs);
# Breite
$breite=$abs*(2*$anx+1);
# Anzahl Höhe
$any=ceil(10000/$abs/$ky);
# Höhe
$hoehe=$abs*$ky*(2*$any);


# Feld initialisieren
for ($j = -$any; $j < $any; $j++) {
for ($k = -$anx; $k <= $anx; $k++) {

$p=mt_rand(1,100000)/100;
if ($p<=$wa) {
$z[$j][$k]=1;
$values[$j][$k]='1;';
} else {
$z[$j][$k]=0;
$values[$j][$k]='0;';
}
$zz[$j][$k]=0;

}
}

$raus='';

# n Durchläufe
for ($i = 0; $i < $n; $i++) {
for ($j = -$any; $j < $any; $j++) {


# benachbarte Punkte und Randpunkte
$jm=$j-1;
if ($jm==-$any-1) {
$jm=$any-1;
}
$jp=$j+1;
if ($jp==$any) {
$jp=-$any;
}

$jmm=$j-2;
if ($jmm==-$any-1) {
$jmm=$any-1;
} elseif ($jmm==-$any-2){
$jmm=$any-2;
}

$jpp=$j+2;
if ($jpp==$any) {
$jpp=-$any;
} elseif ($jpp==$any+1){
$jpp=-$any+1;
}


for ($k = -$anx; $k <= $anx; $k++) {
$km=$k-1;
if ($km==-$anx-1) {
$km=$anx;
}
$kp=$k+1;
if ($kp==$anx+1) {
$kp=-$anx;
}


$kmm=$k-2;
if ($kmm==-$anx-1) {
$kmm=$anx;
} elseif ($kmm==-$anx-2){
$kmm=$anx-1;
}


$kpp=$k+2;
if ($kpp==$anx+1) {
$kpp=-$anx;
} elseif ($kpp==$anx+2){
$kpp=-$anx+1;
}


#leuchten die Nachbarn?

if (($j+2*$any)%2==0) {
$pw1=$z[$jm][$kp]+$z[$jm][$k] +$z[$j][$km]+$z[$j][$kp] +$z[$jp][$kp]+$z[$jp][$k];
$pw3=$z[$jmm][$kp]+$z[$jmm][$km] +$z[$j][$kmm]+$z[$j][$kpp] +$z[$jpp][$kp]+$z[$jpp][$km];

$pw2=$z[$jmm][$k]+$z[$jpp][$k] +$z[$jm][$km]+$z[$jm][$kpp] +$z[$jp][$km]+$z[$jp][$kpp];
} else {
$pw1=$z[$jm][$km]+$z[$jm][$k] +$z[$j][$km]+$z[$j][$kp] +$z[$jp][$km]+$z[$jp][$k];
$pw3=$z[$jmm][$kp]+$z[$jmm][$km] +$z[$j][$kmm]+$z[$j][$kpp] +$z[$jpp][$kp]+$z[$jpp][$km];

$pw2=$z[$jmm][$k]+$z[$jpp][$k] +$z[$jm][$kmm]+$z[$jm][$kp] +$z[$jp][$kmm]+$z[$jp][$kp];
}

if ($typ==1) {
$pw=$pw1;
} elseif ($typ==2) {
$pw=$pw1+$pw2+$pw3;
} elseif ($typ==3) {
$pw=12*$pw1+4*$pw2+3*$pw3;
} elseif ($typ==4) {
$pw=2*$pw1+$pw2+$pw3;
}


# wenn spontan zu leuchten ist, Leuchten anschalten
$p=mt_rand(1,100000)/100;
if ($p<=$wa) {
$zz[$j][$k]=1;
}

if (($pw>=$nt) or ($pw<$ne)) {
$zz[$j][$k]=0;
} else {
$zz[$j][$k]=1;
}


}
}

for ($j = -$any; $j < $any; $j++) {
for ($k = -$anx; $k <= $anx; $k++) {

# an oder aus als Animationswert
if ($zz[$j][$k]==1) {
$values[$j][$k].='1;';
} else {
$values[$j][$k].='0;';
}

}
}

$z=$zz;

}

# hexagonale Anordnung ...
for ($j = -$any; $j < $any; $j++) {
$py=round($j*$abs*$ky);
$ox=-$abs/2*(($j+2*$any)%2);
for ($k = -$anx; $k <= $anx; $k++) {
$px=round($k*$abs+$ox);
$value=$values[$j][$k].'0';

#<title>$j $k</title>
$raus.="<circle r='$cr' cx='$px' cy='$py'>
<animate attributeName='fill-opacity' dur='$dur'
 values='$value' />
</circle>\n";


}
}

# Speicher schon mal leeren
unset($z);
unset($zz);
unset($values);

# Da das sehr effizient zu komprimieren ist:  
# Bild in Speicher schreiben
ob_start();  
  
echo "<?xml version=\"1.0\"  encoding=\"iso-8859-1\" ?> \n";
?>
<!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" 
  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">
<svg width="<?php echo $horizontal.$masseinheit ;?>" 
  height="<?php echo $horizontal.$masseinheit ;?>"
  viewBox="0 0 20000 20000"
  xmlns="http://www.w3.org/2000/svg" version="1.1"
  xmlns:xlink="http://www.w3.org/1999/xlink">
<title>Hexagonales Spiel des Lebens</title>
<desc>
In hexagonaler Anordnung sind Punkte angeordnet, die entweder hell oder dunkel sind.
Die Anordnung erfolgt jeweils mit periodischen Randbedingungen.

Analog zu Conways Spiel des Lebens richtet sich hell oder dunkel eines
Durchlaufes danach, wieviele und welche Nachbarn im vorherigen Durchlauf
hell waren. Zu viele oder zu wenige bewirken dunkel, bei einer Zahl dazwischen
ist es hell.

  Geometrische Parameter:
  x: horizontale Ausdehnung des Bildes (<?php echo $horizontal; ?>)
  y: vertikale Ausdehnung des Bildes (<?php echo $vertikal; ?>)
  m: Maßeinheit dafür, %, px, cm, mm (<?php echo $masseinheit; ?>)  

  Schwarmparameter:
  n:  Anzahl der Durchläufe und Animationsdauer in drittel Sekunden, n maximal 10000 (<?php echo $n; ?>)
  abs: Abstand zu den 6 nächsten Nachbarn, 200-2000 (<?php echo $abs; ?>) 
  
  Kriterium für hell oder dunkel bestimmt sich mit den Parametern nt, ne und typ.
  typ (<?php echo $typ; ?>) bestimmt, welche Nachbarn wie berücksichtigt werden:
  1 - die sechs nächsten Nachbarn, jeweils Gewicht 1
  2 - die achtzehn nächsten Nachbarn mit gleichem Gewicht 1
  3 - die achtzehn nächsten Nachbarn, Gewicht 
      12 jeweils für die 6 nächsten Nachbarn, 
      4 jeweils für die 6 übernächsten Nachbarn,
      3 jeweils für die 6 Nachbarn, die darauf folgen.
  4 - Gewicht 2 für die nächsten 6 Nachbarn, Gewicht 1 für die übernächsten 12
      
  Ist die Summe der Gewichte der Nachbarn gleich nt (<?php echo $nt; ?>) oder größer, 
  so wird es dunkel.
  Ist die Summe der Gewichte der Nachbarn kleiner als ne (<?php echo $ne; ?>), 
  so wird es  ebenfalls dunkel.
  Dazwischen wird es hell.

  wl: Wahrscheinlichkeit spontanen Leuchtens, falls gerade nicht geleuchtet wird, 
      in Promille-Werten, maximal zwei Nachkommastellen, 0-1000 (<?php echo $wl; ?>)
  wa: Welcher Anteil ist anfangs an, in Promille-Werten, maximal zwei Nachkommastellen, 0-1000 (<?php echo $wa; ?>)
  
  kombi: Interessante Kombinationen, überschreibt Schwarmparameter ne, nt, typ, wl und wa, 1-21 (<?php echo $kombi; ?>)
  
  
</desc>
<defs>
<g id="g" fill="#a4f" fill-opacity="0.1">

<?php echo $raus; ?>
</g>
</defs>
<rect x="-50000" y="-50000" width="100000" height="100000" fill="black" /> 

<use xlink:href="#g" />
<use xlink:href="#g" x="<?php echo $breite; ?>" />
<use xlink:href="#g" x="<?php echo $breite; ?>" y="<?php echo $hoehe; ?>" />
<use xlink:href="#g" y="<?php echo $hoehe; ?>" />

  <!-- 
  Anleitung und Beispiel von: 
  Dr. O. Hoffmann, siehe http://hoffmann.bplaced.net/hilfe.php
  -->
</svg>


<?php
# Daten in Speicher lesen:
$data=ob_get_contents(); 
# Speicher leeren:
ob_clean();

# SVG-header senden:
  $content="Content-type: image/svg+xml";
  header($content);
  
# Daten komprimieren:
$gzipdata = gzencode($data, 9);
$data="";
# gzip-Daten raushauen:
header("Content-encoding: gzip");
echo $gzipdata ; 
  
  
?>