<?php // content="text/plain; charset=utf-8" 
/**
* Class CCBPGraph
* Utility class to create Critical Chain Buffer penetration charts
*/
class CCBPGraph {
    const TickStep = 25;
    const YTitle = '% Buffer used';
    const XTitle = '% CC Completed';
    const NColorMaps = 2;
    private $graph=null;
    private $iWidth,$iHeight;
    private $iPlots=array();
    private $iXMin=-50, $iXMax = 100;
    private $iYMin=-50, $iYMax = 150;
    private $iColorInd = array( 
        array(5,75),   /* Green */
        array(25,85),  /* Yellow */
        array(50,100));/* Red */ 
    private $iColorMap = 0;
    private $iColorSpec = array(
                array('darkgreen:1.0','yellow:1.4','red:0.8','darkred:0.85'),
                array('#c6e9af','#ffeeaa','#ffaaaa','#de8787'));
    private $iMarginColor = array('darkgreen@0.7','darkgreen@0.9');                
    private $iSubTitle='',$iTitle = 'CC Buffer penetration';
    /**
    * Construct a new instance of CCBPGraph 
    * 
    * @param int $aWidth
    * @param int $aHeight
    * @return CCBPGraph
    */
    public function __construct($aWidth, $aHeight) {
        $this->iWidth = $aWidth;
        $this->iHeight = $aHeight;
    }
    /**
    * Set the title and subtitle for the graph
    * 
    * @param string $aTitle
    * @param string $aSubTitle
    */
    public function SetTitle($aTitle, $aSubTitle) {
        $this->iTitle = $aTitle;
        $this->iSubTitle = $aSubTitle;
    }
    /**
    * Set the x-axis min and max values
    * 
    * @param int $aMin
    * @param int $aMax
    */
    public function SetXMinMax($aMin, $aMax) {
        $this->iXMin = floor($aMin/CCBPGraph::TickStep)*CCBPGraph::TickStep;
        $this->iXMax = ceil($aMax/CCBPGraph::TickStep)*CCBPGraph::TickStep;
    }
    /**
    * Specify what color map to use
    * 
    * @param int $aMap
    */
    public function SetColorMap($aMap) {
        $this->iColorMap = $aMap % CCBPGraph::NColorMaps;
    }
    /**
    * Set the y-axis min and max values
    * 
    * @param int $aMin
    * @param int $aMax
    */
    public function SetYMinMax($aMin,$aMax) {
        $this->iYMin = floor($aMin/CCBPGraph::TickStep)*CCBPGraph::TickStep;
        $this->iYMax = ceil($aMax/CCBPGraph::TickStep)*CCBPGraph::TickStep;
    }
    /**
    * Set the specification of the color backgrounds and also the
    * optional exact colors to be used
    * 
    * @param mixed $aSpec  An array of 3 1x2 arrays. Each array specify the 
    * color indication value at x=0 and x=max x in order to determine the slope
    * @param mixed $aColors  An array with four elements specifying the colors
    * of each color indicator
    */
    public function SetColorIndication(array $aSpec,array $aColors=null) {
        if( count($aSpec) !== 3 ) {
            JpgraphError::Raise('Specification of scale values for background indicators must be an array with three elements.');
        }
        $this->iColorInd = $aSpec;    
        if( $aColors !== null ) {
            if( is_array($aColors) && count($aColors) == 4 ) {
                $this->iColorSpec = $aColors;
            }
            else {
                JpGraphError::Raise('Color specification for background indication must have four colors.');
            }
        }        
    }
    /**
    * Construct the graph
    * 
    */
    private function Init() {
 
        // Setup limits for color indications
        $lowx = $this->iXMin; $highx= $this->iXMax;
        $lowy = $this->iYMin; $highy = $this->iYMax;
         $width=$this->iWidth; $height=$this->iHeight;
 
        // Margins
        $lm=50; $rm=40;
        $tm=60; $bm=40;
        
        if( $width <= 300 || $height <= 250 ) {
            $labelsize = 8;
            $lm=25; $rm=25;
            $tm=45; $bm=25;
        }                
        elseif( $width <= 450 || $height <= 300 ) {
            $labelsize = 8;
            $lm=30; $rm=30;
            $tm=50; $bm=30;
        }
        elseif( $width <= 600 || $height <= 400 ) {
            $labelsize = 9;        
        }
        else {
            $labelsize = 11;
        }    
        
        if( $this->iSubTitle == '' ) {
            $tm -= $labelsize+4;
        }     
 
        $graph = new Graph($width,$height);
        $graph->SetScale('intint',$lowy,$highy,$lowx,$highx);
        $graph->SetMargin($lm,$rm,$tm,$bm);
        $graph->SetMarginColor($this->iMarginColor[$this->iColorMap]);
        $graph->SetClipping();
        
        $graph->title->Set($this->iTitle);
        $graph->subtitle->Set($this->iSubTitle);
        
        $graph->title->SetFont(FF_ARIAL,FS_BOLD,$labelsize+4);
        $graph->subtitle->SetFont(FF_ARIAL,FS_BOLD,$labelsize+1);
        
        $graph->SetBox(true,'black@0.3');
 
        $graph->xaxis->SetFont(FF_ARIAL,FS_BOLD,$labelsize);
        $graph->yaxis->SetFont(FF_ARIAL,FS_BOLD,$labelsize);
        
        $graph->xaxis->scale->ticks->Set(CCBPGraph::TickStep,CCBPGraph::TickStep);
        $graph->yaxis->scale->ticks->Set(CCBPGraph::TickStep,CCBPGraph::TickStep);
        
        $graph->xaxis->HideZeroLabel();
        $graph->yaxis->HideZeroLabel();
                
        $graph->xaxis->SetLabelFormatString('%d%%');
        $graph->yaxis->SetLabelFormatString('%d%%');
        
        // For the x-axis we adjust the color so labels on the left of the Y-axis are in black
        $n1 = floor(abs($this->iXMin/25))+1;
        $n2 = floor($this->iXMax/25);
        if( $this->iColorMap == 0 ) {
            $xlcolors=array();
            for( $i = 0; $i < $n1; ++$i ) {
                $xlcolors[$i] = 'black';
            }
            for( $i = 0; $i < $n2; ++$i ) {
                $xlcolors[$n1+$i] = 'lightgray:1.5';
            }
            $graph->xaxis->SetColor('gray',$xlcolors);
            $graph->yaxis->SetColor('gray','lightgray:1.5');
        }
        else {
            $graph->xaxis->SetColor('darkgray','darkgray:0.8');
            $graph->yaxis->SetColor('darkgray','darkgray:0.8');            
        }
        $graph->SetGridDepth(DEPTH_FRONT);
        $graph->ygrid->SetColor('gray@0.6');
        $graph->ygrid->SetLineStyle('dotted');
        
        $graph->ygrid->Show();
        
        $graph->xaxis->SetWeight(1);
        $graph->yaxis->SetWeight(1);
        
        $ytitle = new Text(CCBPGraph::YTitle,floor($lm*.75),($height-$tm-$bm)/2+$tm);
        $ytitle->SetFont(FF_VERA,FS_BOLD,$labelsize+1);
        $ytitle->SetAlign('right','center');
        $ytitle->SetAngle(90);
        $graph->Add($ytitle);
        
        $xtitle = new Text(CCBPGraph::XTitle,($width-$lm-$rm)/2+$lm,$height - 10);
        $xtitle->SetFont(FF_VERA,FS_BOLD,$labelsize);
        $xtitle->SetAlign('center','bottom');
        $graph->Add($xtitle);
        
        $df = 'D j:S M, Y'; 
        if( $width < 400 ) {
            $df = 'D j:S M';
        }
        
        $time = new Text(date($df),$width-10,$height-10);
        $time->SetAlign('right','bottom');
        $time->SetFont(FF_VERA,FS_NORMAL,$labelsize-1);
        $time->SetColor('darkgray');
        $graph->Add($time);
 
        // Use an accumulated fille line graph to create the colored bands
       
        $n = 3;
        for( $i=0; $i < $n; ++$i ) {
            $b = $this->iColorInd[$i][0];
            $k = ($this->iColorInd[$i][1] - $this->iColorInd[$i][0])/$this->iXMax;
            $colarea[$i] = array( array($lowx,$lowx*$k+$b), array($highx,$highx*$k+$b) );
        }
        $colarea[3] = array( array($lowx,$highy), array($highx,$highy) );
        
        
        $cb = array();
        for( $i=0; $i < 4; ++$i ) {
            $cb[$i] = new LinePlot(array($colarea[$i][0][1],$colarea[$i][1][1]),
                                   array($colarea[$i][0][0],$colarea[$i][1][0]));
            $cb[$i]->SetFillColor($this->iColorSpec[$this->iColorMap][$i]);
            $cb[$i]->SetFillFromYMin();                                   
        }
 
        $graph->Add(array_slice(array_reverse($cb),0,4));    
        $this->graph = $graph;
    }
    /**
    * Add a line or scatter plot to the graph
    * 
    * @param mixed $aPlots
    */
    public function Add($aPlots) {
        if( is_array($aPlots) ) {
            $this->iPlots = array_merge($this->iPlots,$aPlots);                
        }
        else {
            $this->iPlots[] = $aPlots;
        }
    }
    /**
    * Stroke the graph back to the client or to a file
    * 
    * @param mixed $aFile
    */
    public function Stroke($aFile='') {
        $this->Init();
        if( count($this->iPlots) > 0 )  {
            $this->graph->Add($this->iPlots);
        }
        $this->graph->Stroke($aFile);
    }
}
?>