<?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.54.2.22 2004/10/20 20:52:17 aditus Exp $//// License:	This code is released under QPL// Copyright (C) 2001,2002,2003 Johan Persson//========================================================================*/require_once('jpgraph_plotband.php');// Pattern for BarsDEFINE('PATTERN_DIAG1',1);DEFINE('PATTERN_DIAG2',2);DEFINE('PATTERN_DIAG3',3);DEFINE('PATTERN_DIAG4',4);DEFINE('PATTERN_CROSS1',5);DEFINE('PATTERN_CROSS2',6);DEFINE('PATTERN_CROSS3',7);DEFINE('PATTERN_CROSS4',8);DEFINE('PATTERN_STRIPE1',9);DEFINE('PATTERN_STRIPE2',10);//===================================================// 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=false,$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';    var $iPattern=-1,$iPatternDensity=80,$iPatternColor='black';	//---------------// 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,$show=true) {	$this->bar_shadow=$show;	$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->grad && $this->legend!="" && !$this->fill ) {	    $color=array($this->grad_fromcolor,$this->grad_tocolor);	    // In order to differentiate between gradients and cooors specified as an RGB triple	    $graph->legend->Add($this->legend,$color,"",-$this->grad_style,				$this->legendcsimtarget,$this->legendcsimalt);	}	elseif( $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;	$this->fill=false;    }		    function SetFillColor($aColor) {	$this->fill = true ;	$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 SetPattern($aPattern, $aColor='black'){	if( is_array($aPattern) ) {	    $n = count($aPattern);	    $this->iPattern = array();	    $this->iPatternDensity = array();	    if( is_array($aColor) ) {		$this->iPatternColor = array();		if( count($aColor) != $n ) {		    JpGraphError::Raise('NUmber of colors is not the same as the number of patterns in BarPlot::SetPattern()');		}	    }	    else		$this->iPatternColor = $aColor;	    for( $i=0; $i < $n; ++$i ) {		$this->_SetPatternHelper($aPattern[$i], $this->iPattern[$i], $this->iPatternDensity[$i]);		if( is_array($aColor) ) {		    $this->iPatternColor[$i] = $aColor[$i];		}	    }	}	else {	    $this->_SetPatternHelper($aPattern, $this->iPattern, $this->iPatternDensity);	    $this->iPatternColor = $aColor;	}    }    function _SetPatternHelper($aPattern, &$aPatternValue, &$aDensity){	switch( $aPattern ) {	    case PATTERN_DIAG1:		$aPatternValue= 1;		$aDensity = 90;		break;	    case PATTERN_DIAG2:		$aPatternValue= 1;		$aDensity = 75;		break;	    case PATTERN_DIAG3:		$aPatternValue= 2;		$aDensity = 90;		break;	    case PATTERN_DIAG4:		$aPatternValue= 2;		$aDensity = 75;		break;	    case PATTERN_CROSS1:		$aPatternValue= 8;		$aDensity = 90;		break;	    case PATTERN_CROSS2:		$aPatternValue= 8;		$aDensity = 78;		break;	    case PATTERN_CROSS3:		$aPatternValue= 8;		$aDensity = 65;		break;	    case PATTERN_CROSS4:		$aPatternValue= 7;		$aDensity = 90;		break;	    case PATTERN_STRIPE1:		$aPatternValue= 5;		$aDensity = 90;		break;	    case PATTERN_STRIPE2:		$aPatternValue= 5;		$aDensity = 75;		break;	    default:		JpGraphError::Raise('Unknown pattern specified in call to BarPlot::SetPattern()');	}    }    function Stroke(&$img,&$xscale,&$yscale) { 			$numpoints = count($this->coords[0]);	if( isset($this->coords[1]) ) {	    if( count($this->coords[1])!=$numpoints )		JpGraphError::Raise("Number of X and Y points are not equal. Number of X-points:".count($this->coords[1])."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);	// Count potential pattern array to avoid doing the count for each iteration	if( is_array($this->iPattern) ) {	    $np = count($this->iPattern);	}						for($i=0; $i < $numbars; ++$i) { 	    // If value is NULL, or 0 then don't draw a bar at all 	    if ($this->coords[0][$i] === null ||		$this->coords[0][$i] === '' ||		$this->coords[0][$i] === 0 ) continue;    	    if( $exist_x ) $x=$this->coords[1][$i];	    else $x=$i;				    $x=$xscale->Translate($x);	    if( !$xscale->textscale ) {	    	if($this->align=="center")		    $x -= $abswidth/2;		elseif($this->align=="right")		    $x -= $abswidth;				    }	    // Stroke fill color and fill gradient	    $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( !empty($val) && !is_numeric($val) ) {		JpGraphError::Raise('All values for a barplot must be numeric. You have specified value['.$i.'] == \''.$val.'\'');	    }	    // Determine the shadow	    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;		}		if( is_array($this->bar_shadow_color) ) {		    $numcolors = count($this->bar_shadow_color);		    if( $numcolors == 0 ) {			JpGraphError::Raise('You have specified an empty array for shadow colors in the bar plot.');		    }		    $img->PushColor($this->bar_shadow_color[$i % $numcolors]);		}		else {		    $img->PushColor($this->bar_shadow_color);		}		$img->FilledPolygon($sp);		$img->PopColor();	    }				    // Stroke the pattern	    if( is_array($this->iPattern) ) {		$f = new RectPatternFactory();		if( is_array($this->iPatternColor) ) {		    $pcolor = $this->iPatternColor[$i % $np];		}		else		    $pcolor = $this->iPatternColor;		$prect = $f->Create($this->iPattern[$i % $np],$pcolor,1);		$prect->SetDensity($this->iPatternDensity[$i % $np]);		if( $val < 0 ) {		    $rx = $pts[0];		    $ry = $pts[1];		}		else {		    $rx = $pts[2];		    $ry = $pts[3];		}		$width = abs($pts[4]-$pts[0])+1;		$height = abs($pts[1]-$pts[3])+1;		$prect->SetPos(new Rectangle($rx,$ry,$width,$height));		$prect->Stroke($img);	    }	    else {		if( $this->iPattern > -1 ) {		    $f = new RectPatternFactory();		    $prect = $f->Create($this->iPattern,$this->iPatternColor,1);		    $prect->SetDensity($this->iPatternDensity);		    if( $val < 0 ) {			$rx = $pts[0];			$ry = $pts[1];		    }		    else {			$rx = $pts[2];			$ry = $pts[3];		    }		    $width = abs($pts[4]-$pts[0])+1;		    $height = abs($pts[1]-$pts[3])+1;		    $prect->SetPos(new Rectangle($rx,$ry,$width,$height));		    $prect->Stroke($img);		}	    }	    // 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);	    }				    // Determine how to best position the values of the individual bars	    $x=$pts[2]+($pts[4]-$pts[2])/2;	    if( $this->valuepos=='top' ) {		$y=$pts[3];		if( $img->a === 90 ) {		    if( $val < 0 )			$this->value->SetAlign('right','center');					    else			$this->value->SetAlign('left','center');					}		$this->value->Stroke($img,$val,$x,$y);	    }	    elseif( $this->valuepos=='max' ) {		$y=$pts[3];		if( $img->a === 90 ) {		    if( $val < 0 )			$this->value->SetAlign('left','center');		    else			$this->value->SetAlign('right','center');		    		}		else {		    $this->value->SetAlign('center','top');		}		$this->value->SetMargin(-3);		$this->value->Stroke($img,$val,$x,$y);