Jpgraph Bar.php:
<?php
/*=======================================================================
// File: JPGRAPH_BAR.PHP
// Description: Bar plot extension for JpGraph
// Created: 2001-01-08
// Author: Johan Persson (johanp <at> aditus <dot> nu)
// Ver: $Id: jpgraph_bar.php, v 1.45 2003/02/02 03:55:52 aditus Exp $
//
// License: This code is released under QPL
// Copyright (C) 2001, 2002 Johan Persson
//========================================================================
*/
//===================================================
// CLASS BarPlot
// Description: Main code to produce a bar plot
//===================================================
class BarPlot extends Plot {
var $width=0.4; // in percent of major ticks
var $abswidth=-1; // Width in absolute pixels
var $fill_color="lightblue"; // Default is to fill with light blue
var $ybase=0; // Bars start at 0
var $align="center";
var $grad=false, $grad_style=1;
var $grad_fromcolor=array(50, 50, 200), $grad_tocolor=array(255, 255, 255);
var $bar_shadow=false;
var $bar_shadow_color="black";
var $bar_shadow_hsize=3, $bar_shadow_vsize=3;
var $valuepos='top';
//---------------
// CONSTRUCTOR
function BarPlot(&$datay, $datax=false) {
$this->Plot($datay, $datax);
++$this->numpoints;
}
//---------------
// PUBLIC METHODS
// Set a drop shadow for the bar (or rather an "up-right" shadow)
function SetShadow($color="black", $hsize=3, $vsize=3) {
$this->bar_shadow=true;
$this->bar_shadow_color=$color;
$this->bar_shadow_vsize=$vsize;
$this->bar_shadow_hsize=$hsize;
// Adjust the value margin to compensate for shadow
$this->value->margin += $vsize;
}
// DEPRECATED use SetYBase instead
function SetYMin($aYStartValue) {
//die("JpGraph Error: Deprecated function SetYMin. Use SetYBase() instead.");
$this->ybase=$aYStartValue;
}
// Specify the base value for the bars
function SetYBase($aYStartValue) {
$this->ybase=$aYStartValue;
}
function Legend(&$graph) {
if( $this->fill_color && $this->legend!="" ) {
if( is_array($this->fill_color) )
$graph->legend->Add($this->legend, $this->fill_color[0], "", 0, $this->legendcsimtarget, $this->legendcsimalt);
else
$graph->legend->Add($this->legend, $this->fill_color, "", 0, $this->legendcsimtarget, $this->legendcsimalt);
}
}
// Gets called before any axis are stroked
function PreStrokeAdjust(&$graph) {
parent::PreStrokeAdjust($graph);
// If we are using a log Y-scale we want the base to be at the
// minimum Y-value unless the user have specifically set some other
// value than the default.
if( substr($graph->axtype, -3, 3)=="log" && $this->ybase==0 )
$this->ybase = $graph->yaxis->scale->GetMinVal();
// For a "text" X-axis scale we will adjust the
// display of the bars a little bit.
if( substr($graph->axtype, 0, 3)=="tex" ) {
// Position the ticks between the bars
$graph->xaxis->scale->ticks->SetXLabelOffset(0.5, 0);
// Center the bars
if( $this->align == "center" )
$graph->SetTextScaleOff(0.5-$this->width/2);
elseif( $this->align == "right" )
$graph->SetTextScaleOff(1-$this->width);
}
else {
// We only set an absolute width for linear and int scale
// for text scale the width will be set to a fraction of
// the majstep width.
if( $this->abswidth == -1 ) // Not set
// set width to a visuable sensible default
$this->abswidth = $graph->img->plotwidth/(2*count($this->coords[0]));
}
}
function Min() {
$m = parent::Min();
if( $m[1] >= $this->ybase )
$m[1] = $this->ybase;
return $m;
}
function Max() {
$m = parent::Max();
if( $m[1] <= $this->ybase )
$m[1] = $this->ybase;
return $m;
}
// Specify width as fractions of the major stepo size
function SetWidth($aFractionWidth) {
$this->width=$aFractionWidth;
}
// Specify width in absolute pixels. If specified this
// overrides SetWidth()
function SetAbsWidth($aWidth) {
$this->abswidth=$aWidth;
}
function SetAlign($aAlign) {
$this->align=$aAlign;
}
function SetNoFill() {
$this->grad = false;
$this->fill_color=false;
}
function SetFillColor($aColor) {
$this->fill_color=$aColor;
}
function SetFillGradient($from_color, $to_color, $style) {
$this->grad=true;
$this->grad_fromcolor=$from_color;
$this->grad_tocolor=$to_color;
$this->grad_style=$style;
}
function SetValuePos($aPos) {
$this->valuepos = $aPos;
}
function Stroke(&$img, &$xscale, &$yscale) {
$numpoints = count($this->coords[0]);
if( isset($this->coords[1]) ) {
if( count($this->coords[1])!=$numpoints )
die("JpGraph Error: Number of X and Y points are not equal.<br>
Number of X-points:".count($this->coords[1])."<br>
Number of Y-points:$numpoints");
else
$exist_x = true;
}
else
$exist_x = false;
$numbars=count($this->coords[0]);
// Use GetMinVal() instead of scale[0] directly since in the case
// of log scale we get a correct value. Log scales will have negative
// values for values < 1 while still not representing negative numbers.
if( $yscale->GetMinVal() >= 0 )
$zp=$yscale->scale_abs[0];
else {
$zp=$yscale->Translate(0);
}
if( $this->abswidth > -1 )
$abswidth=$this->abswidth;
else
$abswidth=round($this->width*$xscale->scale_factor, 0);
for($i=0; $i<$numbars; $i++) {
if( $exist_x ) $x=$this->coords[1][$i];
else $x=$i;
$x=$xscale->Translate($x);
//if($this->align=="center")
//$x -= $abswidth/2;
//elseif($this->align=="right")
//$x -= $abswidth;
if( !$xscale->textscale ) {
if($this->align=="center")
$x -= $abswidth/2;
elseif($this->align=="right")
$x -= $abswidth;
}
$pts=array(
$x, $zp,
$x, $yscale->Translate($this->coords[0][$i]),
$x+$abswidth, $yscale->Translate($this->coords[0][$i]),
$x+$abswidth, $zp);
if( $this->grad ) {
$grad = new Gradient($img);
$grad->FilledRectangle($pts[2], $pts[3],
$pts[6], $pts[7],
$this->grad_fromcolor, $this->grad_tocolor, $this->grad_style);
}
elseif( !empty($this->fill_color) ) {
if(is_array($this->fill_color)) {
$img->PushColor($this->fill_color[$i % count($this->fill_color)]);
} else {
$img->PushColor($this->fill_color);
}
$img->FilledPolygon($pts);
$img->PopColor();
}
// Remember value of this bar
$val=$this->coords[0][$i];
if( $this->bar_shadow && $val != 0 ) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
// Create points to create a "upper-right" shadow
if( $val > 0 ) {
$sp[0]=$pts[6]; $sp[1]=$pts[7];
$sp[2]=$pts[4]; $sp[3]=$pts[5];
$sp[4]=$pts[2]; $sp[5]=$pts[3];
$sp[6]=$pts[2]+$ssh; $sp[7]=$pts[3]-$ssv;
$sp[8]=$pts[4]+$ssh; $sp[9]=$pts[5]-$ssv;
$sp[10]=$pts[6]+$ssh; $sp[11]=$pts[7]-$ssv;
}
elseif( $val < 0 ) {
$sp[0]=$pts[4]; $sp[1]=$pts[5];
$sp[2]=$pts[6]; $sp[3]=$pts[7];
$sp[4]=$pts[0]; $sp[5]=$pts[1];
$sp[6]=$pts[0]+$ssh; $sp[7]=$pts[1]-$ssv;
$sp[8]=$pts[6]+$ssh; $sp[9]=$pts[7]-$ssv;
$sp[10]=$pts[4]+$ssh; $sp[11]=$pts[5]-$ssv;
}
$img->PushColor($this->bar_shadow_color);
$img->FilledPolygon($sp);
$img->PopColor();
}
// Stroke the outline of the bar
if( is_array($this->color) )
$img->SetColor($this->color[$i % count($this->color)]);
else
$img->SetColor($this->color);
$pts[] = $pts[0];
$pts[] = $pts[1];
if( $this->weight > 0 ) {
$img->SetLineWeight($this->weight);
$img->Polygon($pts);
}
$x=$pts[2]+($pts[4]-$pts[2])/2;
if( $this->valuepos=='top' ) {
$y=$pts[3];
$this->value->Stroke($img, $val, $x, $y);
}
elseif( $this->valuepos=='center' ) {
$y = ($pts[3] + $pts[1])/2;
$this->value->SetAlign('center', 'center');
$this->value->SetMargin(0);
$this->value->Stroke($img, $val, $x, $y);
}
elseif( $this->valuepos=='bottom' ) {
$y=$pts[1];
$this->value->SetMargin(0);
$this->value->Stroke($img, $val, $x, $y);
}
else {
JpGraphError::Raise('Unknown position for values on bars :'.$this->valuepos);
die();
}
// Create the client side image map
$rpts = $img->ArrRotate($pts);
$csimcoord=round($rpts[0]).", ".round($rpts[1]);
for( $j=1; $j < 4; ++$j){
$csimcoord .= ", ".round($rpts[2*$j]).", ".round($rpts[2*$j+1]);
}
$this->csimareas.= '<area shape="poly" coords="'.$csimcoord.'" ';
if( !empty($this->csimtargets[$i]) )
$this->csimareas .= " href=\"".$this->csimtargets[$i]."\"";
if( !empty($this->csimalts[$i]) ) {
$sval=sprintf($this->csimalts[$i], $this->coords[0][$i]);
$this->csimareas .= " alt=\"$sval\" title=\"$sval\" ";
}
$this->csimareas .= ">\n";
}
return true;
}
} // Class
//===================================================
// CLASS GroupBarPlot
// Description: Produce grouped bar plots
//===================================================
class GroupBarPlot extends BarPlot {
var $plots;
var $width=0.7;
var $nbrplots=0;
var $numpoints;
//---------------
// CONSTRUCTOR
function GroupBarPlot($plots) {
$this->plots = $plots;
$this->nbrplots = count($plots);
$this->numpoints = $plots[0]->numpoints;
}
//---------------
// PUBLIC METHODS
function Legend(&$graph) {
$n = count($this->plots);
for($i=0; $i<$n; ++$i)
$this->plots[$i]->Legend($graph);
}
function Min() {
list($xmin, $ymin) = $this->plots[0]->Min();
$n = count($this->plots);
for($i=0; $i<$n; ++$i) {
list($xm, $ym) = $this->plots[$i]->Min();
$xmin = max($xmin, $xm);
$ymin = min($ymin, $ym);
}
return array($xmin, $ymin);
}
function Max() {
list($xmax, $ymax) = $this->plots[0]->Max();
$n = count($this->plots);
for($i=0; $i<$n; ++$i) {
list($xm, $ym) = $this->plots[$i]->Max();
$xmax = max($xmax, $xm);
$ymax = max($ymax, $ym);
}
return array($xmax, $ymax);
}
function GetCSIMareas() {
$n = count($this->plots);
$csimareas='';
for($i=0; $i < $n; ++$i) {
$csimareas .= $this->plots[$i]->csimareas;
}
return $csimareas;
}
// Stroke all the bars next to each other
function Stroke(&$img, &$xscale, &$yscale) {
$tmp=$xscale->off;
$n = count($this->plots);
for( $i=0; $i<$n; ++$i ) {
$this->plots[$i]->ymin=$this->ybase;
$this->plots[$i]->SetWidth($this->width/$this->nbrplots);
$xscale->off = $tmp+$i*round($xscale->ticks->major_step*$xscale->scale_factor*$this->width/$this->nbrplots);
$this->plots[$i]->Stroke($img, $xscale, $yscale);
}
$xscale->off=$tmp;
}
} // Class
//===================================================
// CLASS AccBarPlot
// Description: Produce accumulated bar plots
//===================================================
class AccBarPlot extends BarPlot {
var $plots=null, $nbrplots=0, $numpoints=0;
//---------------
// CONSTRUCTOR
function AccBarPlot($plots) {
$this->plots = $plots;
$this->nbrplots = count($plots);
$this->numpoints = $plots[0]->numpoints;
$this->value = new DisplayValue();
}
//---------------
// PUBLIC METHODS
function Legend(&$graph) {
$n = count($this->plots);
for( $i=$n-1; $i>=0; --$i )
$this->plots[$i]->Legend($graph);
}
function Max() {
list($xmax) = $this->plots[0]->Max();
$nmax=0;
for($i=0; $i<count($this->plots); ++$i) {
$n = count($this->plots[$i]->coords[0]);
$nmax = max($nmax, $n);
list($x) = $this->plots[$i]->Max();
$xmax = Max($xmax, $x);
}
for( $i = 0; $i < $nmax; $i++ ) {
// Get y-value for bar $i by adding the
// individual bars from all the plots added.
// It would be wrong to just add the
// individual plots max y-value since that
// would in most cases give to large y-value.
$y=$this->plots[0]->coords[0][$i];
for( $j = 1; $j < $this->nbrplots; $j++ ) {
$y += $this->plots[ $j ]->coords[0][$i];
}
$ymax[$i] = $y;
}
$ymax = max($ymax);
// Bar always start at baseline
if( $ymax <= $this->ybase )
$ymax = $this->ybase;
return array($xmax, $ymax);
}
function Min() {
$nmax=0;
list($xmin, $ysetmin) = $this->plots[0]->Min();
for($i=0; $i<count($this->plots); ++$i) {
$n = count($this->plots[$i]->coords[0]);
$nmax = max($nmax, $n);
list($x, $y) = $this->plots[$i]->Min();
$xmin = Min($xmin, $x);
$ysetmin = Min($y, $ysetmin);
}
for( $i = 0; $i < $nmax; $i++ ) {
// Get y-value for bar $i by adding the
// individual bars from all the plots added.
// It would be wrong to just add the
// individual plots max y-value since that
// would in most cases give to large y-value.
$y=$this->plots[0]->coords[0][$i];
for( $j = 1; $j < $this->nbrplots; $j++ ) {
$y += $this->plots[ $j ]->coords[0][$i];
}
$ymin[$i] = $y;
}
$ymin = Min($ysetmin, Min($ymin));
// Bar always start at baseline
if( $ymin >= $this->ybase )
$ymin = $this->ybase;
return array($xmin, $ymin);
}
// Stroke acc bar plot
function Stroke(&$img, &$xscale, &$yscale) {
$img->SetLineWeight($this->weight);
for($i=0; $i<$this->numpoints-1; $i++) {
$accy = 0;
$accy_neg = 0;
for($j=0; $j<$this->nbrplots; ++$j ) {
$img->SetColor($this->plots[$j]->color);
if ($this->plots[$j]->coords[0][$i] > 0) {
$yt=$yscale->Translate($this->plots[$j]->coords[0][$i]+$accy);
$accyt=$yscale->Translate($accy);
$accy+=$this->plots[$j]->coords[0][$i];
} else {
$yt=$yscale->Translate($this->plots[$j]->coords[0][$i]+$accy_neg);
$accyt=$yscale->Translate($accy_neg);
$accy_neg+=$this->plots[$j]->coords[0][$i];
}
$xt=$xscale->Translate($i);
//echo "$i => $xt<br>";
if( $this->abswidth > -1 )
$abswidth=$this->abswidth;
else
$abswidth=round($this->width*$xscale->scale_factor, 0);
$pts=array($xt, $accyt, $xt, $yt, $xt+$abswidth, $yt, $xt+$abswidth, $accyt);
if( $this->plots[$j]->grad ) {
$grad = new Gradient($img);
$grad->FilledRectangle(
$pts[2], $pts[3],
$pts[6], $pts[7],
$this->plots[$j]->grad_fromcolor,
$this->plots[$j]->grad_tocolor,
$this->plots[$j]->grad_style);
} elseif ($this->plots[$j]->fill_color ) {
$img->SetColor($this->plots[$j]->fill_color);
$img->FilledPolygon($pts);
$img->SetColor($this->plots[$j]->color);
}
if( $this->bar_shadow ) {
$ssh = $this->bar_shadow_hsize;
$ssv = $this->bar_shadow_vsize;
// Create points to create a "upper-right" shadow
$sp[0]=$pts[6]; $sp[1]=$pts[7];
$sp[2]=$pts[4]; $sp[3]=$pts[5];
$sp[4]=$pts[2]; $sp[5]=$pts[3];
$sp[6]=$pts[2]+$ssh; $sp[7]=$pts[3]-$ssv;
$sp[8]=$pts[4]+$ssh; $sp[9]=$pts[5]-$ssv;
$sp[10]=$pts[6]+$ssh; $sp[11]=$pts[7]-$ssv;
$img->SetColor($this->bar_shadow_color);
$img->FilledPolygon($sp, 4);
}
if( $i < count($this->plots[$j]->csimtargets) ) {
// Create the client side image map
$rpts = $img->ArrRotate($pts);
$csimcoord=round($rpts[0]).", ".round($rpts[1]);
for( $k=1; $k < 4; ++$k){
$csimcoord .= ", ".round($rpts[2*$k]).", ".round($rpts[2*$k+1]);
}
$this->csimareas.= '<area shape="poly" coords="'.$csimcoord.'" ';
$this->csimareas.= " href=\"".$this->plots[$j]->csimtargets[$i]."\"";
if( !empty($this->plots[$j]->csimalts[$i]) ) {
$sval=sprintf($this->plots[$j]->csimalts[$i], $this->plots[$j]->coords[0][$i]);
$this->csimareas .= " alt=\"$sval\" title=\"$sval\" ";
}
$this->csimareas .= ">\n";
}
$pts[] = $pts[0];
$pts[] = $pts[1];
$img->Polygon($pts);
}
$x=$pts[2]+($pts[4]-$pts[2])/2;
$y=$yscale->Translate($accy);
if($this->bar_shadow) $x += $ssh;
$this->value->Stroke($img, $accy, $x, $y);
$accy = 0;
$accy_neg = 0;
for($j=0; $j<$this->nbrplots; ++$j ) {
if ($this->plots[$j]->coords[0][$i] > 0) {
$yt=$yscale->Translate($this->plots[$j]->coords[0][$i]+$accy);
$accyt=$yscale->Translate($accy);
$y = $accyt-($accyt-$yt)/2;
$accy+=$this->plots[$j]->coords[0][$i];
} else {
$yt=$yscale->Translate($this->plots[$j]->coords[0][$i]+$accy_neg);
$accyt=$yscale->Translate($accy_neg);
$y=0;
$accy_neg+=$this->plots[$j]->coords[0][$i];
}
$this->plots[$j]->value->SetAlign("center", "center");
$this->plots[$j]->value->SetMargin(0);
$this->plots[$j]->value->Stroke($img, $this->plots[$j]->coords[0][$i], $x, $y);
}
}
return true;
}
} // Class
/* EOF */
?>
Other Ad Management Scripts:
