// content="text/plain; charset=utf-8"
require_once 'jpgraph/jpgraph.php';
require_once 'jpgraph/jpgraph_pie.php';
$data = array(19, 12, 4, 3, 3, 12, 3, 3, 5, 6, 7, 8, 8, 1, 7, 2, 2, 4, 6, 8, 21, 23, 2, 2, 12);
// Create the Pie Graph.
$graph = new PieGraph(300, 350);
// Set A title for the plot
$graph->title->Set("Label guide lines");
$graph->title->SetFont(FF_VERDANA, FS_BOLD, 12);
$graph->title->SetColor("darkblue");
$graph->legend->Pos(0.1, 0.2);
// Create pie plot
$p1 = new PiePlot($data);
$p1->SetCenter(0.5, 0.55);
$p1->SetSize(0.3);
// Enable and set policy for guide-lines
$p1->SetGuideLines();
$p1->SetGuideLinesAdjust(1.4);
// Setup the labels
$p1->SetLabelType(PIE_VALUE_PER);
$p1->value->Show();
$p1->value->SetFont(FF_ARIAL, FS_NORMAL, 9);
$p1->value->SetFormat('%2.1f%%');
// Add and stroke
$graph->Add($p1);
$graph->Stroke();
?>
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=bar
if (isset($g['attr']['STACKED']) && $g['attr']['STACKED']) {
$stacked = true;
}
// stacked for bar or horiz_bar
if (isset($g['attr']['SPLINES']) && $g['attr']['SPLINES'] && $type == 'xy') {
$splines = true;
}
// splines for XY line graphs
if (isset($g['attr']['BANDW']) && $g['attr']['BANDW']) {
$bandw = true;
}
// black and white
if (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 series
if (isset($g['attr']['SHOW-VALUES']) && $g['attr']['SHOW-VALUES']) {
$show_values = true;
}
// Show the individual data values
if (isset($g['attr']['HIDE-GRID']) && $g['attr']['HIDE-GRID']) {
$hide_grid = true;
}
// Hide the y-axis gridlines
if (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 radar
if (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.009
global $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=text
if ($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=lin
if ($yaxis == 'percent') {
$show_percent = true;
$yaxis = 'lin';
}
// Show percent sign on scales
if ($yaxis == 'linear') {
$yaxis = 'lin';
}
if ($splines) {
$xaxis = 'lin';
}
$axes = $xaxis . $yaxis;
// e.g.textlin, textlog, loglog, loglin, linlog (XY)
// mPDF 4.0
if (isset($g['attr']['cWIDTH']) && $g['attr']['cWIDTH']) {
$w = $g['attr']['cWIDTH'] / 0.2645;
}
// pixels
if (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];
}
}
}
}
// PERCENT
if ($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 ratios
if ($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);
// LEGENDS
if ($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 MARGINS
if ($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 fontsize
if ($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 GRAPHS
if ($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);
} else {
$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);
} else {
$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);
} else {
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);
}
} else {
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 title
if ($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);
}
} else {
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 title
if ($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 title
if ($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
// SPLINES
if ($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.5
if ($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);
} else {
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 title
if ($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 style
if ($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 plot
if ($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% headroom
if ($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 title
if ($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 style
if ($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 plot
if ($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;
}
mysql_free_result($rsCSF);
mysql_free_result($rsCSNF);
mysql_free_result($rsCSC);
/// A new pie graph
$graph = new PieGraph(400, 200, "auto");
$graph->SetScale('textint');
$logtype = tr("by_logtype");
// Title setup
$graph->title->Set($logtype);
$graph->title->SetFont(FF_ARIAL, FS_NORMAL);
//$graph ->legend->Pos( 0.25,0.8,"right" ,"bottom");
// Setup the pie plot
$p1 = new PiePlot($y);
$p1->SetTheme("earth");
$p1->value->SetFormat("%d");
$p1->SetLabelType(PIE_VALUE_ABS);
$p1->SetSliceColors(array('chartreuse3', 'chocolate2', 'wheat1'));
// Adjust size and position of plot
$p1->SetSize(0.35);
$p1->SetCenter(0.25, 0.52);
$f = tr("found");
$dnf = tr("not_found");
$com = tr("comment");
// Setup slice labels and move them into the plot
$xx = array($f, $dnf, $com);
$p1->value->SetFont(FF_COURIER, FS_NORMAL);
$p1->value->SetColor("black");
$p1->SetLabelPos(0.65);
$p1->SetLegends($xx);
$graph->legend->SetFont(FF_ARIAL, FS_NORMAL);
// Explode all slices
function parse($input, $parser)
{
global $jpgraphLabelType;
foreach (split("\n", $input) as $line) {
// skip empty line or comments
if (preg_match("/^(\\s*)#.*\$|^(\\s*)\$/", $line)) {
continue;
}
// Storing data
$raw_data = split($this->fieldsep, $line);
if (count($raw_data) == 2) {
$this->labels[] = $raw_data[0];
$this->datay[] = $raw_data[1];
} else {
$this->datay[] = $raw_data[0];
}
}
if ($this->is3d) {
$pie = new PiePlot3D($this->datay);
$pie->SetAngle($this->angle);
} else {
$pie = new PiePlot($this->datay);
}
if ($this->center) {
$tmp = split(",", $this->center);
if (is_array($tmp) && count($tmp) == 2) {
$pie->SetCenter($tmp[0], $tmp[1]);
} else {
if (is_array($tmp) && count($tmp) == 1) {
$pie->SetCenter($tmp[0]);
}
}
}
if ($this->labeltype) {
$label_type = $jpgraphLabelType[$this->labeltype];
if (!$label_type) {
throw new JpgraphMWException("Unknown label type(" . $this->labeltype . "). Possible values are: " . implode(", ", array_keys($jpgraphLabelType)));
}
$pie->SetLabelType($label_type);
}
if ($this->labelformat) {
$pie->value->SetFormat($this->labelformat);
}
if ($this->usettf) {
$pie->value->SetFont($this->font);
}
$pie->value->Show($this->showlabel);
$explode_pie_list = split(",", $this->explode);
if (count($explode_pie_list) == 1) {
$pie->ExplodeAll($explode_pie_list[0]);
} else {
$pie->Explode($explode_pie_list);
}
if (count($this->labels) == count($this->datay)) {
$pie->SetLegends($this->labels);
}
$this->graph->Add($pie);
}
if ($point["name"] != "Start") {
$labels[] = $point["name"] . " (" . $point["diff"] . ")";
$data[] = (double) $point["diff"];
}
}
// A new graph
$graph = new PieGraph(750, 500, "auto");
// Setup title
$graph->title->Set("Benchmark Results");
$graph->title->SetFont($font, FS_BOLD, 12);
// The pie plot
$p1 = new PiePlot($data);
$p1->SetTheme('pastel');
// Move center of pie to the left to make better room
// for the legend
$p1->SetCenter(0.26, 0.55);
// Label font and color setup
$p1->SetFont($font, FS_BOLD);
$p1->SetFontColor("black");
// Use absolute values (type==1)
$p1->SetLabelType(1);
// Label format
$p1->SetLabelFormat("%.5f");
// Size of pie in fraction of the width of the graph
$p1->SetSize(0.3);
// Legends
$p1->SetLegends($labels);
$graph->legend->SetFont($font);
$graph->legend->Pos(0.06, 0.1);
$graph->Add($p1);
$graph->Stroke();
public function grafico_distribucion_tipo_resp($id_asignacionprueba)
{
require_once APPPATH . '/libraries/JpGraph/jpgraph_pie.php';
$this->rendimiento_global($id_asignacionprueba);
$data_circ = array($this->totalcorrectas, $this->totalincorrectas, $this->totalomitidas);
$columnas_circ = array('Correctas', 'Incorrectas', 'Omitidas');
$graph_circ = new PieGraph(400, 320);
$graph_circ->title->Set("Distribución por Tipo de Respuesta");
$graph_circ->SetMarginColor("#fff");
$graph_circ->SetFrame(true, '#fff', 1);
$graph_circ->SetBox(false);
$p1 = new PiePlot($data_circ);
$p1->ExplodeSlice(0);
$p1->SetCenter(0.5);
//$p1->SetLegends('Correctas','Incorrectas','Omitidas');
$p1->SetLegends($columnas_circ);
// No border
$p1->ShowBorder(false);
$graph_circ->legend->SetPos(0.1, 0.996, 'left', 'bottom');
$graph_circ->legend->SetFrameWeight(1);
$p1->SetGuideLines(true, false);
$p1->SetGuideLinesAdjust(1.5);
$p1->SetLabelType(PIE_VALUE_PER);
$p1->value->Show();
$p1->SetSliceColors(array('#1d71b8', '#ea1d25', 'orange'));
$graph_circ->Add($p1);
$graph_circ->Stroke(_IMG_HANDLER);
global $img_graf_dist_resp;
$this->img_graf_dist_resp = "assets/images/graf_dist_resp.jpg";
$graph_circ->img->Stream($this->img_graf_dist_resp);
/*
$graph_circ->img->Headers();
$graph_circ->img->Stream();
*/
}
public function generateLog($winner = false)
{
$gameid = strtotime('now');
$template = file_get_contents('data/log.html');
$fp = fopen(sprintf('logs/log_%d.html', $gameid), 'a');
$htplayers = array();
foreach ($this->players as $pl) {
$htplayers[] = sprintf('<li>%s</li>', htmlspecialchars(parent::playerName($pl)));
}
$players = implode("\n", $htplayers);
if ($winner) {
$data = sprintf("After %d hands played, the player <strong>%s</strong> won the total pot of <strong>\$%0.2f</strong>", $this->game, parent::playerName($winner), $winner->money);
} else {
$htplayers = array();
foreach ($this->players as $pl) {
$htplayers[] = sprintf('<li>%s ($%0.2f)</li>', htmlspecialchars(parent::playerName($pl)), $pl->money);
}
$htplayers = implode("\n", $htplayers);
$data = sprintf("After %d hands no winner was determined a summary of each individual player's money follows:<ol>%s</ol>", $this->game, $htplayers);
}
$template = str_replace("{players}", $players, $template);
$template = str_replace("{gameid}", $gameid, $template);
$template = str_replace("{winner}", $data, $template);
$template = str_replace("{version}", parent::$version, $template);
$template = str_replace("{date}", date('d-m-Y h:i', $gameid), $template);
$template = str_replace("{startmoney}", sprintf('%0.2f', $this->playermoney), $template);
$template = str_replace("{bigblind}", sprintf('%0.2f', $this->bigblind), $template);
$template = str_replace("{smallblind}", sprintf('%0.2f', $this->smallblind), $template);
$template = str_replace("{maxgames}", $this->totalgames, $template);
$template = str_replace("{winner}", $data, $template, $template);
fputs($fp, $template);
fclose($fp);
require_once 'data/jpgraph.php';
require_once 'data/jpgraph_line.php';
$width = 900;
$height = 300;
$graph = new Graph($width, $height);
$graph->img->SetMargin(40, 40, 40, 40);
$graph->SetShadow();
$graph->setScale('intlin');
$graph->title->Set('Amount of money per player, per hand');
$graph->xaxis->title->Set('Hand');
$graph->yaxis->title->Set('Money');
foreach ($this->moneylog as $id => $data) {
$p = $this->players[$id];
$lineplot = new LinePlot($data);
$lineplot->setweight($id);
$lineplot->SetLegend(parent::playerName($p));
$graph->add($lineplot);
}
$graph->stroke(sprintf('logs/playermoney_%d.jpg', $gameid));
// Pie graph, showing checks, folds, bets, wins, calls and raises
require_once "data/jpgraph_pie.php";
// Create the Pie Graph.
$height = ceil(count($this->players) / 2) * 440;
$graph = new PieGraph($width, $height);
$graph->SetShadow();
// Set A title for the plot
$graph->title->Set("Moves per user");
// Create plots
$size = 0.2;
$x = array(0.25, 0.75);
$y = 220;
$i = 1;
$legend = array("Check", "Call", "Bet", "Raise", "Fold");
foreach ($this->players as $id => $player) {
$plot = new PiePlot(array($player->checks, $player->calls, $player->bets, $player->raises, $player->folds));
if ($player->id == 1) {
$plot->SetLegends($legend);
}
$plot->SetLabelType(PIE_VALUE_ADJPERCENTAGE);
$plot->SetSize($size);
$plot->SetCenter($x[$i - 1], $y);
if ($i == 2) {
$i = 0;
$y += 420;
}
$i++;
$plot->title->Set(parent::playerName($player));
$graph->add($plot);
}
$graph->stroke(sprintf('logs/playermoves_%d.jpg', $gameid));
// Bargraph containing each player's wins
$height = 70 * count($this->players);
require_once "data/jpgraph_bar.php";
$graph = new Graph($width, $height);
$graph->SetScale('textlin');
$graph->SetShadow();
$lbl = array();
$data = array();
foreach ($this->players as $pl) {
$lbl[] = parent::PlayerName($pl);
$data[] = $pl->wins;
}
$top = 60;
$bottom = 30;
$left = 80;
$right = 30;
$graph->Set90AndMargin($left, $right, $top, $bottom);
$graph->xaxis->SetTickLabels($lbl);
$graph->xaxis->SetLabelAlign('right', 'center', 'right');
$graph->yaxis->SetLabelAlign('center', 'bottom');
$graph->title->Set('Amount of hands won by individual players');
$bplot = new BarPlot($data);
$bplot->SetFillGradient("navy", "lightsteelblue", GRAD_HOR);
$bplot->SetWidth(0.5);
$bplot->SetYMin(0);
$graph->Add($bplot);
$graph->Stroke(sprintf('logs/playerwins_%d.jpg', $gameid));
$this->newgame = false;
// Remove the clients from the server
$this->broadcast("[SERVER] Thank you for playing Texas Hold`em (LIMIT)\n[SERVER] If you want to play another game, just reconnect to the server!");
$this->return = true;
foreach ($this->players as $player) {
$this->disconnect($player);
}
$this->return = true;
$this->restore();
}
public function create_graph($width = 600, $height = 200, $data, $title, $xaxis, $yaxis, $type = "bar")
{
require_once 'jpgraph/jpgraph.php';
require_once 'jpgraph/jpgraph_line.php';
require_once 'jpgraph/jpgraph_bar.php';
require_once 'jpgraph/jpgraph_pie.php';
// Create a graph instance
if ($type == "bar" || $type == "line") {
$graph = new Graph($width, $height);
} else {
if ($type == "pie") {
$graph = new PieGraph($width, $height);
}
}
// Specify what scale we want to use,
// int = integer scale for the X-axis
// int = integer scale for the Y-axis
$graph->SetScale('intint');
$graph->SetMarginColor("lightblue:1.1");
$graph->SetShadow();
$graph->SetMargin(60, 20, 10, 40);
// Box around plotarea
$graph->SetBox();
// No frame around the image
$graph->SetFrame(false);
// Setup a title for the graph
$graph->title->Set($title);
$graph->title->SetMargin(8);
$graph->title->SetColor("darkred");
// Setup the X and Y grid
$graph->ygrid->SetFill(true, '#DDDDDD@0.5', '#BBBBBB@0.5');
$graph->ygrid->SetLineStyle('dashed');
$graph->ygrid->SetColor('gray');
$graph->xgrid->Show();
$graph->xgrid->SetLineStyle('dashed');
$graph->xgrid->SetColor('gray');
// Setup titles and X-axis labels, if it's array, first row is title
if (is_array($xaxis)) {
$graph->xaxis->title->Set($xaxis[0]);
$xaxis = array_slice($xaxis, 1, count($xaxis) - 1);
$graph->xaxis->SetTickLabels($xaxis);
} else {
$graph->xaxis->title->Set($xaxis);
}
// no array, just show name
// Setup Y-axis title
$graph->yaxis->title->SetMargin(10);
$graph->yaxis->title->Set($yaxis);
if ($type == "bar") {
$plot = new BarPlot($data);
$plot->SetWidth(0.6);
$fcol = '#440000';
$tcol = '#FF9090';
$plot->SetFillGradient("navy:0.9", "navy:1.85", GRAD_LEFT_REFLECTION);
//$plot->SetColor("black");
// Set line weigth to 0 so that there are no border
// around each bar
$plot->SetWeight(0);
// Add the plot to the graph
$graph->Add($plot);
} else {
if ($type == "line") {
$plot = new LinePlot($data);
$plot->SetFillColor('skyblue@0.5');
$plot->SetColor('navy@0.7');
$plot->mark->SetType(MARK_SQUARE);
$plot->mark->SetColor('blue@0.5');
$plot->mark->SetFillColor('lightblue');
$plot->mark->SetSize(5);
// Add the plot to the graph
$graph->Add($plot);
} else {
if ($type == "pie") {
$plot = new PiePlot($data);
$plot->SetCenter(0.5, 0.55);
$plot->SetSize(0.2);
// Enable and set policy for guide-lines
$plot->SetGuideLines();
$plot->SetGuideLinesAdjust(1.4);
// Setup the labels
$plot->SetLabelType(PIE_VALUE_PER);
$plot->value->Show();
//$plot->value->SetFont(FF_ARIAL,FS_NORMAL,9);
$plot->value->SetFormat('%2.1f%%');
$plot->ExplodeSlice(1);
$plot->SetGuideLines(true);
$graph->SetMarginColor("white");
$plot->SetLegends($xaxis);
// Add the plot to the graph
$graph->Add($plot);
} else {
die($type . " is not known graph type");
}
}
}
// Display the graph
$fn = strtolower($title);
$fn = str_replace(" ", "", $fn);
$filename_relative = "site/web_app/images/dynamic/{$fn}.jpg";
$filename_full = __DIR__ . "/" . $filename_relative;
$graph->Stroke($filename_full);
$imglink = "<img src='{$filename_relative}' title='{$title}' />\n";
return $imglink;
}
exit;
}
if (@$_REQUEST["type"] == "pie") {
// A new graph
$graph = new PieGraph(500, 300, "auto");
// The pie plot
$plot = new PiePlot($plots);
$plot->SetTheme('pastel');
// Move center of pie to the left to make better room
// for the legend
$plot->SetCenter(0.26, 0.55);
// Label font and color setup
$plot->SetFont(FF_FONT1, FS_BOLD);
$plot->SetFontColor("black");
// Use percentages
$plot->SetLabelType(0);
// Size of pie in fraction of the width of the graph
$plot->SetSize(0.3);
// Legends
$plot->SetLegends($labels);
$graph->legend->SetFont(FF_FONT1);
$graph->legend->Pos(0.06, 0.27);
} else {
// bar chart
$plot = new BarPlot($plots);
$plot->showValue(true);
$plot->SetValueFont(FF_FONT2, FS_NORMAL, 9);
//$plot->setLegend("Issues");
// figure out the best size for this graph.
$width = 75;
if (count($labels) > 3) {
public function grafico_3_bd()
{
require_once APPPATH . '/libraries/JpGraph/jpgraph_pie.php';
$data_circ = $this->id_asignacionprueba;
$columnas_circ = array('Correctas', 'Omitidas', 'Incorrectas');
$graph_circ = new PieGraph(500, 400);
$graph_circ->title->Set("Grafico 3 - circular o de pastel");
$graph_circ->SetMarginColor("#fff");
$graph_circ->SetFrame(true, '#fff', 1);
$graph_circ->SetBox(false);
$p1 = new PiePlot($data_circ);
$p1->ExplodeSlice(0);
$p1->SetCenter(0.5);
$p1->SetLegends($this->id_asignacionprueba);
$graph_circ->legend->SetPos(0.2, 0.99, 'right', 'bottom');
$graph_circ->legend->SetFrameWeight(1);
$p1->SetGuideLines(true, false);
$p1->SetGuideLinesAdjust(1.5);
$p1->SetLabelType(PIE_VALUE_PER);
$p1->value->Show();
$graph_circ->Add($p1);
$graph_circ->Stroke(_IMG_HANDLER);
global $fileName_bd_3;
$this->fileName_bd_3 = "assets/images/grafica_muestra_bd_3.jpg";
$graph_circ->img->Stream($this->fileName_bd_3);
/*
$graph_circ->img->Headers();
$graph_circ->img->Stream();
*/
}
