<?php

ob_start(); //HACK TO EAT ANYTHING THAT CORRUPS THE IMAGE FILE

// Copyright (c) 2005-2011 Artica Soluciones Tecnologicas
// Please see http://pandorafms.org for full contribution list

// This program is free software; you can redistribute it and/or
// modify it under the terms of the GNU General Public License
// as published by the Free Software Foundation for version 2.
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.

include_once('functions_utils.php');
include_once('../functions_io.php');
include_once('../functions.php');
include_once('../functions_html.php');

/* pChart library inclusions */
include_once("pChart/pData.class.php");
include_once("pChart/pDraw.class.php");
include_once("pChart/pImage.class.php");
include_once("pChart/pPie.class.php");
include_once("pChart/pScatter.class.php");
include_once("pChart/pRadar.class.php");

// Define default fine colors

$default_fine_colors = array();
$default_fine_colors[] = "#2222FF";
$default_fine_colors[] = "#00DD00";
$default_fine_colors[] = "#CC0033";
$default_fine_colors[] = "#9900CC";
$default_fine_colors[] = "#FFCC66";
$default_fine_colors[] = "#999999";

// Default values

$antialiasing = true;
$font = '../fonts/unicode.ttf';
$xaxisname = '';
$yaxisname = '';
$legend = null;
$colors = null;
$font_size = 8;
$force_steps = true; 
$legend_position = null;
$series_type = null;


$graph_type = get_parameter('graph_type', '');

$id_graph = get_parameter('id_graph', false);

$graph_threshold = get_parameter('graph_threshold', false);

$id_module = get_parameter('id_module');


if (!$id_graph) {
	exit;
}

$ttl = get_parameter('ttl', 1);

$graph = unserialize_in_temp($id_graph, true, $ttl);

if (!$graph) {
	exit;
}

$data = $graph['data'];
$width = $graph['width'];
$height = $graph['height'];

if (isset($graph['legend_position'])) {
	$legend_position = $graph['legend_position'];
}
if (isset($graph['color'])) {
	$colors = $graph['color'];
}
if (isset($graph['legend'])) {
	$legend = $graph['legend'];
}
if (isset($graph['xaxisname'])) {
	$xaxisname = $graph['xaxisname'];
}
if (isset($graph['yaxisname'])) { 
	$yaxisname = $graph['yaxisname'];
}
if (isset($graph['round_corner'])) { 
	$round_corner = $graph['round_corner'];
}
if (isset($graph['font'])) {
	if (!empty($graph['font'])) {
		$font = $graph['font'];
	}
}
if (isset($graph['font_size'])) {
	if (!empty($graph['font_size'])) {
		$font_size = $graph['font_size'];
	}
}
if (isset($graph['backgroundColor'])) {
	if (!empty($graph['backgroundColor'])) {
		$backgroundColor = $graph['backgroundColor'];
	}
}
if (isset($graph['antialiasing'])) { 
	$antialiasing = $graph['antialiasing'];
}
$force_height = true;
if (isset($graph['force_height'])) { 
	$force_height = $graph['force_height'];
}
if (isset($graph['period'])) { 
	$period = $graph['period'];
}
if (isset($graph['unit'])){
	$unit = $graph['unit'];
}

if (!$force_height) {
	if ($height < (count($graph['data']) * 14)) {
		$height = (count($graph['data']) * 14);
	}
}

$water_mark = '';
if (isset($graph['water_mark'])) { 
	//"/var/www/pandora_console/images/logo_vertical_water.png";
	$water_mark = $graph['water_mark'];
}

if (isset($graph['force_steps'])) {
	$force_steps = $graph['force_steps'];
}

if (isset($graph['series_type'])) {
	$series_type = $graph['series_type'];
}

if (isset($graph['percentil'])){
	$percentil = $graph['percentil']; 
}

$step = 1;
if ($force_steps) {
	$pixels_between_xdata = 50;
	$max_xdata_display = round($width / $pixels_between_xdata);
	$ndata = count($data);
	if ($max_xdata_display > $ndata) {
		$xdata_display = $ndata;
	}
	else {
		$xdata_display = $max_xdata_display;
	}
	
	$step = round($ndata/$xdata_display);
}

$c = 1;

switch ($graph_type) {
	case 'hbar':
	case 'vbar':
		foreach ($data as $i => $values) {
			foreach ($values as $name => $val) {
				$data_values[$name][] = $val;
			}
			
			$data_keys[] = $i;
			
		}
		$fine_colors = array();
		
		// If is set fine colors we store it or set default
							
		foreach ($colors as $i => $fine_color) {
			$rgb_fine = html_html2rgb($fine_color);
			$fine_colors[$i]['R'] = $rgb_fine[0];
			$fine_colors[$i]['G'] = $rgb_fine[1];
			$fine_colors[$i]['B'] = $rgb_fine[2];
			$fine_colors[$i]['Alpha'] = 100;
		}
		$colors = $fine_colors;
		
		break;
	case 'bullet_chart':
		$anterior = 0;
		foreach ($data as $i => $values) {
			foreach ($values as $key => $val) {
				switch ($key) {
					case 0:
						$name = __("Max");
						break;
					case 1:
						$name = __("Actual");
						break;
					case 2:
						$name = __("Min");
						break;
				}
				$data_values[$name][] = ($val - $anterior);
				$anterior += (($val - $anterior)<0) ? 0 : ($val - $anterior);
			}
			$anterior = 0;
			$data_keys[] = $i;
			
		}
		break;
	case 'progress':
	case 'area':
	case 'stacked_area':
	case 'stacked_line':
	case 'line':
	case 'threshold':
	case 'scatter':
	
		if (!empty($percentil)) {
			$count_percentil = count($percentil);
			for ($j=0; $j < $count_percentil; $j++) {
				$i=0;
				foreach ($data as $key => $value) {
					$data[$key]['percentil' . $j] = $percentil[$j][$i];
					if($graph_type == 'area'){
						$series_type['percentil' . $j] = 'line';
					}
					$i++;
				}
			}
		}
		foreach ($data as $i => $d) {
			$data_values[] = $d;
			
			if (($c % $step) == 0) {
				$data_keys[] = $i;
			}
			else {
				$data_keys[] = "";
			}
			
			$c++;
		}
		
		break;
	case 'slicebar':
	case 'polar':
	case 'radar':
	case 'pie3d':
	case 'pie2d':
	case 'ring3d':
	
		break;
}

switch($graph_type) {
	case 'slicebar':
	case 'polar':
	case 'radar':
	case 'pie3d':
	case 'pie2d':
	case 'ring3d':
	case 'bullet_chart':
		break;
	default:
		if (!is_array(reset($data_values))) {
			$data_values = array($data_values);
			if (is_array($colors) && !empty($colors)) {
				$colors = array($colors);
			}
		}
		break;
}

$rgb_color = array();

if (!isset($colors))
	$colors = array();

if (empty($colors)) {
	$colors = array();
}

foreach ($colors as $i => $color) {
	if (isset ($color['border'])) {
		$rgb['border'] = html_html2rgb($color['border']);
	
		if (isset($rgb['border'])) {
			$rgb_color[$i]['border']['R'] = $rgb['border'][0];
			$rgb_color[$i]['border']['G'] = $rgb['border'][1];
			$rgb_color[$i]['border']['B'] = $rgb['border'][2];
		}
	}

	if (isset ($color['color'])) {
		$rgb['color'] = html_html2rgb($color['color']);

		if (isset($rgb['color'])) {
			$rgb_color[$i]['color']['R'] = $rgb['color'][0];
			$rgb_color[$i]['color']['G'] = $rgb['color'][1];
			$rgb_color[$i]['color']['B'] = $rgb['color'][2];
		}
	}

	if (isset ($color['alpha'])) {
		$rgb_color[$i]['alpha'] = $color['alpha'];
	}
}

//add color for percentil
if($percentil){
	for ($j=0; $j < $count_percentil; $j++) {
		if (isset ($colors[$j]['border'])) {
			$rgb['border'] = html_html2rgb($colors[$j]['border']);
			
			if (isset($rgb['border'])) {
				$rgb_color['percentil' . $j]['border']['R'] = $rgb['border'][0];
				$rgb_color['percentil' . $j]['border']['G'] = $rgb['border'][1];
				$rgb_color['percentil' . $j]['border']['B'] = $rgb['border'][2];
			}
		}

		if (isset ($colors[$j]['color'])) {
			$rgb['color'] = html_html2rgb($colors[$j]['color']);
			
			if (isset($rgb['color'])) {
				$rgb_color['percentil' . $j]['color']['R'] = $rgb['color'][0];
				$rgb_color['percentil' . $j]['color']['G'] = $rgb['color'][1];
				$rgb_color['percentil' . $j]['color']['B'] = $rgb['color'][2];
			}
		}

		if (isset ($colors[$j]['alpha'])) {
			$rgb_color['percentil' . $j]['alpha'] = $colors[$j]['alpha'];
		}
	}
}

//add for report with max 15 modules comparation repeat
$countlegend = count($legend);
if($countlegend > 15){
	$i=16;
	$l=0;
	while ($countlegend > 15){
		$rgb_color[$i] = $rgb_color[$l];
		$l++;
		$i++;
		$countlegend--;
	} 
}

ob_get_clean(); //HACK TO EAT ANYTHING THAT CORRUPS THE IMAGE FILE

switch ($graph_type) {
	case 'ring3d':
		pch_ring_graph($graph_type, array_values($data), $legend,
			$width, $height, $font, $water_mark, $font_size, $legend_position, $colors);
		break;
	case 'bullet_chart':
		pch_bullet_chart($graph_type, $data_values, $legend,
			$width, $height, $font, $water_mark, $font_size, $legend_position, $colors);
		break;
	case 'pie3d':
	case 'pie2d':
		pch_pie_graph($graph_type, array_values($data), array_keys($data),
			$width, $height, $font, $water_mark, $font_size, $legend_position, $colors);
		break;
	case 'slicebar':
		pch_slicebar_graph($graph_type, $data, $period, $width, $height, $colors, $font, $round_corner, $font_size);
		break;
	case 'polar':
	case 'radar':
		pch_kiviat_graph($graph_type, array_values($data), array_keys($data),
			$width, $height, $font, $font_size);
		break;
	case 'hbar':
	case 'vbar':
		pch_bar_graph($graph_type, $data_keys, $data_values, $width, $height,
			$font, $antialiasing, $rgb_color, $xaxisname, $yaxisname, false,
			$legend, $fine_colors, $water_mark, $font_size);
		break;
	case 'stacked_area':
	case 'area':
	case 'line':
		pch_vertical_graph($graph_type, $data_keys, $data_values, $width,
			$height, $rgb_color, $xaxisname, $yaxisname, false, $legend,
			$font, $antialiasing, $water_mark, $font_size,
			$backgroundColor, $unit, $series_type, $graph_threshold, $id_module);
		break;
	case 'threshold':
		pch_threshold_graph($graph_type, $data_keys, $data_values, $width,
			$height, $font, $antialiasing, $xaxisname, $yaxisname, $title,
			$font_size);
		break;
}

function pch_slicebar_graph ($graph_type, $data, $period, $width, $height, $colors, $font, $round_corner, $font_size) {
	/* CAT:Slicebar charts */
	
	set_time_limit (0);
	
	// Dataset definition
	$myPicture = new pImage($width,$height);
	
	/* Turn of Antialiasing */
	$myPicture->Antialias = 0;
	
	$myPicture->setFontProperties(array("FontName"=> $font, "FontSize"=>$font_size,"R"=>80,"G"=>80,"B"=>80));
	
	// Round corners defined in global setup
	if ($round_corner != 0)
		$radius = ($height > 18) ? 8 : 0;
	else
		$radius = 0;
	
	$thinest_slice = $width / $period;
	
	/* Color stuff */
	$colorsrgb = array();
	foreach($colors as $key => $col) {
		$rgb = html_html2rgb($col);
		$colorsrgb[$key]['R'] = $rgb[0];
		$colorsrgb[$key]['G'] = $rgb[1];
		$colorsrgb[$key]['B'] = $rgb[2];
	}
	
	$i = 0;
	foreach ($data as $d) {
		$color = $d['data'];
		$color = $colorsrgb[$color]; 
		$ratio = $thinest_slice * $d['utimestamp'];
		$myPicture->drawRoundedFilledRectangle ($i, 0, $ratio+$i, 
			$height, $radius,
			array('R' => $color['R'],
				'G' => $color['G'],
				'B' => $color['B'])
			);
		$i+=$ratio;
	}
	
	if ($round_corner) {
		/* Under this value, the rounded rectangle is painted great */
		if ($thinest_slice <= 16) {
			/* Clean a bit of pixels */
			for ($i = 0; $i < 7; $i++) {
				$myPicture->drawLine (0, $i, 6 - $i, $i, array('R' => 255, 'G' => 255, 'B' => 255));
			}
			$end = $height - 1;
			for ($i = 0; $i < 7; $i++) {
				$myPicture->drawLine (0, $end - $i, 5 - $i, $end - $i, array('R' => 255, 'G' => 255, 'B' => 255));
			}
		}
	}
	
	$myPicture->drawRoundedRectangle (0, 0, $width,
		$height - 1, $radius, array('R' => 157, 'G' => 157, 'B' => 157));
	
	$myPicture->Stroke ();
}

function pch_pie_graph ($graph_type, $data_values, $legend_values, $width,
	$height, $font, $water_mark, $font_size, $legend_position, $colors) {
	/* CAT:Pie charts */
	
	/* Create and populate the pData object */
	$MyData = new pData();   
	$MyData->addPoints($data_values,"ScoreA");  
	$MyData->setSerieDescription("ScoreA","Application A");
	
	/* Define the absissa serie */
	$MyData->addPoints($legend_values,"Labels");
	$MyData->setAbscissa("Labels");
	
	/* Create the pChart object */
	$myPicture = new pImage($width,$height,$MyData,TRUE);
	
	/* Set the default font properties */ 
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size,"R"=>80,"G"=>80,"B"=>80));
	
	$water_mark_height = 0;
	$water_mark_width = 0;
	if (!empty($water_mark)) {
		if (is_array($water_mark)) {
			if (!empty($water_mark['file'])) {
				$water_mark = $water_mark['file'];
			}
		}
		
		$size_water_mark = getimagesize($water_mark);
		$water_mark_height = $size_water_mark[1];
		$water_mark_width = $size_water_mark[0];
		
		$myPicture->drawFromPNG(($width - $water_mark_width),
			($height - $water_mark_height) - 50, $water_mark);
	}
	
	
	/* Create the pPie object */ 
	$PieChart = new pPie($myPicture,$MyData);
	foreach ($legend_values as $key => $value) {
		if (isset($colors[$value])) {
			$PieChart->setSliceColor($key, hex_2_rgb($colors[$value]));
		}
	}
	
	/* Draw an AA pie chart */
	switch($graph_type) {
		case "pie2d":
			$PieChart->draw2DPie($width/4,$height/2,array("DataGapAngle"=>0,"DataGapRadius"=>0, "Border"=>FALSE, "BorderR"=>200, "BorderG"=>200, "BorderB"=>200, "Radius"=>$width/4, "ValueR"=>0, "ValueG"=>0, "ValueB"=>0, "WriteValues"=>TRUE));
			break;
		case "pie3d":
			$PieChart->draw3DPie($width/4, $height/2,array("DataGapAngle"=>5,"DataGapRadius"=>6, "Border"=>TRUE, "Radius"=>$width/4, "ValueR"=>0, "ValueG"=>0, "ValueB"=>0, "WriteValues"=>TRUE, "SecondPass"=>FALSE));
			break;
	}
	
	/* Write down the legend next to the 2nd chart*/
		//Calculate the bottom margin from the size of string in each index
	$max_chars = graph_get_max_index($legend_values);
	
	if ($legend_position != 'hidden') {
		// This is a hardcore adjustment to match most of the graphs, please don't alter
		$legend_with_aprox = 32 + (4.5 * $max_chars);
		
		$PieChart->drawPieLegend($width - $legend_with_aprox, 5, array("R"=>255,"G"=>255,"B"=>255, "BoxSize"=>10)); 
	}
	
	/* Enable shadow computing */ 
	$myPicture->setShadow(TRUE,
		array("X" => 3, "Y" => 3, "R" => 0, "G" => 0, "B" => 0, "Alpha" => 10));
	
	/* Render the picture */
	$myPicture->stroke();
}

function pch_ring_graph ($graph_type, $data_values, $legend_values, $width,
	$height, $font, $water_mark, $font_size, $legend_position, $colors) {
	/* CAT:Ring charts */
	
	/* Create and populate the pData object */
	$MyData = new pData();   
	$MyData->addPoints($data_values,"ScoreA");  
	$MyData->setSerieDescription("ScoreA","Application A");
	
	/* Define the absissa serie */
	$MyData->addPoints($legend_values,"Labels");
	$MyData->setAbscissa("Labels");
	
	/* Create the pChart object */
	$myPicture = new pImage($width,$height,$MyData,TRUE);
	
	/* Set the default font properties */ 
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size,"R"=>80,"G"=>80,"B"=>80));
	
	$water_mark_height = 0;
	$water_mark_width = 0;
	if (!empty($water_mark)) {
		if (is_array($water_mark)) {
			if (!empty($water_mark['file'])) {
				$water_mark = $water_mark['file'];
			}
		}
		
		$size_water_mark = getimagesize($water_mark);
		$water_mark_height = $size_water_mark[1];
		$water_mark_width = $size_water_mark[0];
		
		$myPicture->drawFromPNG(($width - $water_mark_width),
			($height - $water_mark_height) - 50, $water_mark);
	}
	
	
	/* Create the pPie object */ 
	$PieChart = new pPie($myPicture,$MyData);
	foreach ($legend_values as $key => $value) {
		if (isset($colors[$value])) {
			$PieChart->setSliceColor($key, hex_2_rgb($colors[$value]));
		}
	}
	
	/* Draw an AA pie chart */
	$PieChart->draw3DRing($width/3, $height/2,array("InnerRadius"=>100, "InnerRadius"=>10,"DrawLabels"=>TRUE,"LabelStacked"=>FALSE,"Precision"=>2,"Border"=>FALSE,"WriteValues"=>TRUE,"ValueR"=>0,"ValueG"=>0,"ValueB"=>0,"ValuePadding" => 15));
			
	
	/* Write down the legend next to the 2nd chart*/
		//Calculate the bottom margin from the size of string in each index
	$max_chars = graph_get_max_index($legend_values);
	
	if ($legend_position != 'hidden') {
		// This is a hardcore adjustment to match most of the graphs, please don't alter
		$legend_with_aprox = 150 + (4.5 * $max_chars);
		
		$PieChart->drawPieLegend($width - $legend_with_aprox, 10, array("R"=>255,"G"=>255,"B"=>255, "BoxSize"=>10)); 
	}
	
	/* Enable shadow computing */ 
	$myPicture->setShadow(TRUE,
		array("X" => 3, "Y" => 3, "R" => 0, "G" => 0, "B" => 0, "Alpha" => 10));
	
	/* Render the picture */
	$myPicture->stroke();
}

function pch_kiviat_graph ($graph_type, $data_values, $legend_values, $width,
	$height, $font, $font_size) {
	/* CAT:Radar/Polar charts */
	
	/* Create and populate the pData object */
	$MyData = new pData();   
	$MyData->addPoints($data_values,"ScoreA");  
	$MyData->setSerieDescription("ScoreA","Application A");
	
	/* Define the absissa serie */
	$MyData->addPoints($legend_values,"Labels");
	$MyData->setAbscissa("Labels");
	
	/* Create the pChart object */
	$myPicture = new pImage($width,$height,$MyData,TRUE);
	
	/* Set the default font properties */ 
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size,"R"=>80,"G"=>80,"B"=>80));
	
	/* Create the pRadar object */ 
	$SplitChart = new pRadar();
	
	/* Draw a radar chart */ 
	$myPicture->setGraphArea(20,25,$width-10,$height-10);
	
	/* Draw an AA pie chart */
	switch($graph_type) {
		case "radar":
			$Options = array("SkipLabels"=>0,"LabelPos"=>RADAR_LABELS_HORIZONTAL,
				"LabelMiddle"=>FALSE,"Layout"=>RADAR_LAYOUT_STAR,
				"BackgroundGradient"=>array("StartR"=>255,"StartG"=>255,"StartB"=>255,
				"StartAlpha"=>100,"EndR"=>207,"EndG"=>227,"EndB"=>125,"EndAlpha"=>50), 
				"FontName"=>$font,"FontSize"=>$font_size);
			$SplitChart->drawRadar($myPicture,$MyData,$Options); 
			break;
		case "polar":
			$Options = array("Layout"=>RADAR_LAYOUT_CIRCLE,"BackgroundGradient"=>array("StartR"=>255,"StartG"=>255,"StartB"=>255,"StartAlpha"=>100,"EndR"=>207,"EndG"=>227,"EndB"=>125,"EndAlpha"=>50),
				"FontName"=>$font,"FontSize"=>$font_size); 
			$SplitChart->drawRadar($myPicture,$MyData,$Options); 
			break;
	}
	
	/* Render the picture */
	$myPicture->stroke(); 
}

function pch_bar_graph ($graph_type, $index, $data, $width, $height, $font,
	$antialiasing, $rgb_color = false, $xaxisname = "", $yaxisname = "",
	$show_values = false, $legend = array(), $fine_colors = array(), $water_mark = '', $font_size) {
	/* CAT: Vertical Bar Chart */
	if (!is_array($legend) || empty($legend)) {
		unset($legend);
	}
	
	/* Create and populate the pData object */
	$MyData = new pData();
	$overridePalette = array();
	foreach ($data as $i => $values) {
		$MyData->addPoints($values,$i);
		
		if (!empty($rgb_color)) {
			$MyData->setPalette($i, 
				array("R" => $rgb_color[$i]['color']["R"], 
					"G" => $rgb_color[$i]['color']["G"], 
					"B" => $rgb_color[$i]['color']["B"],
					"BorderR" => $rgb_color[$i]['border']["R"], 
					"BorderG" => $rgb_color[$i]['border']["G"], 
					"BorderB" => $rgb_color[$i]['border']["B"], 
					"Alpha" => $rgb_color[$i]['alpha']));
		}
		
		// Assign cyclic colors to bars if are setted
		if ($fine_colors) {
			$c = 0;
			foreach ($values as $ii => $vv) {
				if (!isset($fine_colors[$c])) {
					$c = 0;
				}
				$overridePalette[$ii] = $fine_colors[$c];
				$c++;
			}
		}
		else {
			$overridePalette = false;
		}
	}
	
	$MyData->setAxisName(0,$yaxisname);
	$MyData->addPoints($index,"Xaxis");
	$MyData->setSerieDescription("Xaxis", $xaxisname);
	$MyData->setAbscissa("Xaxis");
	
	/* Create the pChart object */
	$myPicture = new pImage($width,$height,$MyData);
	
	/* Turn of Antialiasing */
	$myPicture->Antialias = $antialiasing;
	
	/* Add a border to the picture */
	//$myPicture->drawRectangle(0,0,$width,$height,array("R"=>0,"G"=>0,"B"=>0));
	
	/* Turn on shadow computing */ 
	$myPicture->setShadow(TRUE,array("X"=>1,"Y"=>1,"R"=>0,"G"=>0,"B"=>0,"Alpha"=>10)); 
	
	/* Set the default font */
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size));
	
	/* Draw the scale */
	// TODO: AvoidTickWhenEmpty = FALSE When the distance between two ticks will be less than 50 px
	// TODO: AvoidTickWhenEmpty = TRUE When the distance between two ticks will be greater than 50 px
	
	//Calculate the top margin from the size of string in each index
	$max_chars = graph_get_max_index($index);
	$margin_top = 10 * $max_chars;
	
	switch($graph_type) {
		case "vbar":
			$scaleSettings = array("AvoidTickWhenEmpty" => FALSE, "AvoidGridWhenEmpty" => FALSE, 
				"GridR"=>200,"GridG"=>200,"GridB"=>200,"DrawSubTicks"=>TRUE,"CycleBackground"=>TRUE, 
				"Mode"=>SCALE_MODE_START0, "LabelRotation" => 60);
			$margin_left = 40;
			$margin_right = 0;
			$margin_top = 10;
			$margin_bottom = 3 * $max_chars;
			break;
		case "hbar":
			$scaleSettings = array("GridR"=>200,"GridG"=>200,"GridB"=>200,"DrawSubTicks"=>TRUE,
				"CycleBackground"=>TRUE, "Mode"=>SCALE_MODE_START0, "Pos"=>SCALE_POS_TOPBOTTOM, 
				"LabelValuesRotation" => 30);
			$margin_left = $font_size * $max_chars;
			$margin_right = 15;
			$margin_top = 40;
			$margin_bottom = 10;
			break;
	}
	
	/* Define the chart area */
	$myPicture->setGraphArea($margin_left, $margin_top, $width - $margin_right, $height - $margin_bottom);
	
	$myPicture->drawScale($scaleSettings);
	/*
	if (isset($legend)) {
		/* Write the chart legend 
		$size = $myPicture->getLegendSize(array("Style"=>LEGEND_NOBORDER,"Mode"=>LEGEND_HORIZONTAL));
		$myPicture->drawLegend($width-$size['Width'],0,array("Style"=>LEGEND_NOBORDER,"Mode"=>LEGEND_HORIZONTAL, "BoxWidth"=>10, "BoxHeight"=>10));
	}
	*/
	/* Turn on shadow computing */ 
	$myPicture->setShadow(TRUE,array("X"=>0,"Y"=>1,"R"=>0,"G"=>0,"B"=>0,"Alpha"=>10));
	
	/* Draw the chart */
	$settings = array("ForceTransparency"=>"-1", "Gradient"=>TRUE,"GradientMode"=>GRADIENT_EFFECT_CAN,"DisplayValues"=>$show_values,"DisplayZeroValues"=>FALSE,"DisplayR"=>100,"DisplayG"=>100,"DisplayB"=>100,"DisplayShadow"=>TRUE,"Surrounding"=>5,"AroundZero"=>FALSE, "OverrideColors"=>$overridePalette);
	
	$myPicture->drawBarChart($settings);
	
	// Paint the water mark at the last moment to show it in front
	if (!empty($water_mark)) {
		$size_water_mark = getimagesize($water_mark);
		$water_mark_width = $size_water_mark[0];
		
		$myPicture->drawFromPNG(($width - $water_mark_width - $margin_right),
			$margin_top, $water_mark);
	}
	
	/* Render the picture */
	$myPicture->stroke(); 
}

function pch_vertical_graph ($graph_type, $index, $data, $width, $height,
	$rgb_color = false, $xaxisname = "", $yaxisname = "", $show_values = false,
	$legend = array(), $font, $antialiasing, $water_mark = '', $font_size,
	$backgroundColor = 'white', $unit = '', $series_type = array(), 
	$graph_threshold = false, $id_module) {
	
	global $config;
	
	/* CAT:Vertical Charts */
	if (!is_array($legend) || empty($legend)) {
		unset($legend);
	}
	
	if (is_array(reset($data))) {
		$data2 = array();
		foreach ($data as $i =>$values) {
			$c = 0;
			foreach ($values as $i2 => $value) {
				$data2[$i2][$i] = $value;
				$c++;
			}
		}
		$data = $data2;
	}
	else {
		$data = array($data);
	}
	
	/* Create and populate the pData object */
	$MyData = new pData();
	
	foreach ($data as $i => $values) {
		if (isset($legend)) {
			$point_id = $legend[$i];
			
			// Translate the id of serie to legend of id
			if (!empty($series_type)) {
				if (!isset($series_type[$point_id])) {
					$series_type[$point_id] = $series_type[$i];
					unset($series_type[$i]);
				}
			}
		}
		else {
			$point_id = $i;
		}
		
		$MyData->addPoints($values, $point_id);
		
		
		if (!empty($rgb_color)) {
			$MyData->setPalette($point_id, 
				array(
					"R" => $rgb_color[$i]['color']["R"], 
					"G" => $rgb_color[$i]['color']["G"], 
					"B" => $rgb_color[$i]['color']["B"],
					"BorderR" => $rgb_color[$i]['border']["R"], 
					"BorderG" => $rgb_color[$i]['border']["G"], 
					"BorderB" => $rgb_color[$i]['border']["B"], 
					"Alpha" => $rgb_color[$i]['alpha']));
				
			$palette_color = array();
			if (isset($rgb_color[$i]['color'])) {
				$palette_color["R"] = $rgb_color[$i]['color']["R"];
				$palette_color["G"] = $rgb_color[$i]['color']["G"];
				$palette_color["B"] = $rgb_color[$i]['color']["B"];
			}
			if (isset($rgb_color[$i]['color'])) {
				$palette_color["BorderR"] = $rgb_color[$i]['border']["R"];
				$palette_color["BorderG"] = $rgb_color[$i]['border']["G"];
				$palette_color["BorderB"] = $rgb_color[$i]['border']["B"];
			}
			if (isset($rgb_color[$i]['color'])) {
				$palette_color["Alpha"] = $rgb_color[$i]['Alpha'];
			}
			
			$MyData->setPalette($point_id, $palette_color);
		}
		
		// The weight of the line is not calculated in pixels, so it needs to be transformed
		$reduction_coefficient = 0.31;
		$MyData->setSerieWeight($point_id, $config['custom_graph_width'] * $reduction_coefficient);
	}
	
	$MyData->setAxisName(0,$unit);
	$MyData->addPoints($index,"Xaxis");
	$MyData->setSerieDescription("Xaxis", $xaxisname);
	$MyData->setAbscissa("Xaxis");
	$MyData->setAxisDisplay(0, AXIS_FORMAT_METRIC);
	
	switch ($backgroundColor) {
		case 'white':
			$transparent = false;
			$fontColor = array('R' => 0, 'G' => 0, 'B' => 0);
			break;
		case 'black':
			$transparent = false;
			$fontColor = array('R' => 200, 'G' => 200, 'B' => 200);
			break;
		case 'transparent':
			$transparent = true;
			// $fontColor = array('R' => 0, 'G' => 0, 'B' => 0);
			// Now the color of the text will be grey
			$fontColor = array('R' => 200, 'G' => 200, 'B' => 200);
			break;
		
	}
	/* Create the pChart object */
	$myPicture = new pImage($width, $height + $font_size, $MyData, $transparent,
		$backgroundColor, $fontColor);
	
	/* Turn of Antialiasing */
	$myPicture->Antialias = $antialiasing;
	
	/* Add a border to the picture */
	//$myPicture->drawRectangle(0,0,$width,$height,array("R"=>0,"G"=>0,"B"=>0));
	
	/* Set the default font */
	$myPicture->setFontProperties(
		array("FontName" =>$font, "FontSize" => $font_size));
	
	// By default, set a top margin of 5 px
	$top_margin = 5;
	if (isset($legend)) {
		/* Set horizontal legend if is posible */
		$legend_mode = LEGEND_HORIZONTAL;
		$size = $myPicture->getLegendSize(
			array("Style" => LEGEND_NOBORDER,"Mode" => $legend_mode));
		if ($size['Width'] > ($width - 5)) {
			$legend_mode = LEGEND_VERTICAL;
			$size = $myPicture->getLegendSize(array("Style"=>LEGEND_NOBORDER,"Mode"=>$legend_mode));
		}
		
		// Update the top margin to add the legend Height
		$top_margin = $size['Height'];
		
		/* Write the chart legend */
		$myPicture->drawLegend($width - $size['Width'], 8,
			array("Style" => LEGEND_NOBORDER, "Mode" => $legend_mode));
	}
	
	//Calculate the bottom margin from the size of string in each index
	$max_chars = graph_get_max_index($index);
	$margin_bottom = $font_size * $max_chars;
	
	$water_mark_height = 0;
	$water_mark_width = 0;
	if (!empty($water_mark)) {
		$size_water_mark = getimagesize($water_mark);
		$water_mark_height = $size_water_mark[1];
		$water_mark_width = $size_water_mark[0];
		
		$myPicture->drawFromPNG(
			($width - $water_mark_width),
			$top_margin,
			$water_mark);
	}
	
	// Get the max number of scale
	$max_all = 0;
	
	$serie_ne_zero = false;
	foreach ($data as $serie) {
		$max_this_serie = max($serie);
		if ($max_this_serie > $max_all) {
			$max_all = $max_this_serie; 
		}
		// Detect if all serie is equal to zero or not
		if ($serie != 0)
			$serie_ne_zero = true;
	}
	
	// Get the number of digits of the scale
	$digits_left = 0;
	while ($max_all > 1) {
		$digits_left ++;
		$max_all /= 10;
	}
	
	// If the number is less than 1 we count the decimals
	// Also check if the serie is not all equal to zero (!$serie_ne_zero)
	if ($digits_left == 0 and !$serie_ne_zero) { 
		while($max_all < 1) {
			$digits_left ++;
			$max_all *= 10;
		}
	}
	
	$chart_size = ($digits_left * $font_size) + 20;
	
	$max_data = max(max($data));
	
	$default_chart_size = 40;
	$rest_chars = strlen($max_data) - 6;
	$default_chart_size += $rest_chars * 5;
	
	
	/* Area depends on yaxisname */
	if ($yaxisname != '') {
		$chart_size += $default_chart_size;
	}
	else {
		$chart_size = $default_chart_size;
	}
	
	$myPicture->setGraphArea($chart_size, $top_margin, 
		$width,
		($height - $margin_bottom));
	
	/*Get minimun value to draw axis properly*/
	
	$min_data = min(min($data));
	$ManualScale = array();
	$mode = SCALE_MODE_START0;
	if ($min_data < 0) {
		$mode = SCALE_MODE_FLOATING;
	}
	
	if ($max_data < 0) {
		$ManualScale = array(0 => array("Min" => $min_data, "Max" => 0));
		$mode = SCALE_MODE_MANUAL;
	}
	else if ($max_data >= 0 && $min_data <= 0){
		$ManualScale = array(0 => array("Min" => $min_data, "Max" => $max_data));
		$mode = SCALE_MODE_MANUAL;	
	}
	
	if($graph_threshold){
		$sql_treshold = 'select min_critical, max_critical, min_warning, max_warning, critical_inverse, warning_inverse from tagente_modulo where id_agente_modulo =' . $id_module;
		$treshold_position = db_get_all_rows_sql($sql_treshold);

		//min, max and inverse critical and warning
		$p_min_crit = $treshold_position[0]['min_critical'];
		$p_max_crit = $treshold_position[0]['max_critical'];
		$p_inv_crit = $treshold_position[0]['critical_inverse'];
		$p_min_warn = $treshold_position[0]['min_warning'];
		$p_max_warn = $treshold_position[0]['max_warning'];
		$p_inv_warn = $treshold_position[0]['warning_inverse'];

		//interval warning
		$print_rectangle_warning = 1;
		if($p_min_warn == "0.00" && $p_max_warn == "0.00" && $p_inv_warn == 0){
			$print_rectangle_warning = 0;
		}
		if($print_rectangle_warning){
			if($p_inv_warn){
				if($p_max_warn == 0){
					$p_max_warn = $p_min_warn;
					$p_min_warn = "none";
				}
				else{
					$p_max_warn_inv = $p_min_warn;
					$p_min_warn_inv = $min_data + 2;

					$p_min_warn = $p_max_warn;
					if($p_max_warn > $max_data){
						$p_max_warn = $p_max_warn + 21;	
					}
					else{
						$p_max_warn = $max_data + 21;	
					}
				}
			}
			else{
				if($p_max_warn == 0){
					if($max_data > $p_min_warn){
						$p_max_warn = $max_data + 21;
					}
					else{
						$p_max_warn = $p_min_warn + 21;	
					}
				}
			}
		}

		//interval critical
		$print_rectangle_critical = 1;
		if($p_min_crit == "0.00" && $p_max_crit == "0.00" && $p_inv_crit == 0){
			$print_rectangle_critical = 0;
		}

		if($print_rectangle_critical){
			if($p_inv_crit){
				if($p_max_crit == 0){
					$p_max_crit = $p_min_crit;
					$p_min_crit = "none";
				}
				else{
					$p_max_crit_inv = $p_min_crit;
					$p_min_crit_inv = $min_data + 2;

					$p_min_crit = $p_max_crit;
					if($p_inv_warn){
						if($p_max_crit < $p_max_warn){
							$p_max_crit = $p_max_warn;	
						}
					}
					else{
						if($p_max_crit > $max_data){
							$p_max_crit = $p_max_crit + 21;	
						}
						else{
							$p_max_crit = $max_data + 21;	
						}
					}
				}
			}
			else{
				if($p_max_crit == 0){ 
					if($p_max_warn > $p_min_crit){
						$p_max_crit = $p_max_warn;
					}
					else{
						if($max_data > $p_min_crit){
							$p_max_crit = $max_data + 21;
						}
						else{
							$p_max_crit = $p_min_crit + 21;	
						}
					} 
				}
			}
		}

		//Check size scale
		//Which of the thresholds is higher?
		if($p_max_crit > $p_max_warn){
			$check_scale = $p_max_crit; 
		}
		else{
			$check_scale = $p_max_warn;	
		}

		if($p_min_crit < $p_min_warn){
			$check_scale_min = $p_min_crit; 
		}
		else{
			$check_scale_min = $p_min_warn;	
		}

		//Is the threshold higher than our maximum?
		if($max_data > $check_scale){
			$check_scale = $max_data;	 
		}
		
		if($min_data < $check_scale_min){
			$check_scale_min = $min_data;
		}

		$ManualScale = array( 0 => array("Min" => $check_scale_min, "Max" => $check_scale) );
		$mode = SCALE_MODE_MANUAL;

		/* Draw the scale */
		$scaleSettings = array(
			"GridR" => 200,
			"GridG" => 200,
			"GridB" => 200,
			"GridAlpha" => 30,
			"DrawSubTicks" => true,
			"CycleBackground" => true,
			"BackgroundAlpha1" => 35,
			"BackgroundAlpha2" => 35,
			"Mode" => $mode,
			"ManualScale" => $ManualScale,
			"LabelRotation" => 40, 
			"XMargin" => 0, 
			"MinDivHeight" => 15,
			"TicksFontSize" => $font_size - 1);
		
		$scaleSettings['AxisR'] = '200';
		$scaleSettings['AxisG'] = '200';
		$scaleSettings['AxisB'] = '200';
		$scaleSettings['TickR'] = '200';
		$scaleSettings['TickG'] = '200';
		$scaleSettings['TickB'] = '200';
		
		$myPicture->drawScale($scaleSettings);


		//values
		$scale_max   = $myPicture->DataSet->Data["Axis"][0]["ScaleMax"];
		$scale_min   = $myPicture->DataSet->Data["Axis"][0]["ScaleMin"];

		$position_y1 = $myPicture->GraphAreaY1;
		$position_y2 = $myPicture->GraphAreaY2;

		$position1   = $myPicture->GraphAreaX1;
		$position3   = $myPicture->GraphAreaX2;

		$cte = ($position_y2 - $position_y1) / ($scale_max - $scale_min);
		
		//warning
		if($print_rectangle_warning){
			$RectangleSettings = array("R"=>255,"G"=>255,"B"=>000,"Dash"=>TRUE,"DashR"=>170,"DashG"=>220,"DashB"=>190);
			if($p_min_warn == "none"){
				$p_min_warn = $scale_min;
			}

			$position2 = ($scale_max - $p_min_warn)*$cte + $position_y1;	
			$position4 = ($scale_max - $p_max_warn)*$cte + $position_y1;

			$myPicture->drawFilledRectangle($position1, floor($position2), 
											$position3, floor($position4),
											$RectangleSettings);
			if($p_inv_warn){
				$position2 = ($scale_max - $p_min_warn_inv)*$cte + $position_y1;	
				$position4 = ($scale_max - $p_max_warn_inv)*$cte + $position_y1;
				$myPicture->drawFilledRectangle($position1, floor($position2), 
												$position3, floor($position4),
												$RectangleSettings);
			}
		}

		//critical
		if($print_rectangle_critical){
			$RectangleSettings = array("R"=>248,"G"=>000,"B"=>000,"Dash"=>TRUE,"DashR"=>170,"DashG"=>220,"DashB"=>190);

			if($p_min_crit == "none"){
				$p_min_crit = $scale_min;
			}

			$position2 = ($scale_max - $p_min_crit)*$cte + $position_y1;	
			$position4 = ($scale_max - $p_max_crit)*$cte + $position_y1;
			$myPicture->drawFilledRectangle($position1, $position2, 
											$position3, $position4,
											$RectangleSettings);

			if($p_inv_crit){
				$position2 = ($scale_max - $p_min_crit_inv)*$cte + $position_y1;	
				$position4 = ($scale_max - $p_max_crit_inv)*$cte + $position_y1;
				$myPicture->drawFilledRectangle($position1, $position2, 
												$position3, $position4,
												$RectangleSettings);
			}
		}

	}
	else{
		/* Draw the scale */
		$scaleSettings = array(
			"GridR" => 200,
			"GridG" => 200,
			"GridB" => 200,
			"GridAlpha" => 30,
			"DrawSubTicks" => true,
			"CycleBackground" => true,
			"BackgroundAlpha1" => 35,
			"BackgroundAlpha2" => 35,
			"Mode" => $mode,
			"ManualScale" => $ManualScale,
			"LabelRotation" => 40, 
			"XMargin" => 0, 
			"MinDivHeight" => 15,
			"TicksFontSize" => $font_size - 1);
		
		$scaleSettings['AxisR'] = '200';
		$scaleSettings['AxisG'] = '200';
		$scaleSettings['AxisB'] = '200';
		$scaleSettings['TickR'] = '200';
		$scaleSettings['TickG'] = '200';
		$scaleSettings['TickB'] = '200';
		
		$myPicture->drawScale($scaleSettings);
	}

	/* Turn on shadow computing */ 
	//$myPicture->setShadow(TRUE,array("X"=>0,"Y"=>1,"R"=>0,"G"=>0,"B"=>0,"Alpha"=>10));
	
	switch ($graph_type) {
		case 'stacked_area':
			$ForceTransparency = "-1";
			break;
		default:
			$ForceTransparency = "100";
			break;
	}
	
	/* Draw the chart */
	$settings = array(
		"ForceTransparency" => 20,
		"Gradient" => TRUE,
		"GradientMode" => GRADIENT_EFFECT_CAN,
		"DisplayValues" => $show_values,
		"DisplayZeroValues" => FALSE,
		"DisplayR" => 100,
		"DisplayZeros" => FALSE,
		"DisplayG" => 100,
		"DisplayB" => 100,
		"DisplayShadow" => TRUE,
		"Surrounding" => 5,
		"AroundZero" => TRUE);
	
	
	if (empty($series_type)) {
		switch($graph_type) {
			case "stacked_area":
			case "area":
				$myPicture->drawAreaChart($settings);
				break;
			case "line":
				$myPicture->drawLineChart($settings);
				break;
		}
	}
	else {
		// Hiden all series for to show each serie as type
		foreach ($series_type as $id => $type) {
			$MyData->setSerieDrawable($id, false);
		}
		foreach ($series_type as $id => $type) {
			$MyData->setSerieDrawable($id, true); //Enable the serie to paint
			switch ($type) {
				default:
				case 'area':
					$myPicture->drawAreaChart($settings);
					break;
				//~ case "points":
					//~ $myPicture->drawPlotChart($settings);
					//~ break;
				case "line":
					$myPicture->drawLineChart($settings);
					break;
				case 'boolean':
					switch($graph_type) {
						case "stacked_area":
						case "area":
							$myPicture->drawFilledStepChart($settings);
							break;
						case "line":
							$myPicture->drawStepChart($settings);
							break;
					}
					break;
			}
			$MyData->setSerieDrawable($id, false); //Disable the serie to paint the rest
		}
	}
	
	/* Render the picture */
	$myPicture->stroke(); 
}

function pch_threshold_graph ($graph_type, $index, $data, $width, $height, $font,
	$antialiasing, $xaxisname = "", $yaxisname = "", $title = "",
	$show_values = false, $show_legend = false, $font_size) {
	/* CAT:Threshold Chart */
	
	/* Create and populate the pData object */
	$MyData = new pData();  
	$MyData->addPoints($data,"DEFCA");
	$MyData->setAxisName(0,$yaxisname);
	$MyData->setAxisDisplay(0,AXIS_FORMAT_CURRENCY);
	$MyData->addPoints($index,"Labels");
	$MyData->setSerieDescription("Labels",$xaxisname);
	$MyData->setAbscissa("Labels");
	$MyData->setPalette("DEFCA",array("R"=>55,"G"=>91,"B"=>127));
	
	/* Create the pChart object */
	$myPicture = new pImage(700,230,$MyData);
	$myPicture->drawGradientArea(0,0,700,230,DIRECTION_VERTICAL,array("StartR"=>220,"StartG"=>220,"StartB"=>220,"EndR"=>255,"EndG"=>255,"EndB"=>255,"Alpha"=>100));
	$myPicture->drawRectangle(0,0,699,229,array("R"=>200,"G"=>200,"B"=>200));
	
	/* Write the picture title */ 
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size));
	$myPicture->drawText(60,35,$title,array("FontSize"=>$font_size,"Align"=>TEXT_ALIGN_BOTTOMLEFT));
	
	/* Do some cosmetic and draw the chart */
	$myPicture->setGraphArea(60,40,670,190);
	$myPicture->drawFilledRectangle(60,40,670,190,array("R"=>255,"G"=>255,"B"=>255,"Surrounding"=>-200,"Alpha"=>10));
	$myPicture->drawScale(array("GridR"=>180,"GridG"=>180,"GridB"=>180, "Mode" => SCALE_MODE_START0));
	$myPicture->setShadow(TRUE,array("X"=>2,"Y"=>2,"R"=>0,"G"=>0,"B"=>0,"Alpha"=>10));
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size));
	$settings = array("Gradient"=>TRUE,"GradientMode"=>GRADIENT_EFFECT_CAN,"DisplayValues"=>$show_values,"DisplayZeroValues"=>FALSE,"DisplayR"=>100,"DisplayG"=>100,"DisplayB"=>100,"DisplayShadow"=>TRUE,"Surrounding"=>5,"AroundZero"=>FALSE);
	$myPicture->drawSplineChart($settings);
	$myPicture->setShadow(FALSE);
	
	if ($show_legend) {
		/* Write the chart legend */ 
		$myPicture->drawLegend(643,210,array("Style"=>LEGEND_NOBORDER,"Mode"=>LEGEND_HORIZONTAL)); 
	}
	
	/* Render the picture */
	$myPicture->stroke();
}

function pch_bullet_chart($graph_type, $data, $legend,
			$width, $height, $font, $water_mark, $font_size, $legend_position, $colors) {
	
	
	/* Create and populate the pData object */
	$MyData = new pData();
	
	foreach ($data as $key => $dat) {
		$MyData->addPoints($dat, $key);
	}
	$MyData->setPalette(__("Min"),array("R"=>55,"G"=>91,"B"=>127));
	$MyData->setPalette(__("Actual"),array("R"=>70,"G"=>130,"B"=>180));
	$MyData->setPalette(__("Max"),array("R"=>221,"G"=>221,"B"=>221));
	
	$MyData->addPoints($legend,"Labels");
	
	
	$MyData->setAbscissa("Labels");
	$MyData->setSerieDescription("Labels", __("Agents/Modules"));
	
	$height_t = ($height * count($data) ) + 40;
	$height_t = $height;
	$max_chars = graph_get_max_index($legend);
	$width_t = ($width + ( 100 + $max_chars));
	
	/* Create the pChart object */
	$myPicture = new pImage($width_t, $height_t,$MyData);
	
	/* Write the picture title */ 
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size));

	/* Write the chart title */ 
	$myPicture->setFontProperties(array("FontName"=>$font,"FontSize"=>$font_size));
	
	$height_t - 10;
	/* Draw the scale and chart */
	$myPicture->setGraphArea(250,20,($width + 100), $height_t);
	$myPicture->drawScale(array("Pos"=>SCALE_POS_TOPBOTTOM, "Mode"=>SCALE_MODE_ADDALL_START0,
		  "LabelingMethod"=>LABELING_DIFFERENT, "GridR"=>255, "GridG"=>255,
		  "GridB"=>255, "GridAlpha"=>50, "TickR"=>0,"TickG"=>0, "TickB"=>0, 
		  "TickAlpha"=>50, "LabelRotation"=>0, "CycleBackground"=>1, 
		  "DrawXLines"=>1, "DrawSubTicks"=>1, "SubTickR"=>255, 
		  "SubTickG"=>0, "SubTickB"=>0, "SubTickAlpha"=>50, 
		  "DrawYLines"=>ALL));
	$myPicture->drawStackedBarChart(array("MODE"=>SCALE_MODE_START0));
	 
	/* Write the chart legend */
	//$myPicture->drawLegend(0,205,array("Style"=>LEGEND_NOBORDER,"Mode"=>LEGEND_HORIZONTAL));
	
	/* Render the picture */
	$myPicture->stroke(); 
}
?>