<?
// ************************************************************************
// *   Dynamicky generovan² graf-obrßzek                                  *
// *   WWW      http://chweb.host.sk                                      *
// *   E-mail   jan.chmelik@atlas.cz                                      *
// ************************************************************************

Header("Content-type: image/gif");  //POZOR hlaviΦka
$sirkaobr=450;   //Üφ°ka obrßzku
$vyskaobr= 160;  //v²Üka obrßzku
$spodek = 25;    //vzdßlenost od spodnφ hrany
$p_sloupcu=12;   //poΦet sloupc∙
$sloupec=20;     //Üφ°ka sloupce

$image = imagecreate($sirkaobr,$vyskaobr);           //vytvo°enφ obr.
$orange = ImageColorAllocate($image, 230, 150, 0);   //definice barev
$black = ImageColorAllocate($image,   0,   0, 0);          
$red = ImageColorAllocate($image,   200, 0, 0);

imagestring ($image, 5, 10, 8, "Graf nßvst∞vnosti strßnek", $red); //nadpis

for ($j=1;$j<=$p_sloupcu;$j++){

	$i=$j*35-15;
	$hodnota=rand(5,100);    //v²poΦet nßhodn²ch Φφsel
	
	//nakreslenφ obdΘlnφku a jeho nßslednΘ vypln∞nφ bravou
	ImageRectangle ($image,$i,$vyskaobr-$spodek,$i+$sloupec,
                        $vyskaobr-$spodek-$hodnota, $black);

	ImageFilltoBorder($image,$i+2,$vyskaobr-$spodek-2,
                          $black, $black);
	
	//p°ipsßnφ Φ. m∞sφce a hodnoty nad sloupec
	imagestring ($image, 3, $i+3,$vyskaobr-$spodek+5, $j, $black);
	imagestring ($image, 2, $i+6,$vyskaobr-$spodek-$hodnota - 15,
                     $hodnota, $black);
}


ImageGif($image);    //vykreslenφ obrßzku
ImageDestroy($image);
?>