home *** CD-ROM | disk | FTP | other *** search
- <?php
- /*=======================================================================
- // File: JPGRAPH_BAR.PHP
- // Description: Bar plot extension for JpGraph
- // Created: 2001-01-08
- // Author: Johan Persson (johanp@aditus.nu)
- // Ver: $Id: jpgraph_bar.php,v 1.3 2003/02/14 18:21:11 kobudo Exp $
- //
- // License: This code is released under QPL
- // Copyright (C) 2001,2002 Johan Persson
- //========================================================================
- */
-
- //===================================================
- // CLASS Gradient
- // Description: Handles gradient fills. This is to be
- // considered a "friend" class of Class Image.
- //===================================================
- 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 = abs($xr-$xl);
- $delta = $xr>=$xl ? 1 : -1;
- $this->GetColArray($from_color,$to_color,$steps,$colors);
- for( $i=0, $x=$xl; $i<$steps; ++$i ) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($x,$yt,$x,$yb);
- $x += $delta;
- }
- break;
-
- case 2: // VERTICAL
- $steps = abs($yb-$yt);
- $delta = $yb>=$yt ? 1 : -1;
- $this->GetColArray($from_color,$to_color,$steps,$colors);
- for($i=0,$y=$yt; $i<$steps; ++$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($xl,$y,$xr,$y);
- $y += $delta;
- }
- break;
-
- case 3: // VERTICAL FROM MIDDLE
- $steps = abs($yb-$yt)/2;
- $delta = $yb>=$yt ? 1 : -1;
- $this->GetColArray($from_color,$to_color,$steps,$colors);
- for($y=$yt, $i=0; $i<$steps; ++$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($xl,$y,$xr,$y);
- $y += $delta;
- }
- --$i;
- for($j=0; $j<$steps; ++$j, --$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($xl,$y,$xr,$y);
- $y += $delta;
- }
- $this->img->Line($xl,$y,$xr,$y);
- break;
-
- case 4: // HORIZONTAL FROM MIDDLE
- $steps = abs($xr-$xl)/2;
- $delta = $xr>=$xl ? 1 : -1;
- $this->GetColArray($from_color,$to_color,$steps,$colors);
- for($x=$xl, $i=0; $i<$steps; ++$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($x,$yb,$x,$yt);
- $x += $delta;
- }
- --$i;
- for($j=0; $j<$steps; ++$j, --$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($x,$yb,$x,$yt);
- $x += $delta;
- }
- $this->img->Line($x,$yb,$x,$yt);
- break;
-
- case 6: // HORIZONTAL WIDER MIDDLE
- $steps = abs($xr-$xl)/3;
- $delta = $xr>=$xl ? 1 : -1;
- $this->GetColArray($from_color,$to_color,$steps,$colors);
- for($x=$xl, $i=0; $i<$steps; ++$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($x,$yb,$x,$yt);
- $x += $delta;
- }
- --$i;
- $this->img->current_color = $colors[$i];
- for($j=0; $j< $steps; ++$j) {
- $this->img->Line($x,$yb,$x,$yt);
- $x += $delta;
- }
-
- for($j=0; $j<$steps; ++$j, --$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($x,$yb,$x,$yt);
- $x += $delta;
- }
- break;
-
- case 7: // VERTICAL WIDER MIDDLE
- $steps = abs($yb-$yt)/3;
- $delta = $yb>=$yt? 1 : -1;
- $this->GetColArray($from_color,$to_color,$steps,$colors);
- for($y=$yt, $i=0; $i<$steps; ++$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($xl,$y,$xr,$y);
- $y += $delta;
- }
- --$i;
- $this->img->current_color = $colors[$i];
- for($j=0; $j< $steps; ++$j) {
- $this->img->Line($xl,$y,$xr,$y);
- $y += $delta;
- }
- for($j=0; $j<$steps; ++$j, --$i) {
- $this->img->current_color = $colors[$i];
- $this->img->Line($xl,$y,$xr,$y);
- $y += $delta;
- }
- 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;
-
- 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 $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);
- $img->SetLineWeight($this->weight);
- $pts[] = $pts[0];
- $pts[] = $pts[1];
- $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 */
- ?>
-