Subversion Repositories Sites.tela-botanica.org

<?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.1 2004/06/15 10:13:19 jpm 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=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';

//---------------

// 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->grad && $this->legend!="" && !$this->fill ) {

	    $color=array($this->grad_fromcolor,$this->grad_tocolor,$this->grad_style);

	    $graph->legend->Add($this->legend,$color,"",0,

				$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 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 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;

	    }

	    $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]->DoLegend($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);

	$subwidth = $this->width/$this->nbrplots ;

	for( $i=0; $i < $n; ++$i ) {

	    $this->plots[$i]->ymin=$this->ybase;

	    $this->plots[$i]->SetWidth($subwidth);

	    // If the client have used SetTextTickInterval() then

	    // major_step will be > 1 and the positioning will fail.

	    // If we assume it is always one the positioning will work

	    // fine with a text scale but this will not work with

	    // arbitrary linear scale

	    $xscale->off = $tmp+$i*round(/*$xscale->ticks->major_step* */

					 $xscale->scale_factor*$subwidth);

	    $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]->DoLegend($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];

		}

		if ( $this->plots[$j]->coords[0][$i] < 0 || $accy_neg < 0 ) {

		    $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);

		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->bar_shadow ) {

		    $ssh = $this->bar_shadow_hsize;

		    $ssv = $this->bar_shadow_vsize;

		    // We must also differ if we are a positive or negative bar.

		    if( $j === 0 ) {

			// This gets extra complicated since we have to

			// see all plots to see if we are negative. It could

			// for example be that all plots are 0 until the very

			// last one. We therefore need to save the initial setup

			// for both the negative and positive case

			// In case the final bar is positive

			$sp[0]=$pts[6]+1; $sp[1]=$pts[7];

			$sp[2]=$pts[6]+$ssh; $sp[3]=$pts[7]-$ssv;

			// In case the final bar is negative

			$nsp[0]=$pts[0]; $nsp[1]=$pts[1];

			$nsp[2]=$pts[0]+$ssh; $nsp[3]=$pts[1]-$ssv;

			$nsp[4]=$pts[6]+$ssh; $nsp[5]=$pts[7]-$ssv;

			$nsp[10]=$pts[6]+1; $nsp[11]=$pts[7];

		    }

		    if( $j === $this->nbrplots-1 ) {

			// If this is the last plot of the bar and

			// the total value is larger than 0 then we

			// add the shadow.

			if( $accy > 0 ) {

			    $sp[4]=$pts[4]+$ssh; $sp[5]=$pts[5]-$ssv;

			    $sp[6]=$pts[2]+$ssh; $sp[7]=$pts[3]-$ssv;

			    $sp[8]=$pts[2]; $sp[9]=$pts[3]-1;

			    $sp[10]=$pts[4]+1; $sp[11]=$pts[5];

			    $img->PushColor($this->bar_shadow_color);

			    $img->FilledPolygon($sp,4);

			    $img->PopColor();

			}

			elseif( $accy_neg < 0 ) {

			    $nsp[6]=$pts[4]+$ssh; $nsp[7]=$pts[5]-$ssv;

			    $nsp[8]=$pts[4]+1; $nsp[9]=$pts[5];

			    $img->PushColor($this->bar_shadow_color);

			    $img->FilledPolygon($nsp,4);

			    $img->PopColor();

			}

		    }

		}

		// If value is NULL or 0, then don't draw a bar at all

		if ($this->plots[$j]->coords[0][$i] == 0 ) continue;

		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);

		}

		// CSIM array

		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);

	    }

	    // Draw labels for each acc.bar

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

?>