<?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.7.2.5 2004/06/12 17:46:01 aditus Exp $//// License:	This code is released under QPL// Copyright (C) 2001,2002 Johan Persson//========================================================================*/require_once('jpgraph_plotmark.inc');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;    var $linestyle='solid';    var $mark=null;//---------------// 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);