";
$aktfile = "/hsphere/local/home/umwelt/cug.umweltnetz.ch/bildchen/farb13/farbdaten.txt";
if (file_exists($aktfile))
{
if ($datei = fopen ($aktfile, "r"))
{
$xx=0;
while (!feof ($datei))
{
$zeile = fgetcsv ($datei, 100);
$xx=$xx+1;
$werte[$xx][0] = $zeile[0]; //filenam
$werte[$xx][1] = $zeile[1]; //1:dunkle schrift, 2: helle schrift
}
fclose ($datei);
$farbmax = $xx;
}
} else
{
echo "Datei $aktfile nicht vorhanden";
}
//echo $farbmax." Farben
";
//flush();
$hraster = 7;
$vraster = 7;
// auswahlarray füllen
for ($auswr=1;$auswr<=$farbmax;$auswr++) {
$auswrast[$auswr]=0;
} // ende auswahlraster füllen
// raster mit bildchennummer füllen
for ($mm=1;$mm<=$hraster;$mm++) {
for ($nn=1;$nn<=$vraster;$nn++) {
//noch nicht benutztes bildchen suchen
$bildsuch=0;
do {
$randfeld=mt_rand(1,$farbmax);
if ($auswrast[$randfeld] != 1) {
$bilddarst[$mm][$nn]=$randfeld;
$auswrast[$randfeld]=1;
$bildsuch=1;
}
} while ($bildsuch != 1);
//echo $werte[$bilddarst[$mm][$nn]][0]."
";
} //ende $nn
} //ende $mm
// ab hier grafik
//A4-Format
$bildh = 7*150;
$bildv = 7*150;
$image = imagecreatetruecolor($bildh, $bildv);
$bchenh=150;
$bchenv=150;
$fakth= $bildh/($bchenh*$hraster);
$faktv= $bildv/($bchenv*$vraster);
$bchh1 = ceil($bchenh*$fakth);
$bchv1 = ceil($bchenv*$faktv);
//echo "fakth faktv: ".$fakth." ".$faktv."
";
//echo "bchh1 bchv1: ".$bchh1." ".$bchv1."
";
for ($mm=1;$mm<=$hraster;$mm++) {
for ($nn=1;$nn<=$vraster;$nn++) {
$xpos = round(($mm-1) * $bchenh * $fakth);
$ypos = round(($nn-1) * $bchenv * $faktv);
$bildnam = "farb13/".$werte[$bilddarst[$mm][$nn]][0];
$imageo = imagecreatefromjpeg($bildnam);
imagecopyresized ($image, $imageo, $xpos, $ypos, 0, 0, $bchh1, $bchv1, $bchenh, $bchenv);
//echo $xpos." ".$ypos." ".$bchh1." ".$bchv1." ".$bchenh." ".$bchenv." ".$bildnam."
";
//buchstabe schreiben
$sabst=8;
if ($wobuch[$mm][$nn] != 0) {
$buchstakt=$wobuch[$mm][$nn];
for ($oo=0;$oo<=5;$oo++) {
for ($pp=0;$pp<=strlen($bchst[$buchstakt][$oo]);$pp++) {
$xposb = $xpos+12+$pp*$sabst;
$yposb = $ypos+12+$oo*$sabst;
//punkt ja/nein
$puakt=substr($bchst[$buchstakt][$oo],$pp,1);
//punkt darstellen
if ($puakt==1) {
$farbpunkt = imagecolorallocate($image, 85, 85, 85);
if ($werte[$bilddarst[$mm][$nn]][1] ==2) $farbpunkt = imagecolorallocate($image,220,220,220);
//echo $xpos."/".$ypos.": ".$scwrr[$pupu]." ".$scwgg[$pupu]." ".$scwbb[$pupu]."
";
imagefilledellipse ( $image , $xposb , $yposb , 1.2*$sabst, 1.2*$sabst , $farbpunkt );
}
} //for pp
} //end loop zeilen buchstabe
} //ende buchstaben
} //for nn
} //for mm
imagejpeg($image);
imagedestroy($image);
//echo "Schluss des Scripts
";
?>