inc/3rdparty/libraries/mpdf/graph.php

   1 <?php
   2
   3
   4 // mPDF 4.5.009
   5 define("FF_USERFONT", 15);      // See jpgraph_ttf.inc.php for font IDs
   6 global $JpgUseSVGFormat;
   7 $JpgUseSVGFormat = true;
   8
   9 //======================================================================================================
  10 // DELETE OLD GRAPH FILES FIRST - Housekeeping
  11 // First clear any files in directory that are >1 hrs old
  12         $interval = 3600;
  13         if ($handle = opendir(_MPDF_PATH.'graph_cache')) {
  14            while (false !== ($file = readdir($handle))) {
  15                 if (((filemtime(_MPDF_PATH.'graph_cache/'.$file)+$interval) < time()) && ($file != "..") && ($file != ".")) {
  16                         @unlink(_MPDF_PATH.'graph_cache/'.$file);       // mPDF 4.0
  17                 }
  18            }
  19            closedir($handle);
  20         }
  21 //==============================================================================================================
  22 // LOAD GRAPHS
  23
  24         include_once(_JPGRAPH_PATH.'jpgraph.php');
  25         include_once(_JPGRAPH_PATH.'jpgraph_line.php' );
  26         include_once(_JPGRAPH_PATH.'jpgraph_log.php' );
  27         include_once(_JPGRAPH_PATH.'jpgraph_scatter.php' );
  28         include_once(_JPGRAPH_PATH.'jpgraph_regstat.php' );
  29         include_once(_JPGRAPH_PATH.'jpgraph_pie.php');
  30         include_once(_JPGRAPH_PATH.'jpgraph_pie3d.php');
  31         include_once(_JPGRAPH_PATH.'jpgraph_bar.php');
  32         include_once(_JPGRAPH_PATH.'jpgraph_radar.php');
  33
  34
  35 //======================================================================================================
  36 //*****************************************************************************************************
  37 //*****************************************************************************************************
  38 //*****************************************************************************************************
  39 //*****************************************************************************************************
  40 //*****************************************************************************************************
  41 //*****************************************************************************************************
  42 //======================================================================================================
  43 //======================================================================================================
  44
  45 //======================================================================================================
  46 //======================================================================================================
  47
  48 //======================================================================================================
  49 function print_graph($g,$pgwidth) {
  50         $splines = false;
  51         $bandw = false;
  52         $percent = false;
  53         $show_percent = false;
  54         $stacked = false;
  55         $h = false;
  56         $show_values = false;
  57         $hide_grid = false;
  58         $hide_y_axis = false;
  59
  60         if (isset($g['attr']['TYPE']) && $g['attr']['TYPE']) { $type = strtolower($g['attr']['TYPE']); }
  61         if (!in_array($type,array('bar','horiz_bar','line','radar','pie','pie3d','xy','scatter'))) { $type = 'bar'; } // Default=bar
  62
  63         if (isset($g['attr']['STACKED']) && $g['attr']['STACKED']) { $stacked = true; } // stacked for bar or horiz_bar
  64         if (isset($g['attr']['SPLINES']) && $g['attr']['SPLINES'] && $type=='xy') { $splines = true; }  // splines for XY line graphs
  65         if (isset($g['attr']['BANDW']) && $g['attr']['BANDW']) { $bandw = true; }       // black and white
  66         if (isset($g['attr']['LEGEND-OVERLAP']) && $g['attr']['LEGEND-OVERLAP']) { $overlap = true; } // avoid overlap of Legends over graph (line, bar, horiz_bar only)
  67         if (isset($g['attr']['PERCENT']) && $g['attr']['PERCENT'] && $type != 'xy' && $type != 'scatter') { $percent = true; }  // Show data series as percent of total in series
  68         if (isset($g['attr']['SHOW-VALUES']) && $g['attr']['SHOW-VALUES']) { $show_values = true; }     // Show the individual data values
  69         if (isset($g['attr']['HIDE-GRID']) && $g['attr']['HIDE-GRID']) { $hide_grid = true; }   // Hide the y-axis gridlines
  70         if (isset($g['attr']['HIDE-Y-AXIS']) && $g['attr']['HIDE-Y-AXIS']) { $hide_y_axis = true; }     // Hide the y-axis
  71
  72
  73         // Antialias: If true - better quality curves, but graph line will only be 1px even in PDF 300dpi
  74         // default=true for most except line and radar
  75         if (isset($g['attr']['ANTIALIAS']) && ($g['attr']['ANTIALIAS']=='' || $g['attr']['ANTIALIAS']==0)) { $antialias = false; }
  76         else if (isset($g['attr']['ANTIALIAS']) && $g['attr']['ANTIALIAS'] > 0) { $antialias = true; }
  77         else if ($type=='line' || $type=='radar') { $antialias = false; }
  78         else { $antialias = true; }
  79
  80         if ($g['attr']['DPI']) { $dpi = intval($g['attr']['DPI']); }
  81         if (!$dpi || $dpi < 50 || $dpi > 2400) { $dpi = 150; }  // Default dpi 150
  82         $k = (0.2645/25.4 * $dpi);
  83
  84         // mPDF 4.5.009
  85         global $JpgUseSVGFormat;
  86         if (isset($JpgUseSVGFormat) && $JpgUseSVGFormat) {
  87                 $img_type = 'svg';
  88                 $k = 1; // Overrides as Vector scale does not need DPI
  89         }
  90         else {
  91                 $img_type = 'png';
  92         }
  93
  94         if (isset($g['attr']['TITLE']) && $g['attr']['TITLE']) { $title = $g['attr']['TITLE']; }
  95
  96         if (isset($g['attr']['LABEL-X']) && $g['attr']['LABEL-X']) { $xlabel = $g['attr']['LABEL-X']; }         // NOT IMPLEMENTED??????
  97         if (isset($g['attr']['LABEL-Y']) && $g['attr']['LABEL-Y']) { $ylabel = $g['attr']['LABEL-Y']; }
  98
  99         if (isset($g['attr']['AXIS-X']) && $g['attr']['AXIS-X']) { $xaxis = strtolower($g['attr']['AXIS-X']); }
 100         if (!in_array($xaxis,array('text','lin','linear','log'))) { $xaxis = 'text'; }  // Default=text
 101         if ($xaxis == 'linear') { $xaxis = 'lin'; }
 102
 103         if (isset($g['attr']['AXIS-Y']) && $g['attr']['AXIS-Y']) { $yaxis = strtolower($g['attr']['AXIS-Y']); }
 104         if (!in_array($yaxis,array('lin','linear','log','percent'))) { $yaxis = 'lin'; }                        // Default=lin
 105         if ($yaxis == 'percent') { $show_percent = true; $yaxis = 'lin'; }      // Show percent sign on scales
 106         if ($yaxis == 'linear') { $yaxis = 'lin'; }
 107
 108         if ($splines) { $xaxis = 'lin'; }
 109         $axes = $xaxis.$yaxis;  // e.g.textlin, textlog, loglog, loglin, linlog (XY)
 110
 111         // mPDF 4.0
 112         if (isset($g['attr']['cWIDTH']) && $g['attr']['cWIDTH']) { $w=($g['attr']['cWIDTH'] / 0.2645); }        // pixels
 113         if (isset($g['attr']['cHEIGHT']) && $g['attr']['cHEIGHT']) { $h=($g['attr']['cHEIGHT'] / 0.2645); }
 114
 115
 116         if (isset($g['attr']['SERIES']) && strtolower($g['attr']['SERIES']) == 'rows') { $dataseries = 'rows'; }
 117         else { $dataseries = 'cols'; }
 118
 119         // Defaults - define data
 120         $rowbegin = 2;
 121         $colbegin = 2;
 122         if($type=='scatter' || $type=='xy') {
 123                 if ($dataseries == 'rows') { $rowbegin = 1; }
 124                 else { $colbegin = 1; }
 125         }
 126         $rowend = 0;
 127         $colend = 0;
 128
 129         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']; }
 130
 131         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']; }
 132
 133         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']; }
 134         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']; }
 135
 136         $nr = count($g['data']);
 137         $nc = 0;
 138         foreach($g['data'] AS $r) {
 139                 $cc=0;
 140                 foreach($r AS $c) { $cc++; }
 141                 $nc = max($nc,$cc);
 142         }
 143         if ($colend == 0) { $colend = $nc; }
 144         else if ($colend < 0) { $colend = $nc+$colend; }
 145
 146         if ($rowend == 0) { $rowend = $nr; }
 147         else if ($rowend < 0) { $rowend = $nr+$rowend; }
 148
 149         if ($colend < $colbegin) { $colend = $colbegin; }
 150         if ($rowend < $rowbegin) { $rowend = $rowbegin; }
 151
 152 //      if ($type == 'xy' || $type=='scatter') { $colstart=0; }
 153
 154         // Get Data + Totals
 155         $data = array();
 156         $totals = array();
 157         for ($r=($rowbegin-1);$r<$rowend;$r++) {
 158                 for ($c=($colbegin-1);$c<$colend;$c++) {
 159                     if (isset($g['data'][$r][$c])) { $g['data'][$r][$c] = floatval($g['data'][$r][$c] ); }
 160                     else { $g['data'][$r][$c] = 0; }
 161                     if ($dataseries=='rows') {
 162                         $data[($r+1-$rowbegin)][($c+1-$colbegin)] = $g['data'][$r][$c] ;
 163                         $totals[($r+1-$rowbegin)] += $g['data'][$r][$c] ;
 164                     }
 165                     else {
 166                         $data[($c+1-$colbegin)][($r+1-$rowbegin)] = $g['data'][$r][$c] ;
 167                         if (isset($totals[($c+1-$colbegin)])) { $totals[($c+1-$colbegin)] += $g['data'][$r][$c] ; }
 168                         else { $totals[($c+1-$colbegin)] = $g['data'][$r][$c] ; }
 169                     }
 170                 }
 171         }
 172         // PERCENT
 173         if ($percent && $type != 'pie' && $type != 'pie3d') {
 174                 for ($r=0;$r<count($data);$r++) {
 175                         for ($c=0;$c<count($data[$r]);$c++) {
 176                                 $data[$r][$c] = $data[$r][$c]/$totals[$r]  * 100;
 177                         }
 178                 }
 179         }
 180         // Get Legends and labels
 181         $legends = array();
 182         $labels = array();
 183         $longestlegend = 0;
 184         $longestlabel = 0;
 185         if ($dataseries=='cols') {
 186                 if ($colbegin>1) {
 187                         for ($r=($rowbegin-1);$r<$rowend;$r++) {
 188                                 $legends[($r+1-$rowbegin)] = $g['data'][$r][0] ;
 189                                 $longestlegend = max($longestlegend, strlen( $g['data'][$r][0] ));
 190                         }
 191                 }
 192                 if ($rowbegin>1) {
 193                         for ($c=($colbegin-1);$c<$colend;$c++) {
 194                                 $labels[($c+1-$colbegin)] = $g['data'][0][$c] ;
 195                                 $longestlabel = max($longestlabel , strlen( $g['data'][0][$c] ));
 196                         }
 197                 }
 198         }
 199         else if ($dataseries=='rows') {
 200                 if ($colbegin>1) {
 201                         for ($r=($rowbegin-1);$r<$rowend;$r++) {
 202                                 $labels[($r+1-$rowbegin)] = $g['data'][$r][0] ;
 203                                 $longestlabel = max($longestlabel , strlen( $g['data'][$r][0] ));
 204                         }
 205                 }
 206                 if ($rowbegin>1) {
 207                         for ($c=($colbegin-1);$c<$colend;$c++) {
 208                                 $legends[($c+1-$colbegin)] = $g['data'][0][$c] ;
 209                                 $longestlegend = max($longestlegend, strlen( $g['data'][0][$c] ));
 210                         }
 211                 }
 212         }
 213    // Default sizes
 214    $defsize = array();
 215    $defsize['pie'] = array('w' => 600, 'h' => 300);
 216    $defsize['pie3d'] = array('w' => 600, 'h' => 300);
 217    $defsize['radar'] = array('w' => 600, 'h' => 300);
 218    $defsize['line'] = array('w' => 600, 'h' => 400);
 219    $defsize['xy'] = array('w' => 600, 'h' => 400);
 220    $defsize['scatter'] = array('w' => 600, 'h' => 400);
 221    $defsize['bar'] = array('w' => 600, 'h' => 400);
 222    $defsize['horiz_bar'] = array('w' => 600, 'h' => 500);
 223
 224
 225    // Use default ratios
 226    if ($w && !$h) { $h = $w*$defsize[$type]['h']/$defsize[$type]['w']; }
 227    if ($h && !$w) { $w = $h*$defsize[$type]['w']/$defsize[$type]['h']; }
 228    if (!$h && !$w) { $w = $defsize[$type]['w']; $h = $defsize[$type]['h']; }
 229
 230
 231    if (count($data)>0 && $type) {
 232         $figure_file = "graph_cache/".rand(11111,999999999).".".$img_type;
 233         if ($bandw) { $colours = array('snow1','black','snow4','snow3','snow2','cadetblue4','cadetblue3','cadetblue1','bisque4','bisque2','beige'); }
 234         else { $colours = array('cyan','darkorchid4','cadetblue3','khaki1','darkolivegreen2','cadetblue4','coral','cyan4','rosybrown3','wheat1'); }
 235         $fills = array('navy','orange','red','yellow','purple','navy','orange','red','yellow','purple');
 236         $patterns = array(PATTERN_DIAG1,PATTERN_CROSS1,PATTERN_STRIPE1,PATTERN_DIAG3,PATTERN_CROSS2,PATTERN_DIAG2,PATTERN_DIAG4,PATTERN_CROSS3, PATTERN_CROSS4,PATTERN_STRIPE1);
 237         $markers = array(MARK_DIAMOND, MARK_SQUARE, MARK_CIRCLE, MARK_UTRIANGLE, MARK_DTRIANGLE, MARK_FILLEDCIRCLE, MARK_CROSS, MARK_STAR, MARK_X);
 238
 239         // LEGENDS
 240         if ($type == 'pie' || $type == 'pie3d') {
 241                 $graph = new PieGraph (($w*$k),($h*$k));
 242         }
 243         else if ($type == 'radar') {
 244                 $graph = new RadarGraph(($w*$k),($h*$k));
 245         }
 246         else {
 247                 $graph = new Graph(($w*$k),($h*$k));
 248         }
 249
 250 // mPDF 4.5.009
 251 //      $graph->img->SetImgFormat($img_type) ;
 252 //      if (strtoupper($img_type)=='JPEG') { $graph->img->SetQuality(90); }
 253         if ($antialias) { $graph->img->SetAntiAliasing(); }
 254         $graph->SetShadow(true, 2*$k);
 255         $graph->SetMarginColor("white");
 256         // TITLE
 257         $graph->title->Set($title);
 258         $graph->title->SetMargin(10*$k);
 259         $graph->title->SetFont(FF_USERFONT,FS_BOLD,11*$k);
 260         $graph->title->SetColor("black");
 261         $graph->legend->SetLineSpacing(3*$k);
 262         $graph->legend->SetMarkAbsSize(6*$k);
 263         $graph->legend->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 264
 265         // Set GRAPH IMAGE MARGINS
 266         if ($type == 'pie' || $type == 'pie3d') {
 267                 $psize = 0.3;
 268                 $pposxabs = ($w/2);
 269                 $pposy = 0.55;
 270                 if ($longestlegend) {   // if legend showing
 271                         $pposxabs -= ((($longestlegend * 5) + 20) / 2);
 272                 }
 273                 $pposx = ($pposxabs / $w);
 274                 $graph->legend->Pos(0.02,0.5,'right','center');
 275         }
 276         else if ($type == 'radar') {
 277                 $psize = 0.5;
 278                 $pposxabs = ($w/2);
 279                 $pposy = 0.55;
 280                 if ($longestlabel) {    // if legend showing
 281                         $pposxabs -= ((($longestlabel * 5) + 20) / 2);
 282                 }
 283                 $pposx = ($pposxabs / $w);
 284                 $graph->legend->Pos(0.02,0.5,'right','center');
 285         }
 286         else if ($type == 'xy' || $type == 'scatter') {
 287                 $pml = 50;
 288                 $pmr = 20;
 289                 $pmt = 60;
 290                 $pmb = 50;
 291                 $xaxislblmargin = $pmb - 30;
 292                 $yaxislblmargin = $pml - 15;
 293                 $graph->legend->Pos(0.02,0.1,'right','top');
 294         }
 295         else if ($type == 'line' || $type == 'bar') {
 296                 $pml = 50;
 297                 $pmr = 20;
 298                 $pmt = 60;
 299                 $pmb = 50;
 300                 $xlangle = 0;
 301                 $ll = ($longestlegend * 5);     // 45 degrees 8pt fontsize
 302                 if ($ll > 5 || ($ll>3 && count($data)>10)) {
 303                         $pmb = max($pmb, $ll + 30);
 304                         $xlangle = 50;
 305                 }
 306                 $xaxislblmargin = $pmb - 30;
 307                 $yaxislblmargin = $pml - 15;
 308                 if ($longestlabel && !$overlap) {       // if legend showing
 309                         $pmr = ((($longestlabel * 5) + 40));
 310                 }
 311                 $graph->legend->Pos(0.02,0.1,'right','top');
 312         }
 313         else if ($type == 'horiz_bar') {
 314                 $pml = 50;
 315                 $pmr = 20;
 316                 $pmt = 50;
 317                 $pmb = 45;
 318                 $ll = ($longestlegend * 6.5);   // 8pt fontsize
 319                 $pml = max($pml, $ll + 20);
 320                 $xaxislblmargin = $pml - 20;
 321                 $yaxislblmargin = $pmb - 15;
 322                 if ($longestlabel && !$overlap) {       // if legend showing
 323                         $pmr = ((($longestlabel * 5) + 40));
 324                 }
 325                 $graph->legend->Pos(0.02,0.1,'right','top');
 326         }
 327
 328
 329         // DRAW THE GRAPHS
 330         if ($type == 'pie') {
 331                         $p1 = new PiePlot($data[0]);
 332                         $p1->SetSliceColors($colours);
 333
 334                         if ($show_values) {
 335                                 $p1->value->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 336                                 if ($percent) { $p1->SetLabelType(PIE_VALUE_PERADJ); }   //PIE_VAL_PER = default
 337                                 else { $p1->SetLabelType(PIE_VALUE_ABS); }
 338                                 if ($percent || $show_percent) { $p1->value->SetFormat("%d%%"); }
 339                                 else { $p1->value->SetFormat("%s"); }
 340                                 // Enable and set policy for guide-lines. Make labels line up vertically
 341                                 $p1->SetGuideLines(true);
 342                                 $p1->SetGuideLinesAdjust(1.5);
 343                         }
 344                         else { $p1->value->Show(false); }
 345                         $p1->SetLegends($legends);
 346                         $p1->SetSize($psize);
 347                         $p1->SetCenter($pposx, $pposy);
 348                         if ($labels[0]) {
 349                                 $graph->subtitle->Set($labels[0]);
 350                                 $graph->subtitle->SetMargin(10*$k);
 351                                 $graph->subtitle->SetFont(FF_USERFONT,FS_BOLD,11*$k);
 352                                 $graph->subtitle->SetColor("black");
 353                         }
 354                         $graph->Add($p1);
 355         }
 356         else if ($type == 'pie3d') {
 357                         $p1 = new PiePlot3d($data[0]);
 358                         $p1->SetSliceColors($colours);
 359                         if ($show_values) {
 360                                 $p1->value->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 361                                 if ($percent) { $p1->SetLabelType(PIE_VALUE_PERADJ); }   //PIE_VAL_PER = default
 362                                 else { $p1->SetLabelType(PIE_VALUE_ABS); }
 363                                 if ($percent || $show_percent) { $p1->value->SetFormat("%d%%"); }
 364                                 else { $p1->value->SetFormat("%s"); }
 365                         }
 366                         else { $p1->value->Show(false); }
 367                         $p1->SetLegends($legends);
 368                         $p1->SetEdge();
 369                         $p1->SetSize($psize);
 370                         $p1->SetCenter($pposx, $pposy);
 371
 372                         if ($labels[0]) {
 373                                 $graph->subtitle->Set($labels[0]);
 374                                 $graph->subtitle->SetMargin(10*$k);
 375                                 $graph->subtitle->SetFont(FF_USERFONT,FS_BOLD,11*$k);
 376                                 $graph->subtitle->SetColor("black");
 377                         }
 378
 379                         $graph->Add( $p1);
 380         }
 381         // RADAR
 382         else if ($type == 'radar') {
 383                         $graph->SetSize($psize);
 384                         $graph->SetPos($pposx, $pposy);
 385
 386                         $graph->SetTitles( $legends);   // labels each axis
 387
 388                         $graph->axis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 389                         $graph->axis->title->SetMargin(5*$k);
 390                         $graph->axis->SetWeight(1*$k);
 391                         $graph->axis->HideLabels();
 392                         $graph->axis->SetFont(FF_USERFONT,FS_NORMAL,6*$k);
 393                         $graph->HideTickMarks();
 394
 395                         $group = array();
 396                         foreach($data AS $series => $dat) {
 397                                 $rdata = array();
 398                                 foreach($data[$series] AS $row) { $rdata[] = $row;  }
 399                                 if (count($rdata)<3) { die("ERROR::Graph::Cannot create a Radar Plot with less than 3 data points."); }
 400                                 // Create the radar plot
 401                                 $bplot = new RadarPlot($rdata);
 402                                 $bplot->mark->SetType($markers[$series]);
 403                                 $bplot->mark->SetFillColor($colours[$series]);
 404                                 $bplot->mark->SetWidth(3*$k);
 405                                 $bplot->SetColor($colours[$series]);
 406                                 if ($series == 0) { $bplot->SetFillColor('lightred'); }
 407                                 else { $bplot->SetFill(false); }
 408                                 $bplot->SetLineWeight(1*$k);
 409                                 $bplot->SetLegend($labels[$series]);
 410                                 if ($bandw) { $bplot->SetShadow("gray5"); }
 411                                 $graph->Add($bplot);
 412                         }
 413         }
 414         // LINE
 415         else if ($type == 'line') {
 416                         // Setup the graph.
 417                         $graph->img->SetMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k);        // LRTB
 418                         $graph->SetScale($axes);
 419                         $graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 420
 421                         if ($ylabel) {
 422                                 $graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 423                                 $graph->yaxis->SetTitle($ylabel,'middle');
 424                                 $graph->yaxis->SetTitleMargin($yaxislblmargin*$k);
 425                         }
 426
 427                         $graph->yaxis->SetLabelMargin(4*$k);
 428                         if ($percent || $show_percent) { $graph->yaxis->SetLabelFormat('%d%%'); }       // Percent
 429
 430                         // Show 0 label on Y-axis (default is not to show)
 431                         $graph->yscale->ticks->SupressZeroLabel(true);
 432                         if ($hide_y_axis) { $graph->yaxis->Hide(); }
 433                         if ($hide_grid) { $graph->ygrid->Show(false); }
 434
 435                         // Setup X-axis labels
 436                         $graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 437                         $graph->xaxis->SetTickLabels($legends);
 438                         $graph->xaxis->SetLabelAngle($xlangle);
 439                         $graph->xaxis->SetLabelMargin(4*$k);
 440                         // X-axis title
 441                         if ($xlabel) {
 442                                 $graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 443                                 $graph->xaxis->SetTitle($xlabel,'middle');
 444                                 $graph->xaxis->SetTitleMargin($xaxislblmargin*$k);
 445                         }
 446                         foreach($data AS $series => $rdata) {
 447                                 $bplot = new LinePlot($rdata);
 448                                 $bplot->mark->SetType($markers[$series]);
 449                                 $bplot->mark->SetFillColor($colours[$series]);
 450                                 $bplot->mark->SetWidth(4*$k);
 451                                 if ($show_values) {
 452                                         $bplot->value-> Show(); // Not if scatter
 453                                         $bplot->value->SetMargin(6*$k);
 454                                         $bplot->value->SetColor("darkred");
 455                                         $bplot->value->SetFont( FF_USERFONT, FS_NORMAL, 8*$k);
 456                                         if ($percent || $show_percent) { $bplot->value->SetFormat( '%d%%'); }
 457                                         else { $bplot->value->SetFormat("%s"); }
 458                                 }
 459                                 // Set color for each line
 460                                 $bplot->SetColor($colours[$series]);
 461                                 $bplot->SetWeight(2*$k);
 462                                 $bplot->SetLegend($labels[$series]);
 463                                 if ($bandw) { $bplot->SetShadow("gray5"); }
 464                                 // Indent the X-scale so the first and last point doesn't fall on the edges
 465                                 $bplot->SetCenter();
 466                                 $graph->Add($bplot);
 467                         }
 468
 469         }
 470         // XY or SCATTER
 471         else if ($type == 'xy' || $type == 'scatter') {
 472                         // Setup the graph.
 473                         $graph->img->SetMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k);        // LRTB
 474                         $graph->SetScale($axes);
 475                         // Setup font for axis
 476                         $graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 477                         // Y-axis title
 478                         if ($labels[1]) {
 479                                 $graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 480                                 $graph->yaxis->SetTitleMargin($yaxislblmargin*$k);
 481                                 $graph->yaxis->SetTitle($labels[1],'middle');
 482                         }
 483
 484
 485                         $graph->yaxis->SetLabelMargin(4*$k);
 486                         if ($percent || $show_percent) { $graph->yaxis->SetLabelFormat('%d%%'); }       // Percent
 487
 488                         // Show 0 label on Y-axis (default is not to show)
 489                         $graph->yscale->ticks->SupressZeroLabel(true);
 490                         // Just let the maximum be autoscaled
 491                         $graph->yaxis->scale->SetAutoMin(0);
 492                         if ($hide_y_axis) { $graph->yaxis->Hide(); }
 493                         if ($hide_grid) { $graph->ygrid->Show(false); }
 494
 495                         // Setup X-axis labels
 496                         $graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 497 // mPDF 2.5 Corrects labelling of x-axis
 498 //                      $graph->xaxis->SetTickLabels($legends);
 499                         $graph->xaxis->SetLabelAngle(50);
 500                         $graph->xaxis->SetLabelMargin(4*$k);
 501                         // X-axis title
 502                         if ($labels[0]) {
 503                                 $graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 504                                 $graph->xaxis->SetTitleMargin($xaxislblmargin*$k);
 505                                 $graph->xaxis->SetTitle($labels[0],'middle');
 506                         }
 507
 508                         // Create the bar plot
 509                         // SPLINES
 510                         if ($splines && $type=='xy') {
 511                                 $spline = new Spline($data[0],$data[1]);
 512                                 list($newx,$newy) = $spline->Get(100);
 513                         }
 514                         else {
 515                                 $newx = $data[0];
 516                                 $newy = $data[1];
 517                         }
 518
 519                         if ($type=='xy') {
 520                                 // LINE PLOT
 521                                 $bplot = new LinePlot($newy, $newx);
 522                                 // Set color for each line
 523                                 $bplot->SetColor($fills[0]);
 524                                 $bplot->SetWeight(4*$k);
 525                                 if ($bandw) { $bplot->SetShadow("gray5"); }
 526                                 $graph->Add($bplot);
 527                         }
 528
 529                         // SCATTER PLOT
 530                         $cplot = new ScatterPlot($data[1], $data[0]);
 531
 532                         $cplot->mark->SetType($markers[0]);
 533                         $cplot->mark->SetFillColor($fills[0]);
 534                         $cplot->mark->SetWidth(8*$k);
 535                         if ($show_values) {
 536 // mPDF 2.5
 537                                 if ($type=='xy') { $cplot->value->Show(); }     // Not if scatter
 538                                 $cplot->value->SetMargin(8*$k);
 539                                 $cplot->value->SetColor("darkred");
 540                                 $cplot->value->SetFont( FF_USERFONT, FS_NORMAL, 6*$k);
 541
 542                                 if ($percent || $show_percent) { $cplot->value->SetFormat( '%d%%'); }
 543                                 else { $cplot->value->SetFormat("%s"); }
 544                         }
 545
 546                         // Set color for each line
 547                         $cplot->SetColor($fills[0]);
 548                         $cplot->SetWeight(4*$k);
 549                         if ($bandw) { $cplot->SetShadow("gray5"); }
 550                         $graph->Add($cplot);
 551
 552         }
 553         // BAR
 554         else if ($type == 'bar') {
 555                         // Setup the graph.
 556                         $graph->img->SetMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k);        // LRTB
 557                         $graph->SetScale($axes);
 558                         // Setup y-axis
 559                         $graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 560                         if ($hide_y_axis) { $graph->yaxis->Hide(); }
 561                         if ($hide_grid) { $graph->ygrid->Show(false); }
 562                         $graph->yaxis->SetLabelMargin(4*$k);
 563                         if ($ylabel) {
 564                                 $graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 565                                 $graph->yaxis->SetTitle($ylabel,'middle');
 566                                 $graph->yaxis->SetTitleMargin($yaxislblmargin*$k);
 567                         }
 568                         // Show 0 label on Y-axis (default is not to show)
 569                         $graph->yscale->ticks->SupressZeroLabel(false);
 570                         // Setup X-axis labels
 571                         $graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 572                         $graph->xaxis->SetTickLabels($legends);
 573                         $graph->xaxis->SetLabelAngle($xlangle);
 574                         $graph->xaxis->SetLabelMargin(4*$k);
 575                         // X-axis title
 576                         if ($xlabel) {
 577                                 $graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 578                                 $graph->xaxis->SetTitle($xlabel,'middle');
 579                                 $graph->xaxis->SetTitleMargin($xaxislblmargin*$k);
 580                         }
 581
 582                         $group = array();
 583                         foreach($data AS $series => $dat) {
 584                                 $rdata = array();
 585                                 foreach($data[$series] AS $row) { $rdata[] = $row;  }
 586
 587                                 // Create the bar plot
 588                                 $bplot = new BarPlot($rdata);
 589                                 $bplot->SetWidth(0.6);  // for SINGLE??
 590                                 // Setup color for gradient fill style
 591                                 if ($bandw) { $bplot->SetPattern( $patterns[$series]); }
 592                                 else { $bplot->SetFillGradient($fills[$series],"#EEEEEE",GRAD_LEFT_REFLECTION); }
 593
 594                                 // Set color for the frame of each bar
 595                                 $bplot->SetColor("darkgray");
 596                                 $bplot->SetLegend($labels[$series]);
 597                                 if ($bandw) { $bplot->SetShadow("gray5"); }
 598                                 if ($show_values) {
 599                                         $bplot->value->Show();
 600                                         $bplot->value->SetMargin(6*$k);
 601                                         $bplot->value->SetColor("darkred");
 602                                         $bplot->value->SetFont( FF_USERFONT, FS_NORMAL, 8*$k);
 603                                         if ($percent || $show_percent) { $bplot->value->SetFormat( '%d%%'); }
 604                                         else { $bplot->value->SetFormat("%s"); }
 605                                 }
 606
 607                                 $group[] = $bplot;
 608                         }
 609                         if (count($data)==1) {
 610                                 $graph->Add($group[0]);
 611                         }
 612                         else {
 613                                 // Create the grouped bar plot
 614                                 if ($stacked) {
 615                                         $gbplot = new AccBarPlot ($group);
 616                                 }
 617                                 else {
 618                                         $gbplot = new GroupBarPlot ($group);
 619                                 }
 620                                 $graph->Add($gbplot);
 621                         }
 622         }
 623         else if ($type == 'horiz_bar') {
 624                         $graph->SetScale($axes);
 625                         $graph->Set90AndMargin($pml*$k,$pmr*$k,$pmt*$k,$pmb*$k);        // LRTB
 626
 627                         // Setup y-axis
 628                         $graph->yaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 629                         $graph->yaxis->SetLabelMargin(4*$k);
 630
 631                         $graph->yaxis->SetPos('max');   // Intersect at top of x-axis i.e. y axis is at bottom
 632                         // First make the labels look right
 633                         $graph->yaxis->SetLabelAlign('center','top');
 634                         if ($percent || $show_percent) { $graph->yaxis->SetLabelFormat('%d%%'); }
 635                         $graph->yaxis->SetLabelSide(SIDE_RIGHT);
 636                         $graph->yaxis->scale->SetGrace(10);     // sets 10% headroom
 637                         if ($hide_y_axis) { $graph->yaxis->Hide(); }
 638                         if ($hide_grid) { $graph->ygrid->Show(false); }
 639
 640                         // The fix the tick marks
 641                         $graph->yaxis->SetTickSide(SIDE_LEFT);
 642                         if ($ylabel) {
 643                                 $graph->yaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 644                                 $graph->yaxis->SetTitle($ylabel,'middle');
 645                                 $graph->yaxis->SetTitleMargin($yaxislblmargin*$k);
 646                                 // Finally setup the title
 647                                 $graph->yaxis->SetTitleSide(SIDE_RIGHT);
 648                                 // To align the title to the right use :
 649                                 $graph->yaxis->title->Align('right');
 650                                 $graph->yaxis->title->SetAngle(0);
 651
 652                         }
 653
 654                         // Show 0 label on Y-axis (default is not to show)
 655                         $graph->yscale->ticks->SupressZeroLabel(false);
 656                         // Setup X-axis labels
 657                         $graph->xaxis->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 658                         $graph->xaxis->title->SetAngle(90);
 659                         $graph->xaxis->SetTickLabels($legends);
 660                         $graph->xaxis->SetLabelMargin(4*$k);
 661                         // X-axis title
 662                         if ($xlabel) {
 663                                 $graph->xaxis->title->SetFont(FF_USERFONT,FS_NORMAL,8*$k);
 664                                 $graph->xaxis->SetTitleMargin($xaxislblmargin*$k);
 665                                 $graph->xaxis->SetTitle($xlabel,'middle');
 666                         }
 667                         $group = array();
 668                         foreach($data AS $series => $dat) {
 669                                 $rdata = array();
 670                                 foreach($data[$series] AS $row) { $rdata[] = $row;  }
 671                                 // Create the bar pot
 672                                 $bplot = new BarPlot($rdata);
 673                                 $bplot->SetWidth(0.6);  // for SINGLE??
 674                                 // Setup color for gradient fill style
 675                                 if ($bandw) { $bplot->SetPattern( $patterns[$series]); }
 676                                 else { $bplot->SetFillGradient($fills[$series],"#EEEEEE",GRAD_LEFT_REFLECTION); }
 677
 678                                 // Set color for the frame of each bar
 679                                 $bplot->SetColor("darkgray");
 680                                 $bplot->SetLegend($labels[$series]);
 681                                 if ($bandw) { $bplot->SetShadow("gray5"); }
 682                                 if ($show_values) {
 683                                         $bplot->value-> Show();
 684                                         $bplot->value->SetMargin(6*$k);
 685                                         $bplot->value->SetColor("darkred");
 686                                         $bplot->value->SetFont( FF_USERFONT, FS_NORMAL, 8*$k);
 687                                         if ($percent || $show_percent) { $bplot->value->SetFormat( '%d%%'); }
 688                                         else { $bplot->value->SetFormat("%s"); }
 689                                 }
 690
 691                                 $group[] = $bplot;
 692                         }
 693                         if (count($data)==1) {
 694                                 $graph->Add($group[0]);
 695                         }
 696                         else {
 697                                 // Create the grouped bar plot
 698                                 if ($stacked) {
 699                                         $gbplot = new AccBarPlot ($group);
 700                                 }
 701                                 else {
 702                                         $gbplot = new GroupBarPlot ($group);
 703                                 }
 704                                 $graph->Add($gbplot);
 705                         }
 706         }
 707         if ($graph) {
 708                 $graph->Stroke( _MPDF_PATH.$figure_file);
 709                 $srcpath = str_replace("\\","/",dirname(__FILE__)) . "/";
 710                 $srcpath .= $figure_file;
 711                 return array('file'=>$srcpath, 'w'=>$w, 'h'=>$h);
 712         }
 713    }
 714    return false;
 715 }
 716 //======================================================================================================
 717 //======================================================================================================
 718 //======================================================================================================
 719 //======================================================================================================
 720
 721 ?>