BenoitCier
/
Opendistrib
форк від Laclic/Souke
Слідкувати 1
В обрані 0
Форк 0
Код Проблеми 0 Запити на злиття 0 Релізи 0 Вікі Активність
Ви не можете вибрати більше 25 тем Теми мають розпочинатися з літери або цифри, можуть містити дефіси (-) і не повинні перевищувати 35 символів.
341 Коміти
2 Гілки
Дерево: 3a1e73c50c
Гілки Теги
${ item.name }
Створити гілку ${ searchTerm }
з '3a1e73c50c'
${ noResults }
Opendistrib/vendor/mpdf/mpdf/graph.php

859 lines
25KB
Неформатований Blame Історія 

  1. <?php

  2. 

  3. // mPDF 4.5.009

  4. define("FF_USERFONT", 15); // See jpgraph_ttf.inc.php for font IDs

  5. global $JpgUseSVGFormat;

  6. $JpgUseSVGFormat = true;

  7. 

  8. //======================================================================================================

  9. // DELETE OLD GRAPH FILES FIRST - Housekeeping

  10. // First clear any files in directory that are >1 hrs old

  11. $interval = 3600;

  12. if ($handle = opendir(_MPDF_PATH . 'graph_cache')) {

  13. 	while (false !== ($file = readdir($handle))) {

  14. 		if (((filemtime(_MPDF_PATH . 'graph_cache/' . $file) + $interval) < time()) && ($file != "..") && ($file != ".")) {

  15. 			@unlink(_MPDF_PATH . 'graph_cache/' . $file);  // mPDF 4.0

  16. 		}

  17. 	}

  18. 	closedir($handle);

  19. }

  20. //==============================================================================================================

  21. // LOAD GRAPHS

  22. 

  23. include_once(_JPGRAPH_PATH . 'jpgraph.php');

  24. include_once(_JPGRAPH_PATH . 'jpgraph_line.php' );

  25. include_once(_JPGRAPH_PATH . 'jpgraph_log.php' );

  26. include_once(_JPGRAPH_PATH . 'jpgraph_scatter.php' );

  27. include_once(_JPGRAPH_PATH . 'jpgraph_regstat.php' );

  28. include_once(_JPGRAPH_PATH . 'jpgraph_pie.php');

  29. include_once(_JPGRAPH_PATH . 'jpgraph_pie3d.php');

  30. include_once(_JPGRAPH_PATH . 'jpgraph_bar.php');

  31. include_once(_JPGRAPH_PATH . 'jpgraph_radar.php');

  32. 

  33. require_once __DIR__ . '/MpdfException.php';

  34. 

  35. function print_graph($g, $pgwidth)

  36. {

  37. 	$splines = false;

  38. 	$bandw = false;

  39. 	$percent = false;

  40. 	$show_percent = false;

  41. 	$stacked = false;

  42. 	$h = false;

  43. 	$show_values = false;

  44. 	$hide_grid = false;

  45. 	$hide_y_axis = false;

  46. 

  47. 	if (isset($g['attr']['TYPE']) && $g['attr']['TYPE']) {

  48. 		$type = strtolower($g['attr']['TYPE']);

  49. 	}

  50. 	if (!in_array($type, array('bar', 'horiz_bar', 'line', 'radar', 'pie', 'pie3d', 'xy', 'scatter'))) {

  51. 		$type = 'bar';

  52. 	} // Default=bar

  53. 

  54. 	if (isset($g['attr']['STACKED']) && $g['attr']['STACKED']) {

  55. 		$stacked = true;

  56. 	} // stacked for bar or horiz_bar

  57. 	if (isset($g['attr']['SPLINES']) && $g['attr']['SPLINES'] && $type == 'xy') {

  58. 		$splines = true;

  59. 	} // splines for XY line graphs

  60. 	if (isset($g['attr']['BANDW']) && $g['attr']['BANDW']) {

  61. 		$bandw = true;

  62. 	} // black and white

  63. 	if (isset($g['attr']['LEGEND-OVERLAP']) && $g['attr']['LEGEND-OVERLAP']) {

  64. 		$overlap = true;

  65. 	} // avoid overlap of Legends over graph (line, bar, horiz_bar only)

  66. 	if (isset($g['attr']['PERCENT']) && $g['attr']['PERCENT'] && $type != 'xy' && $type != 'scatter') {

  67. 		$percent = true;

  68. 	} // Show data series as percent of total in series

  69. 	if (isset($g['attr']['SHOW-VALUES']) && $g['attr']['SHOW-VALUES']) {

  70. 		$show_values = true;

  71. 	} // Show the individual data values

  72. 	if (isset($g['attr']['HIDE-GRID']) && $g['attr']['HIDE-GRID']) {

  73. 		$hide_grid = true;

  74. 	} // Hide the y-axis gridlines

  75. 	if (isset($g['attr']['HIDE-Y-AXIS']) && $g['attr']['HIDE-Y-AXIS']) {

  76. 		$hide_y_axis = true;

  77. 	} // Hide the y-axis

  78. 	// Antialias: If true - better quality curves, but graph line will only be 1px even in PDF 300dpi

  79. 	// default=true for most except line and radar

  80. 	if (isset($g['attr']['ANTIALIAS']) && ($g['attr']['ANTIALIAS'] == '' || $g['attr']['ANTIALIAS'] == 0)) {

  81. 		$antialias = false;

  82. 	} else if (isset($g['attr']['ANTIALIAS']) && $g['attr']['ANTIALIAS'] > 0) {

  83. 		$antialias = true;

  84. 	} else if ($type == 'line' || $type == 'radar') {

  85. 		$antialias = false;

  86. 	} else {

  87. 		$antialias = true;

  88. 	}

  89. 

  90. 	if ($g['attr']['DPI']) {

  91. 		$dpi = intval($g['attr']['DPI']);

  92. 	}

  93. 	if (!$dpi || $dpi < 50 || $dpi > 2400) {

  94. 		$dpi = 150;

  95. 	}  // Default dpi 150

  96. 	$k = (0.2645 / 25.4 * $dpi);

  97. 

  98. 	// mPDF 4.5.009

  99. 	global $JpgUseSVGFormat;

  100. 	if (isset($JpgUseSVGFormat) && $JpgUseSVGFormat) {

  101. 		$img_type = 'svg';

  102. 		$k = 1; // Overrides as Vector scale does not need DPI

  103. 	} else {

  104. 		$img_type = 'png';

  105. 	}

  106. 

  107. 	if (isset($g['attr']['TITLE']) && $g['attr']['TITLE']) {

  108. 		$title = $g['attr']['TITLE'];

  109. 	}

  110. 

  111. 	if (isset($g['attr']['LABEL-X']) && $g['attr']['LABEL-X']) {

  112. 		$xlabel = $g['attr']['LABEL-X'];

  113. 	}  // NOT IMPLEMENTED??????

  114. 	if (isset($g['attr']['LABEL-Y']) && $g['attr']['LABEL-Y']) {

  115. 		$ylabel = $g['attr']['LABEL-Y'];

  116. 	}

  117. 

  118. 	if (isset($g['attr']['AXIS-X']) && $g['attr']['AXIS-X']) {

  119. 		$xaxis = strtolower($g['attr']['AXIS-X']);

  120. 	}

  121. 	if (!in_array($xaxis, array('text', 'lin', 'linear', 'log'))) {

  122. 		$xaxis = 'text';

  123. 	} // Default=text

  124. 	if ($xaxis == 'linear') {

  125. 		$xaxis = 'lin';

  126. 	}

  127. 

  128. 	if (isset($g['attr']['AXIS-Y']) && $g['attr']['AXIS-Y']) {

  129. 		$yaxis = strtolower($g['attr']['AXIS-Y']);

  130. 	}

  131. 	if (!in_array($yaxis, array('lin', 'linear', 'log', 'percent'))) {

  132. 		$yaxis = 'lin';

  133. 	}   // Default=lin

  134. 	if ($yaxis == 'percent') {

  135. 		$show_percent = true;

  136. 		$yaxis = 'lin';

  137. 	} // Show percent sign on scales

  138. 	if ($yaxis == 'linear') {

  139. 		$yaxis = 'lin';

  140. 	}

  141. 

  142. 	if ($splines) {

  143. 		$xaxis = 'lin';

  144. 	}

  145. 	$axes = $xaxis . $yaxis; // e.g.textlin, textlog, loglog, loglin, linlog (XY)

  146. 	// mPDF 4.0

  147. 	if (isset($g['attr']['cWIDTH']) && $g['attr']['cWIDTH']) {

  148. 		$w = ($g['attr']['cWIDTH'] / 0.2645);

  149. 	} // pixels

  150. 	if (isset($g['attr']['cHEIGHT']) && $g['attr']['cHEIGHT']) {

  151. 		$h = ($g['attr']['cHEIGHT'] / 0.2645);

  152. 	}

  153. 

  154. 

  155. 	if (isset($g['attr']['SERIES']) && strtolower($g['attr']['SERIES']) == 'rows') {

  156. 		$dataseries = 'rows';

  157. 	} else {

  158. 		$dataseries = 'cols';

  159. 	}

  160. 

  161. 	// Defaults - define data

  162. 	$rowbegin = 2;

  163. 	$colbegin = 2;

  164. 	if ($type == 'scatter' || $type == 'xy') {

  165. 		if ($dataseries == 'rows') {

  166. 			$rowbegin = 1;

  167. 		} else {

  168. 			$colbegin = 1;

  169. 		}

  170. 	}

  171. 	$rowend = 0;

  172. 	$colend = 0;

  173. 

  174. 	if (isset($g['attr']['DATA-ROW-BEGIN']) && ($g['attr']['DATA-ROW-BEGIN'] === '0' || $g['attr']['DATA-ROW-BEGIN'] > 0)) {

  175. 		$rowbegin = $g['attr']['DATA-ROW-BEGIN'];

  176. 	}

  177. 

  178. 	if (isset($g['attr']['DATA-COL-BEGIN']) && ($g['attr']['DATA-COL-BEGIN'] === '0' || $g['attr']['DATA-COL-BEGIN'] > 0)) {

  179. 		$colbegin = $g['attr']['DATA-COL-BEGIN'];

  180. 	}

  181. 

  182. 	if (isset($g['attr']['DATA-ROW-END']) && ($g['attr']['DATA-ROW-END'] === '0' || $g['attr']['DATA-ROW-END'] <> 0)) {

  183. 		$rowend = $g['attr']['DATA-ROW-END'];

  184. 	}

  185. 	if (isset($g['attr']['DATA-COL-END']) && ($g['attr']['DATA-COL-END'] === '0' || $g['attr']['DATA-COL-END'] <> 0)) {

  186. 		$colend = $g['attr']['DATA-COL-END'];

  187. 	}

  188. 

  189. 	$nr = count($g['data']);

  190. 	$nc = 0;

  191. 	foreach ($g['data'] AS $r) {

  192. 		$cc = 0;

  193. 		foreach ($r AS $c) {

  194. 			$cc++;

  195. 		}

  196. 		$nc = max($nc, $cc);

  197. 	}

  198. 	if ($colend == 0) {

  199. 		$colend = $nc;

  200. 	} else if ($colend < 0) {

  201. 		$colend = $nc + $colend;

  202. 	}

  203. 

  204. 	if ($rowend == 0) {

  205. 		$rowend = $nr;

  206. 	} else if ($rowend < 0) {

  207. 		$rowend = $nr + $rowend;

  208. 	}

  209. 

  210. 	if ($colend < $colbegin) {

  211. 		$colend = $colbegin;

  212. 	}

  213. 	if ($rowend < $rowbegin) {

  214. 		$rowend = $rowbegin;

  215. 	}

  216. 

  217. //	if ($type == 'xy' || $type=='scatter') { $colstart=0; }

  218. 	// Get Data + Totals

  219. 	$data = array();

  220. 	$totals = array();

  221. 	for ($r = ($rowbegin - 1); $r < $rowend; $r++) {

  222. 		for ($c = ($colbegin - 1); $c < $colend; $c++) {

  223. 			if (isset($g['data'][$r][$c])) {

  224. 				$g['data'][$r][$c] = floatval($g['data'][$r][$c]);

  225. 			} else {

  226. 				$g['data'][$r][$c] = 0;

  227. 			}

  228. 			if ($dataseries == 'rows') {

  229. 				$data[($r + 1 - $rowbegin)][($c + 1 - $colbegin)] = $g['data'][$r][$c];

  230. 				$totals[($r + 1 - $rowbegin)] += $g['data'][$r][$c];

  231. 			} else {

  232. 				$data[($c + 1 - $colbegin)][($r + 1 - $rowbegin)] = $g['data'][$r][$c];

  233. 				if (isset($totals[($c + 1 - $colbegin)])) {

  234. 					$totals[($c + 1 - $colbegin)] += $g['data'][$r][$c];

  235. 				} else {

  236. 					$totals[($c + 1 - $colbegin)] = $g['data'][$r][$c];

  237. 				}

  238. 			}

  239. 		}

  240. 	}

  241. 	// PERCENT

  242. 	if ($percent && $type != 'pie' && $type != 'pie3d') {

  243. 		for ($r = 0; $r < count($data); $r++) {

  244. 			for ($c = 0; $c < count($data[$r]); $c++) {

  245. 				$data[$r][$c] = $data[$r][$c] / $totals[$r] * 100;

  246. 			}

  247. 		}

  248. 	}

  249. 	// Get Legends and labels

  250. 	$legends = array();

  251. 	$labels = array();

  252. 	$longestlegend = 0;

  253. 	$longestlabel = 0;

  254. 	if ($dataseries == 'cols') {

  255. 		if ($colbegin > 1) {

  256. 			for ($r = ($rowbegin - 1); $r < $rowend; $r++) {

  257. 				$legends[($r + 1 - $rowbegin)] = $g['data'][$r][0];

  258. 				$longestlegend = max($longestlegend, strlen($g['data'][$r][0]));

  259. 			}

  260. 		}

  261. 		if ($rowbegin > 1) {

  262. 			for ($c = ($colbegin - 1); $c < $colend; $c++) {

  263. 				$labels[($c + 1 - $colbegin)] = $g['data'][0][$c];

  264. 				$longestlabel = max($longestlabel, strlen($g['data'][0][$c]));

  265. 			}

  266. 		}

  267. 	} else if ($dataseries == 'rows') {

  268. 		if ($colbegin > 1) {

  269. 			for ($r = ($rowbegin - 1); $r < $rowend; $r++) {

  270. 				$labels[($r + 1 - $rowbegin)] = $g['data'][$r][0];

  271. 				$longestlabel = max($longestlabel, strlen($g['data'][$r][0]));

  272. 			}

  273. 		}

  274. 		if ($rowbegin > 1) {

  275. 			for ($c = ($colbegin - 1); $c < $colend; $c++) {

  276. 				$legends[($c + 1 - $colbegin)] = $g['data'][0][$c];

  277. 				$longestlegend = max($longestlegend, strlen($g['data'][0][$c]));

  278. 			}

  279. 		}

  280. 	}

  281. 	// Default sizes

  282. 	$defsize = array();

  283. 	$defsize['pie'] = array('w' => 600, 'h' => 300);

  284. 	$defsize['pie3d'] = array('w' => 600, 'h' => 300);

  285. 	$defsize['radar'] = array('w' => 600, 'h' => 300);

  286. 	$defsize['line'] = array('w' => 600, 'h' => 400);

  287. 	$defsize['xy'] = array('w' => 600, 'h' => 400);

  288. 	$defsize['scatter'] = array('w' => 600, 'h' => 400);

  289. 	$defsize['bar'] = array('w' => 600, 'h' => 400);

  290. 	$defsize['horiz_bar'] = array('w' => 600, 'h' => 500);

  291. 

  292. 

  293. 	// Use default ratios

  294. 	if ($w && !$h) {

  295. 		$h = $w * $defsize[$type]['h'] / $defsize[$type]['w'];

  296. 	}

  297. 	if ($h && !$w) {

  298. 		$w = $h * $defsize[$type]['w'] / $defsize[$type]['h'];

  299. 	}

  300. 	if (!$h && !$w) {

  301. 		$w = $defsize[$type]['w'];

  302. 		$h = $defsize[$type]['h'];

  303. 	}

  304. 

  305. 

  306. 	if (count($data) > 0 && $type) {

  307. 		$figure_file = "graph_cache/" . rand(11111, 999999999) . "." . $img_type;

  308. 		if ($bandw) {

  309. 			$colours = array('snow1', 'black', 'snow4', 'snow3', 'snow2', 'cadetblue4', 'cadetblue3', 'cadetblue1', 'bisque4', 'bisque2', 'beige');

  310. 		} else {

  311. 			$colours = array('cyan', 'darkorchid4', 'cadetblue3', 'khaki1', 'darkolivegreen2', 'cadetblue4', 'coral', 'cyan4', 'rosybrown3', 'wheat1');

  312. 		}

  313. 		$fills = array('navy', 'orange', 'red', 'yellow', 'purple', 'navy', 'orange', 'red', 'yellow', 'purple');

  314. 		$patterns = array(PATTERN_DIAG1, PATTERN_CROSS1, PATTERN_STRIPE1, PATTERN_DIAG3, PATTERN_CROSS2, PATTERN_DIAG2, PATTERN_DIAG4, PATTERN_CROSS3, PATTERN_CROSS4, PATTERN_STRIPE1);

  315. 		$markers = array(MARK_DIAMOND, MARK_SQUARE, MARK_CIRCLE, MARK_UTRIANGLE, MARK_DTRIANGLE, MARK_FILLEDCIRCLE, MARK_CROSS, MARK_STAR, MARK_X);

  316. 

  317. 		// LEGENDS

  318. 		if ($type == 'pie' || $type == 'pie3d') {

  319. 			$graph = new PieGraph(($w * $k), ($h * $k));

  320. 		} else if ($type == 'radar') {

  321. 			$graph = new RadarGraph(($w * $k), ($h * $k));

  322. 		} else {

  323. 			$graph = new Graph(($w * $k), ($h * $k));

  324. 		}

  325. 

  326. 		// mPDF 4.5.009

  327. 		//	$graph->img->SetImgFormat($img_type) ;

  328. 		//	if (strtoupper($img_type)=='JPEG') { $graph->img->SetQuality(90); }

  329. 		if ($antialias) {

  330. 			$graph->img->SetAntiAliasing();

  331. 		}

  332. 		$graph->SetShadow(true, 2 * $k);

  333. 		$graph->SetMarginColor("white");

  334. 		// TITLE

  335. 		$graph->title->Set($title);

  336. 		$graph->title->SetMargin(10 * $k);

  337. 		$graph->title->SetFont(FF_USERFONT, FS_BOLD, 11 * $k);

  338. 		$graph->title->SetColor("black");

  339. 		$graph->legend->SetLineSpacing(3 * $k);

  340. 		$graph->legend->SetMarkAbsSize(6 * $k);

  341. 		$graph->legend->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  342. 

  343. 		// Set GRAPH IMAGE MARGINS

  344. 		if ($type == 'pie' || $type == 'pie3d') {

  345. 			$psize = 0.3;

  346. 			$pposxabs = ($w / 2);

  347. 			$pposy = 0.55;

  348. 			if ($longestlegend) { // if legend showing

  349. 				$pposxabs -= ((($longestlegend * 5) + 20) / 2);

  350. 			}

  351. 			$pposx = ($pposxabs / $w);

  352. 			$graph->legend->Pos(0.02, 0.5, 'right', 'center');

  353. 		} else if ($type == 'radar') {

  354. 			$psize = 0.5;

  355. 			$pposxabs = ($w / 2);

  356. 			$pposy = 0.55;

  357. 			if ($longestlabel) { // if legend showing

  358. 				$pposxabs -= ((($longestlabel * 5) + 20) / 2);

  359. 			}

  360. 			$pposx = ($pposxabs / $w);

  361. 			$graph->legend->Pos(0.02, 0.5, 'right', 'center');

  362. 		} else if ($type == 'xy' || $type == 'scatter') {

  363. 			$pml = 50;

  364. 			$pmr = 20;

  365. 			$pmt = 60;

  366. 			$pmb = 50;

  367. 			$xaxislblmargin = $pmb - 30;

  368. 			$yaxislblmargin = $pml - 15;

  369. 			$graph->legend->Pos(0.02, 0.1, 'right', 'top');

  370. 		} else if ($type == 'line' || $type == 'bar') {

  371. 			$pml = 50;

  372. 			$pmr = 20;

  373. 			$pmt = 60;

  374. 			$pmb = 50;

  375. 			$xlangle = 0;

  376. 			$ll = ($longestlegend * 5); // 45 degrees 8pt fontsize

  377. 			if ($ll > 5 || ($ll > 3 && count($data) > 10)) {

  378. 				$pmb = max($pmb, $ll + 30);

  379. 				$xlangle = 50;

  380. 			}

  381. 			$xaxislblmargin = $pmb - 30;

  382. 			$yaxislblmargin = $pml - 15;

  383. 			if ($longestlabel && !$overlap) { // if legend showing

  384. 				$pmr = ((($longestlabel * 5) + 40));

  385. 			}

  386. 			$graph->legend->Pos(0.02, 0.1, 'right', 'top');

  387. 		} else if ($type == 'horiz_bar') {

  388. 			$pml = 50;

  389. 			$pmr = 20;

  390. 			$pmt = 50;

  391. 			$pmb = 45;

  392. 			$ll = ($longestlegend * 6.5); // 8pt fontsize

  393. 			$pml = max($pml, $ll + 20);

  394. 			$xaxislblmargin = $pml - 20;

  395. 			$yaxislblmargin = $pmb - 15;

  396. 			if ($longestlabel && !$overlap) { // if legend showing

  397. 				$pmr = ((($longestlabel * 5) + 40));

  398. 			}

  399. 			$graph->legend->Pos(0.02, 0.1, 'right', 'top');

  400. 		}

  401. 

  402. 

  403. 		// DRAW THE GRAPHS

  404. 		if ($type == 'pie') {

  405. 			$p1 = new PiePlot($data[0]);

  406. 			$p1->SetSliceColors($colours);

  407. 

  408. 			if ($show_values) {

  409. 				$p1->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  410. 				if ($percent) {

  411. 					$p1->SetLabelType(PIE_VALUE_PERADJ);

  412. 				}   //PIE_VAL_PER = default

  413. 				else {

  414. 					$p1->SetLabelType(PIE_VALUE_ABS);

  415. 				}

  416. 				if ($percent || $show_percent) {

  417. 					$p1->value->SetFormat("%d%%");

  418. 				} else {

  419. 					$p1->value->SetFormat("%s");

  420. 				}

  421. 				// Enable and set policy for guide-lines. Make labels line up vertically

  422. 				$p1->SetGuideLines(true);

  423. 				$p1->SetGuideLinesAdjust(1.5);

  424. 			} else {

  425. 				$p1->value->Show(false);

  426. 			}

  427. 			$p1->SetLegends($legends);

  428. 			$p1->SetSize($psize);

  429. 			$p1->SetCenter($pposx, $pposy);

  430. 			if ($labels[0]) {

  431. 				$graph->subtitle->Set($labels[0]);

  432. 				$graph->subtitle->SetMargin(10 * $k);

  433. 				$graph->subtitle->SetFont(FF_USERFONT, FS_BOLD, 11 * $k);

  434. 				$graph->subtitle->SetColor("black");

  435. 			}

  436. 			$graph->Add($p1);

  437. 		} else if ($type == 'pie3d') {

  438. 			$p1 = new PiePlot3d($data[0]);

  439. 			$p1->SetSliceColors($colours);

  440. 			if ($show_values) {

  441. 				$p1->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  442. 				if ($percent) {

  443. 					$p1->SetLabelType(PIE_VALUE_PERADJ);

  444. 				}   //PIE_VAL_PER = default

  445. 				else {

  446. 					$p1->SetLabelType(PIE_VALUE_ABS);

  447. 				}

  448. 				if ($percent || $show_percent) {

  449. 					$p1->value->SetFormat("%d%%");

  450. 				} else {

  451. 					$p1->value->SetFormat("%s");

  452. 				}

  453. 			} else {

  454. 				$p1->value->Show(false);

  455. 			}

  456. 			$p1->SetLegends($legends);

  457. 			$p1->SetEdge();

  458. 			$p1->SetSize($psize);

  459. 			$p1->SetCenter($pposx, $pposy);

  460. 

  461. 			if ($labels[0]) {

  462. 				$graph->subtitle->Set($labels[0]);

  463. 				$graph->subtitle->SetMargin(10 * $k);

  464. 				$graph->subtitle->SetFont(FF_USERFONT, FS_BOLD, 11 * $k);

  465. 				$graph->subtitle->SetColor("black");

  466. 			}

  467. 

  468. 			$graph->Add($p1);

  469. 		}

  470. 		// RADAR

  471. 		else if ($type == 'radar') {

  472. 			$graph->SetSize($psize);

  473. 			$graph->SetPos($pposx, $pposy);

  474. 

  475. 			$graph->SetTitles($legends); // labels each axis

  476. 

  477. 			$graph->axis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  478. 			$graph->axis->title->SetMargin(5 * $k);

  479. 			$graph->axis->SetWeight(1 * $k);

  480. 			$graph->axis->HideLabels();

  481. 			$graph->axis->SetFont(FF_USERFONT, FS_NORMAL, 6 * $k);

  482. 			$graph->HideTickMarks();

  483. 

  484. 			$group = array();

  485. 			foreach ($data AS $series => $dat) {

  486. 				$rdata = array();

  487. 				foreach ($data[$series] AS $row) {

  488. 					$rdata[] = $row;

  489. 				}

  490. 				if (count($rdata) < 3) {

  491. 					throw new MpdfException("ERROR::Graph::Cannot create a Radar Plot with less than 3 data points.");

  492. 				}

  493. 				// Create the radar plot

  494. 				$bplot = new RadarPlot($rdata);

  495. 				$bplot->mark->SetType($markers[$series]);

  496. 				$bplot->mark->SetFillColor($colours[$series]);

  497. 				$bplot->mark->SetWidth(3 * $k);

  498. 				$bplot->SetColor($colours[$series]);

  499. 				if ($series == 0) {

  500. 					$bplot->SetFillColor('lightred');

  501. 				} else {

  502. 					$bplot->SetFill(false);

  503. 				}

  504. 				$bplot->SetLineWeight(1 * $k);

  505. 				$bplot->SetLegend($labels[$series]);

  506. 				if ($bandw) {

  507. 					$bplot->SetShadow("gray5");

  508. 				}

  509. 				$graph->Add($bplot);

  510. 			}

  511. 		}

  512. 		// LINE

  513. 		else if ($type == 'line') {

  514. 			// Setup the graph.

  515. 			$graph->img->SetMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k); // LRTB

  516. 			$graph->SetScale($axes);

  517. 			$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  518. 

  519. 			if ($ylabel) {

  520. 				$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  521. 				$graph->yaxis->SetTitle($ylabel, 'middle');

  522. 				$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);

  523. 			}

  524. 

  525. 			$graph->yaxis->SetLabelMargin(4 * $k);

  526. 			if ($percent || $show_percent) {

  527. 				$graph->yaxis->SetLabelFormat('%d%%');

  528. 			} // Percent

  529. 			// Show 0 label on Y-axis (default is not to show)

  530. 			$graph->yscale->ticks->SupressZeroLabel(true);

  531. 			if ($hide_y_axis) {

  532. 				$graph->yaxis->Hide();

  533. 			}

  534. 			if ($hide_grid) {

  535. 				$graph->ygrid->Show(false);

  536. 			}

  537. 

  538. 			// Setup X-axis labels

  539. 			$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  540. 			$graph->xaxis->SetTickLabels($legends);

  541. 			$graph->xaxis->SetLabelAngle($xlangle);

  542. 			$graph->xaxis->SetLabelMargin(4 * $k);

  543. 			// X-axis title

  544. 			if ($xlabel) {

  545. 				$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  546. 				$graph->xaxis->SetTitle($xlabel, 'middle');

  547. 				$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);

  548. 			}

  549. 			foreach ($data AS $series => $rdata) {

  550. 				$bplot = new LinePlot($rdata);

  551. 				$bplot->mark->SetType($markers[$series]);

  552. 				$bplot->mark->SetFillColor($colours[$series]);

  553. 				$bplot->mark->SetWidth(4 * $k);

  554. 				if ($show_values) {

  555. 					$bplot->value->Show(); // Not if scatter

  556. 					$bplot->value->SetMargin(6 * $k);

  557. 					$bplot->value->SetColor("darkred");

  558. 					$bplot->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  559. 					if ($percent || $show_percent) {

  560. 						$bplot->value->SetFormat('%d%%');

  561. 					} else {

  562. 						$bplot->value->SetFormat("%s");

  563. 					}

  564. 				}

  565. 				// Set color for each line

  566. 				$bplot->SetColor($colours[$series]);

  567. 				$bplot->SetWeight(2 * $k);

  568. 				$bplot->SetLegend($labels[$series]);

  569. 				if ($bandw) {

  570. 					$bplot->SetShadow("gray5");

  571. 				}

  572. 				// Indent the X-scale so the first and last point doesn't fall on the edges

  573. 				$bplot->SetCenter();

  574. 				$graph->Add($bplot);

  575. 			}

  576. 		}

  577. 		// XY or SCATTER

  578. 		else if ($type == 'xy' || $type == 'scatter') {

  579. 			// Setup the graph.

  580. 			$graph->img->SetMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k); // LRTB

  581. 			$graph->SetScale($axes);

  582. 			// Setup font for axis

  583. 			$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  584. 			// Y-axis title

  585. 			if ($labels[1]) {

  586. 				$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  587. 				$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);

  588. 				$graph->yaxis->SetTitle($labels[1], 'middle');

  589. 			}

  590. 

  591. 

  592. 			$graph->yaxis->SetLabelMargin(4 * $k);

  593. 			if ($percent || $show_percent) {

  594. 				$graph->yaxis->SetLabelFormat('%d%%');

  595. 			} // Percent

  596. 			// Show 0 label on Y-axis (default is not to show)

  597. 			$graph->yscale->ticks->SupressZeroLabel(true);

  598. 			// Just let the maximum be autoscaled

  599. 			$graph->yaxis->scale->SetAutoMin(0);

  600. 			if ($hide_y_axis) {

  601. 				$graph->yaxis->Hide();

  602. 			}

  603. 			if ($hide_grid) {

  604. 				$graph->ygrid->Show(false);

  605. 			}

  606. 

  607. 			// Setup X-axis labels

  608. 			$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  609. 			// mPDF 2.5 Corrects labelling of x-axis

  610. 			//			$graph->xaxis->SetTickLabels($legends);

  611. 			$graph->xaxis->SetLabelAngle(50);

  612. 			$graph->xaxis->SetLabelMargin(4 * $k);

  613. 			// X-axis title

  614. 			if ($labels[0]) {

  615. 				$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  616. 				$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);

  617. 				$graph->xaxis->SetTitle($labels[0], 'middle');

  618. 			}

  619. 

  620. 			// Create the bar plot

  621. 			// SPLINES

  622. 			if ($splines && $type == 'xy') {

  623. 				$spline = new Spline($data[0], $data[1]);

  624. 				list($newx, $newy) = $spline->Get(100);

  625. 			} else {

  626. 				$newx = $data[0];

  627. 				$newy = $data[1];

  628. 			}

  629. 

  630. 			if ($type == 'xy') {

  631. 				// LINE PLOT

  632. 				$bplot = new LinePlot($newy, $newx);

  633. 				// Set color for each line

  634. 				$bplot->SetColor($fills[0]);

  635. 				$bplot->SetWeight(4 * $k);

  636. 				if ($bandw) {

  637. 					$bplot->SetShadow("gray5");

  638. 				}

  639. 				$graph->Add($bplot);

  640. 			}

  641. 

  642. 			// SCATTER PLOT

  643. 			$cplot = new ScatterPlot($data[1], $data[0]);

  644. 

  645. 			$cplot->mark->SetType($markers[0]);

  646. 			$cplot->mark->SetFillColor($fills[0]);

  647. 			$cplot->mark->SetWidth(8 * $k);

  648. 			if ($show_values) {

  649. 				// mPDF 2.5

  650. 				if ($type == 'xy') {

  651. 					$cplot->value->Show();

  652. 				} // Not if scatter

  653. 				$cplot->value->SetMargin(8 * $k);

  654. 				$cplot->value->SetColor("darkred");

  655. 				$cplot->value->SetFont(FF_USERFONT, FS_NORMAL, 6 * $k);

  656. 

  657. 				if ($percent || $show_percent) {

  658. 					$cplot->value->SetFormat('%d%%');

  659. 				} else {

  660. 					$cplot->value->SetFormat("%s");

  661. 				}

  662. 			}

  663. 

  664. 			// Set color for each line

  665. 			$cplot->SetColor($fills[0]);

  666. 			$cplot->SetWeight(4 * $k);

  667. 			if ($bandw) {

  668. 				$cplot->SetShadow("gray5");

  669. 			}

  670. 			$graph->Add($cplot);

  671. 		}

  672. 		// BAR

  673. 		else if ($type == 'bar') {

  674. 			// Setup the graph.

  675. 			$graph->img->SetMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k); // LRTB

  676. 			$graph->SetScale($axes);

  677. 			// Setup y-axis

  678. 			$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  679. 			if ($hide_y_axis) {

  680. 				$graph->yaxis->Hide();

  681. 			}

  682. 			if ($hide_grid) {

  683. 				$graph->ygrid->Show(false);

  684. 			}

  685. 			$graph->yaxis->SetLabelMargin(4 * $k);

  686. 			if ($ylabel) {

  687. 				$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  688. 				$graph->yaxis->SetTitle($ylabel, 'middle');

  689. 				$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);

  690. 			}

  691. 			// Show 0 label on Y-axis (default is not to show)

  692. 			$graph->yscale->ticks->SupressZeroLabel(false);

  693. 			// Setup X-axis labels

  694. 			$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  695. 			$graph->xaxis->SetTickLabels($legends);

  696. 			$graph->xaxis->SetLabelAngle($xlangle);

  697. 			$graph->xaxis->SetLabelMargin(4 * $k);

  698. 			// X-axis title

  699. 			if ($xlabel) {

  700. 				$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  701. 				$graph->xaxis->SetTitle($xlabel, 'middle');

  702. 				$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);

  703. 			}

  704. 

  705. 			$group = array();

  706. 			foreach ($data AS $series => $dat) {

  707. 				$rdata = array();

  708. 				foreach ($data[$series] AS $row) {

  709. 					$rdata[] = $row;

  710. 				}

  711. 

  712. 				// Create the bar plot

  713. 				$bplot = new BarPlot($rdata);

  714. 				$bplot->SetWidth(0.6); // for SINGLE??

  715. 				// Setup color for gradient fill style

  716. 				if ($bandw) {

  717. 					$bplot->SetPattern($patterns[$series]);

  718. 				} else {

  719. 					$bplot->SetFillGradient($fills[$series], "#EEEEEE", GRAD_LEFT_REFLECTION);

  720. 				}

  721. 

  722. 				// Set color for the frame of each bar

  723. 				$bplot->SetColor("darkgray");

  724. 				$bplot->SetLegend($labels[$series]);

  725. 				if ($bandw) {

  726. 					$bplot->SetShadow("gray5");

  727. 				}

  728. 				if ($show_values) {

  729. 					$bplot->value->Show();

  730. 					$bplot->value->SetMargin(6 * $k);

  731. 					$bplot->value->SetColor("darkred");

  732. 					$bplot->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  733. 					if ($percent || $show_percent) {

  734. 						$bplot->value->SetFormat('%d%%');

  735. 					} else {

  736. 						$bplot->value->SetFormat("%s");

  737. 					}

  738. 				}

  739. 

  740. 				$group[] = $bplot;

  741. 			}

  742. 			if (count($data) == 1) {

  743. 				$graph->Add($group[0]);

  744. 			} else {

  745. 				// Create the grouped bar plot

  746. 				if ($stacked) {

  747. 					$gbplot = new AccBarPlot($group);

  748. 				} else {

  749. 					$gbplot = new GroupBarPlot($group);

  750. 				}

  751. 				$graph->Add($gbplot);

  752. 			}

  753. 		} else if ($type == 'horiz_bar') {

  754. 			$graph->SetScale($axes);

  755. 			$graph->Set90AndMargin($pml * $k, $pmr * $k, $pmt * $k, $pmb * $k); // LRTB

  756. 			// Setup y-axis

  757. 			$graph->yaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  758. 			$graph->yaxis->SetLabelMargin(4 * $k);

  759. 

  760. 			$graph->yaxis->SetPos('max'); // Intersect at top of x-axis i.e. y axis is at bottom

  761. 			// First make the labels look right

  762. 			$graph->yaxis->SetLabelAlign('center', 'top');

  763. 			if ($percent || $show_percent) {

  764. 				$graph->yaxis->SetLabelFormat('%d%%');

  765. 			}

  766. 			$graph->yaxis->SetLabelSide(SIDE_RIGHT);

  767. 			$graph->yaxis->scale->SetGrace(10);  // sets 10% headroom

  768. 			if ($hide_y_axis) {

  769. 				$graph->yaxis->Hide();

  770. 			}

  771. 			if ($hide_grid) {

  772. 				$graph->ygrid->Show(false);

  773. 			}

  774. 

  775. 			// The fix the tick marks

  776. 			$graph->yaxis->SetTickSide(SIDE_LEFT);

  777. 			if ($ylabel) {

  778. 				$graph->yaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  779. 				$graph->yaxis->SetTitle($ylabel, 'middle');

  780. 				$graph->yaxis->SetTitleMargin($yaxislblmargin * $k);

  781. 				// Finally setup the title

  782. 				$graph->yaxis->SetTitleSide(SIDE_RIGHT);

  783. 				// To align the title to the right use :

  784. 				$graph->yaxis->title->Align('right');

  785. 				$graph->yaxis->title->SetAngle(0);

  786. 			}

  787. 

  788. 			// Show 0 label on Y-axis (default is not to show)

  789. 			$graph->yscale->ticks->SupressZeroLabel(false);

  790. 			// Setup X-axis labels

  791. 			$graph->xaxis->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  792. 			$graph->xaxis->title->SetAngle(90);

  793. 			$graph->xaxis->SetTickLabels($legends);

  794. 			$graph->xaxis->SetLabelMargin(4 * $k);

  795. 			// X-axis title

  796. 			if ($xlabel) {

  797. 				$graph->xaxis->title->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  798. 				$graph->xaxis->SetTitleMargin($xaxislblmargin * $k);

  799. 				$graph->xaxis->SetTitle($xlabel, 'middle');

  800. 			}

  801. 			$group = array();

  802. 			foreach ($data AS $series => $dat) {

  803. 				$rdata = array();

  804. 				foreach ($data[$series] AS $row) {

  805. 					$rdata[] = $row;

  806. 				}

  807. 				// Create the bar pot

  808. 				$bplot = new BarPlot($rdata);

  809. 				$bplot->SetWidth(0.6); // for SINGLE??

  810. 				// Setup color for gradient fill style

  811. 				if ($bandw) {

  812. 					$bplot->SetPattern($patterns[$series]);

  813. 				} else {

  814. 					$bplot->SetFillGradient($fills[$series], "#EEEEEE", GRAD_LEFT_REFLECTION);

  815. 				}

  816. 

  817. 				// Set color for the frame of each bar

  818. 				$bplot->SetColor("darkgray");

  819. 				$bplot->SetLegend($labels[$series]);

  820. 				if ($bandw) {

  821. 					$bplot->SetShadow("gray5");

  822. 				}

  823. 				if ($show_values) {

  824. 					$bplot->value->Show();

  825. 					$bplot->value->SetMargin(6 * $k);

  826. 					$bplot->value->SetColor("darkred");

  827. 					$bplot->value->SetFont(FF_USERFONT, FS_NORMAL, 8 * $k);

  828. 					if ($percent || $show_percent) {

  829. 						$bplot->value->SetFormat('%d%%');

  830. 					} else {

  831. 						$bplot->value->SetFormat("%s");

  832. 					}

  833. 				}

  834. 

  835. 				$group[] = $bplot;

  836. 			}

  837. 			if (count($data) == 1) {

  838. 				$graph->Add($group[0]);

  839. 			} else {

  840. 				// Create the grouped bar plot

  841. 				if ($stacked) {

  842. 					$gbplot = new AccBarPlot($group);

  843. 				} else {

  844. 					$gbplot = new GroupBarPlot($group);

  845. 				}

  846. 				$graph->Add($gbplot);

  847. 			}

  848. 		}

  849. 		if ($graph) {

  850. 			$graph->Stroke(_MPDF_PATH . $figure_file);

  851. 			$srcpath = str_replace("\\", "/", dirname(__FILE__)) . "/";

  852. 			$srcpath .= $figure_file;

  853. 			return array('file' => $srcpath, 'w' => $w, 'h' => $h);

  854. 		}

  855. 	}

  856. 	return false;

  857. 

  858. }