Subversion Repositories Applications.papyrus

<?php
/*=======================================================================
// File:        JPGRAPH_RADAR.PHP
// Description: Radar plot extension for JpGraph
// Created:     2001-02-04
// Author:      Johan Persson (johanp@aditus.nu)
// Ver:         $Id: jpgraph_radar.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 RadarLogTicks extends Ticks {
//---------------
// CONSTRUCTOR
    function RadarLogTicks() {
    }
//---------------
// PUBLIC METHODS       

    // TODO: Add Argument grid
    function Stroke(&$aImg,&$grid,$aPos,$aAxisAngle,&$aScale,&$aMajPos,&$aMajLabel) {
        $start = $aScale->GetMinVal();
        $limit = $aScale->GetMaxVal();
        $nextMajor = 10*$start;
        $step = $nextMajor / 10.0;
        $count=1; 
                                
        $ticklen_maj=5;
        $dx_maj=round(sin($aAxisAngle)*$ticklen_maj);
        $dy_maj=round(cos($aAxisAngle)*$ticklen_maj);
        $ticklen_min=3;
        $dx_min=round(sin($aAxisAngle)*$ticklen_min);
        $dy_min=round(cos($aAxisAngle)*$ticklen_min);
                        
        $aMajPos=array();
        $aMajLabel=array();
                        
        if( $this->supress_first )
            $aMajLabel[]="";
        else
            $aMajLabel[]=$start;        
        $yr=$aScale->RelTranslate($start);      
        $xt=round($yr*cos($aAxisAngle))+$aScale->scale_abs[0];
        $yt=$aPos-round($yr*sin($aAxisAngle));
        $aMajPos[]=$xt+2*$dx_maj;
        $aMajPos[]=$yt-$aImg->GetFontheight()/2;
        $grid[]=$xt;
        $grid[]=$yt;

        $aImg->SetLineWeight($this->weight);                    
                
        for($y=$start; $y<=$limit; $y+=$step,++$count  ) {
            $yr=$aScale->RelTranslate($y);      
            $xt=round($yr*cos($aAxisAngle))+$aScale->scale_abs[0];
            $yt=$aPos-round($yr*sin($aAxisAngle));
            if( $count % 10 == 0 ) {
                $grid[]=$xt;
                $grid[]=$yt;
                $aMajPos[]=$xt+2*$dx_maj;
                $aMajPos[]=$yt-$aImg->GetFontheight()/2;                                                        
                if( !$this->supress_tickmarks ) {               
                    if( $this->majcolor!="" ) $aImg->PushColor($this->majcolor);
                    $aImg->Line($xt+$dx_maj,$yt+$dy_maj,$xt-$dx_maj,$yt-$dy_maj);
                    if( $this->majcolor!="" ) $aImg->PopColor();
                }
                $aMajLabel[]=$nextMajor;        
                $nextMajor *= 10;
                $step *= 10;    
                $count=1;                               
            }
            else
                if( !$this->supress_minor_tickmarks )   {
                    if( $this->mincolor!="" ) $aImg->PushColor($this->mincolor);
                    $aImg->Line($xt+$dx_min,$yt+$dy_min,$xt-$dx_min,$yt-$dy_min);
                    if( $this->mincolor!="" ) $aImg->PopColor();
                }
        }               
    }           
}
        
class RadarLinearTicks extends LinearTicks {
//---------------
// CONSTRUCTOR
    function RadarLinearTicks() {
        // Empty
    }

//---------------
// PUBLIC METHODS       

    // TODO: Add argument grid
    function Stroke(&$aImg,&$grid,$aPos,$aAxisAngle,&$aScale,&$aMajPos,&$aMajLabel) {
        // Prepare to draw linear ticks
        $maj_step_abs = abs($aScale->scale_factor*$this->major_step);   
        $min_step_abs = abs($aScale->scale_factor*$this->minor_step);   
        $nbrmaj = floor(($aScale->world_abs_size)/$maj_step_abs);
        $nbrmin = floor(($aScale->world_abs_size)/$min_step_abs);
        $skip = round($nbrmin/$nbrmaj); // Don't draw minor ontop of major

        // Draw major ticks
        $ticklen2=$this->major_abs_size;
        $dx=round(sin($aAxisAngle)*$ticklen2);
        $dy=round(cos($aAxisAngle)*$ticklen2);
        $label=$aScale->scale[0]+$this->major_step;
                
        $aImg->SetLineWeight($this->weight);
                
        for($i=1; $i<=$nbrmaj; ++$i) {
            $xt=round($i*$maj_step_abs*cos($aAxisAngle))+$aScale->scale_abs[0];
            $yt=$aPos-round($i*$maj_step_abs*sin($aAxisAngle));
            $aMajLabel[]=$label;
            $label += $this->major_step;
            $grid[]=$xt;
            $grid[]=$yt;
            $aMajPos[($i-1)*2]=$xt+2*$dx;
            $aMajPos[($i-1)*2+1]=$yt-$aImg->GetFontheight()/2;                          
            if( !$this->supress_tickmarks ) {
                if( $this->majcolor!="" ) $aImg->PushColor($this->majcolor);
                $aImg->Line($xt+$dx,$yt+$dy,$xt-$dx,$yt-$dy);
                if( $this->majcolor!="" ) $aImg->PopColor();
            }
        }

        // Draw minor ticks
        $ticklen2=$this->minor_abs_size;
        $dx=round(sin($aAxisAngle)*$ticklen2);
        $dy=round(cos($aAxisAngle)*$ticklen2);
        if( !$this->supress_tickmarks && !$this->supress_minor_tickmarks)       {
            if( $this->mincolor!="" ) $aImg->PushColor($this->mincolor);                                                
            for($i=1; $i<=$nbrmin; ++$i) {
                if( ($i % $skip) == 0 ) continue;
                $xt=round($i*$min_step_abs*cos($aAxisAngle))+$aScale->scale_abs[0];
                $yt=$aPos-round($i*$min_step_abs*sin($aAxisAngle));
                $aImg->Line($xt+$dx,$yt+$dy,$xt-$dx,$yt-$dy);
            }
            if( $this->mincolor!="" ) $aImg->PopColor();
        }
    }
}

        

//===================================================
// CLASS RadarAxis
// Description: Implements axis for the spider graph
//===================================================
class RadarAxis extends Axis {
    var $title_color="navy";
    var $title=null;
//---------------
// CONSTRUCTOR
    function RadarAxis(&$img,&$aScale,$color=array(0,0,0)) {
        parent::Axis($img,$aScale,$color);
        $this->len=$img->plotheight;
        $this->title = new Text();
        $this->title->SetFont(FF_FONT1,FS_BOLD);
        $this->color = array(0,0,0);
    }
//---------------
// PUBLIC METHODS       
    function SetTickLabels($l) {
        $this->ticks_label = $l;
    }
        
        
    // Stroke the axis 
    // $pos                     = Vertical position of axis
    // $aAxisAngle = Axis angle
    // $grid                    = Returns an array with positions used to draw the grid
    //  $lf                     = Label flag, TRUE if the axis should have labels
    function Stroke($pos,$aAxisAngle,&$grid,$title,$lf) {
        $this->img->SetColor($this->color);
                
        // Determine end points for the axis
        $x=round($this->scale->world_abs_size*cos($aAxisAngle)+$this->scale->scale_abs[0]);
        $y=round($pos-$this->scale->world_abs_size*sin($aAxisAngle));
                
        // Draw axis
        $this->img->SetColor($this->color);
        $this->img->SetLineWeight($this->weight);
        if( !$this->hide )
            $this->img->Line($this->scale->scale_abs[0],$pos,$x,$y);
        
        $this->scale->ticks->Stroke($this->img,$grid,$pos,$aAxisAngle,$this->scale,$majpos,$majlabel);
                
        // Draw labels
        if( $lf && !$this->hide ) {
            $this->img->SetFont($this->font_family,$this->font_style,$this->font_size); 
            $this->img->SetTextAlign("left","top");
            $this->img->SetColor($this->color);
                        
            // majpos contsins (x,y) coordinates for labels
            for($i=0; $i<count($majpos)/2; ++$i) {
                if( $this->ticks_label != null )
                    $this->img->StrokeText($majpos[$i*2],$majpos[$i*2+1],$this->ticks_label[$i]);
                else
                    $this->img->StrokeText($majpos[$i*2],$majpos[$i*2+1],$majlabel[$i]);
            }
        }
        $this->_StrokeAxisTitle($pos,$aAxisAngle,$title);
    }
//---------------
// PRIVATE METHODS      
        
    function _StrokeAxisTitle($pos,$aAxisAngle,$title) {
        $this->title->Set($title);
        $marg=6+$this->title->margin;
        $xt=round(($this->scale->world_abs_size+$marg)*cos($aAxisAngle)+$this->scale->scale_abs[0]);
        $yt=round($pos-($this->scale->world_abs_size+$marg)*sin($aAxisAngle));

        // Position the axis title. 
        // dx, dy is the offset from the top left corner of the bounding box that sorrounds the text
        // that intersects with the extension of the corresponding axis. The code looks a little
        // bit messy but this is really the only way of having a reasonable position of the
        // axis titles.
        $h=$this->img->GetFontHeight();
        $w=$this->img->GetTextWidth($title);
        while( $aAxisAngle > 2*M_PI ) $aAxisAngle -= 2*M_PI;
        if( $aAxisAngle>=7*M_PI/4 || $aAxisAngle <= M_PI/4 ) $dx=0;
        if( $aAxisAngle>=M_PI/4 && $aAxisAngle <= 3*M_PI/4 ) $dx=($aAxisAngle-M_PI/4)*2/M_PI; 
        if( $aAxisAngle>=3*M_PI/4 && $aAxisAngle <= 5*M_PI/4 ) $dx=1;
        if( $aAxisAngle>=5*M_PI/4 && $aAxisAngle <= 7*M_PI/4 ) $dx=(1-($aAxisAngle-M_PI*5/4)*2/M_PI);
                
        if( $aAxisAngle>=7*M_PI/4 ) $dy=(($aAxisAngle-M_PI)-3*M_PI/4)*2/M_PI;
        if( $aAxisAngle<=M_PI/4 ) $dy=(1-$aAxisAngle*2/M_PI);
        if( $aAxisAngle>=M_PI/4 && $aAxisAngle <= 3*M_PI/4 ) $dy=1;
        if( $aAxisAngle>=3*M_PI/4 && $aAxisAngle <= 5*M_PI/4 ) $dy=(1-($aAxisAngle-3*M_PI/4)*2/M_PI);
        if( $aAxisAngle>=5*M_PI/4 && $aAxisAngle <= 7*M_PI/4 ) $dy=0;
                
        if( !$this->hide )
                $this->title->Stroke($this->img,$xt-$dx*$w,$yt-$dy*$h,$title);
    }
                
        
} // Class


//===================================================
// CLASS RadarGrid
// Description: Draws grid for the spider graph
//===================================================
class RadarGrid extends Grid {
//------------
// CONSTRUCTOR
    function RadarGrid() {
    }

//----------------
// PRIVATE METHODS      
    function Stroke(&$img,&$grid) {
        if( !$this->show ) return;
        $nbrticks = count($grid[0])/2;
        $nbrpnts = count($grid);
        $img->SetColor($this->grid_color);
        $img->SetLineWeight($this->weight);
        for($i=0; $i<$nbrticks; ++$i) {
            for($j=0; $j<$nbrpnts; ++$j) {
                $pnts[$j*2]=$grid[$j][$i*2];
                $pnts[$j*2+1]=$grid[$j][$i*2+1];
            }
            for($k=0; $k<$nbrpnts; ++$k ){
                $l=($k+1)%$nbrpnts;
                if( $this->type == "solid" )
                    $img->Line($pnts[$k*2],$pnts[$k*2+1],$pnts[$l*2],$pnts[$l*2+1]);
                elseif( $this->type == "dotted" )
                    $img->DashedLine($pnts[$k*2],$pnts[$k*2+1],$pnts[$l*2],$pnts[$l*2+1],1,6);
                elseif( $this->type == "dashed" )
                    $img->DashedLine($pnts[$k*2],$pnts[$k*2+1],$pnts[$l*2],$pnts[$l*2+1],2,4);
                elseif( $this->type == "longdashed" )
                    $img->DashedLine($pnts[$k*2],$pnts[$k*2+1],$pnts[$l*2],$pnts[$l*2+1],8,6);
            }
            $pnts=array();
        }
    }
} // Class


//===================================================
// CLASS RadarPlot
// Description: Plot a spiderplot
//===================================================
class RadarPlot {
    var $data=array();
    var $fill=false, $fill_color=array(200,170,180);
    var $color=array(0,0,0);
    var $legend="";
    var $weight=1;
//---------------
// CONSTRUCTOR
    function RadarPlot($data) {
        $this->data = $data;
    }

//---------------
// PUBLIC METHODS       
    function Min() {
        return Min($this->data);
    }
        
    function Max() {
        return Max($this->data);
    }
        
    function SetLegend($legend) {
        $this->legend=$legend;
    }
        
        
    function SetLineWeight($w) {
        $this->weight=$w;
    }
                
        function SetFillColor($aColor) {
                $this->fill_color = $aColor;
                $this->fill = true;             
        }
    
    function SetFill($f=true) {
        $this->fill = $f;
    }
    
    function SetColor($aColor,$aFillColor=false) {
        $this->color = $aColor;
        if( $aFillColor ) {
            $this->SetFillColor($aFillColor);
            $this->fill = true;
        }
    }
        
    function GetCSIMareas() {
        JpGraphError::Raise("Client side image maps not supported for RadarPlots.");
    }
        
    function Stroke(&$img, $pos, &$scale, $startangle) {
        $nbrpnts = count($this->data);
        $astep=2*M_PI/$nbrpnts;         
        $a=$startangle;
                
        // Rotate each point to the correct axis-angle
        // TODO: Update for LogScale
        for($i=0; $i<$nbrpnts; ++$i) {
            //$c=$this->data[$i];
            $cs=$scale->RelTranslate($this->data[$i]);
            $x=round($cs*cos($a)+$scale->scale_abs[0]);
            $y=round($pos-$cs*sin($a));
            /*
              $c=log10($c);
              $x=round(($c-$scale->scale[0])*$scale->scale_factor*cos($a)+$scale->scale_abs[0]);
              $y=round($pos-($c-$scale->scale[0])*$scale->scale_factor*sin($a));                
            */
            $pnts[$i*2]=$x;
            $pnts[$i*2+1]=$y;
            $a += $astep;
        }
        if( $this->fill ) {
            $img->SetColor($this->fill_color);
            $img->FilledPolygon($pnts);
        }
        $img->SetLineWeight($this->weight);
        $img->SetColor($this->color);
        $pnts[]=$pnts[0];
        $pnts[]=$pnts[1];
        $img->Polygon($pnts);
    }
        
//---------------
// PRIVATE METHODS
    function GetCount() {
        return count($this->data);
    }
        
    function Legend(&$graph) {
        if( $this->legend=="" ) return;
        if( $this->fill )
            $graph->legend->Add($this->legend,$this->fill_color);
        else
            $graph->legend->Add($this->legend,$this->color);    
    }
        
} // Class

//===================================================
// CLASS RadarGraph
// Description: Main container for a spider graph
//===================================================
class RadarGraph extends Graph {
    var $posx;
    var $posy;
    var $len;           
    var $plots=null, $axis_title=null;
    var $grid,$axis=null;
//---------------
// CONSTRUCTOR
    function RadarGraph($width=300,$height=200,$cachedName="",$timeout=0,$inline=1) {
        $this->Graph($width,$height,$cachedName,$timeout,$inline);
        $this->posx=$width/2;
        $this->posy=$height/2;
        $this->len=min($width,$height)*0.35;
        $this->SetColor(array(255,255,255));
        $this->SetTickDensity(TICKD_NORMAL);
        $this->SetScale("lin");
    }

//---------------
// PUBLIC METHODS
    function SupressTickMarks($f=true) {
        if( ERR_DEPRECATED )
                JpGraphError::Raise('RadarGraph::SupressTickMarks() is deprecated. Use HideTickMarks() instead.');
                $this->axis->scale->ticks->SupressTickMarks($f);
    }

    function HideTickMarks($aFlag=true) {
                $this->axis->scale->ticks->SupressTickMarks($aFlag);
    }
    
    function ShowMinorTickmarks($aFlag=true) {
        $this->yscale->ticks->SupressMinorTickMarks(!$aFlag);
    }
        
    function SetScale($axtype,$ymin=1,$ymax=1) {
        if( $axtype != "lin" && $axtype != "log" ) {
            JpGraphError::Raise("Illegal scale for spiderplot ($axtype). Must be \"lin\" or \"log\"");
        }
        if( $axtype=="lin" ) {
            $this->yscale = & new LinearScale($ymin,$ymax);
            $this->yscale->ticks = & new RadarLinearTicks();
            $this->yscale->ticks->SupressMinorTickMarks();
        }
        elseif( $axtype=="log" ) {
            $this->yscale = & new LogScale($ymin,$ymax);
            $this->yscale->ticks = & new RadarLogTicks();
        }
                
        $this->axis = & new RadarAxis($this->img,$this->yscale);
        $this->grid = & new RadarGrid();                
    }

    function SetSize($aSize) {
        if( $aSize<0.1 || $aSize>1 )
            JpGraphError::Raise("Radar Plot size must be between 0.1 and 1. (Your value=$s)");
        $this->len=min($this->img->width,$this->img->height)*$aSize/2;
    }

    function SetPlotSize($aSize) {
        $this->SetSize($aSize);
    }

    function SetTickDensity($densy=TICKD_NORMAL) {
        $this->ytick_factor=25;         
        switch( $densy ) {
            case TICKD_DENSE:
                $this->ytick_factor=12;                 
            break;
            case TICKD_NORMAL:
                $this->ytick_factor=25;                 
            break;
            case TICKD_SPARSE:
                $this->ytick_factor=40;                 
            break;
            case TICKD_VERYSPARSE:
                $this->ytick_factor=70;                 
            break;              
            default:
                JpGraphError::Raise("RadarPlot Unsupported Tick density: $densy");
        }
    }

    function SetPos($px,$py=0.5) {
        $this->SetCenter($px,$py);
    }

    function SetCenter($px,$py=0.5) {
        assert($px > 0 && $py > 0 );
        $this->posx=$this->img->width*$px;
        $this->posy=$this->img->height*$py;
    }

    function SetColor($c) {
        $this->SetMarginColor($c);
    }
                        
    function SetTitles($title) {
        $this->axis_title = $title;
    }

    function Add(&$splot) {
        $this->plots[]=$splot;
    }
        
    function GetPlotsYMinMax() {
        $min=$this->plots[0]->Min();
        $max=$this->plots[0]->Max();
        foreach( $this->plots as $p ) {
            $max=max($max,$p->Max());
            $min=min($min,$p->Min());
        }
        if( $min < 0 ) 
            JpGraphError::Raise("Minimum data $min (Radar plots only makes sence to use when all data points > 0)");
        return array($min,$max);
    }   

    // Stroke the Radar graph
    function Stroke($aStrokeFileName="") {
        // Set Y-scale
        if( !$this->yscale->IsSpecified() && count($this->plots)>0 ) {
            list($min,$max) = $this->GetPlotsYMinMax();
            $this->yscale->AutoScale($this->img,0,$max,$this->len/$this->ytick_factor);
        }
        // Set start position end length of scale (in absolute pixels)
        $this->yscale->SetConstants($this->posx,$this->len);
                
        // We need as many axis as there are data points
        $nbrpnts=$this->plots[0]->GetCount();
                
        // If we have no titles just number the axis 1,2,3,...
        if( $this->axis_title==null ) {
            for($i=0; $i<$nbrpnts; ++$i ) 
                $this->axis_title[$i] = $i+1;
        }
        elseif(count($this->axis_title)<$nbrpnts) 
            JpGraphError::Raise("Number of titles does not match number of points in plot.");
        for($i=0; $i<count($this->plots); ++$i )
            if( $nbrpnts != $this->plots[$i]->GetCount() )
                JpGraphError::Raise("Each spider plot must have the same number of data points.");

        if( $this->background_image != "" ) {
            $this->StrokeFrameBackground();
        }
        else {  
            $this->StrokeFrame();
        }
        $astep=2*M_PI/$nbrpnts;

        // Prepare legends
        for($i=0; $i<count($this->plots); ++$i)
            $this->plots[$i]->Legend($this);
        $this->legend->Stroke($this->img);                      
        $this->footer->Stroke($this->img);                      
                
        // Plot points
        $a=M_PI/2;
        for($i=0; $i<count($this->plots); ++$i )
            $this->plots[$i]->Stroke($this->img, $this->posy, $this->yscale, $a);
                
        // Draw axis and grid
        for( $i=0,$a=M_PI/2; $i<$nbrpnts; ++$i, $a+=$astep ) {
            $this->axis->Stroke($this->posy,$a,$grid[$i],$this->axis_title[$i],$i==0);
        }       
        $this->grid->Stroke($this->img,$grid);
        $this->StrokeTitles();
        
        // Stroke texts
        if( $this->texts != null )
            foreach( $this->texts as $t) 
                $t->Stroke($this->img);
        
                        
        // If the filename is given as the special "__handle"
        // then the image handler is returned and the image is NOT
        // streamed back
        if( $aStrokeFileName == _IMG_HANDLER ) {
            return $this->img->img;
            }
        else {
            // Finally stream the generated picture                                     
            $this->cache->PutAndStream($this->img,$this->cache_name,$this->inline,
                                       $aStrokeFileName);               
        }
    }
} // Class

/* EOF */
?>