1000)){
$dur=10;
}
$durum=27.21222*$dur;
# Anzahl der Animationsstuecke
$anz=35;
# Richtung des Zentrumnaechsten Punktes
$alpha=mt_rand(0,359);
# Exzentrizitaet:
$exz=0.0549;
# Halbachsen
$aha=406.74;
$bha=$aha*sqrt(1-$exz*$exz);
# Massenanteil 1 und 2
$masse1=0.0121506;
$masse2=1-$masse1;
# Radien und Muster
$rad1=1.738;
$rad2=6.378;
$rade1=6.378*0.9;
$rade2=6.378*1.1;
$re1=3.0;
$re2=2.0;
$re=2.0;
$rm1=.8;
$ra1=.5;
$rm2=.4;
$ra2=-.6;
# valuestring und keyTimes
$keyTimes="";
$values1 ="";
$values2 ="";
$einzelpunkte="";
# values berechnen
for ($j = 0; $j <= $anz; $j++) {
$xi=2*M_PI*$j/$anz;
$keyt=min(1,round(($xi - $exz*sin($xi))/(2*M_PI),5));
$x=round($aha *(cos($xi) - $exz),2);
$y=round($bha*sin($xi),2);
$rx1=$masse2*$x;
$ry1=$masse2*$y;
$rx2=-$masse1*$x;
$ry2=-$masse1*$y;
$weg1="$rx1, $ry1";
$weg2="$rx2, $ry2";
if ($j == $anz) {
$values1 .="$weg1 \n";
$values2 .="$weg2 \n";
$keyTimes .="$keyt \n";
} else {
$values1 .="$weg1; \n";
$values2 .="$weg2; \n";
$keyTimes .="$keyt; \n";
}
$einzelpunkte .="\n";
$einzelpunkte .="\n";
}
# svg-header senden:
$content="Content-type: image/svg+xml";
header($content);
# xml-Zeile ausgeben
echo "";
# und jetzt das Dokument
?>