<!-- 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=($n+1);

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


# Leuchtdaucer
if(isset($_GET['ld'])) {
 $ld=min(100,max(0,ceil($_GET['ld'])));
} else {
 $ld=4;
}

# minimale Pause nach Leuchten
if(isset($_GET['pd'])) {
 $pd=min(100,max(0,ceil($_GET['pd'])));
} else {
 $pd=4;
}


# 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, um eigenes Leuchten zu induzieren
if(isset($_GET['nb'])) {
 $nb=min(48,max(1,ceil($_GET['nb'])));
} else {
 $nb=12;
}

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


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

if ($kombi==1) {
# Nachbarn
$nb=15;
# Leuchtdauer
$ld=9;
# Pause
$pd=15;
# spontan
$wl=0;
# Start
$wa=100;
} elseif ($kombi==2) {
# Nachbarn
$nb=7;
# Leuchtdauer
$ld=4;
# Pause
$pd=5;
# spontan
$wl=0;
# Start
$wa=10;
} elseif ($kombi==3) {
# Nachbarn
$nb=10;
# Leuchtdauer
$ld=8;
# Pause
$pd=10;
# spontan
$wl=0;
# Start
$wa=100;
} elseif ($kombi==4) {
# Nachbarn
$nb=17;
# Leuchtdauer
$ld=8;
# Pause
$pd=6;
# spontan
$wl=0;
# Start
$wa=100;
} elseif ($kombi==5) {
# Nachbarn
$nb=19;
# Leuchtdauer
$ld=9;
# Pause
$pd=3;
# spontan
$wl=0;
# Start
$wa=300;
} 


# Leuchtdauer und Pause gleich Gesamtdauer
$gd=$ld+$pd;


# 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;
$w[$j][$k]=mt_rand(1,$ld);
$values[$j][$k]='1;';
} else {
$z[$j][$k]=0;
$w[$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;
}


if ($w[$j][$k]==0) {
#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];
}
$pw=1*$pw1+3*$pw2+4*$pw3;

# wenn genug Nachbarn leuchten oder spontan zu leuchten ist, Leuchten anschalten
$p=mt_rand(1,100000)/100;
if (($pw>=$nb) or ($p<=$wl)) {
$zz[$j][$k]=1;
}

}


}
}

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

# falls es leuchtet oder pausiert hochzählen
if (($zz[$j][$k]==1) OR ($w[$j][$k]>0)) {
$w[$j][$k]=$w[$j][$k]+1;
} 

# falls Leuchtdauer zuende:
#if (($w[$j][$k]<$gd) AND ($w[$j][$k]>0)) {
#  $w[$j][$k]=$w[$j][$k]+1;
  if ($w[$j][$k]>$ld) {
    $zz[$j][$k]=0;
  }
#} 

# falls Gesamtdauer zuende
if ($w[$j][$k]>=$gd){
  $w[$j][$k]=0;
  $zz[$j][$k]=0;
}

# 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($w);
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>Leuchtschwarm</title>
<desc>
In hexagonaler Anordnung sind Punkte angeordnet, die entweder hell oder dunkel sind.
Die Anordnung erfolgt jeweils mit periodischen Randbedingungen.
Dies simuliert grob eine Kolonie von Leuchtkäfern, von denen jeder nur endlich lang
leuchten kann und danach eine Pause braucht. 
Ein Käfer entscheidet entweder spontan, daß er leuchten will, oder er richtet sich
nach seinen 24 nächsten Nachbarn. 
Beides nur, wenn er gerade nicht leuchtet oder keine Pause nach dem Leuchten einlegen muß.
Die Abhängigkeit von den Nachbarn wird mit dem Abstandsquadrat gewichtet,
für die 6 nächsten Nachbarn gibt es jeweils einen Gewichtungspunkt, für die nächsten 6 gibt
es 3 Gewichtungspunkte und für die nächsten 6 dann 4 Gewichtungspunkte.

Durch die Pausen und die Verzögerung hängt es nun stark von diesen Parametern ab und
davon, wieviele Nachbarn leuchten müssen, damit ein Käfer selbst anfängt zu leuchten,
wie sich die Situation entwickelt, die mit einer zufälligen Verteilung von leuchtenden 
oder nicht leuchtenden Käfern beginnt.

  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 Sekunden, n maximal 10000 (<?php echo $n; ?>)
  abs: Abstand zu den 6 nächsten Nachbarn, 200-2000 (<?php echo $abs; ?>) 
  
  ld: Leuchtdauer in Sekunden, 0-100 (<?php echo $ld; ?>)
  pd: Minimale Pause nach dem Leuchten, 0-100 (<?php echo $pd; ?>)
  wl: Wahrscheinlichkeit spontanen Leuchtens, falls gerade nicht geleuchtet wird, 
      in Promille-Werten, maximal zwei Nachkommastellen, 0-1000 (<?php echo $wl; ?>)
  nb: Wieviele Nachbarn müssen mindestens leuchten, um eigenes Leuchten zu induzieren, Gewichtungspunkte 1-48 (<?php echo $nb; ?>)
  wa: Welcher Anteil ist anfangs an, in Promille-Werten, maximal zwei Nachkommastellen, 0-1000 (<?php echo $wa; ?>)
  
  kombi: Interessante Kombinationen, überschreibt Schwarmparameter nb, ld, pd, wl und wa, 1-5 (<?php echo $kombi; ?>)
  
  
</desc>
<defs>
<g id="g" fill="#80a" 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 ; 
  
  
?>