<?php

//  Climogram. Site general climate info.
//  Coded by Luis Gil. http://meteo.aerolugo.com

//where are your clientraw*-files relative to where this file is
$hostloc = "../";

include ("../jpgraph-1/src/jpgraph.php");
include ("../jpgraph-1/src/jpgraph_line.php");
include ("../jpgraph-1/src/jpgraph_bar.php");


$clientraw = get_raw("${hostloc}clientraw.txt");
$clientrawextra = get_raw("${hostloc}clientrawextra.txt");
$clientrawdaily = get_raw ("${hostloc}clientrawdaily.txt");
$wxdata = get_raw("${hostloc}wx2.html");

//read the clientraw*-files we need
function get_raw( $rawfile ) {
	$rawdata = array();
	$fd = fopen($rawfile, "r");
	if ($fd) {
		$rawcontents = '';
		while (! feof ($fd) ) {
			$rawcontents .= fread($fd, 8192);
		}
		fclose($fd);
		$delimiter = "|";
		$rawdata = explode ($delimiter, $rawcontents);
	} else {
		$rawdata[0]= -9999;
	}
	return $rawdata;
}

// avg month temp   ==========================================================
$y = array($wxdata['0'],$wxdata['1'],$wxdata['2'],$wxdata['3'],
$wxdata['4'],$wxdata['5'],$wxdata['6'],$wxdata['7'],
$wxdata['8'],$wxdata['9'],$wxdata['10'],$wxdata['11']);
$ydata = $y;

// acc month rain   ==========================================================
$y2 = array($wxdata['12'],$wxdata['13'],$wxdata['14'],$wxdata['15'],
$wxdata['16'],$wxdata['17'],$wxdata['18'],$wxdata['19'],
$wxdata['20'],$wxdata['21'],$wxdata['22'],$wxdata['23']);
$y2data = $y2;


//Remove future data
//$ actualmonth = date ("n", time ());
////$actualmonth = $actualmonth -1;//esta línea covierte el valor del mes actual a cero(valor=0)
//for ($i=$actualmonth; $i<=11; $i++)
//	{
//	$ydata[$i] = "-";
//	$y2data[$i] = 0;
//	}


// Create the basic line graph
$graph = new Graph(555,385,"auto");

// Set background color and shadow
$graph->SetColor("white");
$graph->SetFrame(true,'black',2);
$graph->SetMargin(40,170,40,40);
$graph->SetMarginColor('cornsilk');

// Position the graph
	//$graph->SetCenter(0.35,0.55);


// Setup the axis formatting 	
$graph->SetScale('textlin', 0, 130);
$graph->SetY2Scale("lin", 0, 260);
$graph->xaxis->SetTickLabels($gDateLocale->GetShortMonth());
$graph->yaxis->SetColor("black","red");
$graph->y2axis->SetColor("black","blue");

		
// Setup graph titles
$graph->title->Set("2012-" . date("Y") . " Climograma San Sebastián");

$graph->title->SetFont(FF_FONT2,FS_BOLD,8);
$graph->title->SetColor('navy');
$graph->img->SetAntiAliasing(); 
//$graph->SetTitles(array("Dic","Nov","Oct","Sep","Ago","Jul","Jun","May","Abr","Mar","Feb","Ene"));
	//$graph->SetTitles(array("Ene","Feb","Mar","Abr","May","Jun","Jul","Ago","Sep","Oct","Nov","Dic"));


// Create the line plot
$plottemp = new LinePlot($ydata);
$plottemp->SetFillColor("orangered@0.5'");
$plottemp->SetBarCenter();
$plottemp->mark->Show();
//$plottemp->value->Show();
$plottemp->SetLegend("Avg. Temp");
$plottemp->SetColor("red","red");
$plottemp->SetWeight(3);


// Create the bar plot
$plotbar = new barPlot($y2data);
$plotbar->SetLegend("Rain");
$plotbar->SetFillColor("aqua");
$plotbar->value->SetAlign('center');
//$plotbar->value->Show();
$plotbar->value->SetMargin(10);
$plotbar->value->SetFont(FF_ARIAL,FS_BOLD); 
$plotbar->value->SetAngle(8);

// Setup color for gradient fill style 
$plotbar->SetFillGradient("blue","aqua",GRAD_MIDVER);

// Set color for the frame of each bar
$plotbar->SetColor("navy");

// Add the plots to the graph
$graph->AddY2($plotbar);
$graph->Add($plottemp);

// Add legend with values
$legtext  = ' Jan: ' . floatval( $y[0] ) .  "\260C\n" ;
$legtext .= ' Feb: ' . floatval( $y[1] ) . "\260C\n";
$legtext .= ' Mar: ' . floatval( $y[2] ) . "\260C\n";
$legtext .= ' Apr: ' . floatval( $y[3] ) . "\260C\n";
$legtext .= ' May: ' . floatval( $y[4] ) . "\260C\n";
$legtext .= ' Jun: ' . floatval( $y[5] ) . "\260C\n";
$legtext .= ' Jul: ' . floatval( $y[6] ) . "\260C\n";
$legtext .= ' Aug: ' . floatval( $y[7] ) . "\260C\n";
$legtext .= ' Sep: ' . floatval( $y[8] ) . "\260C\n";
$legtext .= ' Oct: ' . floatval( $y[9] ) . "\260C\n";
$legtext .= ' Nov: ' . floatval( $y[10] ) . "\260C\n";
$legtext .= ' Dec: ' . floatval( $y[11] ) . "\260C";

$txt = new Text("$legtext");
$txt->Pos(419,199,"left","center");
$txt->SetFont(FF_FONT1,FS_NORMAL);
$txt->ParagraphAlign('left');
$txt->SetBox('white','navy','gray');
$txt->SetColor("black");
$graph->AddText($txt);

// Add newtext to the graph
$legtext2  ='' . intval( $wxdata['12'] ) ." mm\n" ;
$legtext2 .='' . intval( $wxdata['13'] ) ." mm\n" ;
$legtext2 .='' . intval( $wxdata['14'] ) ." mm\n" ;
$legtext2 .='' . intval( $wxdata['15'] ) ." mm\n" ;
$legtext2 .='' . intval( $wxdata['16'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['17'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['18'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['19'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['20'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['21'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['22'] ) . " mm\n" ;
$legtext2 .='' . intval( $wxdata['23'] ) . " mm" ;
$txt2 = new Text("$legtext2");
$txt2->Pos(499,199,"left","center");
$txt2->SetFont(FF_FONT1,FS_NORMAL);
$txt2->ParagraphAlign('left');
$txt2->SetBox('white','navy','gray');
$txt2->SetColor("black");
$graph->AddText($txt2);






// And output the graph
$graph->Stroke();

?>