<?php
/*=======================================================================
 // File:        JPGRAPH_STOCK.PHP
 // Description: Stock plot extension for JpGraph
 // Created:     2003-01-27
 // Ver:         $Id: jpgraph_stock.php 1364 2009-06-24 07:07:44Z ljp $
 //
 // Copyright (c) Aditus Consulting. All rights reserved.
 //========================================================================
 */
 
//===================================================
// CLASS StockPlot
//===================================================
class StockPlot extends Plot {
    protected $iTupleSize = 4;
    private $iWidth=9;
    private $iEndLines=1;
    private $iStockColor1='white',$iStockColor2='darkred',$iStockColor3='darkred';
    //---------------
    // CONSTRUCTOR
    function __construct($datay,$datax=false) {
        if( count($datay) % $this->iTupleSize ) {
            JpGraphError::RaiseL(21001,$this->iTupleSize);
            //('Data values for Stock charts must contain an even multiple of '.$this->iTupleSize.' data points.');
        }
        parent::__construct($datay,$datax);
        $this->numpoints /= $this->iTupleSize;
    }
    //---------------
    // PUBLIC METHODS
 
    function SetColor($aColor,$aColor1='white',$aColor2='darkred',$aColor3='darkred') {
        $this->color = $aColor;
        $this->iStockColor1 = $aColor1;
        $this->iStockColor2 = $aColor2;
        $this->iStockColor3 = $aColor3;
    }
 
    function SetWidth($aWidth) {
        // Make sure it's odd
        $this->iWidth = 2*floor($aWidth/2)+1;
    }
 
    function HideEndLines($aHide=true) {
        $this->iEndLines = !$aHide;
    }
 
    // Gets called before any axis are stroked
    function PreStrokeAdjust($graph) {
        if( $this->center ) {
            $a=0.5; $b=0.5;
            $this->numpoints++;
        } else {
            $a=0; $b=0;
        }
        $graph->xaxis->scale->ticks->SetXLabelOffset($a);
        $graph->SetTextScaleOff($b);
    }
 
    // Method description
    function Stroke($img,$xscale,$yscale) {
        $n=$this->numpoints;
        if( $this->center ) $n--;
        if( isset($this->coords[1]) ) {
            if( count($this->coords[1])!=$n ) {
                JpGraphError::RaiseL(2003,count($this->coords[1]),$n);
                // ("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( $exist_x ) {
            $xs=$this->coords[1][0];
        }
        else {
            $xs=0;
        }
 
        $ts = $this->iTupleSize;
        $this->csimareas = '';
        for( $i=0; $i<$n; ++$i) {
 
            //If value is NULL, then don't draw a bar at all
            if ($this->coords[0][$i*$ts] === null) continue;
 
            if( $exist_x ) {
                $x=$this->coords[1][$i];
                                if ($x === null) continue;
            }
            else {
                $x=$i;
            }
            $xt = $xscale->Translate($x);
 
            $neg = $this->coords[0][$i*$ts] > $this->coords[0][$i*$ts+1] ;
            $yopen  = $yscale->Translate($this->coords[0][$i*$ts]);
            $yclose = $yscale->Translate($this->coords[0][$i*$ts+1]);
            $ymin   = $yscale->Translate($this->coords[0][$i*$ts+2]);
            $ymax   = $yscale->Translate($this->coords[0][$i*$ts+3]);
 
            $dx = floor($this->iWidth/2);
            $xl = $xt - $dx;
            $xr = $xt + $dx;
 
            if( $neg ) {
                $img->SetColor($this->iStockColor3);
            }
            else {
                $img->SetColor($this->iStockColor1);
            }
            $img->FilledRectangle($xl,$yopen,$xr,$yclose);
            $img->SetLineWeight($this->weight);
            if( $neg ) {
                $img->SetColor($this->iStockColor2);
            }
            else {
                $img->SetColor($this->color);
            }
 
            $img->Rectangle($xl,$yopen,$xr,$yclose);
 
            if( $yopen < $yclose ) {
                $ytop = $yopen ;
                $ybottom = $yclose ;
            }
            else {
                $ytop = $yclose ;
                $ybottom = $yopen ;
            }
            $img->SetColor($this->color);
            $img->Line($xt,$ytop,$xt,$ymax);
            $img->Line($xt,$ybottom,$xt,$ymin);
 
            if( $this->iEndLines ) {
                $img->Line($xl,$ymax,$xr,$ymax);
                $img->Line($xl,$ymin,$xr,$ymin);
            }
 
            // A chance for subclasses to add things to the bar
            // for data point i
            $this->ModBox($img,$xscale,$yscale,$i,$xl,$xr,$neg);
 
            // Setup image maps
            if( !empty($this->csimtargets[$i]) ) {
                $this->csimareas.= '<area shape="rect" coords="'.
                round($xl).','.round($ytop).','.
                round($xr).','.round($ybottom).'" ';
                $this->csimareas .= ' href="'.$this->csimtargets[$i].'"';
                if( !empty($this->csimalts[$i]) ) {
                    $sval=$this->csimalts[$i];
                    $this->csimareas .= " title=\"$sval\" alt=\"$sval\" ";
                }
                $this->csimareas.= "  />\n";
            }
        }
        return true;
    }
 
    // A hook for subclasses to modify the plot
    function ModBox($img,$xscale,$yscale,$i,$xl,$xr,$neg) {}
 
} // Class
 
//===================================================
// CLASS BoxPlot
//===================================================
class BoxPlot extends StockPlot {
    private $iPColor='black',$iNColor='white';
 
    function __construct($datay,$datax=false) {
        $this->iTupleSize=5;
        parent::__construct($datay,$datax);
    }
 
    function SetMedianColor($aPos,$aNeg) {
        $this->iPColor = $aPos;
        $this->iNColor = $aNeg;
    }
 
    function ModBox($img,$xscale,$yscale,$i,$xl,$xr,$neg) {
        if( $neg )
        $img->SetColor($this->iNColor);
        else
        $img->SetColor($this->iPColor);
 
        $y = $yscale->Translate($this->coords[0][$i*5+4]);
        $img->Line($xl,$y,$xr,$y);
    }
}
 
/* EOF */
?>