<?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 548 2006-02-18 07:29:57Z ljp $
//
// Copyright (c) Aditus Consulting. All rights reserved.
//========================================================================
*/

require_once('jpgraph_plotmark.inc.php');

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();
        }
        if( $this->label_formfunc != "" ) {
            $f=$this->label_formfunc;
            $l = call_user_func($f,$nextMajor);
        }
        else
            $l = $nextMajor;

        $aMajLabel[]=$l;    
        $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 Ticks { // extends LinearTicks {

    private $minor_step=1, $major_step=2;
    private $xlabel_offset=0,$xtick_offset=0;
    private $maj_ticks_pos=array();


//---------------
// CONSTRUCTOR
    function RadarLinearTicks() {
    // Empty
    }

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

    
    // Return major step size in world coordinates
    function GetMajor() {
    return $this->major_step;
    }
    
    // Return minor step size in world coordinates
    function GetMinor() {
    return $this->minor_step;
    }
    
    // Set Minor and Major ticks (in world coordinates)
    function Set($aMajStep,$aMinStep=false) {
    if( $aMinStep==false ) 
        $aMinStep=$aMajStep;
        
    if( $aMajStep <= 0 || $aMinStep <= 0 ) {
        JpGraphError::Raise(" Minor or major step size is 0. Check that you haven't
                got an accidental SetTextTicks(0) in your code.<p>
                If this is not the case you might have stumbled upon a bug in JpGraph.
                Please report this and if possible include the data that caused the
                problem.");
    }
        
    $this->major_step=$aMajStep;
    $this->minor_step=$aMinStep;
    $this->is_set = true;
    }

    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);
    // NEW
    $aMajPos = array();    
    $aMajLabel = array();    
    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));

        if( $this->label_formfunc != "" ) {
        $f=$this->label_formfunc;
        $l = call_user_func($f,$label);
        }
        else
        $l = $label;

        $aMajLabel[]=$l;
        $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 radar graph
//===================================================
class RadarAxis extends AxisPrototype {
    private $title_color="navy";
    public $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($aLabelArray,$aLabelColorArray=null) {
    $this->ticks_label = $aLabelArray;
    $this->ticks_label_colors = $aLabelColorArray;
    }
    
    
    // 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);
    $ncolor=0;
    if( isset($this->ticks_label_colors) )
        $ncolor=count($this->ticks_label_colors);
        
    // 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->label_color);
            
        // majpos contains (x,y) coordinates for labels
        if( ! $this->hide_labels ) {
         $n = floor(count($majpos)/2);
         for($i=0; $i < $n; ++$i) {
            // Set specific label color if specified
            if( $ncolor > 0 )
            $this->img->SetColor($this->ticks_label_colors[$i % $ncolor]);
            
            if( $this->ticks_label != null && isset($this->ticks_label[$i]) )
            $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.
    if( $this->title->iWordwrap > 0 ) {
        $title = wordwrap($title,$this->title->iWordwrap,"\n");
    }

    $h=$this->img->GetTextHeight($title)*1.2;
    $w=$this->img->GetTextWidth($title)*1.2;

    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 radar graph
//===================================================
class RadarGrid { //extends Grid {
    private $type='solid';
    private $grid_color='#DDDDDD';
    private $show=false, $weight=1;

//------------
// CONSTRUCTOR
    function RadarGrid() {
    }

// PUBLIC METHODS
    function SetColor($aMajColor) {
    $this->grid_color = $aMajColor;
    }
    
    function SetWeight($aWeight) {
    $this->weight=$aWeight;
    }
    
    // Specify if grid should be dashed, dotted or solid
    function SetLineStyle($aType) {
    $this->type = $aType;
    }
    
    // Decide if both major and minor grid should be displayed
    function Show($aShowMajor=true) {
    $this->show=$aShowMajor;
    }
    
//----------------
// 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 radarplot
//===================================================
class RadarPlot {
    public $mark=null;
    public $legend="";
    private $data=array();
    private $fill=false, $fill_color=array(200,170,180);
    private $color=array(0,0,0);
    private $weight=1;
    private $linestyle='solid';
//---------------
// CONSTRUCTOR
    function RadarPlot($data) {
    $this->data = $data;
    $this->mark = new PlotMark();
    }

//---------------
// PUBLIC METHODS    
    function Min() {
    return Min($this->data);
    }
    
    function Max() {
    return Max($this->data);
    }
    
    function SetLegend($legend) {
    $this->legend=$legend;
    }

    function SetLineStyle($aStyle) {
    $this->linestyle=$aStyle;
    }
    
    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::RaiseL(18001);
//("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);
    $img->SetLineStyle($this->linestyle);
    $pnts[]=$pnts[0];
    $pnts[]=$pnts[1];
    $img->Polygon($pnts);
    $img->SetLineStyle('solid'); // Reset line style to default
    // Add plotmarks on top
    if( $this->mark->show ) {
        for($i=0; $i < $nbrpnts; ++$i) {
        $this->mark->Stroke($img,$pnts[$i*2],$pnts[$i*2+1]); 
        }
    }

    }
    
//---------------
// 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,$this->mark);
    else
        $graph->legend->Add($this->legend,$this->color,$this->mark);    
    }
    
} // Class

//===================================================
// CLASS RadarGraph
// Description: Main container for a radar graph
//===================================================
class RadarGraph extends Graph {
    public $grid,$axis=null;
    private $posx,$posy;
    private $len;        
    private $axis_title=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");
    $this