--- /dev/null
+<?php\r
+ /*\r
+ pChart - a PHP class to build charts!\r
+ Copyright (C) 2008 Jean-Damien POGOLOTTI\r
+ Version 1.27b last updated on 08/21/08\r
+\r
+ http://pchart.sourceforge.net\r
+\r
+ This program is free software: you can redistribute it and/or modify\r
+ it under the terms of the GNU General Public License as published by\r
+ the Free Software Foundation, either version 1,2,3 of the License, or\r
+ (at your option) any later version.\r
+\r
+ This program is distributed in the hope that it will be useful,\r
+ but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ GNU General Public License for more details.\r
+\r
+ You should have received a copy of the GNU General Public License\r
+ along with this program. If not, see <http://www.gnu.org/licenses/>.\r
+\r
+ Class initialisation :\r
+ pChart($XSize,$YSize)\r
+ Draw methods :\r
+ drawBackground($R,$G,$B)\r
+ drawRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B)\r
+ drawFilledRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B,$DrawBorder=TRUE,$Alpha=100)\r
+ drawRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ drawFilledRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ drawCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ drawFilledCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ drawEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ drawFilledEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ drawLine($X1,$Y1,$X2,$Y2,$R,$G,$B,$GraphFunction=FALSE)\r
+ drawDottedLine($X1,$Y1,$X2,$Y2,$DotSize,$R,$G,$B)\r
+ drawAlphaPixel($X,$Y,$Alpha,$R,$G,$B)\r
+ drawFromPNG($FileName,$X,$Y,$Alpha=100)\r
+ drawFromGIF($FileName,$X,$Y,$Alpha=100)\r
+ drawFromJPG($FileName,$X,$Y,$Alpha=100)\r
+ Graph setup methods :\r
+ addBorder($Width=3,$R=0,$G=0,$B=0)\r
+ drawGraphArea($R,$G,$B,$Stripe=FALSE)\r
+ drawScale(&$Data,&$DataDescription,$ScaleMode,$R,$G,$B,$DrawTicks=TRUE,$Angle=0,$Decimals=1,$WithMargin=FALSE,$SkipLabels=1)\r
+ drawGrid($LineWidth,$Mosaic=TRUE,$R=220,$G=220,$B=220,$Alpha=100)\r
+ drawLegend($XPos,$YPos,&$DataDescription,$R,$G,$B,$Rs=-1,$Gs=-1,$Bs=-1)\r
+ drawPieLegend($XPos,$YPos,$Data,$DataDescription,$R,$G,$B)\r
+ drawTitle($XPos,$YPos,$Value,$R,$G,$B,$XPos2=-1,$YPos2=-1)\r
+ drawTreshold($Value,$R,$G,$B,$ShowLabel=FALSE,$ShowOnRight=FALSE,$TickWidth=4,$FreeText=NULL)\r
+ drawArea(&$Data,$Serie1,$Serie2,$R,$G,$B,$Alpha = 50)\r
+ drawRadarAxis(&$Data,&$DataDescription,$Mosaic=TRUE,$BorderOffset=10,$A_R=60,$A_G=60,$A_B=60,$S_R=200,$S_G=200,$S_B=200,$MaxValue=-1)\r
+ drawGraphAreaGradient($R,$G,$B,$Decay,$Target=TARGET_GRAPHAREA)\r
+ drawTextBox($X1,$Y1,$X2,$Y2,$Text,$Angle=0,$R=255,$G=255,$B=255,$Align=ALIGN_LEFT,$Shadow=TRUE,$BgR=-1,$BgG=-1,$BgB=-1,$Alpha=100)\r
+ getLegendBoxSize($DataDescription)\r
+ loadColorPalette($FileName,$Delimiter=",")\r
+ reportWarnings($Interface="CLI")\r
+ setGraphArea($X1,$Y1,$X2,$Y2)\r
+ setFixedScale($VMin,$VMax)\r
+ setLabel(&$Data,&$DataDescription,$SerieName,$ValueName,$Caption,$R=210,$G=210,$B=210)\r
+ setColorPalette($ID,$R,$G,$B)\r
+ setDateFormat($Format)\r
+ setFontProperties($FontName,$FontSize)\r
+ setLineStyle($Width=1,$DotSize=0)\r
+ setFixedScale($VMin,$VMax,$Divisions=5)\r
+ writeValues(&$Data,&$DataDescription,$Series)\r
+ Graphs methods :\r
+ drawPlotGraph(&$Data,&$DataDescription,$BigRadius=5,$SmallRadius=2,$R2=-1,$G2=-1,$B2=-1)\r
+ drawLineGraph(&$Data,&$DataDescription,$SerieName="")\r
+ drawFilledLineGraph(&$Data,&$DataDescription,$Alpha=100,$AroundZero=FALSE)\r
+ drawCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$SerieName="")\r
+ drawFilledCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$Alpha=100,$AroundZero=FALSE)\r
+ drawOverlayBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ drawBarGraph(&$Data,&$DataDescription,$Shadow=FALSE)\r
+ drawStackedBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ drawLimitsGraph(&$Data,&$DataDescription,$R=0,$G=0,$B=0)\r
+ drawRadar(&$Data,&$DataDescription,$BorderOffset=10,$MaxValue=-1)\r
+ drawFilledRadar(&$Data,&$DataDescription,$Alpha=50,$BorderOffset=10,$MaxValue=-1)\r
+ drawBasicPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$R=255,$G=255,$B=255,$Decimals=0)\r
+ drawFlatPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$SpliceDistance=0,$Decimals = 0)\r
+ drawPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$EnhanceColors=TRUE,$Skew=60,$SpliceHeight=20,$SpliceDistance=0,$Decimals=0)\r
+ Other methods :\r
+ setImageMap($Mode=TRUE,$GraphID="MyGraph")\r
+ getImageMap($MapName,$Flush=TRUE)\r
+ Render($FileName)\r
+ Stroke()\r
+ */\r
+ \r
+ /* Andrew@DeFaria.com: Empty array for imageftbbox call\r
+ See http://bugs.php.net/bug.php?id=26309\r
+ */\r
+ /* Declare some script wide constants */\r
+ define("SCALE_NORMAL",1);\r
+ define("SCALE_ADDALL",2);\r
+ define("SCALE_START0",3);\r
+ define("SCALE_ADDALLSTART0",4);\r
+ define("PIE_PERCENTAGE", 1);\r
+ define("PIE_LABELS",2);\r
+ define("PIE_NOLABEL",3);\r
+ define("TARGET_GRAPHAREA",1);\r
+ define("TARGET_BACKGROUND",2);\r
+ define("ALIGN_TOP_LEFT",1);\r
+ define("ALIGN_TOP_CENTER",2);\r
+ define("ALIGN_TOP_RIGHT",3);\r
+ define("ALIGN_LEFT",4);\r
+ define("ALIGN_CENTER",5);\r
+ define("ALIGN_RIGHT",6);\r
+ define("ALIGN_BOTTOM_LEFT",7);\r
+ define("ALIGN_BOTTOM_CENTER",8);\r
+ define("ALIGN_BOTTOM_RIGHT",9);\r
+\r
+ /* pChart class definition */\r
+ class pChart\r
+ {\r
+ /* Palettes definition */\r
+ var $Palette = array("0"=>array("R"=>188,"G"=>224,"B"=>46),\r
+ "1"=>array("R"=>224,"G"=>100,"B"=>46),\r
+ "2"=>array("R"=>224,"G"=>214,"B"=>46),\r
+ "3"=>array("R"=>46,"G"=>151,"B"=>224),\r
+ "4"=>array("R"=>176,"G"=>46,"B"=>224),\r
+ "5"=>array("R"=>224,"G"=>46,"B"=>117),\r
+ "6"=>array("R"=>92,"G"=>224,"B"=>46),\r
+ "7"=>array("R"=>224,"G"=>176,"B"=>46));\r
+\r
+ /* Some static vars used in the class */\r
+ var $XSize = NULL;\r
+ var $YSize = NULL;\r
+ var $Picture = NULL;\r
+ var $ImageMap = NULL;\r
+\r
+ /* Error management */\r
+ var $ErrorReporting = FALSE;\r
+ var $ErrorInterface = "CLI";\r
+ var $Errors = NULL;\r
+ var $ErrorFontName = "Fonts/pf_arma_five.ttf";\r
+ var $ErrorFontSize = 6;\r
+\r
+ /* vars related to the graphing area */\r
+ var $GArea_X1 = NULL;\r
+ var $GArea_Y1 = NULL;\r
+ var $GArea_X2 = NULL;\r
+ var $GArea_Y2 = NULL;\r
+ var $GAreaXOffset = NULL;\r
+ var $VMax = NULL;\r
+ var $VMin = NULL;\r
+ var $Divisions = NULL;\r
+ var $DivisionHeight = NULL;\r
+ var $DivisionCount = NULL;\r
+ var $DivisionRatio = NULL;\r
+ var $DivisionWidth = NULL;\r
+ var $DataCount = NULL;\r
+\r
+ /* Text format related vars */\r
+ var $FontName = NULL;\r
+ var $FontSize = NULL;\r
+ var $DateFormat = "d/m/Y";\r
+\r
+ /* Lines format related vars */\r
+ var $LineWidth = 1;\r
+ var $LineDotSize = 0;\r
+\r
+ /* Layer related vars */\r
+ var $Layers = NULL;\r
+\r
+ /* Set antialias quality : 0 is maximum, 100 minimum*/\r
+ var $AntialiasQuality = 10;\r
+\r
+ /* Image Map settings */\r
+ var $BuildMap = FALSE;\r
+ var $MapFunction = NULL;\r
+ var $tmpFolder = "tmp/";\r
+ var $MapID = NULL;\r
+\r
+ /* This function create the background picture */\r
+ function pChart($XSize,$YSize)\r
+ {\r
+ $this->XSize = $XSize;\r
+ $this->YSize = $YSize;\r
+ $this->Picture = imagecreatetruecolor($XSize,$YSize);\r
+\r
+ $C_White = imagecolorallocate($this->Picture,255,255,255);\r
+ imagefilledrectangle($this->Picture,0,0,$XSize,$YSize,$C_White);\r
+ imagecolortransparent($this->Picture,$C_White);\r
+\r
+ $this->setFontProperties("tahoma.ttf",8);\r
+ }\r
+\r
+ /* Set if warnings should be reported */\r
+ function reportWarnings($Interface="CLI")\r
+ {\r
+ $this->ErrorReporting = TRUE;\r
+ $this->ErrorInterface = $Interface;\r
+ }\r
+\r
+ /* Set the font properties */\r
+ function setFontProperties($FontName,$FontSize)\r
+ {\r
+ $this->FontName = $FontName;\r
+ $this->FontSize = $FontSize;\r
+ }\r
+\r
+ /* Set Palette color */\r
+ function setColorPalette($ID,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $this->Palette[$ID]["R"] = $R;\r
+ $this->Palette[$ID]["G"] = $G;\r
+ $this->Palette[$ID]["B"] = $B;\r
+ }\r
+\r
+ /* Load Color Palette from file */\r
+ function loadColorPalette($FileName,$Delimiter=",")\r
+ {\r
+ $handle = @fopen($FileName,"r");\r
+ $ColorID = 0;\r
+ if ($handle)\r
+ {\r
+ while (!feof($handle))\r
+ {\r
+ $buffer = fgets($handle, 4096);\r
+ $buffer = str_replace(chr(10),"",$buffer);\r
+ $buffer = str_replace(chr(13),"",$buffer);\r
+ $Values = split($Delimiter,$buffer);\r
+ if ( count($Values) == 3 )\r
+ {\r
+ $this->Palette[$ColorID]["R"] = $Values[0];\r
+ $this->Palette[$ColorID]["G"] = $Values[1];\r
+ $this->Palette[$ColorID]["B"] = $Values[2];\r
+ $ColorID++;\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Set line style */\r
+ function setLineStyle($Width=1,$DotSize=0)\r
+ {\r
+ $this->LineWidth = $Width;\r
+ $this->LineDotSize = $DotSize;\r
+ }\r
+\r
+ /* Set the graph area location */\r
+ function setGraphArea($X1,$Y1,$X2,$Y2)\r
+ {\r
+ $this->GArea_X1 = $X1;\r
+ $this->GArea_Y1 = $Y1;\r
+ $this->GArea_X2 = $X2;\r
+ $this->GArea_Y2 = $Y2;\r
+ }\r
+\r
+ /* Prepare the graph area */\r
+ function drawGraphArea($R,$G,$B,$Stripe=FALSE)\r
+ {\r
+ $this->drawFilledRectangle($this->GArea_X1,$this->GArea_Y1,$this->GArea_X2,$this->GArea_Y2,$R,$G,$B,FALSE);\r
+ $this->drawRectangle($this->GArea_X1,$this->GArea_Y1,$this->GArea_X2,$this->GArea_Y2,$R-40,$G-40,$B-40);\r
+\r
+ if ( $Stripe )\r
+ {\r
+ $R2 = $R-15; if ( $R2 < 0 ) { $R2 = 0; }\r
+ $G2 = $R-15; if ( $G2 < 0 ) { $G2 = 0; }\r
+ $B2 = $R-15; if ( $B2 < 0 ) { $B2 = 0; }\r
+\r
+ $LineColor = imagecolorallocate($this->Picture,$R2,$G2,$B2);\r
+ $SkewWidth = $this->GArea_Y2-$this->GArea_Y1-1;\r
+\r
+ for($i=$this->GArea_X1-$SkewWidth;$i<=$this->GArea_X2;$i=$i+4)\r
+ {\r
+ $X1 = $i; $Y1 = $this->GArea_Y2;\r
+ $X2 = $i+$SkewWidth; $Y2 = $this->GArea_Y1;\r
+\r
+\r
+ if ( $X1 < $this->GArea_X1 )\r
+ { $X1 = $this->GArea_X1; $Y1 = $this->GArea_Y1 + $X2 - $this->GArea_X1 + 1; }\r
+\r
+ if ( $X2 >= $this->GArea_X2 )\r
+ { $Y2 = $this->GArea_Y1 + $X2 - $this->GArea_X2 +1; $X2 = $this->GArea_X2 - 1; }\r
+// * Fixed in 1.27 * { $X2 = $this->GArea_X2 - 1; $Y2 = $this->GArea_Y2 - ($this->GArea_X2 - $X1); }\r
+\r
+ imageline($this->Picture,$X1,$Y1,$X2,$Y2+1,$LineColor);\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Allow you to fix the scale, use this to bypass the automatic scaling */\r
+ function setFixedScale($VMin,$VMax,$Divisions=5)\r
+ {\r
+ $this->VMin = $VMin;\r
+ $this->VMax = $VMax;\r
+ $this->Divisions = $Divisions;\r
+ }\r
+\r
+ /* Compute and draw the scale */\r
+ function drawScale(&$Data,&$DataDescription,$ScaleMode,$R,$G,$B,$DrawTicks=TRUE,$Angle=0,$Decimals=1,$WithMargin=FALSE,$SkipLabels=1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateData("drawScale",$Data);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $this->drawLine($this->GArea_X1,$this->GArea_Y1,$this->GArea_X1,$this->GArea_Y2,$R,$G,$B);\r
+ $this->drawLine($this->GArea_X1,$this->GArea_Y2,$this->GArea_X2,$this->GArea_Y2,$R,$G,$B);\r
+\r
+ if ( $this->VMin == NULL && $this->VMax == NULL)\r
+ {\r
+ if (isset($DataDescription["Values"][0]))\r
+ {\r
+ $this->VMin = $Data[0][$DataDescription["Values"][0]];\r
+ $this->VMax = $Data[0][$DataDescription["Values"][0]];\r
+ }\r
+ else { $this->VMin = 2147483647; $this->VMax = -2147483647; }\r
+\r
+ /* Compute Min and Max values */\r
+ if ( $ScaleMode == SCALE_NORMAL || $ScaleMode == SCALE_START0 )\r
+ {\r
+ if ( $ScaleMode == SCALE_START0 ) { $this->VMin = 0; }\r
+\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if (isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+\r
+ if ( is_numeric($Value) )\r
+ {\r
+ if ( $this->VMax < $Value) { $this->VMax = $Value; }\r
+ if ( $this->VMin > $Value) { $this->VMin = $Value; }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ }\r
+ elseif ( $ScaleMode == SCALE_ADDALL || $ScaleMode == SCALE_ADDALLSTART0 ) /* Experimental */\r
+ {\r
+ if ( $ScaleMode == SCALE_ADDALLSTART0 ) { $this->VMin = 0; }\r
+\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Sum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if (isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ if ( is_numeric($Value) )\r
+ $Sum += $Value;\r
+ }\r
+ }\r
+ if ( $this->VMax < $Sum) { $this->VMax = $Sum; }\r
+ if ( $this->VMin > $Sum) { $this->VMin = $Sum; }\r
+ }\r
+ }\r
+\r
+ $DataRange = $this->VMax - $this->VMin;\r
+ if ( $DataRange == 0 ) { $DataRange = .1; }\r
+\r
+ /* Compute automatic scaling */\r
+ $ScaleOk = FALSE; $Factor = 1;\r
+ $MinDivHeight = 25; $MaxDivs = ($this->GArea_Y2 - $this->GArea_Y1) / $MinDivHeight;\r
+ if ($MaxDivs > 1)\r
+ {\r
+ while(!$ScaleOk)\r
+ {\r
+ $Scale1 = ( $this->VMax - $this->VMin ) / $Factor;\r
+ $Scale2 = ( $this->VMax - $this->VMin ) / $Factor / 2;\r
+ $Scale4 = ( $this->VMax - $this->VMin ) / $Factor / 4;\r
+\r
+ if ( $Scale1 > 1 && $Scale1 <= $MaxDivs && !$ScaleOk) { $ScaleOk = TRUE; $Divisions = floor($Scale1); $Scale = 1;}\r
+ if ( $Scale2 > 1 && $Scale2 <= $MaxDivs && !$ScaleOk) { $ScaleOk = TRUE; $Divisions = floor($Scale2); $Scale = 2;}\r
+ if (!$ScaleOk)\r
+ {\r
+ if ( $Scale2 > 1 ) { $Factor = $Factor * 10; }\r
+ if ( $Scale2 < 1 ) { $Factor = $Factor / 10; }\r
+ }\r
+ }\r
+\r
+ if ( floor($this->VMax / $Scale / $Factor) != $this->VMax / $Scale / $Factor)\r
+ {\r
+ $GridID = floor ( $this->VMax / $Scale / $Factor) + 1;\r
+ $this->VMax = $GridID * $Scale * $Factor;\r
+ $Divisions++;\r
+ }\r
+\r
+ if ( floor($this->VMin / $Scale / $Factor) != $this->VMin / $Scale / $Factor)\r
+ {\r
+ $GridID = floor( $this->VMin / $Scale / $Factor);\r
+ $this->VMin = $GridID * $Scale * $Factor;\r
+ $Divisions++;\r
+ }\r
+ }\r
+ else /* Can occurs for small graphs */\r
+ $Scale = 1;\r
+\r
+ if ( !isset($Divisions) )\r
+ $Divisions = 2;\r
+\r
+ if ($Scale == 1 && $Divisions%2 == 1)\r
+ $Divisions--;\r
+ }\r
+ else\r
+ $Divisions = $this->Divisions;\r
+\r
+ $this->DivisionCount = $Divisions;\r
+\r
+ $DataRange = $this->VMax - $this->VMin;\r
+ if ( $DataRange == 0 ) { $DataRange = .1; }\r
+\r
+ $this->DivisionHeight = ( $this->GArea_Y2 - $this->GArea_Y1 ) / $Divisions;\r
+ $this->DivisionRatio = ( $this->GArea_Y2 - $this->GArea_Y1 ) / $DataRange;\r
+\r
+ $this->GAreaXOffset = 0;\r
+ if ( count($Data) > 1 )\r
+ {\r
+ if ( $WithMargin == FALSE )\r
+ $this->DivisionWidth = ( $this->GArea_X2 - $this->GArea_X1 ) / (count($Data)-1);\r
+ else\r
+ {\r
+ $this->DivisionWidth = ( $this->GArea_X2 - $this->GArea_X1 ) / (count($Data));\r
+ $this->GAreaXOffset = $this->DivisionWidth / 2;\r
+ }\r
+ }\r
+ else\r
+ {\r
+ $this->DivisionWidth = $this->GArea_X2 - $this->GArea_X1;\r
+ $this->GAreaXOffset = $this->DivisionWidth / 2;\r
+ }\r
+\r
+ $this->DataCount = count($Data);\r
+\r
+ if ( $DrawTicks == FALSE )\r
+ return(0);\r
+\r
+ $YPos = $this->GArea_Y2; $XMin = NULL;\r
+ for($i=1;$i<=$Divisions+1;$i++)\r
+ {\r
+ $this->drawLine($this->GArea_X1,$YPos,$this->GArea_X1-5,$YPos,$R,$G,$B);\r
+ $Value = $this->VMin + ($i-1) * (( $this->VMax - $this->VMin ) / $Divisions);\r
+ $Value = round($Value * pow(10,$Decimals)) / pow(10,$Decimals);\r
+ if ( $DataDescription["Format"]["Y"] == "number" )\r
+ $Value = $Value.$DataDescription["Unit"]["Y"];\r
+ if ( $DataDescription["Format"]["Y"] == "time" )\r
+ $Value = $this->ToTime($Value); \r
+ if ( $DataDescription["Format"]["Y"] == "date" )\r
+ $Value = $this->ToDate($Value); \r
+ if ( $DataDescription["Format"]["Y"] == "metric" )\r
+ $Value = $this->ToMetric($Value); \r
+\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ imagettftext($this->Picture,$this->FontSize,0,$this->GArea_X1-10-$TextWidth,$YPos+($this->FontSize/2),$C_TextColor,$this->FontName,$Value);\r
+\r
+ if ( $XMin > $this->GArea_X1-10-$TextWidth || $XMin == NULL ) { $XMin = $this->GArea_X1-10-$TextWidth; }\r
+\r
+ $YPos = $YPos - $this->DivisionHeight;\r
+ }\r
+\r
+ /* Write the Y Axis caption if set */ \r
+ if ( isset($DataDescription["Axis"]["Y"]) )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,90,$this->FontName,$DataDescription["Axis"]["Y"],$bogus);\r
+ $TextHeight = abs($Position[1])+abs($Position[3]);\r
+ $TextTop = (($this->GArea_Y2 - $this->GArea_Y1) / 2) + $this->GArea_Y1 + ($TextHeight/2);\r
+ imagettftext($this->Picture,$this->FontSize,90,$XMin-$this->FontSize,$TextTop,$C_TextColor,$this->FontName,$DataDescription["Axis"]["Y"]);\r
+ }\r
+\r
+ /* Horizontal Axis */\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $ID = 1; $YMax = NULL;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( $ID % $SkipLabels == 0 )\r
+ {\r
+ $this->drawLine(floor($XPos),$this->GArea_Y2,floor($XPos),$this->GArea_Y2+5,$R,$G,$B);\r
+ $Value = $Data[$Key][$DataDescription["Position"]];\r
+ if ( $DataDescription["Format"]["X"] == "number" )\r
+ $Value = $Value.$DataDescription["Unit"]["X"];\r
+ if ( $DataDescription["Format"]["X"] == "time" )\r
+ $Value = $this->ToTime($Value); \r
+ if ( $DataDescription["Format"]["X"] == "date" )\r
+ $Value = $this->ToDate($Value); \r
+ if ( $DataDescription["Format"]["X"] == "metric" )\r
+ $Value = $this->ToMetric($Value); \r
+\r
+ $Position = imageftbbox($this->FontSize,$Angle,$this->FontName,$Value,$bogus);\r
+ $TextWidth = abs($Position[2])+abs($Position[0]);\r
+ $TextHeight = abs($Position[1])+abs($Position[3]);\r
+\r
+ if ( $Angle == 0 )\r
+ {\r
+ $YPos = $this->GArea_Y2+18;\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,floor($XPos)-floor($TextWidth/2),$YPos,$C_TextColor,$this->FontName,$Value);\r
+ }\r
+ else\r
+ {\r
+ $YPos = $this->GArea_Y2+10+$TextHeight;\r
+ if ( $Angle <= 90 )\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,floor($XPos)-$TextWidth+5,$YPos,$C_TextColor,$this->FontName,$Value);\r
+ else\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,floor($XPos)+$TextWidth+5,$YPos,$C_TextColor,$this->FontName,$Value);\r
+ }\r
+ if ( $YMax < $YPos || $YMax == NULL ) { $YMax = $YPos; }\r
+ }\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ $ID++;\r
+ }\r
+\r
+ /* Write the X Axis caption if set */ \r
+ if ( isset($DataDescription["Axis"]["X"]) )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,90,$this->FontName,$DataDescription["Axis"]["X"],$bogus);\r
+ $TextWidth = abs($Position[2])+abs($Position[0]);\r
+ $TextLeft = (($this->GArea_X2 - $this->GArea_X1) / 2) + $this->GArea_X1 + ($TextWidth/2);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TextLeft,$YMax+$this->FontSize+5,$C_TextColor,$this->FontName,$DataDescription["Axis"]["X"]);\r
+ }\r
+ }\r
+\r
+ /* Compute and draw the scale */\r
+ function drawGrid($LineWidth,$Mosaic=TRUE,$R=220,$G=220,$B=220,$Alpha=100)\r
+ {\r
+ /* Draw mosaic */\r
+ if ( $Mosaic )\r
+ {\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Layers[0],250,250,250);\r
+\r
+ $YPos = $LayerHeight; //$this->GArea_Y2-1;\r
+ $LastY = $YPos;\r
+ for($i=0;$i<=$this->DivisionCount;$i++)\r
+ {\r
+ $LastY = $YPos;\r
+ $YPos = $YPos - $this->DivisionHeight;\r
+\r
+ if ( $YPos <= 0 ) { $YPos = 1; }\r
+\r
+ if ( $i % 2 == 0 )\r
+ {\r
+ imagefilledrectangle($this->Layers[0],1,$YPos,$LayerWidth-1,$LastY,$C_Rectangle);\r
+ }\r
+ }\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ }\r
+\r
+ /* Horizontal lines */\r
+ $YPos = $this->GArea_Y2 - $this->DivisionHeight;\r
+ for($i=1;$i<=$this->DivisionCount;$i++)\r
+ {\r
+ if ( $YPos > $this->GArea_Y1 && $YPos < $this->GArea_Y2 )\r
+ $this->drawDottedLine($this->GArea_X1,$YPos,$this->GArea_X2,$YPos,$LineWidth,$R,$G,$B);\r
+ \r
+ $YPos = $YPos - $this->DivisionHeight;\r
+ }\r
+\r
+ /* Vertical lines */\r
+ if ( $this->GAreaXOffset == 0 )\r
+ { $XPos = $this->GArea_X1 + $this->DivisionWidth + $this->GAreaXOffset; $ColCount = $this->DataCount-2; }\r
+ else\r
+ { $XPos = $this->GArea_X1 + $this->GAreaXOffset; $ColCount = $this->DataCount; }\r
+\r
+ for($i=1;$i<=$ColCount;$i++)\r
+ {\r
+ if ( $XPos > $this->GArea_X1 && $XPos < $this->GArea_X2 )\r
+ $this->drawDottedLine(floor($XPos),$this->GArea_Y1,floor($XPos),$this->GArea_Y2,$LineWidth,$R,$G,$B);\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ }\r
+\r
+ /* retrieve the legends size */\r
+ function getLegendBoxSize($DataDescription)\r
+ {\r
+ if ( !isset($DataDescription["Description"]) )\r
+ return(-1);\r
+\r
+ /* <-10->[8]<-4->Text<-10-> */\r
+ $MaxWidth = 0; $MaxHeight = 8;\r
+ foreach($DataDescription["Description"] as $Key => $Value)\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ if ( $TextWidth > $MaxWidth) { $MaxWidth = $TextWidth; }\r
+ $MaxHeight = $MaxHeight + $TextHeight + 4;\r
+ }\r
+ $MaxHeight = $MaxHeight - 3;\r
+ $MaxWidth = $MaxWidth + 32;\r
+\r
+ return(array($MaxWidth,$MaxHeight));\r
+ }\r
+\r
+ /* Draw the data legends */\r
+ function drawLegend($XPos,$YPos,&$DataDescription,$R,$G,$B,$Rs=-1,$Gs=-1,$Bs=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawLegend",$DataDescription);\r
+\r
+ if ( !isset($DataDescription["Description"]) )\r
+ return(-1);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,0,0,0);\r
+\r
+ /* <-10->[8]<-4->Text<-10-> */\r
+ $MaxWidth = 0; $MaxHeight = 8;\r
+ foreach($DataDescription["Description"] as $Key => $Value)\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ if ( $TextWidth > $MaxWidth) { $MaxWidth = $TextWidth; }\r
+ $MaxHeight = $MaxHeight + $TextHeight + 4;\r
+ }\r
+ $MaxHeight = $MaxHeight - 5;\r
+ $MaxWidth = $MaxWidth + 32;\r
+\r
+ if ( $Rs == -1 || $Gs == -1 || $Bs == -1 )\r
+ { $Rs = $R-30; $Gs = $G-30; $Bs = $B-30; }\r
+\r
+ $this->drawFilledRoundedRectangle($XPos+1,$YPos+1,$XPos+$MaxWidth+1,$YPos+$MaxHeight+1,5,$Rs,$Gs,$Bs);\r
+ $this->drawFilledRoundedRectangle($XPos,$YPos,$XPos+$MaxWidth,$YPos+$MaxHeight,5,$R,$G,$B);\r
+\r
+ $YOffset = 4 + $this->FontSize; $ID = 0;\r
+ foreach($DataDescription["Description"] as $Key => $Value)\r
+ {\r
+ $this->drawFilledRoundedRectangle($XPos+10,$YPos+$YOffset-4,$XPos+14,$YPos+$YOffset-4,2,$this->Palette[$ID]["R"],$this->Palette[$ID]["G"],$this->Palette[$ID]["B"]);\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos+22,$YPos+$YOffset,$C_TextColor,$this->FontName,$Value);\r
+\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextHeight = $Position[1]-$Position[7];\r
+\r
+ $YOffset = $YOffset + $TextHeight + 4;\r
+ $ID++;\r
+ }\r
+ }\r
+\r
+ /* Draw the data legends */\r
+ function drawPieLegend($XPos,$YPos,&$Data,&$DataDescription,$R,$G,$B)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawPieLegend",$DataDescription,FALSE);\r
+ $this->validateData("drawPieLegend",$Data);\r
+\r
+ if ( !isset($DataDescription["Position"]) )\r
+ return(-1);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,0,0,0);\r
+\r
+ /* <-10->[8]<-4->Text<-10-> */\r
+ $MaxWidth = 0; $MaxHeight = 8;\r
+ foreach($Data as $Key => $Value)\r
+ {\r
+ $Value2 = $Value[$DataDescription["Position"]];\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value2,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ if ( $TextWidth > $MaxWidth) { $MaxWidth = $TextWidth; }\r
+\r
+ $MaxHeight = $MaxHeight + $TextHeight + 4;\r
+ }\r
+ $MaxHeight = $MaxHeight - 3;\r
+ $MaxWidth = $MaxWidth + 32;\r
+\r
+ $this->drawFilledRoundedRectangle($XPos+1,$YPos+1,$XPos+$MaxWidth+1,$YPos+$MaxHeight+1,5,$R-30,$G-30,$B-30);\r
+ $this->drawFilledRoundedRectangle($XPos,$YPos,$XPos+$MaxWidth,$YPos+$MaxHeight,5,$R,$G,$B);\r
+\r
+ $YOffset = 4 + $this->FontSize; $ID = 0;\r
+ foreach($Data as $Key => $Value)\r
+ {\r
+ $Value2 = $Value[$DataDescription["Position"]];\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value2,$bogus);\r
+ $TextHeight = $Position[1]-$Position[7];\r
+ $this->drawFilledRectangle($XPos+10,$YPos+$YOffset-6,$XPos+14,$YPos+$YOffset-2,$this->Palette[$ID]["R"],$this->Palette[$ID]["G"],$this->Palette[$ID]["B"]);\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos+22,$YPos+$YOffset,$C_TextColor,$this->FontName,$Value2);\r
+ $YOffset = $YOffset + $TextHeight + 4;\r
+ $ID++;\r
+ }\r
+ }\r
+\r
+ /* Draw the graph title */\r
+ function drawTitle($XPos,$YPos,$Value,$R,$G,$B,$XPos2 = -1, $YPos2 = -1)\r
+ {\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ if ( $XPos2 != -1 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $XPos = floor(( $XPos2 - $XPos - $TextWidth ) / 2 ) + $XPos;\r
+ }\r
+\r
+ if ( $YPos2 != -1 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Value,$bogus);\r
+ $TextHeight = $Position[5]-$Position[3];\r
+ $YPos = floor(( $YPos2 - $YPos - $TextHeight ) / 2 ) + $YPos;\r
+ }\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos,$YPos,$C_TextColor,$this->FontName,$Value); \r
+ }\r
+\r
+ /* Draw a text box with text align & alpha properties */\r
+ function drawTextBox($X1,$Y1,$X2,$Y2,$Text,$Angle=0,$R=255,$G=255,$B=255,$Align=ALIGN_LEFT,$Shadow=TRUE,$BgR=-1,$BgG=-1,$BgB=-1,$Alpha=100)\r
+ {\r
+ $Position = imageftbbox($this->FontSize,$Angle,$this->FontName,$Text,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextHeight = $Position[5]-$Position[3];\r
+ $AreaWidth = $X2 - $X1;\r
+ $AreaHeight = $Y2 - $Y1;\r
+\r
+ if ( $BgR != -1 && $BgG != -1 && $BgB != -1 )\r
+ $this->drawFilledRectangle($X1,$Y1,$X2,$Y2,$BgR,$BgG,$BgB,FALSE,$Alpha);\r
+\r
+ if ( $Align == ALIGN_TOP_LEFT ) { $X = $X1+1; $Y = $Y1+$this->FontSize+1; }\r
+ if ( $Align == ALIGN_TOP_CENTER ) { $X = $X1+($AreaWidth/2)-($TextWidth/2); $Y = $Y1+$this->FontSize+1; }\r
+ if ( $Align == ALIGN_TOP_RIGHT ) { $X = $X2-$TextWidth-1; $Y = $Y1+$this->FontSize+1; }\r
+ if ( $Align == ALIGN_LEFT ) { $X = $X1+1; $Y = $Y1+($AreaHeight/2)-($TextHeight/2); }\r
+ if ( $Align == ALIGN_CENTER ) { $X = $X1+($AreaWidth/2)-($TextWidth/2); $Y = $Y1+($AreaHeight/2)-($TextHeight/2); }\r
+ if ( $Align == ALIGN_RIGHT ) { $X = $X2-$TextWidth-1; $Y = $Y1+($AreaHeight/2)-($TextHeight/2); }\r
+ if ( $Align == ALIGN_BOTTOM_LEFT ) { $X = $X1+1; $Y = $Y2-1; }\r
+ if ( $Align == ALIGN_BOTTOM_CENTER ) { $X = $X1+($AreaWidth/2)-($TextWidth/2); $Y = $Y2-1; }\r
+ if ( $Align == ALIGN_BOTTOM_RIGHT ) { $X = $X2-$TextWidth-1; $Y = $Y2-1; }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $C_ShadowColor = imagecolorallocate($this->Picture,0,0,0);\r
+ if ( $Shadow )\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,$X+1,$Y+1,$C_ShadowColor,$this->FontName,$Text); \r
+\r
+ imagettftext($this->Picture,$this->FontSize,$Angle,$X,$Y,$C_TextColor,$this->FontName,$Text); \r
+ }\r
+\r
+ /* Compute and draw the scale */\r
+ function drawTreshold($Value,$R,$G,$B,$ShowLabel=FALSE,$ShowOnRight=FALSE,$TickWidth=4,$FreeText=NULL)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $Y = $this->GArea_Y2 - ($Value - $this->VMin) * $this->DivisionRatio;\r
+\r
+ if ( $Y <= $this->GArea_Y1 || $Y >= $this->GArea_Y2 )\r
+ return(-1);\r
+\r
+ if ( $TickWidth == 0 )\r
+ $this->drawLine($this->GArea_X1,$Y,$this->GArea_X2,$Y,$R,$G,$B);\r
+ else\r
+ $this->drawDottedLine($this->GArea_X1,$Y,$this->GArea_X2,$Y,$TickWidth,$R,$G,$B);\r
+\r
+ if ( $ShowLabel )\r
+ {\r
+ if ( $FreeText == NULL )\r
+ { $Label = $Value; } else { $Label = $FreeText; }\r
+\r
+ if ( $ShowOnRight )\r
+ imagettftext($this->Picture,$this->FontSize,0,$this->GArea_X2+2,$Y+($this->FontSize/2),$C_TextColor,$this->FontName,$Label);\r
+ else\r
+ imagettftext($this->Picture,$this->FontSize,0,$this->GArea_X1+2,$Y-($this->FontSize/2),$C_TextColor,$this->FontName,$Label);\r
+ }\r
+ }\r
+\r
+ /* This function put a label on a specific point */\r
+ function setLabel(&$Data,&$DataDescription,$SerieName,$ValueName,$Caption,$R=210,$G=210,$B=210)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("setLabel",$DataDescription);\r
+ $this->validateData("setLabel",$Data);\r
+\r
+ $C_Label = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $C_Shadow = imagecolorallocate($this->Picture,$R-30,$G-30,$B-30);\r
+ $C_TextColor = imagecolorallocate($this->Picture,0,0,0);\r
+\r
+ $Cp = 0; $Found = FALSE;\r
+ foreach ( $Data as $Key => $Value )\r
+ {\r
+ if ( $Data[$Key][$DataDescription["Position"]] == $ValueName )\r
+ { $NumericalValue = $Data[$Key][$SerieName]; $Found = TRUE; }\r
+ if ( !$Found )\r
+ $Cp++;\r
+ }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset + ( $this->DivisionWidth * $Cp ) + 2;\r
+ $YPos = $this->GArea_Y2 - ($NumericalValue - $this->VMin) * $this->DivisionRatio;\r
+\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextHeight = $Position[3] - $Position[5];\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TextOffset = floor($TextHeight/2);\r
+\r
+ // Shadow\r
+ $Poly = array($XPos+1,$YPos+1,$XPos + 9,$YPos - $TextOffset,$XPos + 8,$YPos + $TextOffset + 2);\r
+ imagefilledpolygon($this->Picture,$Poly,3,$C_Shadow);\r
+ $this->drawLine($XPos,$YPos+1,$XPos + 9,$YPos - $TextOffset - 1,$R-30,$G-30,$B-30);\r
+ $this->drawLine($XPos,$YPos+1,$XPos + 9,$YPos + $TextOffset + 3,$R-30,$G-30,$B-30);\r
+ $this->drawFilledRectangle($XPos + 9,$YPos - $TextOffset,$XPos + 13 + $TextWidth,$YPos + $TextOffset + 2,$R-30,$G-30,$B-30);\r
+\r
+ // Label background\r
+ $Poly = array($XPos,$YPos,$XPos + 8,$YPos - $TextOffset - 1,$XPos + 8,$YPos + $TextOffset + 1);\r
+ imagefilledpolygon($this->Picture,$Poly,3,$C_Label);\r
+ $this->drawLine($XPos-1,$YPos,$XPos + 8,$YPos - $TextOffset - 2,$R,$G,$B);\r
+ $this->drawLine($XPos-1,$YPos,$XPos + 8,$YPos + $TextOffset + 2,$R,$G,$B);\r
+ $this->drawFilledRectangle($XPos + 8,$YPos - $TextOffset - 1,$XPos + 12 + $TextWidth,$YPos + $TextOffset + 1,$R,$G,$B);\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$XPos + 10,$YPos + $TextOffset,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* This function draw a line graph */\r
+ function drawPlotGraph(&$Data,&$DataDescription,$BigRadius=5,$SmallRadius=2,$R2=-1,$G2=-1,$B2=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawPlotGraph",$DataDescription);\r
+ $this->validateData("drawPlotGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $R = $this->Palette[$ColorID]["R"];\r
+ $G = $this->Palette[$ColorID]["G"];\r
+ $B = $this->Palette[$ColorID]["B"];\r
+\r
+ if ( isset($DataDescription["Symbol"][$ColName]) )\r
+ {\r
+ //$Is_Alpha = ((ord ( file_get_contents ($DataDescription["Symbol"][$ColName], false, null, 25, 1)) & 6) & 4) == 4;\r
+ $Is_Alpha = ((ord ( file_get_contents ($DataDescription["Symbol"][$ColName], false)) & 6) & 4) == 4;\r
+\r
+ $Infos = getimagesize($DataDescription["Symbol"][$ColName]);\r
+ $ImageWidth = $Infos[0];\r
+ $ImageHeight = $Infos[1];\r
+ $Symbol = imagecreatefromgif($DataDescription["Symbol"][$ColName]);\r
+ }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $Hsize = round($BigRadius/2);\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos-$Hsize,$YPos-$Hsize,$XPos+1+$Hsize,$YPos+$Hsize+1,$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"Plot");\r
+\r
+ if ( is_numeric($Value) )\r
+ {\r
+ if ( !isset($DataDescription["Symbol"][$ColName]) )\r
+ {\r
+ $this->drawFilledCircle($XPos+1,$YPos+1,$BigRadius,$R,$G,$B);\r
+\r
+ if ( $R2 !=-1 && $G2 !=-1 && $B2 !=-1 )\r
+ $this->drawFilledCircle($XPos+1,$YPos+1,$SmallRadius,$R2,$G2,$B2);\r
+ else\r
+ {\r
+ $R = $this->Palette[$ColorID]["R"]-5; if ( $R < 0 ) { $R = 0; }\r
+ $G = $this->Palette[$ColorID]["G"]-5; if ( $G < 0 ) { $G = 0; }\r
+ $B = $this->Palette[$ColorID]["B"]-5; if ( $B < 0 ) { $B = 0; }\r
+\r
+ $this->drawFilledCircle($XPos+1,$YPos+1,$SmallRadius,$R,$G,$B);\r
+ }\r
+ }\r
+ else\r
+ {\r
+ imagecopymerge($this->Picture,$Symbol,$XPos+1-$ImageWidth/2,$YPos+1-$ImageHeight/2,0,0,$ImageWidth,$ImageHeight,100);\r
+ }\r
+ }\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+\r
+ /* This function draw an area between two series */\r
+ function drawArea(&$Data,$Serie1,$Serie2,$R,$G,$B,$Alpha = 50)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateData("drawArea",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$R,$G,$B);\r
+\r
+ $XPos = $this->GAreaXOffset;\r
+ $LastXPos = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value1 = $Data[$Key][$Serie1];\r
+ $Value2 = $Data[$Key][$Serie2];\r
+ $YPos1 = $LayerHeight - (($Value1-$this->VMin) * $this->DivisionRatio);\r
+ $YPos2 = $LayerHeight - (($Value2-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $LastXPos != -1 )\r
+ {\r
+ $Points = "";\r
+ $Points[] = $LastXPos; $Points[] = $LastYPos1;\r
+ $Points[] = $LastXPos; $Points[] = $LastYPos2;\r
+ $Points[] = $XPos; $Points[] = $YPos2;\r
+ $Points[] = $XPos; $Points[] = $YPos1;\r
+\r
+ imagefilledpolygon($this->Layers[0],$Points,4,$C_Graph);\r
+ }\r
+\r
+ $LastYPos1 = $YPos1;\r
+ $LastYPos2 = $YPos2;\r
+ $LastXPos = $XPos;\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ }\r
+\r
+\r
+ /* This function write the values of the specified series */\r
+ function writeValues(&$Data,&$DataDescription,$Series)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("writeValues",$DataDescription);\r
+ $this->validateData("writeValues",$Data);\r
+\r
+ if ( !is_array($Series) ) { $Series = array($Series); } \r
+\r
+ foreach($Series as $Key => $Serie)\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $Serie ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$Serie]) && is_numeric($Data[$Key][$Serie]))\r
+ {\r
+ $Value = $Data[$Key][$Serie];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ $Positions = imagettfbbox($this->FontSize,0,$this->FontName,$Value);\r
+ $Width = $Positions[2] - $Positions[6]; $XOffset = $XPos - ($Width/2); \r
+ $Height = $Positions[3] - $Positions[7]; $YOffset = $YPos - 4;\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagettftext($this->Picture,$this->FontSize,0,$XOffset,$YOffset,$C_TextColor,$this->FontName,$Value);\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+\r
+ }\r
+ }\r
+\r
+ /* This function draw a line graph */\r
+ function drawLineGraph(&$Data,&$DataDescription,$SerieName="")\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawLineGraph",$DataDescription);\r
+ $this->validateData("drawLineGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ if ( $SerieName == "" || $SerieName == $ColName )\r
+ {\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos-3,$YPos-3,$XPos+3,$YPos+3,$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"Line");\r
+\r
+ if (!is_numeric($Value)) { $XLast = -1; }\r
+ if ( $XLast != -1 )\r
+ $this->drawLine($XLast,$YLast,$XPos,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ if (!is_numeric($Value)) { $XLast = -1; }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $GraphID++;\r
+ }\r
+ }\r
+ }\r
+\r
+ /* This function draw a cubic curve */\r
+ function drawCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$SerieName="")\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawCubicCurve",$DataDescription);\r
+ $this->validateData("drawCubicCurve",$Data);\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $SerieName == "" || $SerieName == $ColName )\r
+ {\r
+ $XIn = ""; $Yin = ""; $Yt = ""; $U = "";\r
+ $XIn[0] = 0; $YIn[0] = 0;\r
+\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Index = 1;\r
+ $XLast = -1; $Missing = "";\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $XIn[$Index] = $Index;\r
+ $YIn[$Index] = $Value;\r
+ if ( !is_numeric($Value) ) { $Missing[$Index] = TRUE; }\r
+ $Index++;\r
+ }\r
+ }\r
+ $Index--;\r
+\r
+ $Yt[0] = 0;\r
+ $Yt[1] = 0;\r
+ $U[1] = 0;\r
+ for($i=2;$i<=$Index-1;$i++)\r
+ {\r
+ $Sig = ($XIn[$i] - $XIn[$i-1]) / ($XIn[$i+1] - $XIn[$i-1]);\r
+ $p = $Sig * $Yt[$i-1] + 2;\r
+ $Yt[$i] = ($Sig - 1) / $p;\r
+ $U[$i] = ($YIn[$i+1] - $YIn[$i]) / ($XIn[$i+1] - $XIn[$i]) - ($YIn[$i] - $YIn[$i-1]) / ($XIn[$i] - $XIn[$i-1]);\r
+ $U[$i] = (6 * $U[$i] / ($XIn[$i+1] - $XIn[$i-1]) - $Sig * $U[$i-1]) / $p;\r
+ }\r
+\r
+ $qn = 0;\r
+ $un = 0;\r
+ $Yt[$Index] = ($un - $qn * $U[$Index-1]) / ($qn * $Yt[$Index-1] + 1);\r
+\r
+ for($k=$Index-1;$k>=1;$k--)\r
+ $Yt[$k] = $Yt[$k] * $Yt[$k+1] + $U[$k];\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+ for($X=1;$X<=$Index;$X=$X+$Accuracy)\r
+ {\r
+ $klo = 1;\r
+ $khi = $Index;\r
+ $k = $khi - $klo;\r
+ while($k > 1)\r
+ {\r
+ $k = $khi - $klo;\r
+ If ( $XIn[$k] >= $X )\r
+ $khi = $k;\r
+ else\r
+ $klo = $k;\r
+ }\r
+ $klo = $khi - 1;\r
+\r
+ $h = $XIn[$khi] - $XIn[$klo];\r
+ $a = ($XIn[$khi] - $X) / $h;\r
+ $b = ($X - $XIn[$klo]) / $h;\r
+ $Value = $a * $YIn[$klo] + $b * $YIn[$khi] + (($a*$a*$a - $a) * $Yt[$klo] + ($b*$b*$b - $b) * $Yt[$khi]) * ($h*$h) / 6;\r
+\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $XLast != -1 && !isset($Missing[floor($X)]) && !isset($Missing[floor($X+1)]) )\r
+ $this->drawLine($XLast,$YLast,$XPos,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ $XPos = $XPos + $this->DivisionWidth * $Accuracy;\r
+ }\r
+\r
+ // Add potentialy missing values\r
+ $XPos = $XPos - $this->DivisionWidth * $Accuracy;\r
+ if ( $XPos < ($this->GArea_X2 - $this->GAreaXOffset) )\r
+ {\r
+ $YPos = $this->GArea_Y2 - (($YIn[$Index]-$this->VMin) * $this->DivisionRatio);\r
+ $this->drawLine($XLast,$YLast,$this->GArea_X2-$this->GAreaXOffset,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+ }\r
+\r
+ $GraphID++;\r
+ }\r
+ }\r
+ }\r
+\r
+ /* This function draw a filled cubic curve */\r
+ function drawFilledCubicCurve(&$Data,&$DataDescription,$Accuracy=.1,$Alpha=100,$AroundZero=FALSE)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFilledCubicCurve",$DataDescription);\r
+ $this->validateData("drawFilledCubicCurve",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+ $YZero = $LayerHeight - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $LayerHeight ) { $YZero = $LayerHeight; }\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $XIn = ""; $Yin = ""; $Yt = ""; $U = "";\r
+ $XIn[0] = 0; $YIn[0] = 0;\r
+\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Index = 1;\r
+ $XLast = -1; $Missing = "";\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $XIn[$Index] = $Index;\r
+ $YIn[$Index] = $Value;\r
+ if ( !is_numeric($Value) ) { $Missing[$Index] = TRUE; }\r
+ $Index++;\r
+ }\r
+ $Index--;\r
+ \r
+ $Yt[0] = 0;\r
+ $Yt[1] = 0;\r
+ $U[1] = 0;\r
+ for($i=2;$i<=$Index-1;$i++)\r
+ {\r
+ $Sig = ($XIn[$i] - $XIn[$i-1]) / ($XIn[$i+1] - $XIn[$i-1]);\r
+ $p = $Sig * $Yt[$i-1] + 2;\r
+ $Yt[$i] = ($Sig - 1) / $p;\r
+ $U[$i] = ($YIn[$i+1] - $YIn[$i]) / ($XIn[$i+1] - $XIn[$i]) - ($YIn[$i] - $YIn[$i-1]) / ($XIn[$i] - $XIn[$i-1]);\r
+ $U[$i] = (6 * $U[$i] / ($XIn[$i+1] - $XIn[$i-1]) - $Sig * $U[$i-1]) / $p;\r
+ }\r
+\r
+ $qn = 0;\r
+ $un = 0;\r
+ $Yt[$Index] = ($un - $qn * $U[$Index-1]) / ($qn * $Yt[$Index-1] + 1);\r
+\r
+ for($k=$Index-1;$k>=1;$k--)\r
+ $Yt[$k] = $Yt[$k] * $Yt[$k+1] + $U[$k];\r
+\r
+ $Points = "";\r
+ $Points[] = $this->GAreaXOffset;\r
+ $Points[] = $LayerHeight;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $YLast = NULL;\r
+ $XPos = $this->GAreaXOffset; $PointsCount = 2;\r
+ for($X=1;$X<=$Index;$X=$X+$Accuracy)\r
+ {\r
+ $klo = 1;\r
+ $khi = $Index;\r
+ $k = $khi - $klo;\r
+ while($k > 1)\r
+ {\r
+ $k = $khi - $klo;\r
+ If ( $XIn[$k] >= $X )\r
+ $khi = $k;\r
+ else\r
+ $klo = $k;\r
+ }\r
+ $klo = $khi - 1;\r
+\r
+ $h = $XIn[$khi] - $XIn[$klo];\r
+ $a = ($XIn[$khi] - $X) / $h;\r
+ $b = ($X - $XIn[$klo]) / $h;\r
+ $Value = $a * $YIn[$klo] + $b * $YIn[$khi] + (($a*$a*$a - $a) * $Yt[$klo] + ($b*$b*$b - $b) * $Yt[$khi]) * ($h*$h) / 6;\r
+\r
+ $YPos = $LayerHeight - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $YLast != NULL && $AroundZero && !isset($Missing[floor($X)]) && !isset($Missing[floor($X+1)]))\r
+ {\r
+ $aPoints = "";\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YLast;\r
+ $aPoints[] = $XPos;\r
+ $aPoints[] = $YPos;\r
+ $aPoints[] = $XPos;\r
+ $aPoints[] = $YZero;\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YZero;\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$aPoints,4,$C_Graph);\r
+ }\r
+\r
+ if ( !isset($Missing[floor($X)]) || $YLast == NULL )\r
+ {\r
+ $PointsCount++;\r
+ $Points[] = $XPos;\r
+ $Points[] = $YPos;\r
+ }\r
+ else\r
+ {\r
+ $PointsCount++; $Points[] = $XLast; $Points[] = $LayerHeight;\r
+ }\r
+\r
+ $YLast = $YPos; $XLast = $XPos; \r
+ $XPos = $XPos + $this->DivisionWidth * $Accuracy;\r
+ }\r
+\r
+ // Add potentialy missing values\r
+ $XPos = $XPos - $this->DivisionWidth * $Accuracy;\r
+ if ( $XPos < ($LayerWidth-$this->GAreaXOffset) )\r
+ {\r
+ $YPos = $LayerHeight - (($YIn[$Index]-$this->VMin) * $this->DivisionRatio);\r
+\r
+ if ( $YLast != NULL && $AroundZero )\r
+ {\r
+ $aPoints = "";\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YLast;\r
+ $aPoints[] = $LayerWidth-$this->GAreaXOffset;\r
+ $aPoints[] = $YPos;\r
+ $aPoints[] = $LayerWidth-$this->GAreaXOffset;\r
+ $aPoints[] = $YZero;\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $YZero;\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$aPoints,4,$C_Graph);\r
+ }\r
+\r
+ if ( $YIn[$klo] != "" && $YIn[$khi] != "" || $YLast == NULL )\r
+ {\r
+ $PointsCount++;\r
+ $Points[] = $LayerWidth-$this->GAreaXOffset;\r
+ $Points[] = $YPos;\r
+ }\r
+ }\r
+\r
+ $Points[] = $LayerWidth-$this->GAreaXOffset;\r
+ $Points[] = $LayerHeight;\r
+\r
+ if ( !$AroundZero )\r
+ {\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$Points,$PointsCount,$C_Graph);\r
+ }\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+\r
+ $this->drawCubicCurve($Data,$DataDescription,$Accuracy,$ColName);\r
+\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a filled line graph */\r
+ function drawFilledLineGraph(&$Data,&$DataDescription,$Alpha=100,$AroundZero=FALSE)\r
+ {\r
+ $Empty = -2147483647;\r
+\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFilledLineGraph",$DataDescription);\r
+ $this->validateData("drawFilledLineGraph",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $aPoints = "";\r
+ $aPoints[] = $this->GAreaXOffset;\r
+ $aPoints[] = $LayerHeight;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $XPos = $this->GAreaXOffset;\r
+ $XLast = -1; $PointsCount = 2;\r
+ $YZero = $LayerHeight - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $LayerHeight ) { $YZero = $LayerHeight; }\r
+\r
+ $YLast = $Empty;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $LayerHeight - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos-3,$YPos-3,$XPos+3,$YPos+3,$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"FLine");\r
+\r
+ if ( !is_numeric($Value) )\r
+ {\r
+ $PointsCount++;\r
+ $aPoints[] = $XLast;\r
+ $aPoints[] = $LayerHeight;\r
+\r
+ $YLast = $Empty;\r
+ }\r
+ else\r
+ {\r
+ $PointsCount++;\r
+ if ( $YLast <> $Empty )\r
+ { $aPoints[] = $XPos; $aPoints[] = $YPos; }\r
+ else\r
+ { $PointsCount++; $aPoints[] = $XPos; $aPoints[] = $LayerHeight; $aPoints[] = $XPos; $aPoints[] = $YPos; }\r
+\r
+ if ($YLast <> $Empty && $AroundZero)\r
+ {\r
+ $Points = "";\r
+ $Points[] = $XLast; $Points[] = $YLast;\r
+ $Points[] = $XPos;\r
+ $Points[] = $YPos;\r
+ $Points[] = $XPos;\r
+ $Points[] = $YZero;\r
+ $Points[] = $XLast;\r
+ $Points[] = $YZero;\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$Points,4,$C_Graph);\r
+ }\r
+ $YLast = $YPos;\r
+ }\r
+\r
+ $XLast = $XPos;\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $aPoints[] = $LayerWidth - $this->GAreaXOffset;\r
+ $aPoints[] = $LayerHeight;\r
+\r
+ if ( $AroundZero == FALSE )\r
+ {\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$aPoints,$PointsCount,$C_Graph);\r
+ }\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ $GraphID++;\r
+ $this->drawLineGraph($Data,$DataDescription,$ColName);\r
+ }\r
+ }\r
+\r
+ /* This function draw a bar graph */\r
+ function drawOverlayBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawOverlayBarGraph",$DataDescription);\r
+ $this->validateData("drawOverlayBarGraph",$Data);\r
+\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $this->Layers[$GraphID] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[$GraphID],255,255,255);\r
+ $C_Graph = imagecolorallocate($this->Layers[$GraphID],$this->Palette[$GraphID]["R"],$this->Palette[$GraphID]["G"],$this->Palette[$GraphID]["B"]);\r
+ imagefilledrectangle($this->Layers[$GraphID],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[$GraphID],$C_White);\r
+\r
+ $XWidth = $this->DivisionWidth / 4;\r
+ $XPos = $this->GAreaXOffset;\r
+ $YZero = $LayerHeight - ((0-$this->VMin) * $this->DivisionRatio);\r
+ $XLast = -1; $PointsCount = 2;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ if ( is_numeric($Value) )\r
+ {\r
+ $YPos = $LayerHeight - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ imagefilledrectangle($this->Layers[$GraphID],$XPos-$XWidth,$YPos,$XPos+$XWidth,$YZero,$C_Graph);\r
+\r
+ $X1 = floor($XPos - $XWidth + $this->GArea_X1); $Y1 = floor($YPos+$this->GArea_Y1) + .2;\r
+ $X2 = floor($XPos + $XWidth + $this->GArea_X1); $Y2 = $this->GArea_Y2 - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $X1 <= $this->GArea_X1 ) { $X1 = $this->GArea_X1 + 1; }\r
+ if ( $X2 >= $this->GArea_X2 ) { $X2 = $this->GArea_X2 - 1; }\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($X1,min($Y1,$Y2),$X2,max($Y1,$Y2),$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"oBar");\r
+\r
+ $this->drawLine($X1,$Y1,$X2,$Y1,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE);\r
+ }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+\r
+ $GraphID++;\r
+ }\r
+\r
+ for($i=0;$i<=($GraphID-1);$i++)\r
+ {\r
+ imagecopymerge($this->Picture,$this->Layers[$i],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[$i]);\r
+ }\r
+ }\r
+\r
+ /* This function draw a bar graph */\r
+ function drawBarGraph(&$Data,&$DataDescription,$Shadow=FALSE,$Alpha=100)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawBarGraph",$DataDescription);\r
+ $this->validateData("drawBarGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+ $Series = count($DataDescription["Values"]);\r
+ $SeriesWidth = $this->DivisionWidth / ($Series+1);\r
+ $SerieXOffset = $this->DivisionWidth / 2 - $SeriesWidth / 2;\r
+\r
+ $YZero = $this->GArea_Y2 - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $this->GArea_Y2 ) { $YZero = $this->GArea_Y2; }\r
+\r
+ $SerieID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset - $SerieXOffset + $SeriesWidth * $SerieID;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ if ( is_numeric($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ {\r
+ $this->addToImageMap($XPos+1,min($YZero,$YPos),$XPos+$SeriesWidth-1,max($YZero,$YPos),$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"Bar");\r
+ }\r
+ \r
+ if ( $Shadow && $Alpha == 100 )\r
+ $this->drawRectangle($XPos+1,$YZero,$XPos+$SeriesWidth-1,$YPos,25,25,25,TRUE,$Alpha);\r
+\r
+ $this->drawFilledRectangle($XPos+1,$YZero,$XPos+$SeriesWidth-1,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE,$Alpha);\r
+ }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $SerieID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a stacked bar graph */\r
+ function drawStackedBarGraph(&$Data,&$DataDescription,$Alpha=50)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawBarGraph",$DataDescription);\r
+ $this->validateData("drawBarGraph",$Data);\r
+\r
+ $GraphID = 0;\r
+ $Series = count($DataDescription["Values"]);\r
+ $SeriesWidth = $this->DivisionWidth * .8;\r
+\r
+ $YZero = $this->GArea_Y2 - ((0-$this->VMin) * $this->DivisionRatio);\r
+ if ( $YZero > $this->GArea_Y2 ) { $YZero = $this->GArea_Y2; }\r
+\r
+ $SerieID = 0; $LastValue = "";\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset - $SeriesWidth / 2;\r
+ $XLast = -1; \r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ if ( is_numeric($Data[$Key][$ColName]) )\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+\r
+ if ( isset($LastValue[$Key]) )\r
+ {\r
+ $YPos = $this->GArea_Y2 - ((($Value+$LastValue[$Key])-$this->VMin) * $this->DivisionRatio);\r
+ $YBottom = $this->GArea_Y2 - (($LastValue[$Key]-$this->VMin) * $this->DivisionRatio);\r
+ $LastValue[$Key] += $Value;\r
+ }\r
+ else\r
+ {\r
+ $YPos = $this->GArea_Y2 - (($Value-$this->VMin) * $this->DivisionRatio);\r
+ $YBottom = $YZero;\r
+ $LastValue[$Key] = $Value;\r
+ }\r
+\r
+ /* Save point into the image map if option activated */\r
+ if ( $this->BuildMap )\r
+ $this->addToImageMap($XPos+1,min($YBottom,$YPos),$XPos+$SeriesWidth-1,max($YBottom,$YPos),$DataDescription["Description"][$ColName],$Data[$Key][$ColName].$DataDescription["Unit"]["Y"],"sBar");\r
+\r
+ $this->drawFilledRectangle($XPos+1,$YBottom,$XPos+$SeriesWidth-1,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"],TRUE,$Alpha);\r
+ }\r
+ }\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ $SerieID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a limits bar graphs */\r
+ function drawLimitsGraph(&$Data,&$DataDescription,$R=0,$G=0,$B=0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawLimitsGraph",$DataDescription);\r
+ $this->validateData("drawLimitsGraph",$Data);\r
+\r
+ $XWidth = $this->DivisionWidth / 4;\r
+ $XPos = $this->GArea_X1 + $this->GAreaXOffset;\r
+\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ $Min = $Data[$Key][$DataDescription["Values"][0]];\r
+ $Max = $Data[$Key][$DataDescription["Values"][0]];\r
+ $GraphID = 0; $MaxID = 0; $MinID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]) )\r
+ {\r
+ if ( $Data[$Key][$ColName] > $Max && is_numeric($Data[$Key][$ColName]))\r
+ { $Max = $Data[$Key][$ColName]; $MaxID = $GraphID; }\r
+ }\r
+ if ( isset($Data[$Key][$ColName]) && is_numeric($Data[$Key][$ColName]))\r
+ {\r
+ if ( $Data[$Key][$ColName] < $Min )\r
+ { $Min = $Data[$Key][$ColName]; $MinID = $GraphID; }\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ $YPos = $this->GArea_Y2 - (($Max-$this->VMin) * $this->DivisionRatio);\r
+ $X1 = floor($XPos - $XWidth); $Y1 = floor($YPos) - .2;\r
+ $X2 = floor($XPos + $XWidth);\r
+ if ( $X1 <= $this->GArea_X1 ) { $X1 = $this->GArea_X1 + 1; }\r
+ if ( $X2 >= $this->GArea_X2 ) { $X2 = $this->GArea_X2 - 1; }\r
+\r
+ $YPos = $this->GArea_Y2 - (($Min-$this->VMin) * $this->DivisionRatio);\r
+ $Y2 = floor($YPos) + .2;\r
+\r
+ $this->drawLine(floor($XPos)-.2,$Y1+1,floor($XPos)-.2,$Y2-1,$R,$G,$B,TRUE);\r
+ $this->drawLine(floor($XPos)+.2,$Y1+1,floor($XPos)+.2,$Y2-1,$R,$G,$B,TRUE);\r
+ $this->drawLine($X1,$Y1,$X2,$Y1,$this->Palette[$MaxID]["R"],$this->Palette[$MaxID]["G"],$this->Palette[$MaxID]["B"],FALSE);\r
+ $this->drawLine($X1,$Y2,$X2,$Y2,$this->Palette[$MinID]["R"],$this->Palette[$MinID]["G"],$this->Palette[$MinID]["B"],FALSE);\r
+\r
+ $XPos = $XPos + $this->DivisionWidth;\r
+ }\r
+ }\r
+\r
+ /* This function draw radar axis centered on the graph area */\r
+ function drawRadarAxis(&$Data,&$DataDescription,$Mosaic=TRUE,$BorderOffset=10,$A_R=60,$A_G=60,$A_B=60,$S_R=200,$S_G=200,$S_B=200,$MaxValue=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawRadarAxis",$DataDescription);\r
+ $this->validateData("drawRadarAxis",$Data);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,$A_R,$A_G,$A_B);\r
+\r
+ /* Draw radar axis */\r
+ $Points = count($Data);\r
+ $Radius = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 - $BorderOffset;\r
+ $XCenter = ( $this->GArea_X2 - $this->GArea_X1 ) / 2 + $this->GArea_X1;\r
+ $YCenter = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 + $this->GArea_Y1;\r
+\r
+ /* Search for the max value */\r
+ if ( $MaxValue == -1 )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ if ( $Data[$Key][$ColName] > $MaxValue ) { $MaxValue = $Data[$Key][$ColName]; }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Draw the mosaic */\r
+ if ( $Mosaic )\r
+ {\r
+ $RadiusScale = $Radius / $MaxValue;\r
+ for ( $t=1; $t<=$MaxValue-1; $t++)\r
+ {\r
+ $TRadius = $RadiusScale * $t;\r
+ $LastX1 = -1;\r
+\r
+ for ( $i=0; $i<=$Points; $i++)\r
+ {\r
+ $Angle = -90 + $i * 360/$Points;\r
+ $X1 = cos($Angle * 3.1418 / 180 ) * $TRadius + $XCenter;\r
+ $Y1 = sin($Angle * 3.1418 / 180 ) * $TRadius + $YCenter;\r
+ $X2 = cos($Angle * 3.1418 / 180 ) * ($TRadius+$RadiusScale) + $XCenter;\r
+ $Y2 = sin($Angle * 3.1418 / 180 ) * ($TRadius+$RadiusScale) + $YCenter;\r
+\r
+ if ( $t % 2 == 1 && $LastX1 != -1)\r
+ {\r
+ $Plots = "";\r
+ $Plots[] = $X1; $Plots[] = $Y1;\r
+ $Plots[] = $X2; $Plots[] = $Y2;\r
+ $Plots[] = $LastX2; $Plots[] = $LastY2;\r
+ $Plots[] = $LastX1; $Plots[] = $LastY1;\r
+\r
+ $C_Graph = imagecolorallocate($this->Picture,250,250,250);\r
+ imagefilledpolygon($this->Picture,$Plots,(count($Plots)+1)/2,$C_Graph);\r
+ }\r
+\r
+ $LastX1 = $X1; $LastY1= $Y1;\r
+ $LastX2 = $X2; $LastY2= $Y2;\r
+ }\r
+ }\r
+ }\r
+\r
+\r
+ /* Draw the spider web */\r
+ for ( $t=1; $t<=$MaxValue; $t++)\r
+ {\r
+ $TRadius = ( $Radius / $MaxValue ) * $t;\r
+ $LastX = -1;\r
+\r
+ for ( $i=0; $i<=$Points; $i++)\r
+ {\r
+ $Angle = -90 + $i * 360/$Points;\r
+ $X = cos($Angle * 3.1418 / 180 ) * $TRadius + $XCenter;\r
+ $Y = sin($Angle * 3.1418 / 180 ) * $TRadius + $YCenter;\r
+\r
+ if ( $LastX != -1 )\r
+ $this->drawDottedLine($LastX,$LastY,$X,$Y,4,$S_R,$S_G,$S_B);\r
+\r
+ $LastX = $X; $LastY= $Y;\r
+ }\r
+ }\r
+\r
+ /* Draw the axis */\r
+ for ( $i=0; $i<=$Points; $i++)\r
+ {\r
+ $Angle = -90 + $i * 360/$Points;\r
+ $X = cos($Angle * 3.1418 / 180 ) * $Radius + $XCenter;\r
+ $Y = sin($Angle * 3.1418 / 180 ) * $Radius + $YCenter;\r
+\r
+ $this->drawLine($XCenter,$YCenter,$X,$Y,$A_R,$A_G,$A_B);\r
+\r
+ $XOffset = 0; $YOffset = 0;\r
+ if (isset($Data[$i][$DataDescription["Position"]]))\r
+ {\r
+ $Label = $Data[$i][$DataDescription["Position"]];\r
+\r
+ $Positions = imagettfbbox($this->FontSize,0,$this->FontName,$Label);\r
+ $Width = $Positions[2] - $Positions[6];\r
+ $Height = $Positions[3] - $Positions[7];\r
+\r
+ if ( $Angle >= 0 && $Angle <= 90 )\r
+ $YOffset = $Height;\r
+\r
+ if ( $Angle > 90 && $Angle <= 180 )\r
+ { $YOffset = $Height; $XOffset = -$Width; }\r
+\r
+ if ( $Angle > 180 && $Angle <= 270 )\r
+ { $XOffset = -$Width; }\r
+\r
+ imagettftext($this->Picture,$this->FontSize,0,$X+$XOffset,$Y+$YOffset,$C_TextColor,$this->FontName,$Label);\r
+ }\r
+ }\r
+\r
+ /* Write the values */\r
+ for ( $t=1; $t<=$MaxValue; $t++)\r
+ {\r
+ $TRadius = ( $Radius / $MaxValue ) * $t;\r
+\r
+ $Angle = -90 + 360 / $Points;\r
+ $X1 = $XCenter;\r
+ $Y1 = $YCenter - $TRadius;\r
+ $X2 = cos($Angle * 3.1418 / 180 ) * $TRadius + $XCenter;\r
+ $Y2 = sin($Angle * 3.1418 / 180 ) * $TRadius + $YCenter;\r
+\r
+ $XPos = floor(($X2-$X1)/2) + $X1;\r
+ $YPos = floor(($Y2-$Y1)/2) + $Y1;\r
+\r
+ $Positions = imagettfbbox($this->FontSize,0,$this->FontName,$t);\r
+ $X = $XPos - ( $X+$Positions[2] - $X+$Positions[6] ) / 2;\r
+ $Y = $YPos + $this->FontSize;\r
+\r
+ $this->drawFilledRoundedRectangle($X+$Positions[6]-2,$Y+$Positions[7]-1,$X+$Positions[2]+4,$Y+$Positions[3]+1,2,240,240,240);\r
+ $this->drawRoundedRectangle($X+$Positions[6]-2,$Y+$Positions[7]-1,$X+$Positions[2]+4,$Y+$Positions[3]+1,2,220,220,220);\r
+ imagettftext($this->Picture,$this->FontSize,0,$X,$Y,$C_TextColor,$this->FontName,$t);\r
+ }\r
+ }\r
+\r
+ /* This function draw a radar graph centered on the graph area */\r
+ function drawRadar(&$Data,&$DataDescription,$BorderOffset=10,$MaxValue=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawRadar",$DataDescription);\r
+ $this->validateData("drawRadar",$Data);\r
+\r
+ $Points = count($Data);\r
+ $Radius = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 - $BorderOffset;\r
+ $XCenter = ( $this->GArea_X2 - $this->GArea_X1 ) / 2 + $this->GArea_X1;\r
+ $YCenter = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 + $this->GArea_Y1;\r
+\r
+ /* Search for the max value */\r
+ if ( $MaxValue == -1 )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ if ( $Data[$Key][$ColName] > $MaxValue ) { $MaxValue = $Data[$Key][$ColName]; }\r
+ }\r
+ }\r
+ }\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Angle = -90;\r
+ $XLast = -1;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ $Strength = ( $Radius / $MaxValue ) * $Value;\r
+\r
+ $XPos = cos($Angle * 3.1418 / 180 ) * $Strength + $XCenter;\r
+ $YPos = sin($Angle * 3.1418 / 180 ) * $Strength + $YCenter;\r
+\r
+ if ( $XLast != -1 )\r
+ $this->drawLine($XLast,$YLast,$XPos,$YPos,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+\r
+ if ( $XLast == -1 )\r
+ { $FirstX = $XPos; $FirstY = $YPos; }\r
+\r
+ $Angle = $Angle + (360/$Points);\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ }\r
+ }\r
+ $this->drawLine($XPos,$YPos,$FirstX,$FirstY,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a radar graph centered on the graph area */\r
+ function drawFilledRadar(&$Data,&$DataDescription,$Alpha=50,$BorderOffset=10,$MaxValue=-1)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFilledRadar",$DataDescription);\r
+ $this->validateData("drawFilledRadar",$Data);\r
+\r
+ $Points = count($Data);\r
+ $LayerWidth = $this->GArea_X2-$this->GArea_X1;\r
+ $LayerHeight = $this->GArea_Y2-$this->GArea_Y1;\r
+ $Radius = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2 - $BorderOffset;\r
+ $XCenter = ( $this->GArea_X2 - $this->GArea_X1 ) / 2;\r
+ $YCenter = ( $this->GArea_Y2 - $this->GArea_Y1 ) / 2;\r
+\r
+ /* Search for the max value */\r
+ if ( $MaxValue == -1 )\r
+ {\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ if ( $Data[$Key][$ColName] > $MaxValue && is_numeric($Data[$Key][$ColName])) { $MaxValue = $Data[$Key][$ColName]; }\r
+ }\r
+ }\r
+ }\r
+\r
+ $GraphID = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ $ID = 0;\r
+ foreach ( $DataDescription["Description"] as $keyI => $ValueI )\r
+ { if ( $keyI == $ColName ) { $ColorID = $ID; }; $ID++; }\r
+\r
+ $Angle = -90;\r
+ $XLast = -1;\r
+ $Plots = "";\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ $Value = $Data[$Key][$ColName];\r
+ if ( !is_numeric($Value) ) { $Value = 0; }\r
+ $Strength = ( $Radius / $MaxValue ) * $Value;\r
+\r
+ $XPos = cos($Angle * 3.1418 / 180 ) * $Strength + $XCenter;\r
+ $YPos = sin($Angle * 3.1418 / 180 ) * $Strength + $YCenter;\r
+\r
+ $Plots[] = $XPos;\r
+ $Plots[] = $YPos;\r
+\r
+ $Angle = $Angle + (360/$Points);\r
+ $XLast = $XPos;\r
+ $YLast = $YPos;\r
+ }\r
+ }\r
+\r
+ if (isset($Plots[0]))\r
+ {\r
+ $Plots[] = $Plots[0];\r
+ $Plots[] = $Plots[1];\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Graph = imagecolorallocate($this->Layers[0],$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ imagefilledpolygon($this->Layers[0],$Plots,(count($Plots)+1)/2,$C_Graph);\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],$this->GArea_X1,$this->GArea_Y1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+\r
+ for($i=0;$i<=count($Plots)-4;$i=$i+2)\r
+ $this->drawLine($Plots[$i]+$this->GArea_X1,$Plots[$i+1]+$this->GArea_Y1,$Plots[$i+2]+$this->GArea_X1,$Plots[$i+3]+$this->GArea_Y1,$this->Palette[$ColorID]["R"],$this->Palette[$ColorID]["G"],$this->Palette[$ColorID]["B"]);\r
+ }\r
+\r
+ $GraphID++;\r
+ }\r
+ }\r
+\r
+ /* This function draw a flat pie chart */\r
+ function drawBasicPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$R=255,$G=255,$B=255,$Decimals=0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawBasicPieGraph",$DataDescription,FALSE);\r
+ $this->validateData("drawBasicPieGraph",$Data);\r
+\r
+ /* Determine pie sum */\r
+ $Series = 0; $PieSum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $ColName != $DataDescription["Position"] )\r
+ {\r
+ $Series++;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ $PieSum = $PieSum + $Data[$Key][$ColName]; $iValues[] = $Data[$Key][$ColName]; $iLabels[] = $Data[$Key][$DataDescription["Position"]];\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate serie */\r
+ if ( $Series != 1 )\r
+ RaiseFatal("Pie chart can only accept one serie of data.");\r
+\r
+ $SpliceRatio = 360 / $PieSum;\r
+ $SplicePercent = 100 / $PieSum;\r
+\r
+ /* Calculate all polygons */\r
+ $Angle = 0; $TopPlots = "";\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $TopPlots[$Key][] = $XPos;\r
+ $TopPlots[$Key][] = $YPos;\r
+\r
+ /* Process labels position & size */\r
+ if ( !($DrawLabels == PIE_NOLABEL) )\r
+ {\r
+ $TAngle = $Angle+($Value*$SpliceRatio/2);\r
+ if ($DrawLabels == PIE_PERCENTAGE)\r
+ $Caption = (round($Value * pow(10,$Decimals) * $SplicePercent)/pow(10,$Decimals))."%";\r
+ elseif ($DrawLabels == PIE_LABELS)\r
+ $Caption = $iLabels[$Key];\r
+ $TX = cos(($TAngle) * 3.1418 / 180 ) * ($Radius + 10)+ $XPos;\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($Radius+ 10) + $YPos + 4;\r
+\r
+ if ( $TAngle > 90 && $TAngle < 270 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TX = $TX - $TextWidth;\r
+ }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,70,70,70);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TX,$TY,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* Process pie slices */\r
+ for($iAngle=$Angle;$iAngle<=$Angle+$Value*$SpliceRatio;$iAngle=$iAngle+.5)\r
+ {\r
+ $TopX = cos($iAngle * 3.1418 / 180 ) * $Radius + $XPos;\r
+ $TopY = sin($iAngle * 3.1418 / 180 ) * $Radius + $YPos;\r
+\r
+ $TopPlots[$Key][] = $TopX; \r
+ $TopPlots[$Key][] = $TopY;\r
+ }\r
+\r
+ $TopPlots[$Key][] = $XPos;\r
+ $TopPlots[$Key][] = $YPos;\r
+\r
+ $Angle = $iAngle;\r
+ }\r
+ $PolyPlots = $TopPlots;\r
+\r
+ /* Set array values type to float --- PHP Bug with imagefilledpolygon casting to integer */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { foreach ($TopPlots[$Key] as $Key2 => $Value2) { settype($TopPlots[$Key][$Key2],"float"); } }\r
+\r
+ /* Draw Top polygons */\r
+ foreach ($PolyPlots as $Key => $Value)\r
+ { \r
+ $C_GraphLo = imagecolorallocate($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ imagefilledpolygon($this->Picture,$PolyPlots[$Key],(count($PolyPlots[$Key])+1)/2,$C_GraphLo);\r
+ }\r
+\r
+ $this->drawCircle($XPos-.5,$YPos-.5,$Radius,$R,$G,$B);\r
+ $this->drawCircle($XPos-.5,$YPos-.5,$Radius+.5,$R,$G,$B);\r
+\r
+ /* Draw Top polygons */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { \r
+ for($j=0;$j<=count($TopPlots[$Key])-4;$j=$j+2)\r
+ $this->drawLine($TopPlots[$Key][$j],$TopPlots[$Key][$j+1],$TopPlots[$Key][$j+2],$TopPlots[$Key][$j+3],$R,$G,$B);\r
+ }\r
+ }\r
+\r
+ /* This function draw a flat pie chart */\r
+ function drawFlatPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$SpliceDistance=0,$Decimals = 0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawFlatPieGraph",$DataDescription,FALSE);\r
+ $this->validateData("drawFlatPieGraph",$Data);\r
+\r
+ /* Determine pie sum */\r
+ $Series = 0; $PieSum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $ColName != $DataDescription["Position"] )\r
+ {\r
+ $Series++;\r
+ foreach ( $Data as $Key => $Values )\r
+ {\r
+ if ( isset($Data[$Key][$ColName]))\r
+ $PieSum = $PieSum + $Data[$Key][$ColName]; $iValues[] = $Data[$Key][$ColName]; $iLabels[] = $Data[$Key][$DataDescription["Position"]];\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate serie */\r
+ if ( $Series != 1 )\r
+ RaiseFatal("Pie chart can only accept one serie of data.");\r
+\r
+ $SpliceDistanceRatio = $SpliceDistance;\r
+ $SpliceRatio = (360 - $SpliceDistanceRatio * count($iValues) ) / $PieSum;\r
+ $SplicePercent = 100 / $PieSum;\r
+\r
+ /* Calculate all polygons */\r
+ $Angle = 0; $TopPlots = "";\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $XCenterPos = cos(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $XPos;\r
+ $YCenterPos = sin(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $YPos;\r
+\r
+ $TopPlots[$Key][] = $XCenterPos;\r
+ $TopPlots[$Key][] = $YCenterPos;\r
+\r
+ /* Process labels position & size */\r
+ if ( !($DrawLabels == PIE_NOLABEL) )\r
+ {\r
+ $TAngle = $Angle+($Value*$SpliceRatio/2);\r
+ if ($DrawLabels == PIE_PERCENTAGE)\r
+ $Caption = (round($Value * pow(10,$Decimals) * $SplicePercent)/pow(10,$Decimals))."%";\r
+ elseif ($DrawLabels == PIE_LABELS)\r
+ $Caption = $iLabels[$Key];\r
+ $TX = cos(($TAngle) * 3.1418 / 180 ) * ($Radius+10+$SpliceDistance)+$XPos;\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($Radius+10+$SpliceDistance) + $YPos + 4;\r
+\r
+ if ( $TAngle > 90 && $TAngle < 270 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TX = $TX - $TextWidth;\r
+ }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,70,70,70);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TX,$TY,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* Draw borders to correct imagefilledpolygon bug */\r
+ $BMax = 2;\r
+ for($i=-1;$i<=$BMax;$i++)\r
+ {\r
+ $BorderX1 = cos(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $XPos;\r
+ $BorderY1 = sin(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $YPos;\r
+ $BorderX2 = cos(($Angle+$i*.5) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $XPos;\r
+ $BorderY2 = sin(($Angle+$i*.5) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $YPos;\r
+ $this->drawLine($BorderX1,$BorderY1,$BorderX2,$BorderY2,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+\r
+ $BorderX1 = cos(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $XPos;\r
+ $BorderY1 = sin(($Angle+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * ($SpliceDistance+$i) + $YPos;\r
+ $BorderX2 = cos(($Angle-$i*.5+$Value*$SpliceRatio) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $XPos;\r
+ $BorderY2 = sin(($Angle-$i*.5+$Value*$SpliceRatio) * 3.1418 / 180 ) * (($Radius+$BMax)+$SpliceDistance) + $YPos;\r
+ $this->drawLine($BorderX1,$BorderY1,$BorderX2,$BorderY2,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ }\r
+\r
+ /* Process pie slices */\r
+ for($iAngle=$Angle;$iAngle<=$Angle+$Value*$SpliceRatio;$iAngle=$iAngle+.5)\r
+ {\r
+ $TopX = cos($iAngle * 3.1418 / 180 ) * ($Radius+$SpliceDistance) + $XPos;\r
+ $TopY = sin($iAngle * 3.1418 / 180 ) * ($Radius+$SpliceDistance) + $YPos;\r
+\r
+ $TopPlots[$Key][] = $TopX;\r
+ $TopPlots[$Key][] = $TopY;\r
+\r
+ if ( $iAngle != $Angle )\r
+ {\r
+ for($i=-1;$i<=2;$i++)\r
+ {\r
+ $BorderX1 = cos(($iAngle-.5) * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $XPos;\r
+ $BorderY1 = sin(($iAngle-.5) * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $YPos;\r
+ $BorderX2 = cos($iAngle * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $XPos;\r
+ $BorderY2 = sin($iAngle * 3.1418 / 180 ) * (($Radius+$i)+$SpliceDistance) + $YPos;\r
+\r
+ $this->drawLine($BorderX1,$BorderY1,$BorderX2,$BorderY2,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ }\r
+ }\r
+ }\r
+\r
+ $TopPlots[$Key][] = $XCenterPos;\r
+ $TopPlots[$Key][] = $YCenterPos;\r
+\r
+ $Angle = $iAngle + $SpliceDistanceRatio;\r
+ }\r
+ $PolyPlots = $TopPlots;\r
+\r
+ /* Set array values type to float --- PHP Bug with imagefilledpolygon casting to integer */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { foreach ($TopPlots[$Key] as $Key2 => $Value2) { settype($TopPlots[$Key][$Key2],"float"); } }\r
+\r
+ /* Draw Top polygons */\r
+ foreach ($TopPlots as $Key => $Value)\r
+ { \r
+ $C_GraphLo = imagecolorallocate($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ imagefilledpolygon($this->Picture,$PolyPlots[$Key],(count($PolyPlots[$Key])+1)/2,$C_GraphLo);\r
+ }\r
+ }\r
+\r
+ /* This function draw a pseudo-3D pie chart */\r
+ function drawPieGraph(&$Data,&$DataDescription,$XPos,$YPos,$Radius=100,$DrawLabels=PIE_NOLABEL,$EnhanceColors=TRUE,$Skew=60,$SpliceHeight=20,$SpliceDistance=0,$Decimals=0)\r
+ {\r
+ /* Validate the Data and DataDescription array */\r
+ $this->validateDataDescription("drawPieGraph",$DataDescription,FALSE);\r
+ $this->validateData("drawPieGraph",$Data);\r
+\r
+ /* Determine pie sum */\r
+ $Series = 0; $PieSum = 0; $rPieSum = 0;\r
+ foreach ( $DataDescription["Values"] as $Key2 => $ColName )\r
+ {\r
+ if ( $ColName != $DataDescription["Position"] )\r
+ {\r
+ $Series++;\r
+ foreach ( $Data as $Key => $Values )\r
+ if ( isset($Data[$Key][$ColName]))\r
+ {\r
+ if ( $Data[$Key][$ColName] == 0 )\r
+ { $PieSum++; $iValues[] = 1; $rValues[] = 0; }\r
+ else\r
+ { $PieSum += $Data[$Key][$ColName]; $iValues[] = $Data[$Key][$ColName]; $iLabels[] = $Data[$Key][$DataDescription["Position"]]; $rValues[] = $Data[$Key][$ColName]; $rPieSum += $Data[$Key][$ColName];}\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate serie */\r
+ if ( $Series != 1 )\r
+ RaiseFatal("Pie chart can only accept one serie of data.");\r
+\r
+ $SpliceDistanceRatio = $SpliceDistance;\r
+ $SkewHeight = ($Radius * $Skew) / 100;\r
+ $SpliceRatio = (360 - $SpliceDistanceRatio * count($iValues) ) / $PieSum;\r
+ $SplicePercent = 100 / $PieSum;\r
+ $rSplicePercent = 100 / $rPieSum;\r
+\r
+ /* Calculate all polygons */\r
+ $Angle = 0; $TopPlots = ""; $BotPlots = ""; $CDev = 5;\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $XCenterPos = cos(($Angle-$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $XPos;\r
+ $YCenterPos = sin(($Angle-$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $YPos;\r
+ $XCenterPos2 = cos(($Angle+$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $XPos;\r
+ $YCenterPos2 = sin(($Angle+$CDev+($Value*$SpliceRatio+$SpliceDistanceRatio)/2) * 3.1418 / 180 ) * $SpliceDistance + $YPos;\r
+\r
+ $TopPlots[$Key][] = $XCenterPos; $BotPlots[$Key][] = $XCenterPos;\r
+ $TopPlots[$Key][] = $YCenterPos; $BotPlots[$Key][] = $YCenterPos + $SpliceHeight;\r
+\r
+ /* Process labels position & size */\r
+ if ( !($DrawLabels == PIE_NOLABEL) )\r
+ {\r
+ $TAngle = $Angle+($Value*$SpliceRatio/2);\r
+ if ($DrawLabels == PIE_PERCENTAGE)\r
+ $Caption = (round($rValues[$Key] * pow(10,$Decimals) * $rSplicePercent)/pow(10,$Decimals))."%";\r
+ elseif ($DrawLabels == PIE_LABELS)\r
+ $Caption = $iLabels[$Key];\r
+\r
+ $TX = cos(($TAngle) * 3.1418 / 180 ) * ($Radius + 10)+ $XPos;\r
+\r
+ if ( $TAngle > 0 && $TAngle < 180 )\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($SkewHeight + 10) + $YPos + $SpliceHeight + 4;\r
+ else\r
+ $TY = sin(($TAngle) * 3.1418 / 180 ) * ($SkewHeight + 10) + $YPos + 4;\r
+\r
+ if ( $TAngle > 90 && $TAngle < 270 )\r
+ {\r
+ $Position = imageftbbox($this->FontSize,0,$this->FontName,$Caption,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ $TX = $TX - $TextWidth;\r
+ }\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,70,70,70);\r
+ imagettftext($this->Picture,$this->FontSize,0,$TX,$TY,$C_TextColor,$this->FontName,$Caption);\r
+ }\r
+\r
+ /* Process pie slices */\r
+ for($iAngle=$Angle;$iAngle<=$Angle+$Value*$SpliceRatio;$iAngle=$iAngle+.5)\r
+ {\r
+ $TopX = cos($iAngle * 3.1418 / 180 ) * $Radius + $XPos;\r
+ $TopY = sin($iAngle * 3.1418 / 180 ) * $SkewHeight + $YPos;\r
+\r
+ $TopPlots[$Key][] = $TopX; $BotPlots[$Key][] = $TopX;\r
+ $TopPlots[$Key][] = $TopY; $BotPlots[$Key][] = $TopY + $SpliceHeight;\r
+ }\r
+\r
+ $TopPlots[$Key][] = $XCenterPos2; $BotPlots[$Key][] = $XCenterPos2;\r
+ $TopPlots[$Key][] = $YCenterPos2; $BotPlots[$Key][] = $YCenterPos2 + $SpliceHeight;\r
+\r
+ $Angle = $iAngle + $SpliceDistanceRatio;\r
+ }\r
+\r
+ /* Draw Bottom polygons */\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $C_GraphLo = $this->AllocateColor($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"],-20);\r
+ imagefilledpolygon($this->Picture,$BotPlots[$Key],(count($BotPlots[$Key])+1)/2,$C_GraphLo);\r
+\r
+ for($j=0;$j<=count($BotPlots[$Key])-4;$j=$j+2)\r
+ $this->drawLine($BotPlots[$Key][$j],$BotPlots[$Key][$j+1],$BotPlots[$Key][$j+2],$BotPlots[$Key][$j+3],$this->Palette[$Key]["R"]-20,$this->Palette[$Key]["G"]-20,$this->Palette[$Key]["B"]-20);\r
+ }\r
+\r
+ /* Draw pie layers */\r
+ if ( $EnhanceColors ) { $ColorRatio = 30 / $SpliceHeight; } else { $ColorRatio = 25 / $SpliceHeight; }\r
+ for($i=$SpliceHeight-1;$i>=1;$i--)\r
+ {\r
+ foreach($iValues as $Key => $Value)\r
+ {\r
+ $C_GraphLo = $this->AllocateColor($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"],-10);\r
+ $Plots = ""; $Plot = 0;\r
+ foreach($TopPlots[$Key] as $Key2 => $Value2)\r
+ {\r
+ $Plot++;\r
+ if ( $Plot % 2 == 1 )\r
+ $Plots[] = $Value2;\r
+ else\r
+ $Plots[] = $Value2+$i;\r
+ }\r
+ imagefilledpolygon($this->Picture,$Plots,(count($Plots)+1)/2,$C_GraphLo);\r
+\r
+ $Index = count($Plots);\r
+ $ColorFactor = -20 + ($SpliceHeight - $i) * $ColorRatio;\r
+ $this->drawAntialiasPixel($Plots[0],$Plots[1],$this->Palette[$Key]["R"]+$ColorFactor,$this->Palette[$Key]["G"]+$ColorFactor,$this->Palette[$Key]["B"]+$ColorFactor);\r
+ $this->drawAntialiasPixel($Plots[2],$Plots[3],$this->Palette[$Key]["R"]+$ColorFactor,$this->Palette[$Key]["G"]+$ColorFactor,$this->Palette[$Key]["B"]+$ColorFactor);\r
+ $this->drawAntialiasPixel($Plots[$Index-4],$Plots[$Index-3],$this->Palette[$Key]["R"]+$ColorFactor,$this->Palette[$Key]["G"]+$ColorFactor,$this->Palette[$Key]["B"]+$ColorFactor);\r
+ }\r
+ }\r
+\r
+ /* Draw Top polygons */\r
+ for($Key=count($iValues)-1;$Key>=0;$Key--)\r
+ { \r
+ $C_GraphLo = $this->AllocateColor($this->Picture,$this->Palette[$Key]["R"],$this->Palette[$Key]["G"],$this->Palette[$Key]["B"]);\r
+ imagefilledpolygon($this->Picture,$TopPlots[$Key],(count($TopPlots[$Key])+1)/2,$C_GraphLo);\r
+\r
+ if ( $EnhanceColors ) { $En = 10; } else { $En = 5; }\r
+ for($j=0;$j<=count($TopPlots[$Key])-4;$j=$j+2)\r
+ $this->drawLine($TopPlots[$Key][$j],$TopPlots[$Key][$j+1],$TopPlots[$Key][$j+2],$TopPlots[$Key][$j+3],$this->Palette[$Key]["R"]+$En,$this->Palette[$Key]["G"]+$En,$this->Palette[$Key]["B"]+$En);\r
+ }\r
+ }\r
+\r
+ /* This function can be used to set the background color */\r
+ function drawBackground($R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Background = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ imagefilledrectangle($this->Picture,0,0,$this->XSize,$this->YSize,$C_Background);\r
+ }\r
+\r
+ /* This function can be used to set the background color */\r
+ function drawGraphAreaGradient($R,$G,$B,$Decay,$Target=TARGET_GRAPHAREA)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ if ( $Target == TARGET_GRAPHAREA ) { $X1 = $this->GArea_X1+1; $X2 = $this->GArea_X2-1; $Y1 = $this->GArea_Y1+1; $Y2 = $this->GArea_Y2; }\r
+ if ( $Target == TARGET_BACKGROUND ) { $X1 = 0; $X2 = $this->XSize; $Y1 = 0; $Y2 = $this->YSize; }\r
+\r
+ $YStep = ($Y2 - $Y1 - 2) / $Decay;\r
+ for($i=0;$i<=$Decay;$i++)\r
+ {\r
+ $R-=1;$G-=1;$B-=1;\r
+ $Yi1 = $Y1 + ( $i * $YStep );\r
+ $Yi2 = ceil( $Yi1 + ( $i * $YStep ) + $YStep );\r
+ if ( $Yi2 >= $Yi2 ) { $Yi2 = $Y2-1; }\r
+\r
+ $C_Background = $this->AllocateColor($this->Picture,$R,$G,$B);\r
+ imagefilledrectangle($this->Picture,$X1,$Yi1,$X2,$Yi2,$C_Background);\r
+ }\r
+ }\r
+\r
+ /* This function create a rectangle with antialias */\r
+ function drawRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $X1=$X1-.2;$Y1=$Y1-.2;\r
+ $X2=$X2+.2;$Y2=$Y2+.2;\r
+ $this->drawLine($X1,$Y1,$X2,$Y1,$R,$G,$B);\r
+ $this->drawLine($X2,$Y1,$X2,$Y2,$R,$G,$B);\r
+ $this->drawLine($X2,$Y2,$X1,$Y2,$R,$G,$B);\r
+ $this->drawLine($X1,$Y2,$X1,$Y1,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a filled rectangle with antialias */\r
+ function drawFilledRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B,$DrawBorder=TRUE,$Alpha=100)\r
+ {\r
+ if ( $X2 > $X1 ) { list($X1, $X2) = array($X2, $X1); }\r
+ if ( $Y2 > $Y1 ) { list($Y1, $Y2) = array($Y2, $Y1); }\r
+\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ if ( $Alpha == 100 )\r
+ {\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ imagefilledrectangle($this->Picture,$X1,$Y1,$X2,$Y2,$C_Rectangle);\r
+ }\r
+ else\r
+ {\r
+ $LayerWidth = abs($X2-$X1)+2;\r
+ $LayerHeight = abs($Y2-$Y1)+2;\r
+\r
+ $this->Layers[0] = imagecreatetruecolor($LayerWidth,$LayerHeight);\r
+ $C_White = imagecolorallocate($this->Layers[0],255,255,255);\r
+ imagefilledrectangle($this->Layers[0],0,0,$LayerWidth,$LayerHeight,$C_White);\r
+ imagecolortransparent($this->Layers[0],$C_White);\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Layers[0],$R,$G,$B);\r
+ imagefilledrectangle($this->Layers[0],1,1,$LayerWidth-1,$LayerHeight-1,$C_Rectangle);\r
+\r
+ imagecopymerge($this->Picture,$this->Layers[0],min($X1,$X2)-1,min($Y1,$Y2)-1,0,0,$LayerWidth,$LayerHeight,$Alpha);\r
+ imagedestroy($this->Layers[0]);\r
+ }\r
+\r
+ if ( $DrawBorder )\r
+ $this->drawRectangle($X1,$Y1,$X2,$Y2,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a rectangle with rounded corners and antialias */\r
+ function drawRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $Step = 90 / ((3.1418 * $Radius)/2);\r
+\r
+ for($i=0;$i<=90;$i=$i+$Step)\r
+ {\r
+ $X = cos(($i+180)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Y = sin(($i+180)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+\r
+ $X = cos(($i-90)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Y = sin(($i-90)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+\r
+ $X = cos(($i)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Y = sin(($i)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+\r
+ $X = cos(($i+90)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Y = sin(($i+90)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ }\r
+\r
+ $X1=$X1-.2;$Y1=$Y1-.2;\r
+ $X2=$X2+.2;$Y2=$Y2+.2;\r
+ $this->drawLine($X1+$Radius,$Y1,$X2-$Radius,$Y1,$R,$G,$B);\r
+ $this->drawLine($X2,$Y1+$Radius,$X2,$Y2-$Radius,$R,$G,$B);\r
+ $this->drawLine($X2-$Radius,$Y2,$X1+$Radius,$Y2,$R,$G,$B);\r
+ $this->drawLine($X1,$Y2-$Radius,$X1,$Y1+$Radius,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a filled rectangle with rounded corners and antialias */\r
+ function drawFilledRoundedRectangle($X1,$Y1,$X2,$Y2,$Radius,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Rectangle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+\r
+ $Step = 90 / ((3.1418 * $Radius)/2);\r
+\r
+ for($i=0;$i<=90;$i=$i+$Step)\r
+ {\r
+ $Xi1 = cos(($i+180)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Yi1 = sin(($i+180)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+\r
+ $Xi2 = cos(($i-90)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Yi2 = sin(($i-90)*3.1418/180) * $Radius + $Y1 + $Radius;\r
+\r
+ $Xi3 = cos(($i)*3.1418/180) * $Radius + $X2 - $Radius;\r
+ $Yi3 = sin(($i)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+\r
+ $Xi4 = cos(($i+90)*3.1418/180) * $Radius + $X1 + $Radius;\r
+ $Yi4 = sin(($i+90)*3.1418/180) * $Radius + $Y2 - $Radius;\r
+\r
+ imageline($this->Picture,$Xi1,$Yi1,$X1+$Radius,$Yi1,$C_Rectangle);\r
+ imageline($this->Picture,$X2-$Radius,$Yi2,$Xi2,$Yi2,$C_Rectangle);\r
+ imageline($this->Picture,$X2-$Radius,$Yi3,$Xi3,$Yi3,$C_Rectangle);\r
+ imageline($this->Picture,$Xi4,$Yi4,$X1+$Radius,$Yi4,$C_Rectangle);\r
+\r
+ $this->drawAntialiasPixel($Xi1,$Yi1,$R,$G,$B);\r
+ $this->drawAntialiasPixel($Xi2,$Yi2,$R,$G,$B);\r
+ $this->drawAntialiasPixel($Xi3,$Yi3,$R,$G,$B);\r
+ $this->drawAntialiasPixel($Xi4,$Yi4,$R,$G,$B);\r
+ }\r
+\r
+ imagefilledrectangle($this->Picture,$X1,$Y1+$Radius,$X2,$Y2-$Radius,$C_Rectangle);\r
+ imagefilledrectangle($this->Picture,$X1+$Radius,$Y1,$X2-$Radius,$Y2,$C_Rectangle);\r
+\r
+ $X1=$X1-.2;$Y1=$Y1-.2;\r
+ $X2=$X2+.2;$Y2=$Y2+.2;\r
+ $this->drawLine($X1+$Radius,$Y1,$X2-$Radius,$Y1,$R,$G,$B);\r
+ $this->drawLine($X2,$Y1+$Radius,$X2,$Y2-$Radius,$R,$G,$B);\r
+ $this->drawLine($X2-$Radius,$Y2,$X1+$Radius,$Y2,$R,$G,$B);\r
+ $this->drawLine($X1,$Y2-$Radius,$X1,$Y1+$Radius,$R,$G,$B);\r
+ }\r
+\r
+ /* This function create a circle with antialias */\r
+ function drawCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ {\r
+ if ( $Width == 0 ) { $Width = $Height; }\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Circle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $Step = 360 / (2 * 3.1418 * max($Width,$Height));\r
+\r
+ for($i=0;$i<=360;$i=$i+$Step)\r
+ {\r
+ $X = cos($i*3.1418/180) * $Height + $Xc;\r
+ $Y = sin($i*3.1418/180) * $Width + $Yc;\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ }\r
+ }\r
+\r
+ /* This function create a filled circle/ellipse with antialias */\r
+ function drawFilledCircle($Xc,$Yc,$Height,$R,$G,$B,$Width=0)\r
+ {\r
+ if ( $Width == 0 ) { $Width = $Height; }\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $C_Circle = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ $Step = 360 / (2 * 3.1418 * max($Width,$Height));\r
+\r
+ for($i=90;$i<=270;$i=$i+$Step)\r
+ {\r
+ $X1 = cos($i*3.1418/180) * $Height + $Xc;\r
+ $Y1 = sin($i*3.1418/180) * $Width + $Yc;\r
+ $X2 = cos((180-$i)*3.1418/180) * $Height + $Xc;\r
+ $Y2 = sin((180-$i)*3.1418/180) * $Width + $Yc;\r
+\r
+ $this->drawAntialiasPixel($X1-1,$Y1-1,$R,$G,$B);\r
+ $this->drawAntialiasPixel($X2-1,$Y2-1,$R,$G,$B);\r
+\r
+ if ( ($Y1-1) > $Yc - max($Width,$Height) )\r
+ imageline($this->Picture,$X1,$Y1-1,$X2-1,$Y2-1,$C_Circle);\r
+ }\r
+ }\r
+\r
+ /* This function will draw a filled ellipse */\r
+ function drawEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ { $this->drawCircle($Xc,$Yc,$Height,$R,$G,$B,$Width); }\r
+\r
+ /* This function will draw an ellipse */\r
+ function drawFilledEllipse($Xc,$Yc,$Height,$Width,$R,$G,$B)\r
+ { $this->drawFilledCircle($Xc,$Yc,$Height,$R,$G,$B,$Width); }\r
+\r
+ /* This function create a line with antialias */\r
+ function drawLine($X1,$Y1,$X2,$Y2,$R,$G,$B,$GraphFunction=FALSE)\r
+ {\r
+ if ( $this->LineDotSize > 1 ) { $this->drawDottedLine($X1,$Y1,$X2,$Y2,$this->LineDotSize,$R,$G,$B,$GraphFunction); return(0); }\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $Distance = sqrt(($X2-$X1)*($X2-$X1)+($Y2-$Y1)*($Y2-$Y1)); \r
+ if ( $Distance == 0 )\r
+ return(-1);\r
+ $XStep = ($X2-$X1) / $Distance;\r
+ $YStep = ($Y2-$Y1) / $Distance;\r
+\r
+ for($i=0;$i<=$Distance;$i++)\r
+ {\r
+ $X = $i * $XStep + $X1;\r
+ $Y = $i * $YStep + $Y1;\r
+\r
+ if ( ($X >= $this->GArea_X1 && $X <= $this->GArea_X2 && $Y >= $this->GArea_Y1 && $Y <= $this->GArea_Y2) || !$GraphFunction )\r
+ {\r
+ if ( $this->LineWidth == 1 )\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ else\r
+ {\r
+ $StartOffset = -($this->LineWidth/2); $EndOffset = ($this->LineWidth/2);\r
+ for($j=$StartOffset;$j<=$EndOffset;$j++)\r
+ $this->drawAntialiasPixel($X+$j,$Y+$j,$R,$G,$B);\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* This function create a line with antialias */\r
+ function drawDottedLine($X1,$Y1,$X2,$Y2,$DotSize,$R,$G,$B,$GraphFunction=FALSE)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $Distance = sqrt(($X2-$X1)*($X2-$X1)+($Y2-$Y1)*($Y2-$Y1)); \r
+\r
+ $XStep = ($X2-$X1) / $Distance;\r
+ $YStep = ($Y2-$Y1) / $Distance;\r
+\r
+ $DotIndex = 0;\r
+ for($i=0;$i<=$Distance;$i++)\r
+ {\r
+ $X = $i * $XStep + $X1;\r
+ $Y = $i * $YStep + $Y1;\r
+\r
+ if ( $DotIndex <= $DotSize)\r
+ {\r
+ if ( ($X >= $this->GArea_X1 && $X <= $this->GArea_X2 && $Y >= $this->GArea_Y1 && $Y <= $this->GArea_Y2) || !$GraphFunction )\r
+ {\r
+ if ( $this->LineWidth == 1 )\r
+ $this->drawAntialiasPixel($X,$Y,$R,$G,$B);\r
+ else\r
+ {\r
+ $StartOffset = -($this->LineWidth/2); $EndOffset = ($this->LineWidth/2);\r
+ for($j=$StartOffset;$j<=$EndOffset;$j++)\r
+ $this->drawAntialiasPixel($X+$j,$Y+$j,$R,$G,$B);\r
+ }\r
+ }\r
+ }\r
+\r
+ $DotIndex++;\r
+ if ( $DotIndex == $DotSize * 2 )\r
+ $DotIndex = 0; \r
+ }\r
+ }\r
+\r
+ /* Load a PNG file and draw it over the chart */\r
+ function drawFromPNG($FileName,$X,$Y,$Alpha=100)\r
+ { $this->drawFromPicture(1,$FileName,$X,$Y,$Alpha); }\r
+\r
+ /* Load a GIF file and draw it over the chart */\r
+ function drawFromGIF($FileName,$X,$Y,$Alpha=100)\r
+ { $this->drawFromPicture(2,$FileName,$X,$Y,$Alpha); }\r
+\r
+ /* Load a JPEG file and draw it over the chart */\r
+ function drawFromJPG($FileName,$X,$Y,$Alpha=100)\r
+ { $this->drawFromPicture(3,$FileName,$X,$Y,$Alpha); }\r
+\r
+ /* Generic loader function for external pictures */\r
+ function drawFromPicture($PicType,$FileName,$X,$Y,$Alpha=100)\r
+ {\r
+ if ( file_exists($FileName))\r
+ {\r
+ $Infos = getimagesize($FileName);\r
+ $Width = $Infos[0];\r
+ $Height = $Infos[1];\r
+ if ( $PicType == 1 ) { $Raster = imagecreatefrompng($FileName); }\r
+ if ( $PicType == 2 ) { $Raster = imagecreatefromgif($FileName); }\r
+ if ( $PicType == 3 ) { $Raster = imagecreatefromjpeg($FileName); }\r
+\r
+ imagecopymerge($this->Picture,$Raster,$X,$Y,0,0,$Width,$Height,$Alpha);\r
+ imagedestroy($Raster);\r
+ }\r
+ }\r
+\r
+ /* Draw an alpha pixel */\r
+ function drawAlphaPixel($X,$Y,$Alpha,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ if ( $X < 0 || $Y < 0 || $X >= $this->XSize || $Y >= $this->YSize )\r
+ return(-1);\r
+\r
+ $RGB2 = imagecolorat($this->Picture, $X, $Y);\r
+ $R2 = ($RGB2 >> 16) & 0xFF;\r
+ $G2 = ($RGB2 >> 8) & 0xFF;\r
+ $B2 = $RGB2 & 0xFF;\r
+\r
+ $iAlpha = (100 - $Alpha)/100;\r
+ $Alpha = $Alpha / 100;\r
+\r
+ $Ra = floor($R*$Alpha+$R2*$iAlpha);\r
+ $Ga = floor($G*$Alpha+$G2*$iAlpha);\r
+ $Ba = floor($B*$Alpha+$B2*$iAlpha);\r
+\r
+ $C_Aliased = imagecolorallocate($this->Picture,$Ra,$Ga,$Ba);\r
+ imagesetpixel($this->Picture,$X,$Y,$C_Aliased);\r
+ }\r
+\r
+ /* Color helper */\r
+ function AllocateColor($Picture,$R,$G,$B,$Factor=0)\r
+ {\r
+ $R = $R + $Factor;\r
+ $G = $G + $Factor;\r
+ $B = $B + $Factor;\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ return(imagecolorallocate($Picture,$R,$G,$B));\r
+ }\r
+\r
+ /* Add a border to the picture */\r
+ function addBorder($Size=3,$R=0,$G=0,$B=0)\r
+ {\r
+ $Width = $this->XSize+2*$Size;\r
+ $Height = $this->YSize+2*$Size;\r
+\r
+ $Resampled = imagecreatetruecolor($Width,$Height);\r
+ $C_Background = imagecolorallocate($Resampled,$R,$G,$B);\r
+ imagefilledrectangle($Resampled,0,0,$Width,$Height,$C_Background);\r
+\r
+ imagecopy($Resampled,$this->Picture,$Size,$Size,0,0,$this->XSize,$this->YSize);\r
+ imagedestroy($this->Picture);\r
+\r
+ $this->XSize = $Width;\r
+ $this->YSize = $Height;\r
+\r
+ $this->Picture = imagecreatetruecolor($this->XSize,$this->YSize);\r
+ $C_White = imagecolorallocate($this->Picture,255,255,255);\r
+ imagefilledrectangle($this->Picture,0,0,$this->XSize,$this->YSize,$C_White);\r
+ imagecolortransparent($this->Picture,$C_White);\r
+ imagecopy($this->Picture,$Resampled,0,0,0,0,$this->XSize,$this->YSize);\r
+ }\r
+\r
+ /* Render the current picture to a file */\r
+ function Render($FileName)\r
+ {\r
+ if ( $this->ErrorReporting )\r
+ $this->printErrors($this->ErrorInterface);\r
+\r
+ /* Save image map if requested */\r
+ if ( $this->BuildMap )\r
+ $this->SaveImageMap();\r
+\r
+ imagepng($this->Picture,$FileName);\r
+ }\r
+\r
+ /* Render the current picture to STDOUT */\r
+ function Stroke()\r
+ {\r
+ if ( $this->ErrorReporting )\r
+ $this->printErrors("GD");\r
+\r
+ /* Save image map if requested */\r
+ if ( $this->BuildMap )\r
+ $this->SaveImageMap();\r
+\r
+ header('Content-type: image/png');\r
+ imagepng($this->Picture);\r
+ }\r
+\r
+ /* Private functions for internal processing */\r
+ function drawAntialiasPixel($X,$Y,$R,$G,$B)\r
+ {\r
+ if ( $R < 0 ) { $R = 0; } if ( $R > 255 ) { $R = 255; }\r
+ if ( $G < 0 ) { $G = 0; } if ( $G > 255 ) { $G = 255; }\r
+ if ( $B < 0 ) { $B = 0; } if ( $B > 255 ) { $B = 255; }\r
+\r
+ $Plot = "";\r
+ $Xi = floor($X);\r
+ $Yi = floor($Y);\r
+\r
+ if ( $Xi == $X && $Yi == $Y)\r
+ {\r
+ /* $this->drawAlphaPixel($Xi,$Yi,0,$R,$G,$B); */\r
+ $C_Aliased = imagecolorallocate($this->Picture,$R,$G,$B);\r
+ imagesetpixel($this->Picture,$X,$Y,$C_Aliased);\r
+ }\r
+ else\r
+ {\r
+ $Alpha1 = (1 - ($X - floor($X))) * (1 - ($Y - floor($Y))) * 100;\r
+ if ( $Alpha1 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi,$Yi,$Alpha1,$R,$G,$B); }\r
+\r
+ $Alpha2 = ($X - floor($X)) * (1 - ($Y - floor($Y))) * 100;\r
+ if ( $Alpha2 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi+1,$Yi,$Alpha2,$R,$G,$B); }\r
+\r
+ $Alpha3 = (1 - ($X - floor($X))) * ($Y - floor($Y)) * 100;\r
+ if ( $Alpha3 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi,$Yi+1,$Alpha3,$R,$G,$B); }\r
+\r
+ $Alpha4 = ($X - floor($X)) * ($Y - floor($Y)) * 100;\r
+ if ( $Alpha4 > $this->AntialiasQuality ) { $this->drawAlphaPixel($Xi+1,$Yi+1,$Alpha4,$R,$G,$B); }\r
+ }\r
+ }\r
+\r
+ /* Validate data contained in the description array */\r
+ function validateDataDescription($FunctionName,&$DataDescription,$DescriptionRequired=TRUE)\r
+ {\r
+ if (!isset($DataDescription["Position"]))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Y Labels are not set.";\r
+ $DataDescription["Position"] = "Name";\r
+ }\r
+\r
+ if ( $DescriptionRequired )\r
+ {\r
+ if (!isset($DataDescription["Description"]))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Series descriptions are not set.";\r
+ foreach($DataDescription["Values"] as $key => $Value)\r
+ {\r
+ $DataDescription["Description"][$Value] = $Value;\r
+ }\r
+ }\r
+\r
+ if (count($DataDescription["Description"]) < count($DataDescription["Values"]))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Some series descriptions are not set.";\r
+ foreach($DataDescription["Values"] as $key => $Value)\r
+ {\r
+ if ( !isset($DataDescription["Description"][$Value]))\r
+ $DataDescription["Description"][$Value] = $Value;\r
+ }\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Validate data contained in the data array */\r
+ function validateData($FunctionName,&$Data)\r
+ {\r
+ $DataSummary = "";\r
+\r
+ foreach($Data as $key => $Values)\r
+ {\r
+ foreach($Values as $key2 => $Value)\r
+ {\r
+ if (!isset($DataSummary[$key2]))\r
+ $DataSummary[$key2] = 1;\r
+ else\r
+ $DataSummary[$key2]++;\r
+ }\r
+ }\r
+\r
+ if ( max($DataSummary) == 0 )\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - No data set.";\r
+\r
+ foreach($DataSummary as $key => $Value)\r
+ {\r
+ if ($Value < max($DataSummary))\r
+ {\r
+ $this->Errors[] = "[Warning] ".$FunctionName." - Missing data in serie ".$key.".";\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Print all error messages on the CLI or graphically */\r
+ function printErrors($Mode="CLI")\r
+ {\r
+ if (count($this->Errors) == 0)\r
+ return(0);\r
+\r
+ if ( $Mode == "CLI" )\r
+ {\r
+ foreach($this->Errors as $key => $Value)\r
+ echo $Value."\r\n";\r
+ }\r
+ elseif ( $Mode == "GD" )\r
+ {\r
+ $this->setLineStyle($Width=1);\r
+ $MaxWidth = 0;\r
+ foreach($this->Errors as $key => $Value)\r
+ {\r
+ $Position = imageftbbox($this->ErrorFontSize,0,$this->ErrorFontName,$Value,$bogus);\r
+ $TextWidth = $Position[2]-$Position[0];\r
+ if ( $TextWidth > $MaxWidth ) { $MaxWidth = $TextWidth; }\r
+ }\r
+ $this->drawFilledRoundedRectangle($this->XSize-($MaxWidth+20),$this->YSize-(20+(($this->ErrorFontSize+4)*count($this->Errors))),$this->XSize-10,$this->YSize-10,6,233,185,185);\r
+ $this->drawRoundedRectangle($this->XSize-($MaxWidth+20),$this->YSize-(20+(($this->ErrorFontSize+4)*count($this->Errors))),$this->XSize-10,$this->YSize-10,6,193,145,145);\r
+\r
+ $C_TextColor = imagecolorallocate($this->Picture,133,85,85);\r
+ $YPos = $this->YSize - (18 + (count($this->Errors)-1) * ($this->ErrorFontSize + 4));\r
+ foreach($this->Errors as $key => $Value)\r
+ {\r
+ imagettftext($this->Picture,$this->ErrorFontSize,0,$this->XSize-($MaxWidth+15),$YPos,$C_TextColor,$this->ErrorFontName,$Value);\r
+ $YPos = $YPos + ($this->ErrorFontSize + 4);\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Activate the image map creation process */\r
+ function setImageMap($Mode=TRUE,$GraphID="MyGraph")\r
+ {\r
+ $this->BuildMap = $Mode;\r
+ $this->MapID = $GraphID;\r
+ }\r
+\r
+ /* Add a box into the image map */\r
+ function addToImageMap($X1,$Y1,$X2,$Y2,$SerieName,$Value,$CallerFunction)\r
+ {\r
+ if ( $this->MapFunction == NULL || $this->MapFunction == $CallerFunction )\r
+ {\r
+ $this->ImageMap[] = round($X1).",".round($Y1).",".round($X2).",".round($Y2).",".$SerieName.",".$Value;\r
+ $this->MapFunction = $CallerFunction;\r
+ }\r
+ }\r
+\r
+ /* Load and cleanup the image map from disk */\r
+ function getImageMap($MapName,$Flush=TRUE)\r
+ {\r
+ /* Strip HTML query strings */\r
+ $Values = $this->tmpFolder.$MapName;\r
+ $Value = split("\?",$Values);\r
+ $FileName = $Value[0];\r
+\r
+ if ( file_exists($FileName) )\r
+ {\r
+ $Handle = fopen($FileName, "r");\r
+ $MapContent = fread($Handle, filesize($FileName));\r
+ fclose($Handle);\r
+ echo $MapContent;\r
+\r
+ if ( $Flush )\r
+ unlink($FileName);\r
+\r
+ exit();\r
+ }\r
+ else\r
+ {\r
+ header("HTTP/1.0 404 Not Found");\r
+ exit();\r
+ }\r
+ }\r
+\r
+ /* Save the image map to the disk */\r
+ function SaveImageMap()\r
+ {\r
+ if ( !$this->BuildMap ) { return(-1); }\r
+\r
+ if ( $this->ImageMap == NULL )\r
+ {\r
+ $this->Errors[] = "[Warning] SaveImageMap - Image map is empty.";\r
+ return(-1);\r
+ }\r
+\r
+ $Handle = fopen($this->tmpFolder.$this->MapID, 'w');\r
+ if ( !$Handle )\r
+ {\r
+ $this->Errors[] = "[Warning] SaveImageMap - Cannot save the image map.";\r
+ return(-1);\r
+ }\r
+ else\r
+ {\r
+ foreach($this->ImageMap as $Key => $Value)\r
+ fwrite($Handle, htmlentities($Value)."\r");\r
+ }\r
+ fclose ($Handle);\r
+ }\r
+\r
+ /* Convert seconds to a time format string */\r
+ function ToTime($Value)\r
+ {\r
+ $Hour = floor($Value/3600);\r
+ $Minute = floor(($Value - $Hour*3600)/60);\r
+ $Second = floor($Value - $Hour*3600 - $Minute*60);\r
+\r
+ if (strlen($Hour) == 1 ) { $Hour = "0".$Hour; }\r
+ if (strlen($Minute) == 1 ) { $Minute = "0".$Minute; }\r
+ if (strlen($Second) == 1 ) { $Second = "0".$Second; }\r
+\r
+ return($Hour.":".$Minute.":".$Second);\r
+ }\r
+\r
+ /* Convert to metric system */\r
+ function ToMetric($Value)\r
+ {\r
+ $Go = floor($Value/1000000000);\r
+ $Mo = floor(($Value - $Go*1000000000)/1000000);\r
+ $Ko = floor(($Value - $Go*1000000000 - $Mo*1000000)/1000);\r
+ $o = floor($Value - $Go*1000000000 - $Mo*1000000 - $Ko*1000);\r
+\r
+ if ($Go != 0) { return($Go.".".$Mo."g"); }\r
+ if ($Mo != 0) { return($Mo.".".$ko."m"); }\r
+ if ($Ko != 0) { return($Ko.".".$o)."k"; }\r
+ return($o);\r
+ }\r
+\r
+ /* Set date format for axis labels */\r
+ function setDateFormat($Format)\r
+ {\r
+ $this->DateFormat = $Format;\r
+ }\r
+\r
+ /* Convert TS to a date format string */\r
+ function ToDate($Value)\r
+ {\r
+ return(date($this->DateFormat,$Value));\r
+ }\r
+ }\r
+\r
+ function RaiseFatal($Message)\r
+ {\r
+ echo "[FATAL] ".$Message."\r\n";\r
+ exit();\r
+ }\r
+?>\r