<?
session_start();
mysql_Connect("localhost","adm3mars","KaizNiqw")or die("Nelze se připojit k MySQL: ". mysql_error());
mysql_select_db("3marsenzor") or die("Nelze vybrat databázi: ". mysql_error());
// tady mame pripojeni k databazi

/* první dotaz, kterým zjistím počet údajů, maximální a minimální hodnoty */
@$vysledek = mysql_query("select count(*)"
                        .",max(osvetleni)"
                        .",min(osvetleni)"
                        .",max(teplota)"
                        .",min(teplota)"
                        .",max(proud)"
                        .",min(proud)"
                        .",max(length(cas))"
                        ." from senzor1");
if (!$vysledek) exit;

$mezni_hodnoty = mysql_fetch_row($vysledek); // výsledek převedeme do pole 
$min = ceil($mezni_hodnoty[2]); // zjistime minimalni hodnotu osvetleni 
$max = ceil($mezni_hodnoty[1]); // zjistime maximalni hodnotu osvetleni
$min2 = ceil($mezni_hodnoty[4]); // zjistime minimalni hodnotu teploty
$max2 = ceil($mezni_hodnoty[3]); // zjistime maximalni hodnotu teploty
$min3 = ceil($mezni_hodnoty[6]); // zjistime minimalni hodnotu proudu
$max3 = ceil($mezni_hodnoty[5]); // zjistime maximalni hodnotu proudu


$pocet_hodnot = 36; // pocet hodnot grafu 
$cislic_osy_x = $mezni_hodnoty[7]-6; //přičtu ještě 2 znaky navíc 

$sirka_obrazku = 600; // standardní šířka výsledného obrázku 
$vyska_obrazku = 400; // standardní výška výsledného obrázku 
$horni_okraj   = 5;  // horní okraj grafu
$fontsize      =  1;  // velikost použitého fontu
$nazev_osy_y   = 'Hodnota'; 
$nazev_osy_x   = 'Čas';

$delka_vzorku_legendy = 10;
$nazev_krivky_1 = "Osvetleni";
$nazev_krivky_2 = "Teplota";
$nazev_krivky_3 = "Proud [mA]";

// překontroluji si, zda je šířka nastavena zvenku, pomocí parametrů
if (IsSet($sirka))
  $sirka_obrazku = $sirka;
if (IsSet($vyska))
  $vyska_obrazku = $vyska;

//vypočítám šířku pravého okraje grafu
$pravy_okraj = $delka_vzorku_legendy + (ImageFontWidth($fontsize) 
  * (2 + max(strlen($nazev_krivky_1), strlen($nazev_krivky_2),strlen($nazev_krivky_3), strlen($nazev_osy_x))));

// zjistím a nastavím levý okraj grafu
$cislic_osy_y = 14;

$bod0_x1 = 69; //poloha y-ové osy
$bod0_x2 = 46; //poloha y-ové osy
$bod0_x3 = 27; //poloha y-ové osy

// nastavím spodní okraj grafu
$bod0_y = ImageFontWidth($fontsize)*$cislic_osy_x; //poloha x-ové osy

// vytvořím prázdný obrázek
$im = ImageCreate($sirka_obrazku, $vyska_obrazku); 

// nadefinuji si barvy, ktere budu potřebovat
$bila    = ImageColorAllocate($im, 255, 255, 255); 
$cerna   = ImageColorAllocate($im, 0, 0, 0); 
$cervena = ImageColorAllocate($im, 255, 0, 0);
$zelena  = ImageColorAllocate($im, 0, 255, 0);
$modra   = ImageColorAllocate($im, 0, 0, 255);

//nakreslím osu x
ImageLine($im, $bod0_x1-1, $vyska_obrazku-$bod0_y, $sirka_obrazku-$pravy_okraj, $vyska_obrazku-$bod0_y, $cerna);
//nakreslím osu y
ImageLine($im, $bod0_x1, $vyska_obrazku-$bod0_y+1, $bod0_x1, $horni_okraj, $cervena);
ImageLine($im, $bod0_x2, $vyska_obrazku-$bod0_y+1, $bod0_x2, $horni_okraj, $zelena);
ImageLine($im, $bod0_x3, $vyska_obrazku-$bod0_y+1, $bod0_x3, $horni_okraj, $modra);

//nejprve si spočítám, kolik asi popisek osy y se mi na výšku vejde
$pocet_popisek_osy_y = round(($vyska_obrazku - $bod0_y - $horni_okraj) / (2 * ImageFontHeight($fontsize)));
//podle toho spočítám krok osy y
$krok_hodnot_osy_y = ceil(($max-$min)/($pocet_popisek_osy_y));
$krok_hodnot_osy_y2 = ceil(($max2-$min2)/($pocet_popisek_osy_y));
$krok_hodnot_osy_y3 = ceil(($max3-$min3)/($pocet_popisek_osy_y));

//vypočítám převodní koeficient osy y
$koeficient_y = 0.25;
$koeficient_y2 = 6.00;
$koeficient_y3 = 0.035;

// vypíši hodnoty osy y
for ($i=$min;$i<=$max; $i+=$krok_hodnot_osy_y)
{
  $pomy = $vyska_obrazku - $bod0_y - (($i-$min) * $koeficient_y);
  // ryska na ose y
  ImageLine($im, $bod0_x1-2, $pomy, $bod0_x1+1, $pomy, $cervena);

  // popiska rysky na ose y
  ImageString($im, $fontsize, 0, $pomy-round(ImageFontHeight($fontsize)/2), 
              str_pad($i, $cislic_osy_y-1, " ", STR_PAD_LEFT),
              $cervena);
}
for ($i=$min2;$i<=$max2; $i+=$krok_hodnot_osy_y2)
{
  $pomy = $vyska_obrazku - $bod0_y - (($i-$min2) * $koeficient_y2);
  // ryska na ose y
  ImageLine($im, $bod0_x2-2, $pomy, $bod0_x2+1, $pomy, $zelena);

  // popiska rysky na ose y
  ImageString($im, $fontsize, 0, $pomy-round(ImageFontHeight($fontsize)/2), 
              str_pad($i, $cislic_osy_y-5, " ", STR_PAD_LEFT),
              $zelena);
}
for ($i=$min3;$i<=$max3; $i+=$krok_hodnot_osy_y3)
{
  $pomy = $vyska_obrazku - $bod0_y - (($i-$min3) * $koeficient_y3);
  // ryska na ose y
  ImageLine($im, $bod0_x3-2, $pomy, $bod0_x3+1, $pomy, $modra);

  // popiska rysky na ose y
  ImageString($im, $fontsize, 0, $pomy-round(ImageFontHeight($fontsize)/2), 
              str_pad($i, $cislic_osy_y-9, " ", STR_PAD_LEFT),
              $modra);

}   
// a ještě vypíši název osy y
ImageString($im, $fontsize, 0, $horni_okraj, 
            str_pad($nazev_osy_y, $cislic_osy_y-1, " ", STR_PAD_LEFT),
            $cerna);

//vypočítám převodní koeficient osy x
$koeficient_x = floor(($sirka_obrazku - $bod0_x1 - $pravy_okraj) / $pocet_hodnot);

//zjistím si, jak budu vypisovat popisky osy x
$pocet_popisek_osy_x = $sirka_obrazku / (ImageFontHeight($fontsize) * 2);
if ($pocet_popisek_osy_x > $pocet_hodnot)
  $interval_popisek_x = 1; //budu zobrazovat popisku každé hodnoty osy x
else
  //budu zobrazovat popisky pouze určitých hodnot osy x
  $interval_popisek_x = ceil($pocet_hodnot / $pocet_popisek_osy_x); 

//provedu dotaz do databáze, na hodnoty grafu
$datum=$_SESSION["rok"]."-".$_SESSION["mesic"]."-".$_SESSION["den"];
#@$vysledek = mysql_query("select id, cas, proud, teplota, osvetleni"
#                          ." from senzor1 "  
#                          ." where date(cas) = CURDATE() and id%6 = 0" //where cas = CURRENT_DATE()
#                          ." order by id");
@$vysledek = mysql_query("select id, cas, proud, teplota, osvetleni"
                          ." from senzor1 "
                          ." where date(cas) = '$datum' and id%6 = 0" 
                          ." order by id");
if (!$vysledek):
{ // mám smůlu, nepodařilo se mi získat data z tabulky
  // vypíšu o tom do obrázku zprávu
  ImageString($im, $fontsize, $bod0_x1+5, $horni_okraj, 
            "Nepodařilo se přečíst hodnoty grafu z tabulky",
            $cerna);
}
else:
{
  $pocet = mysql_NumRows($vysledek);
  if ($pocet_hodnot > $pocet)
    $pocet_hodnot = $pocet;    // kdyby mezitim nahodou nekdo nejaky udaj vymazal

  //vypisu prvni popisku osy x
  ImageStringUp($im, $fontsize, $bod0_x1-round(ImageFontHeight($fontsize)/2), $vyska_obrazku, 
            str_pad(date("G:i:s",strtotime(mysql_result($vysledek, 0, "cas"))), $cislic_osy_x-1, " ", STR_PAD_LEFT),
            $cerna);

  $posledni_x = $bod0_x1;
  $posl_y_osvetleni = $vyska_obrazku - $bod0_y - ((mysql_result($vysledek, 0, "osvetleni") - $min) * $koeficient_y);
  $posl_y_teplota = $vyska_obrazku - $bod0_y - ((mysql_result($vysledek, 0, "teplota") - $min2) * $koeficient_y2);
  $posl_y_proud = $vyska_obrazku - $bod0_y - ((mysql_result($vysledek, 0, "proud") - $min3) * $koeficient_y3);

  $i = 1;
  while ($i<$pocet_hodnot):
    // vypočítám x polohu této hodnoty grafu
    $pom_x = ($i * $koeficient_x) + $bod0_x1;
    // vypočítám y polohu obou hodnot
    $pom_y_osvetleni = $vyska_obrazku - $bod0_y - ((mysql_result($vysledek, $i, "osvetleni") - $min) * $koeficient_y);
    $pom_y_teplota = $vyska_obrazku - $bod0_y - ((mysql_result($vysledek, $i, "teplota") - $min2) * $koeficient_y2);
    $pom_y_proud = $vyska_obrazku - $bod0_y - ((mysql_result($vysledek, $i, "proud") - $min3) * $koeficient_y3);

    //nakreslím křivky od minulého k tomuto bodu
    ImageLine($im, $posledni_x, $posl_y_osvetleni, $pom_x, $pom_y_osvetleni, $cervena);
    ImageLine($im, $posledni_x, $posl_y_teplota, $pom_x, $pom_y_teplota, $zelena);
    ImageLine($im, $posledni_x, $posl_y_proud, $pom_x, $pom_y_proud, $modra);

    // vykreslím rysku na ose x
    ImageLine($im, $pom_x, $vyska_obrazku - $bod0_y + 2, 
                   $pom_x, $vyska_obrazku - $bod0_y - 2, $cerna);

    // vypíšu popisku osy x
    if (round($i/$interval_popisek_x) == ($i/$interval_popisek_x))
      ImageStringUp($im, $fontsize, $pom_x - round(ImageFontHeight($fontsize)/2), $vyska_obrazku, 
                    str_pad(date("G:i:s",strtotime(mysql_result($vysledek, $i, "cas"))), $cislic_osy_x-1, " ", STR_PAD_LEFT),
                    $cerna);

    // nastavím současné hodnoty jako minulé
    $posledni_x = $pom_x;
    $posl_y_osvetleni = $pom_y_osvetleni;
    $posl_y_teplota = $pom_y_teplota;
    $posl_y_proud = $pom_y_proud;

    $i++;
  endwhile;
  
  //vypíši název osy x
  ImageString($im, $fontsize, $sirka_obrazku - $pravy_okraj, $vyska_obrazku-$bod0_y + 5, 
            $nazev_osy_x, $cerna);

  $pom_x = $sirka_obrazku - $pravy_okraj;
  //vypíši legendu pro osvetleni
  ImageString($im, $fontsize, $pom_x + $delka_vzorku_legendy + ImageFontWidth($fontsize), 
              $horni_okraj, $nazev_krivky_1, $cerna);
  //vzorek pro legendu
  $pom_y = $horni_okraj + round(ImageFontHeight($fontsize)/2);
  ImageLine($im, $pom_x, $pom_y, $pom_x + $delka_vzorku_legendy, $pom_y, $cervena);
  
  //vypíši legendu pro teplotu
  ImageString($im, $fontsize, $pom_x + $delka_vzorku_legendy + ImageFontWidth($fontsize), 
              $horni_okraj + (ImageFontHeight($fontsize) * 2), $nazev_krivky_2, $cerna);
  //vzorek pro legendu
  $pom_y += + (ImageFontHeight($fontsize) * 2);
  ImageLine($im, $pom_x, $pom_y, $pom_x + $delka_vzorku_legendy, $pom_y, $zelena);

  //vypíši legendu pro proud
  ImageString($im, $fontsize, $pom_x + $delka_vzorku_legendy + ImageFontWidth($fontsize), 
              $horni_okraj + (ImageFontHeight($fontsize) * 4), $nazev_krivky_3, $cerna);
  //vzorek pro legendu
  $pom_y += + (ImageFontHeight($fontsize) * 2);
  ImageLine($im, $pom_x, $pom_y, $pom_x + $delka_vzorku_legendy, $pom_y, $modra);

}
endif;
mysql_Close();

ImageGIF($im);
?>