Blame | Last modification | View Log | RSS feed
<?php// mPDF 4.5.009define("FF_USERFONT", 15); // See jpgraph_ttf.inc.php for font IDsglobal $JpgUseSVGFormat;$JpgUseSVGFormat = true;//======================================================================================================// DELETE OLD GRAPH FILES FIRST - Housekeeping// First clear any files in directory that are >1 hrs old$interval = 3600;if ($handle = opendir(_MPDF_PATH.'graph_cache')) {while (false !== ($file = readdir($handle))) {if (((filemtime(_MPDF_PATH.'graph_cache/'.$file)+$interval) < time()) && ($file != "..") && ($file != ".")) {@unlink(_MPDF_PATH.'graph_cache/'.$file); // mPDF 4.0}}closedir($handle);}//==============================================================================================================// LOAD GRAPHSinclude_once(_JPGRAPH_PATH.'jpgraph.php');include_once(_JPGRAPH_PATH.'jpgraph_line.php' );include_once(_JPGRAPH_PATH.'jpgraph_log.php' );include_once(_JPGRAPH_PATH.'jpgraph_scatter.php' );include_once(_JPGRAPH_PATH.'jpgraph_regstat.php' );include_once(_JPGRAPH_PATH.'jpgraph_pie.php');include_once(_JPGRAPH_PATH.'jpgraph_pie3d.php');include_once(_JPGRAPH_PATH.'jpgraph_bar.php');include_once(_JPGRAPH_PATH.'jpgraph_radar.php');//======================================================================================================//*****************************************************************************************************//*****************************************************************************************************//*****************************************************************************************************//*****************************************************************************************************//*****************************************************************************************************//*****************************************************************************************************//======================================================================================================//======================================================================================================//======================================================================================================//======================================================================================================//======================================================================================================function print_graph($g,$pgwidth) {$splines = false;$bandw = false;$percent = false;$show_percent = false;$stacked = false;$h = false;$show_values = false;$hide_grid = false;$hide_y_axis = false;if (isset($g['attr']['TYPE']) && $g['attr']['TYPE']) { $type = strtolower($g['attr']['TYPE']); }if (!in_array($type,array('bar','horiz_bar','line','radar','pie','pie3d','xy','scatter'))) { $type = 'bar'; } // Default=barif (isset($g['attr']['STACKED']) && $g['attr']['STACKED']) { $stacked = true; } // stacked for bar or horiz_barif (isset($g['attr']['SPLINES']) && $g['attr']['SPLINES'] && $type=='xy') { $splines = true; } // splines for XY line graphsif (isset($g['attr']['BANDW']) && $g['attr']['BANDW']) { $bandw = true; } // black and whiteif (isset($g['attr']['LEGEND-OVERLAP']) && $g['attr']['LEGEND-OVERLAP']) { $overlap = true; } // avoid overlap of Legends over graph (line, bar, horiz_bar only)if (isset($g['attr']['PERCENT']) && $g['attr']['PERCENT'] && $type != 'xy' && $type != 'scatter') { $percent = true; } // Show data series as percent of total in seriesif (isset($g['attr']['SHOW-VALUES']) && $g['attr']['SHOW-VALUES']) { $show_values = true; } // Show the individual data valuesif (isset($g['attr']['HIDE-GRID']) && $g['attr']['HIDE-GRID']) { $hide_grid = true; } // Hide the y-axis gridlinesif (isset($g['attr']['HIDE-Y-AXIS']) && $g['attr']['HIDE-Y-AXIS']) { $hide_y_axis = true; } // Hide the y-axis// Antialias: If true - better quality curves, but graph line will only be 1px even in PDF 300dpi// default=true for most except line and radarif (isset($g['attr']['ANTIALIAS']) && ($g['attr']['ANTIALIAS']=='' || $g['attr']['ANTIALIAS']==0)) { $antialias = false; }else if (isset($g['attr']['ANTIALIAS']) && $g['attr']['ANTIALIAS'] > 0) { $antialias = true; }else if ($type=='line' || $type=='radar') { $antialias = false; }else { $antialias = true; }if ($g['attr']['DPI']) { $dpi = intval($g['attr']['DPI']); }if (!$dpi || $dpi < 50 || $dpi > 2400) { $dpi = 150; } // Default dpi 150$k = (0.2645/25.4 * $dpi);// mPDF 4.5.009global $JpgUseSVGFormat;if (isset($JpgUseSVGFormat) && $JpgUseSVGFormat) {$img_type = 'svg';$k = 1; // Overrides as Vector scale does not need DPI}else {$img_type = 'png';}if (isset($g['attr']['TITLE']) && $g['attr']['TITLE']) { $title = $g['attr']['TITLE']; }if (isset($g['attr']['LABEL-X']) && $g['attr']['LABEL-X']) { $xlabel = $g['attr']['LABEL-X']; } // NOT IMPLEMENTED??????if (isset($g['attr']['LABEL-Y']) && $g['attr']['LABEL-Y']) { $ylabel = $g['attr']['LABEL-Y']; }if (isset($g['attr']['AXIS-X']) && $g['attr']['AXIS-X']) { $xaxis = strtolower($g['attr']['AXIS-X']); }if (!in_array($xaxis,array('text','lin','linear','log'))) { $xaxis = 'text'; } // Default=textif ($xaxis == 'linear') { $xaxis = 'lin'; }if (isset($g['attr']['AXIS-Y']) && $g['attr']['AXIS-Y']) { $yaxis = strtolower($g['attr']['AXIS-Y']); }if (!in_array($yaxis,array('lin','linear','log','percent'))) { $yaxis = 'lin'; } // Default=linif ($yaxis == 'percent') { $show_percent = true; $yaxis = 'lin'; } // Show percent sign on scalesif ($yaxis == 'linear') { $yaxis = 'lin'; }if ($splines) { $xaxis = 'lin'; }$axes = $xaxis.$yaxis; // e.g.textlin, textlog, loglog, loglin, linlog (XY)// mPDF 4.0if (isset($g['attr']['cWIDTH']) && $g['attr']['cWIDTH']) { $w=($g['attr']['cWIDTH'] / 0.2645); } // pixelsif (isset($g['attr']['cHEIGHT']) && $g['attr']['cHEIGHT']) { $h=($g['attr']['cHEIGHT'] / 0.2645); }if (isset($g['attr']['SERIES']) && strtolower($g['attr']['SERIES']) == 'rows') { $dataseries = 'rows'; }else { $dataseries = 'cols'; }// Defaults - define data$rowbegin = 2;$colbegin = 2;if($type=='scatter' || $type=='xy') {if ($dataseries == 'rows') { $rowbegin = 1; }else { $colbegin = 1; }}$rowend = 0;$colend = 0;if (isset($g['attr']['DATA-ROW-BEGIN']) && ($g['attr']['DATA-ROW-BEGIN'] === '0' || $g['attr']['DATA-ROW-BEGIN'] > 0)) { $rowbegin = $g['attr']['DATA-ROW-BEGIN']; }if (isset($g['attr']['DATA-COL-BEGIN']) && ($g['attr']['DATA-COL-BEGIN'] === '0' || $g['attr']['DATA-COL-BEGIN'] > 0)) { $colbegin = $g['attr']['DATA-COL-BEGIN']; }if (isset($g['attr']['DATA-ROW-END']) && ($g['attr']['DATA-ROW-END'] === '0' || $g['attr']['DATA-ROW-END'] <> 0)) { $rowend = $g['attr']['DATA-ROW-END']; }if (isset($g['attr']['DATA-COL-END']) && ($g['attr']['DATA-COL-END'] === '0' || $g['attr']['DATA-COL-END'] <> 0)) { $colend = $g['attr']['DATA-COL-END']; }$nr = count($g['data']);$nc = 0;foreach($g['data'] AS $r) {$cc=0;foreach($r AS $c) { $cc++; }$nc = max($nc,$cc);}if ($colend == 0) { $colend = $nc; }else if ($colend < 0) { $colend = $nc+$colend; }if ($rowend == 0) { $rowend = $nr; }else if ($rowend < 0) { $rowend = $nr+$rowend; }if ($colend < $colbegin) { $colend = $colbegin; }if ($rowend < $rowbegin) { $rowend = $rowbegin; }// if ($type == 'xy' || $type=='scatter') { $colstart=0; }// Get Data + Totals$data = array();$totals = array();for ($r=($rowbegin-1);$r<$rowend;$r++) {for ($c=($colbegin-1);$c<$colend;$c++) {if (isset($g['data'][$r][$c])) { $g['data'][$r][$c] = floatval($g['data'][$r][$c] ); }else { $g['data'][$r][$c] = 0; }if ($dataseries=='rows') {$data[($r+1-$rowbegin)][($c+1-$colbegin)] = $g['data'][$r][$c] ;$totals[($r+1-$rowbegin)] += $g['data'][$r][$c] ;}else {$data[($c+1-$colbegin)][($r+1-$rowbegin)] = $g['data'][$r][$c] ;if (isset($totals[($c+1-$colbegin)])) { $totals[($c+1-$colbegin)] += $g['data'][$r][$c] ; }else { $totals[($c+1-$colbegin)] = $g['data'][$r][$c] ; }}}}// PERCENTif ($percent && $type != 'pie' && $type != 'pie3d') {for ($r=0;$r<count($data);$r++) {for ($c=0;$c<count($data[$r]);$c++) {$data[$r][$c] = $data[$r][$c]/$totals[$r] * 100;}}}// Get Legends and labels$legends = array();$labels = array();$longestlegend = 0;$longestlabel = 0;if ($dataseries=='cols') {if ($colbegin>1) {for ($r=($rowbegin-1);$r<$rowend;$r++) {$legends[($r+1-$rowbegin)] = $g['data'][$r][0] ;$longestlegend = max($longestlegend, strlen( $g['data'][$r][0] ));}}if ($rowbegin>1) {for ($c=($colbegin-1);$c<$colend;$c++) {$labels[($c+1-$colbegin)] = $g['data'][0][$c] ;$longestlabel = max($longestlabel , strlen( $g['data'][0][$c] ));}}}else if ($dataseries=='rows') {if ($colbegin>1) {for ($r=($rowbegin-1);$r<$rowend;$r++) {$labels[($r+1-$rowbegin)] = $g['data'][$r][0] ;$longestlabel = max($longestlabel , strlen( $g['data'][$r][0] ));}}if ($rowbegin>1) {for ($c=($colbegin-1);$c<$colend;$c++) {$legends[($c+1-$colbegin)] = $g['data'][0][$c] ;$longestlegend = max($longestlegend, strlen( $g['data'][0][$c] ));}}}// Default sizes$defsize = array();$defsize['pie'] = array('w' => 600, 'h' => 300);$defsize['pie3d'] = array('w' => 600, 'h' => 300);$defsize['radar'] = array('w' => 600, 'h' => 300);$defsize['line'] = array('w' => 600, 'h' => 400);$defsize['xy'] = array('w' => 600, 'h' => 400);$defsize['scatter'] = array('w' => 600, 'h' => 400);$defsize['bar'] = array('w' => 600, 'h' => 400);$defsize['horiz_bar'] = array('w' => 600, 'h' => 500);// Use default ratiosif ($w && !$h) { $h = $w*$defsize[$type]['h']/$defsize[$type]['w']; }if ($h && !$w) { $w = $h*$defsize[$type]['w']/$defsize[$type]['h']; }if (!$h && !$w) { $w = $defsize[$type]['w']; $h = $defsize[$type]['h']; }if (count($data)>0 && $type) {$figure_file = "graph_cache/".rand(11111,999999999).".".$img_type;if ($bandw) { $colours = array('snow1','black','snow4','snow3','snow2','cadetblue4','cadetblue3','cadetblue1','bisque4','bisque2','beige'); }else { $colours = array('cyan','darkorchid4','cadetblue3','khaki1','darkolivegreen2','cadetblue4','coral','cyan4','rosybrown3','wheat1'); }$fills = array('navy','orange','red','yellow','purple','navy','orange','red','yellow','purple');$patterns = array(PATTERN_DIAG1,PATTERN_CROSS1,PATTERN_STRIPE1,PATTERN_DIAG3,PATTERN_CROSS2,PATTERN_DIAG2,PATTERN_DIAG4,PATTERN_CROSS3, PATTERN_CROSS4,PATTERN_STRIPE1);$markers = array(MARK_DIAMOND, MARK_SQUARE, MARK_CIRCLE, MARK_UTRIANGLE, MARK_DTRIANGLE, MARK_FILLEDCIRCLE, MARK_CROSS, MARK_STAR, MARK_X);// LEGENDSif ($type == 'pie' || $type == 'pie3d') {$graph = new PieGraph (($w*$k),($h*$k));}else if ($type == 'radar') {$graph = new RadarGraph(($w*$k),($h*$k));}else {$graph = new Graph(($w*$k),($h*$k));}// mPDF 4.5.009// $graph->img->SetImgFormat($img_type) ;// if (strtoupper($img_type)=='JPEG') { $graph->img->SetQuality(90); }if ($antialias) { $graph->img->SetAntiAliasing(); }$graph->SetShadow(true, 2*$k);$graph->SetMarginColor("white");// TITLE$graph->title->Set($title);$graph->title->SetMargin(10*$k);$graph->title->SetFont(FF_USERFONT,FS_BOLD,11*$k);$graph->title->SetColor("black");$graph->legend->SetLineSpacing(3*$k);$graph->legend->SetMarkAbsSize(6*$k);$graph->legend->SetFont(FF_USERFONT,FS_NORMAL,8*$k);// Set GRAPH IMAGE MARGINSif ($type == 'pie' || $type == 'pie3d') {$psize = 0.3;$pposxabs = ($w/2);$pposy = 0.55;if ($longestlegend) { // if legend showing$pposxabs -= ((($longestlegend * 5) + 20) / 2);}$pposx = ($pposxabs / $w);$graph->legend->Pos(0.02,0.5,'right','center');}else if ($type == 'radar') {$psize = 0.5;$pposxabs = ($w/2);$pposy = 0.55;if ($longestlabel) { // if legend showing$pposxabs -= ((($longestlabel * 5) + 20) / 2);}$pposx = ($pposxabs / $w);$graph->legend->Pos(0.02,0.5,'right','center');}else if ($type == 'xy' || $type == 'scatter') {$pml = 50;$pmr = 20;$pmt = 60;$pmb = 50;$xaxislblmargin = $pmb - 30;$yaxislblmargin = $pml - 15;$graph->legend->Pos(0.02,0.1,'right','top');}else if ($type == 'line' || $type == 'bar') {$pml = 50;$pmr = 20;$pmt = 60;$pmb = 50;$xlangle = 0;$ll = ($longestlegend * 5); // 45 degrees 8pt fontsizeif ($ll > 5 || ($ll>3 && count($data)>10)) {$pmb = max($pmb, $ll + 30);$xlangle = 50;}$xaxislblmargin = $pmb - 30;$yaxislblmargin = $pml - 15;if ($longestlabel && !$overlap) { // if legend showing$pmr = ((($longestlabel * 5) + 40));}$graph->legend->Pos(0.02,0.1,'right','top');}else if ($type == 'horiz_bar') {$pml = 50;$pmr = 20;$pmt = 50;$pmb = 45;$ll = ($longestlegend * 6.5); // 8pt fontsize$pml = max($pml, $ll + 20);$xaxislblmargin = $pml - 20;$yaxislblmargin = $pmb - 15;if ($longestlabel && !$overlap) { // if legend showing$pmr = ((($longestlabel * 5) + 40));}$graph->legend->Pos(0.02,0.1,'right','top');}// DRAW THE GRAPHSif ($type == 'pie') {$p1 = new PiePlot($data[0]);$p1->SetSliceColors($colours);if ($show_values) {$p1->value->SetFont(FF_USERFONT,FS_NORMAL,8*$k);if ($percent) { $p1->SetLabelType(PIE_VALUE_PERADJ); } //PIE_VAL_PER = defaultelse { $p1->SetLabelType(PIE_VALUE_ABS); }if ($percent || $show_percent) { $p1->value->SetFormat("%d%%"); }else { $p1->value->SetFormat("%s"); }// Enable and set policy for guide-lines. Make labels line up vertically$p1->SetGuideLines(true);$p1->SetGuideLinesAdjust(1.5);}else { $p1->value->Show(false); }$p1->SetLegends($legends);$p1->SetSize($psize);$p1->SetCenter($pposx, $pposy);if ($labels[0]) {$graph->subtitle->Set($labels[0]);$graph->subtitle->SetMargin(10*$k);$graph->subtitle->SetFont(FF_USERFONT,FS_BOLD,11*$k);$graph->subtitle->SetColor("black");}$graph->Add($p1);}else if ($type == 'pie3d') {$p1 = new PiePlot3d($data[0]);$p1->SetSliceColors($colours);if ($show_values) {$p1->value->SetFont(FF_USERFONT,FS_NORMAL,8*$k);if ($percent) { $p1->SetLabelType(PIE_VALUE_PERADJ); } //PIE_VAL_PER = defaultelse { $p1->SetLabelType(PIE_VALUE_ABS); }if ($percent || $show_percent) { $p1->value->SetFormat("%d%%"); }else { $p1->value->SetFormat("%s"); }}else { $p1->value->Show(false); }$p1->SetLegends($legends);$p1->SetEdge();$p1->SetSize($psize);$p1->SetCenter($pposx, $pposy);if ($labels[0]) {$graph->subtitle->Set($labels[0]);$graph->subtitle->SetMargin(10*$k);$graph->subtitle->SetFont(FF_USERFONT,FS_BOLD,11*$k);$graph->subtitle->SetColor("black");}$graph->Add( $p1);}// RADARelse if ($type == 'radar') {$graph->SetSize($psize);$graph->SetPos($pposx, $pposy);$graph->SetTitles( $legends); // labels each axis$graph->axis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->axis->title->SetMargin(5*$k);$graph->axis->SetWeight(1*$k);$graph->axis->HideLabels();$graph->axis->SetFont(FF_USERFONT,FS_NORMAL,6*$k);$graph->HideTickMarks();$group = array();foreach($data AS $series => $dat) {$rdata = array();foreach($data[$series] AS $row) { $rdata[] = $row; }if (count($rdata)<3) { die("ERROR::Graph::Cannot create a Radar Plot with less than 3 data points."); }// Create the radar plot$bplot = new RadarPlot($rdata);$bplot->mark->SetType($markers[$series]);$bplot->mark->SetFillColor($colours[$series]);$bplot->mark->SetWidth(3*$k);$bplot->SetColor($colours[$series]);if ($series == 0) { $bplot->SetFillColor('lightred'); }else { $bplot->SetFill(false); }$bplot->SetLineWeight(1*$k);$bplot->SetLegend($labels[$series]);if ($bandw) { $bplot->SetShadow("gray5"); }$graph->Add($bplot);}}// LINEelse if ($type == 'line') {// Setup the graph.$graph->img->SetMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k); // LRTB$graph->SetScale($axes);$graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);if ($ylabel) {$graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->yaxis->SetTitle($ylabel,'middle');$graph->yaxis->SetTitleMargin($yaxislblmargin*$k);}$graph->yaxis->SetLabelMargin(4*$k);if ($percent || $show_percent) { $graph->yaxis->SetLabelFormat('%d%%'); } // Percent// Show 0 label on Y-axis (default is not to show)$graph->yscale->ticks->SupressZeroLabel(true);if ($hide_y_axis) { $graph->yaxis->Hide(); }if ($hide_grid) { $graph->ygrid->Show(false); }// Setup X-axis labels$graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->SetTickLabels($legends);$graph->xaxis->SetLabelAngle($xlangle);$graph->xaxis->SetLabelMargin(4*$k);// X-axis titleif ($xlabel) {$graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->SetTitle($xlabel,'middle');$graph->xaxis->SetTitleMargin($xaxislblmargin*$k);}foreach($data AS $series => $rdata) {$bplot = new LinePlot($rdata);$bplot->mark->SetType($markers[$series]);$bplot->mark->SetFillColor($colours[$series]);$bplot->mark->SetWidth(4*$k);if ($show_values) {$bplot->value-> Show(); // Not if scatter$bplot->value->SetMargin(6*$k);$bplot->value->SetColor("darkred");$bplot->value->SetFont( FF_USERFONT, FS_NORMAL, 8*$k);if ($percent || $show_percent) { $bplot->value->SetFormat( '%d%%'); }else { $bplot->value->SetFormat("%s"); }}// Set color for each line$bplot->SetColor($colours[$series]);$bplot->SetWeight(2*$k);$bplot->SetLegend($labels[$series]);if ($bandw) { $bplot->SetShadow("gray5"); }// Indent the X-scale so the first and last point doesn't fall on the edges$bplot->SetCenter();$graph->Add($bplot);}}// XY or SCATTERelse if ($type == 'xy' || $type == 'scatter') {// Setup the graph.$graph->img->SetMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k); // LRTB$graph->SetScale($axes);// Setup font for axis$graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);// Y-axis titleif ($labels[1]) {$graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->yaxis->SetTitleMargin($yaxislblmargin*$k);$graph->yaxis->SetTitle($labels[1],'middle');}$graph->yaxis->SetLabelMargin(4*$k);if ($percent || $show_percent) { $graph->yaxis->SetLabelFormat('%d%%'); } // Percent// Show 0 label on Y-axis (default is not to show)$graph->yscale->ticks->SupressZeroLabel(true);// Just let the maximum be autoscaled$graph->yaxis->scale->SetAutoMin(0);if ($hide_y_axis) { $graph->yaxis->Hide(); }if ($hide_grid) { $graph->ygrid->Show(false); }// Setup X-axis labels$graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);// mPDF 2.5 Corrects labelling of x-axis// $graph->xaxis->SetTickLabels($legends);$graph->xaxis->SetLabelAngle(50);$graph->xaxis->SetLabelMargin(4*$k);// X-axis titleif ($labels[0]) {$graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->SetTitleMargin($xaxislblmargin*$k);$graph->xaxis->SetTitle($labels[0],'middle');}// Create the bar plot// SPLINESif ($splines && $type=='xy') {$spline = new Spline($data[0],$data[1]);list($newx,$newy) = $spline->Get(100);}else {$newx = $data[0];$newy = $data[1];}if ($type=='xy') {// LINE PLOT$bplot = new LinePlot($newy, $newx);// Set color for each line$bplot->SetColor($fills[0]);$bplot->SetWeight(4*$k);if ($bandw) { $bplot->SetShadow("gray5"); }$graph->Add($bplot);}// SCATTER PLOT$cplot = new ScatterPlot($data[1], $data[0]);$cplot->mark->SetType($markers[0]);$cplot->mark->SetFillColor($fills[0]);$cplot->mark->SetWidth(8*$k);if ($show_values) {// mPDF 2.5if ($type=='xy') { $cplot->value->Show(); } // Not if scatter$cplot->value->SetMargin(8*$k);$cplot->value->SetColor("darkred");$cplot->value->SetFont( FF_USERFONT, FS_NORMAL, 6*$k);if ($percent || $show_percent) { $cplot->value->SetFormat( '%d%%'); }else { $cplot->value->SetFormat("%s"); }}// Set color for each line$cplot->SetColor($fills[0]);$cplot->SetWeight(4*$k);if ($bandw) { $cplot->SetShadow("gray5"); }$graph->Add($cplot);}// BARelse if ($type == 'bar') {// Setup the graph.$graph->img->SetMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k); // LRTB$graph->SetScale($axes);// Setup y-axis$graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);if ($hide_y_axis) { $graph->yaxis->Hide(); }if ($hide_grid) { $graph->ygrid->Show(false); }$graph->yaxis->SetLabelMargin(4*$k);if ($ylabel) {$graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->yaxis->SetTitle($ylabel,'middle');$graph->yaxis->SetTitleMargin($yaxislblmargin*$k);}// Show 0 label on Y-axis (default is not to show)$graph->yscale->ticks->SupressZeroLabel(false);// Setup X-axis labels$graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->SetTickLabels($legends);$graph->xaxis->SetLabelAngle($xlangle);$graph->xaxis->SetLabelMargin(4*$k);// X-axis titleif ($xlabel) {$graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->SetTitle($xlabel,'middle');$graph->xaxis->SetTitleMargin($xaxislblmargin*$k);}$group = array();foreach($data AS $series => $dat) {$rdata = array();foreach($data[$series] AS $row) { $rdata[] = $row; }// Create the bar plot$bplot = new BarPlot($rdata);$bplot->SetWidth(0.6); // for SINGLE??// Setup color for gradient fill styleif ($bandw) { $bplot->SetPattern( $patterns[$series]); }else { $bplot->SetFillGradient($fills[$series],"#EEEEEE",GRAD_LEFT_REFLECTION); }// Set color for the frame of each bar$bplot->SetColor("darkgray");$bplot->SetLegend($labels[$series]);if ($bandw) { $bplot->SetShadow("gray5"); }if ($show_values) {$bplot->value->Show();$bplot->value->SetMargin(6*$k);$bplot->value->SetColor("darkred");$bplot->value->SetFont( FF_USERFONT, FS_NORMAL, 8*$k);if ($percent || $show_percent) { $bplot->value->SetFormat( '%d%%'); }else { $bplot->value->SetFormat("%s"); }}$group[] = $bplot;}if (count($data)==1) {$graph->Add($group[0]);}else {// Create the grouped bar plotif ($stacked) {$gbplot = new AccBarPlot ($group);}else {$gbplot = new GroupBarPlot ($group);}$graph->Add($gbplot);}}else if ($type == 'horiz_bar') {$graph->SetScale($axes);$graph->Set90AndMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k); // LRTB// Setup y-axis$graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->yaxis->SetLabelMargin(4*$k);$graph->yaxis->SetPos('max'); // Intersect at top of x-axis i.e. y axis is at bottom// First make the labels look right$graph->yaxis->SetLabelAlign('center','top');if ($percent || $show_percent) { $graph->yaxis->SetLabelFormat('%d%%'); }$graph->yaxis->SetLabelSide(SIDE_RIGHT);$graph->yaxis->scale->SetGrace(10); // sets 10% headroomif ($hide_y_axis) { $graph->yaxis->Hide(); }if ($hide_grid) { $graph->ygrid->Show(false); }// The fix the tick marks$graph->yaxis->SetTickSide(SIDE_LEFT);if ($ylabel) {$graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->yaxis->SetTitle($ylabel,'middle');$graph->yaxis->SetTitleMargin($yaxislblmargin*$k);// Finally setup the title$graph->yaxis->SetTitleSide(SIDE_RIGHT);// To align the title to the right use :$graph->yaxis->title->Align('right');$graph->yaxis->title->SetAngle(0);}// Show 0 label on Y-axis (default is not to show)$graph->yscale->ticks->SupressZeroLabel(false);// Setup X-axis labels$graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->title->SetAngle(90);$graph->xaxis->SetTickLabels($legends);$graph->xaxis->SetLabelMargin(4*$k);// X-axis titleif ($xlabel) {$graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);$graph->xaxis->SetTitleMargin($xaxislblmargin*$k);$graph->xaxis->SetTitle($xlabel,'middle');}$group = array();foreach($data AS $series => $dat) {$rdata = array();foreach($data[$series] AS $row) { $rdata[] = $row; }// Create the bar pot$bplot = new BarPlot($rdata);$bplot->SetWidth(0.6); // for SINGLE??// Setup color for gradient fill styleif ($bandw) { $bplot->SetPattern( $patterns[$series]); }else { $bplot->SetFillGradient($fills[$series],"#EEEEEE",GRAD_LEFT_REFLECTION); }// Set color for the frame of each bar$bplot->SetColor("darkgray");$bplot->SetLegend($labels[$series]);if ($bandw) { $bplot->SetShadow("gray5"); }if ($show_values) {$bplot->value-> Show();$bplot->value->SetMargin(6*$k);$bplot->value->SetColor("darkred");$bplot->value->SetFont( FF_USERFONT, FS_NORMAL, 8*$k);if ($percent || $show_percent) { $bplot->value->SetFormat( '%d%%'); }else { $bplot->value->SetFormat("%s"); }}$group[] = $bplot;}if (count($data)==1) {$graph->Add($group[0]);}else {// Create the grouped bar plotif ($stacked) {$gbplot = new AccBarPlot ($group);}else {$gbplot = new GroupBarPlot ($group);}$graph->Add($gbplot);}}if ($graph) {$graph->Stroke( _MPDF_PATH.$figure_file);$srcpath = str_replace("\\","/",dirname(__FILE__)) . "/";$srcpath .= $figure_file;return array('file'=>$srcpath, 'w'=>$w, 'h'=>$h);}}return false;}//======================================================================================================//======================================================================================================//======================================================================================================//======================================================================================================?>