<?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.12 2001/11/09 20:00:27 ljp Exp $
//
// License:				This code is released under GPL 2.0
//
//========================================================================
*/

//===================================================
// 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() {
		$accymax=0;
		list($xmax,$dummy) = $this->plots[0]->Max();
		foreach($this->plots as $p) {
			list($xm,$ym) = $p->Max();
			$xmax = max($xmax,$xm);
			$accymax += $ym;
		}
		$accymax = 0;
		for( $i = 0; $i < $xmax; $i++ ) {
			$accy = 0;
			for( $j = 0; $j < $this->nbrplots; $j++ ) {
				$accy += $this->plots[ $j ]->coords[0][$i];
			}
			if( $accy > $accymax )
				$accymax = $accy;
		}
		return array($xmax,$accymax);
	}

	function Min() {
		$accymin=0;
		list($xmin,$dummy) = $this->plots[0]->Min();
		foreach($this->plots as $p) {
			list($xm,$ym) = $p->Min();
			$xmin = max($xmin,$xm);
			$accymin += $ym;
		}
		return array($xmin,$accymin);		
	}

	// 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 */
?>
