<?php/*=======================================================================// File: 	JPGRAPH_LINE.PHP// Description:	Line plot extension for JpGraph// Created: 	2001-01-08// Author:	Johan Persson (johanp@aditus.nu)// Ver:		$Id: jpgraph_line.php,v 1.48.2.6 2004/12/11 13:40:44 aditus Exp $//// License:	This code is released under QPL// Copyright (C) 2001,2002 Johan Persson//========================================================================*/require_once ('jpgraph_plotmark.inc');// constants for the (filled) areaDEFINE("LP_AREA_FILLED", true);DEFINE("LP_AREA_NOT_FILLED", false);DEFINE("LP_AREA_BORDER",false);DEFINE("LP_AREA_NO_BORDER",true);//===================================================// CLASS LinePlot// Description: //===================================================class LinePlot extends Plot{    var $filled=false;    var $fill_color='blue';    var $mark=null;    var $step_style=false, $center=false;    var $line_style=1;	// Default to solid    var $filledAreas = array(); // array of arrays(with min,max,col,filled in them)    var $barcenter=false;  // When we mix line and bar. Should we center the line in the bar.    var $fillFromMin = false ;    var $fillgrad=false,$fillgrad_fromcolor='navy',$fillgrad_tocolor='silver',$fillgrad_numcolors=100;    var $iFastStroke=false;//---------------// CONSTRUCTOR    function LinePlot(&$datay,$datax=false) {	$this->Plot($datay,$datax);	$this->mark = new PlotMark();    }//---------------// PUBLIC METHODS	    // Set style, filled or open    function SetFilled($aFlag=true) {    	JpGraphError::Raise('LinePlot::SetFilled() is deprecated. Use SetFillColor()');    }	    function SetBarCenter($aFlag=true) {	$this->barcenter=$aFlag;    }    function SetStyle($aStyle) {	$this->line_style=$aStyle;    }	    function SetStepStyle($aFlag=true) {	$this->step_style = $aFlag;    }	    function SetColor($aColor) {	parent::SetColor($aColor);    }	    function SetFillFromYMin($f=true) {	$this->fillFromMin = $f ;    }        function SetFillColor($aColor,$aFilled=true) {	$this->fill_color=$aColor;	$this->filled=$aFilled;    }    function SetFillGradient($aFromColor,$aToColor,$aNumColors=100,$aFilled=true) {	$this->fillgrad_fromcolor = $aFromColor;	$this->fillgrad_tocolor   = $aToColor;	$this->fillgrad_numcolors = $aNumColors;	$this->filled = $aFilled;	$this->fillgrad = true;    }	    function Legend(&$graph) {	if( $this->legend!="" ) {	    if( $this->filled ) {		$graph->legend->Add($this->legend,				    $this->fill_color,$this->mark,0,				    $this->legendcsimtarget,$this->legendcsimalt);	    } else {		$graph->legend->Add($this->legend,				    $this->color,$this->mark,$this->line_style,				    $this->legendcsimtarget,$this->legendcsimalt);	    }	}	    }    function AddArea($aMin=0,$aMax=0,$aFilled=LP_AREA_NOT_FILLED,$aColor="gray9",$aBorder=LP_AREA_BORDER) {	if($aMin > $aMax) {	    // swap	    $tmp = $aMin;	    $aMin = $aMax;	    $aMax = $tmp;	} 	$this->filledAreas[] = array($aMin,$aMax,$aColor,$aFilled,$aBorder);    }	    // Gets called before any axis are stroked    function PreStrokeAdjust(&$graph) {	// If another plot type have already adjusted the	// offset we don't touch it.	// (We check for empty in case the scale is  a log scale 	// and hence doesn't contain any xlabel_offset)	if( empty($graph->xaxis->scale->ticks->xlabel_offset) ||	    $graph->xaxis->scale->ticks->xlabel_offset == 0 ) {	    if( $this->center ) {		++$this->numpoints;		$a=0.5; $b=0.5;	    } else {		$a=0; $b=0;	    }	    $graph->xaxis->scale->ticks->SetXLabelOffset($a);	    $graph->SetTextScaleOff($b);							    //$graph->xaxis->scale->ticks->SupressMinorTickMarks();	}    }    function SetFastStroke($aFlg=true) {	$this->iFastStroke = $aFlg;    }    function FastStroke(&$img,&$xscale,&$yscale,$aStartPoint=0,$exist_x=true) {	// An optimized stroke for many data points with no extra 	// features but 60% faster. You can't have values or line styles, or null	// values in plots.	$numpoints=count($this->coords[0]);	if( $this->barcenter ) 	    $textadj = 0.5-$xscale->text_scale_off;	else	    $textadj = 0;	$img->SetColor($this->color);	$img->SetLineWeight($this->weight);	$pnts=$aStartPoint;	while( $pnts < $numpoints ) {	    	    if( $exist_x ) $x=$this->coords[1][$pnts];	    else $x=$pnts+$textadj;	    $xt = $xscale->Translate($x);	    $y=$this->coords[0][$pnts];	    $yt = $yscale->Translate($y);    	    if( is_numeric($y) ) {		$cord[] = $xt;		$cord[] = $yt;	    }	    elseif( $y == '-' && $pnts > 0 ) {		// Just ignore	    }	    else {		JpGraphError::Raise('Plot too complicated for fast line Stroke. Use standard Stroke()');		return;	    }	    ++$pnts;	} // WHILE	$img->Polygon($cord,false,true);    }	    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;	if( $this->barcenter ) 	    $textadj = 0.5-$xscale->text_scale_off;	else	    $textadj = 0;	// Find the first numeric data point	$startpoint=0;	while( $startpoint < $numpoints && !is_numeric($this->coords[0][$startpoint]) )	    ++$startpoint;	// Bail out if no data points	if( $startpoint == $numpoints ) 	    return;	if( $this->iFastStroke ) {	    $this->FastStroke($img,$xscale,$yscale,$startpoint,$exist_x);	    return;	}	if( $exist_x )	    $xs=$this->coords[1][$startpoint];	else	    $xs= $textadj+$startpoint;	$img->SetStartPoint($xscale->Translate($xs),			    $yscale->Translate($this->coords[0][$startpoint]));	if( $this->filled ) {	    $cord[] = $xscale->Translate($xs);	    $min = $yscale->GetMinVal();	    if( $min > 0 || $this->fillFromMin )		$cord[] = $yscale->Translate($min);	    else		$cord[] = $yscale->Translate(0);	}	$xt = $xscale->Translate($xs);	$yt = $yscale->Translate($this->coords[0][$startpoint]);	$cord[] = $xt;	$cord[] = $yt;	$yt_old = $yt;	$xt_old = $xt;	$y_old = $this->coords[0][$startpoint];	$this->value->Stroke($img,$this->coords[0][$startpoint],$xt,$yt);	$img->SetColor($this->color);	$img->SetLineWeight($this->weight);	$img->SetLineStyle($this->line_style);	$pnts=$startpoint+1;	$firstnonumeric = false;	while( $pnts < $numpoints ) {	    	    if( $exist_x ) $x=$this->coords[1][$pnts];	    else $x=$pnts+$textadj;	    $xt = $xscale->Translate($x);	    $yt = $yscale->Translate($this->coords[0][$pnts]);	    	    $y=$this->coords[0][$pnts];	    if( $this->step_style ) {		// To handle null values within step style we need to record the		// first non numeric value so we know from where to start if the		// non value is '-'. 		if( is_numeric($y) ) {		    $firstnonumeric = false;		    if( is_numeric($y_old) ) {			$img->StyleLine($xt_old,$yt_old,$xt,$yt_old);			$img->StyleLine($xt,$yt_old,$xt,$yt);		    }		    elseif( $y_old == '-' ) {			$img->StyleLine($xt_first,$yt_first,$xt,$yt_first);			$img->StyleLine($xt,$yt_first,$xt,$yt);					    }		    else {			$yt_old = $yt;			$xt_old = $xt;		    }		    $cord[] = $xt;		    $cord[] = $yt_old;		    $cord[] = $xt;		    $cord[] = $yt;		}		elseif( $firstnonumeric==false ) {		    $firstnonumeric = true;		    $yt_first = $yt_old;		    $xt_first = $xt_old;		}	    }	    else {		if( is_numeric($y) || (is_string($y) && $y != "-") ) {		    $tmp1=$this->coords[0][$pnts];		    $tmp2=$this->coords[0][$pnts-1]; 		 					    if( is_numeric($tmp1)  && (is_numeric($tmp2) || $tmp2=="-" ) ) { 			$img->StyleLineTo($xt,$yt);		    } 		    else {			$img->SetStartPoint($xt,$yt);		    }		    if( is_numeric($tmp1)  && 			(is_numeric($tmp2) || $tmp2=="-" || ($this->filled && $tmp2=='') ) ) { 			$cord[] = $xt;			$cord[] = $yt;		    } 		}	    }	    $yt_old = $yt;	    $xt_old = $xt;	    $y_old = $y;	    $this->StrokeDataValue($img,$this->coords[0][$pnts],$xt,$yt);	    ++$pnts;	}		if( $this->filled  ) {	    $cord[] = $xt;	    if( $min > 0 || $this->fillFromMin )		$cord[] = $yscale->Translate($min);	    else		$cord[] = $yscale->Translate(0);	    if( $this->fillgrad ) {		$img->SetLineWeight(1);		$grad = new Gradient($img);		$grad->SetNumColors($this->fillgrad_numcolors);		$grad->FilledFlatPolygon($cord,$this->fillgrad_fromcolor,$this->fillgrad_tocolor);		$img->SetLineWeight($this->weight);	    }	    else {		$img->SetColor($this->fill_color);			$img->FilledPolygon($cord);	    }	    if( $this->line_weight > 0 ) {		$img->SetColor($this->color);		$img->Polygon($cord);	    }	}	if(!empty($this->filledAreas)) {	    $minY = $yscale->Translate($yscale->GetMinVal());	    $factor = ($this->step_style ? 4 : 2);	    for($i = 0; $i < sizeof($this->filledAreas); ++$i) {		// go through all filled area elements ordered by insertion		// fill polygon array		$areaCoords[] = $cord[$this->filledAreas[$i][0] * $factor];		$areaCoords[] = $minY;		$areaCoords =		    array_merge($areaCoords,				array_slice($cord,					    $this->filledAreas[$i][0] * $factor,					    ($this->filledAreas[$i][1] - $this->filledAreas[$i][0] + ($this->step_style ? 0 : 1))  * $factor));		$areaCoords[] = $areaCoords[sizeof($areaCoords)-2]; // last x		$areaCoords[] = $minY; // last y	    		if($this->filledAreas[$i][3]) {		    $img->SetColor($this->filledAreas[$i][2]);		    $img->FilledPolygon($areaCoords);		    $img->SetColor($this->color);		}		// Check if we should draw the frame.		// If not we still re-draw the line since it might have been		// partially overwritten by the filled area and it doesn't look		// very good.		// TODO: The behaviour is undefined if the line does not have		// any line at the position of the area.		if( $this->filledAreas[$i][4] )		    $img->Polygon($areaCoords);		else	    	    $img->Polygon($cord);		$areaCoords = array();	    }	}		if( $this->mark->type == -1 || $this->mark->show == false )	    return;	for( $pnts=0; $pnts<$numpoints; ++$pnts) {	    if( $exist_x ) $x=$this->coords[1][$pnts];	    else $x=$pnts+$textadj;	    $xt = $xscale->Translate($x);	    $yt = $yscale->Translate($this->coords[0][$pnts]);	    if( is_numeric($this->coords[0][$pnts]) ) {		if( !empty($this->csimtargets[$pnts]) ) {		    $this->mark->SetCSIMTarget($this->csimtargets[$pnts]);		    $this->mark->SetCSIMAlt($this->csimalts[$pnts]);		}		if( $exist_x )		    $x=$this->coords[1][$pnts];		else		    $x=$pnts;		$this->mark->SetCSIMAltVal($this->coords[0][$pnts],$x);		$this->mark->Stroke($img,$xt,$yt);			$this->csimareas .= $this->mark->GetCSIMAreas();		$this->StrokeDataValue($img,$this->coords[0][$pnts],$xt,$yt);	    }	}    }} // Class//===================================================// CLASS AccLinePlot// Description: //===================================================class AccLinePlot extends Plot {    var $plots=null,$nbrplots=0,$numpoints=0;//---------------// CONSTRUCTOR    function AccLinePlot($plots) {        $this->plots = $plots;	$this->nbrplots = count($plots);	$this->numpoints = $plots[0]->numpoints;		    }//---------------// PUBLIC METHODS	    function Legend(&$graph) {	foreach( $this->plots as $p )	    $p->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 line $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);	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 line $i by adding the	    // individual bars from all the plots added.	    // It would be wrong to just add the	    // individual plots min y-value since that	    // would in most cases give to small 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);    }    // Gets called before any axis are stroked    function PreStrokeAdjust(&$graph) {	// If another plot type have already adjusted the	// offset we don't touch it.	// (We check for empty in case the scale is  a log scale 	// and hence doesn't contain any xlabel_offset)		if( empty($graph->xaxis->scale->ticks->xlabel_offset) ||	    $graph->xaxis->scale->ticks->xlabel_offset == 0 ) {	    if( $this->center ) {		++$this->numpoints;		$a=0.5; $b=0.5;	    } else {		$a=0; $b=0;	    }	    $graph->xaxis->scale->ticks->SetXLabelOffset($a);	    $graph->SetTextScaleOff($b);							    $graph->xaxis->scale->ticks->SupressMinorTickMarks();	}	    }    // To avoid duplicate of line drawing code here we just    // change the y-values for each plot and then restore it    // after we have made the stroke. We must do this copy since    // it wouldn't be possible to create an acc line plot    // with the same graphs, i.e AccLinePlot(array($pl,$pl,$pl));    // since this method would have a side effect.    function Stroke(&$img,&$xscale,&$yscale) {	$img->SetLineWeight($this->weight);	$this->numpoints = count($this->plots[0]->coords[0]);	// Allocate array	$coords[$this->nbrplots][$this->numpoints]=0;	for($i=0; $i<$this->numpoints; $i++) {	    $coords[0][$i]=$this->plots[0]->coords[0][$i]; 	    $accy=$coords[0][$i];	    for($j=1; $j<$this->nbrplots; ++$j ) {		$coords[$j][$i] = $this->plots[$j]->coords[0][$i]+$accy; 		$accy = $coords[$j][$i];	    }	}	for($j=$this->nbrplots-1; $j>=0; --$j) {	    $p=$this->plots[$j];	    for( $i=0; $i<$this->numpoints; ++$i) {		$tmp[$i]=$p->coords[0][$i];		$p->coords[0][$i]=$coords[$j][$i];	    }	    $p->Stroke($img,$xscale,$yscale);	    for( $i=0; $i<$this->numpoints; ++$i) 		$p->coords[0][$i]=$tmp[$i];	    $p->coords[0][]=$tmp;	}    }} // Class/* EOF */?>