<?php
/*=======================================================================
// File: JPGRAPH_BAR.PHP
// Description: Bar plot extension for JpGraph
// Created: 2001-01-08
// Author: Johan Persson (hide@address.com)
// Ver: $Id: jpgraph_bar.php,v 1.2 2002/02/04 14:19:01 rfox Exp $
//
// License: This code is released under GPL 2.0
// Copyright (C) 2001 Johan Persson
//========================================================================
*/
//===================================================
// CLASS Gradient
// Description: Handles gradient fills. This is to be
// considered a "friend" class of Class Image. The
// Gradient takes care of production a gradient fill for
// the bars.
//===================================================
class Gradient {
var $img=null;
//---------------
// CONSTRUCTOR
function Gradient(&$img) {
$this->img = $img;
}
//---------------
// PUBLIC METHODS
// Produce a gradient filled rectangle with a smooth transition between
// two colors.
// ($xl,$yt) Top left corner
// ($xr,$yb) Bottom right
// $from_color Starting color in gradient
// $to_color End color in the gradient
// $style Which way is the gradient oriented?
function FilledRectangle($xl,$yt,$xr,$yb,$from_color,$to_color,$style=1) {
switch( $style ) {
case 1: // HORIZONTAL
$steps = $xr-$xl;
$this->GetColArray($from_color,$to_color,$steps,$colors);
for($x=$xl; $x<=$xl+$steps; ++$x) {
$this->img->current_color = $colors[$x-$xl];
$this->img->Line($x,$yt,$x,$yb);
}
break;
case 2: // VERTICAL
$steps = $yb-$yt;
$this->GetColArray($from_color,$to_color,$steps,$colors);
for($y=$yt; $y<$yt+$steps; ++$y) {
$this->img->current_color = $colors[$y-$yt];
$this->img->Line($xl,$y,$xr,$y);
}
break;
case 3: // VERTICAL FROM MIDDLE
$steps = ($yb-$yt)/2;
$this->GetColArray($from_color,$to_color,$steps,$colors);
for($y=$yt, $i=0; $y<$yt+$steps; ++$y, ++$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($xl,$y,$xr,$y);
}
--$i;
for($y=$yt+$steps; $i>0; ++$y, --$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($xl,$y,$xr,$y);
}
$this->img->Line($xl,$y,$xr,$y);
break;
case 4: // HORIZONTAL FROM MIDDLE
$steps = ($xr-$xl)/2;
$this->GetColArray($from_color,$to_color,$steps,$colors);
for($x=$xl, $i=0; $x<$xl+$steps; ++$x, ++$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($x,$yb,$x,$yt);
}
--$i;
for($x=$xl+$steps; $i>0; ++$x, --$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($x,$yb,$x,$yt);
}
$this->img->Line($x,$yb,$x,$yt);
break;
case 5: // Rectangle
$steps = floor(min(($yb-$yt)+1,($xr-$xl)+1)/2);
$this->GetColArray($from_color,$to_color,$steps,$colors);
$dx = ($xr-$xl)/2;
$dy = ($yb-$yt)/2;
$x=$xl;$y=$yt;$x2=$xr;$y2=$yb;
for($x=$xl, $i=0; $x<$xl+$dx && $y<$yt+$dy ; ++$x, ++$y, --$x2, --$y2, ++$i) {
assert($i<count($colors));
$this->img->current_color = $colors[$i];
$this->img->Rectangle($x,$y,$x2,$y2);
}
$this->img->Line($x,$y,$x2,$y2);
break;
case 6: // HORIZONTAL WIDER MIDDLE
$steps = ($xr-$xl)/3;
$this->GetColArray($from_color,$to_color,$steps,$colors);
for($x=$xl, $i=0; $x<$xl+$steps; ++$x, ++$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($x,$yb,$x,$yt);
}
--$i;
$this->img->current_color = $colors[$i];
for($x=$xl+$steps; $x<$xl+2*$steps; ++$x) {
$this->img->Line($x,$yb,$x,$yt);
}
for($x=$xl+2*$steps; $i>=0; ++$x, --$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($x,$yb,$x,$yt);
}
break;
case 7: // VERTICAL WIDER MIDDLE
$steps = ($yb-$yt)/3;
$this->GetColArray($from_color,$to_color,$steps,$colors);
for($y=$yt, $i=0; $y<$yt+$steps; ++$y, ++$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($xl,$y,$xr,$y);
}
--$i;
$this->img->current_color = $colors[$i];
for($y=$yt+$steps; $y<$yt+2*$steps; ++$y) {
$this->img->Line($xl,$y,$xr,$y);
}
for($y=$yt+2*$steps; $i>=0; ++$y, --$i) {
$this->img->current_color = $colors[$i];
$this->img->Line($xl,$y,$xr,$y);
}
break;
default:
die("JpGraph Error: Unknown gradient style (=$style).");
break;
}
}
//---------------
// PRIVATE METHODS
// Add to the image color map the necessary colors to do the transition
// between the two colors using $numcolors intermediate colors
function GetColArray($from_color,$to_color,$arr_size,&$colors,$numcols=100) {
if( $arr_size==0 ) return;
// If color is give as text get it's corresponding r,g,b values
$from_color = $this->img->rgb->Color($from_color);
$to_color = $this->img->rgb->Color($to_color);
$rdelta=($to_color[0]-$from_color[0])/$numcols;
$gdelta=($to_color[1]-$from_color[1])/$numcols;
$bdelta=($to_color[2]-$from_color[2])/$numcols;
$stepspercolor = $numcols/$arr_size;
$prevcolnum = -1;
for ($i=0; $i<$arr_size; ++$i) {
$colnum = floor($stepspercolor*$i);
if ( $colnum == $prevcolnum )
$colors[$i] = $colidx;
else {
$r = floor($from_color[0] + $colnum*$rdelta);
$g = floor($from_color[1] + $colnum*$gdelta);
$b = floor($from_color[2] + $colnum*$bdelta);
$colidx = $this->img->rgb->Allocate(sprintf("#%02x%02x%02x",$r,$g,$b));
$colors[$i] = $colidx;
}
$prevcolnum = $colnum;
}
}
} // Class
//===================================================
// 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 $ymin=0;
var $align="left";
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 $show_value=false,$show_value_format="%d",$show_value_angle=0;
var $show_value_ff=FF_FONT1,$show_value_fs=FS_NORMAL,$show_value_fsize=12;
var $show_value_color="black",$show_value_margin=3;
//---------------
// 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->show_value_margin += $vsize;
}
// Display the value of the bar at the top of bar
function ShowValue($f=true) {
$this->show_value = $f;
}
function SetValueFormat($format="%d",$angle=0) {
$this->show_value_format = $format;
$this->show_value_angle = $angle;
}
function SetValueFont($ff=FF_FONT1,$fs=FS_NORMAL,$size=10) {
$this->show_value_ff=$ff;
$this->show_value_fs=$fs;
$this->show_value_fsize=$size;
}
function SetValueColor($color) {
$this->show_value_color=$color;
}
function SetValueMargin($m) {
$this->show_value_margin=$m;
}
function SetYStart($y) {
die("JpGraph Error: Deprecated function SetYStart. Use SetYMin() instead.");
}
function SetYMin($y) {
$this->ymin=$y;
}
function Legend(&$graph) {
if( $this->fill_color && $this->legend!="" ) {
if( is_array($this->fill_color) )
$graph->legend->Add($this->legend,$this->fill_color[0]);
else
$graph->legend->Add($this->legend,$this->fill_color);
}
}
// Gets called before any axis are stroked
function PreStrokeAdjust(&$graph) {
parent::PreStrokeAdjust($graph);
// 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);
// Position the labels under each bar in the middle of the
// major steps.
$graph->SetTextScaleOff(0.5-$this->width/2);
}
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();
$m[1]=min($m[1],$this->ymin);
return $m;
}
// Specify width as fractions of the major stepo size
function SetWidth($w) {
assert($w > 0 && $w <= 1.0);
$this->width=$w;
}
// Specify width in absolute pixels. If specified this
// overrides SetWidth()
function SetAbsWidth($w) {
$this->abswidth=$w;
}
function SetAlign($a) {
$this->align=$a;
}
function SetNoFill() {
$this->grad = false;
$this->fill_color=false;
}
function SetFillColor($c) {
$this->fill_color=$c;
}
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 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]);
if( $yscale->scale[0] >= 0 )
$zp=$yscale->scale_abs[0];
else
$zp=$yscale->Translate(0.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;
$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 ) {
$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);
$img->SetLineWeight($this->weight);
$img->Polygon($pts);
if( $this->show_value) {
$sval=sprintf($this->show_value_format,$val);
$txt = new Text($sval);
$txt->SetFont($this->show_value_ff,$this->show_value_fs,$this->show_value_fsize);
$txt->SetColor($this->show_value_color);
$x=$pts[2]+($pts[4]-$pts[2])/2;
if($this->bar_shadow)
$x += $ssh;
if( $val >= 0 ) {
$txt->Pos($x,$pts[3]-$this->show_value_margin);
$txt->Align("center","bottom");
}
else {
$txt->Pos($x,$pts[3]+$this->show_value_margin);
$txt->Align("center","top");
}
$txt->SetOrientation($this->show_value_angle);
$txt->Stroke($img);
}
// Create the client side image map
$this->csimareas.= "<area shape=\"rect\" coords=\"";
// Hmmm, this is fishy. Fixes a bug in Opera whereby if Y2<Y1 or X2<X1 the csim doesn't work
if ($pts[3] < $pts[7]) {
if ($pts[2] < $pts[6])
$this->csimareas .= "$pts[2], $pts[3], $pts[6], $pts[7]\"";
else
$this->csimareas .= "$pts[6], $pts[3], $pts[2], $pts[7]\"";
} else {
if ($pts[2] < $pts[6])
$this->csimareas .= "$pts[2], $pts[7], $pts[6], $pts[3]\"";
else
$this->csimareas .= "$pts[6], $pts[7], $pts[2], $pts[3]\"";
}
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\"";
}
$this->csimareas .= ">\r\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) {
foreach( $this->plots as $p )
$p->Legend($graph);
}
function Min() {
//return array(0,$this->ymin); // Must be adjusted for log plots
list($xmin,$ymin) = $this->plots[0]->Min();
foreach($this->plots as $p) {
list($xm,$ym) = $p->Min();
$xmin = max($xmin,$xm);
$ymin = min($ymin,$ym);
}
return array($xmin,$ymin);
}
function Max() {
list($xmax,$ymax) = $this->plots[0]->Max();
foreach($this->plots as $p) {
list($xm,$ym) = $p->Max();
$xmax = max($xmax,$xm);
$ymax = max($ymax,$ym);
}
return array($xmax,$ymax);
}
function GetCSIMareas() {
foreach($this->plots as $p) {
$csimareas.= $p->csimareas;
}
return $csimareas;
}
// Stroke all the bars next to each other
function Stroke(&$img,&$xscale,&$yscale) {
$tmp=$xscale->off;
for( $i=0; $i<count($this->plots); ++$i ) {
$this->plots[$i]->ymin=$this->ymin;
$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;
}
//---------------
// PUBLIC METHODS
function Legend(&$graph) {
foreach( $this->plots as $p )
$p->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;
}
return array($xmax,max($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));
return array($xmin,$ymin);
}
// Method description
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);
$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,4);
$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) ) {
$this->csimareas.= "<area shape=\"rect\" coords=\"";
// Hmmm, this is fishy. Fixes a bug in Opera whereby if Y2<Y1 or X2<X1 the csim doesn't work
// This means that the area MUST specify top left and bottom right corners
if ($pts[3] < $pts[7]) {
if ($pts[2] < $pts[6]) {
$this->csimareas.= "$pts[2], $pts[3], $pts[6], $pts[7]\"";
} else {
$this->csimareas.= "$pts[6], $pts[3], $pts[2], $pts[7]\"";
}
} else {
if ($pts[2] < $pts[6]) {
$this->csimareas.= "$pts[2], $pts[7], $pts[6], $pts[3]\"";
} else {
$this->csimareas.= "$pts[6], $pts[7], $pts[2], $pts[3]\"";
}
}
$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\"";
}
$this->csimareas .= ">\r\n";
}
$img->Polygon($pts,4);
}
$yt=$yscale->Translate($accy);
if( $this->show_value) {
$sval=sprintf($this->show_value_format,$accy);
$txt = new Text($sval);
$txt->SetFont($this->show_value_ff,$this->show_value_fs,$this->show_value_fsize);
$txt->SetColor($this->show_value_color);
$x=$pts[2]+($pts[4]-$pts[2])/2;
if($this->bar_shadow)
$x += $ssh;
$txt->Pos($x,$yt-$this->show_value_margin);
$txt->Align("center","bottom");
$txt->SetOrientation($this->show_value_angle);
$txt->Stroke($img);
}
}
return true;
}
} // Class
/* EOF */
?>