2008-11-08 11:00:00 +00:00
|
|
|
<?php
|
|
|
|
/*=======================================================================
|
|
|
|
// File: JPGRAPH_RADAR.PHP
|
|
|
|
// Description: Radar plot extension for JpGraph
|
|
|
|
// Created: 2001-02-04
|
|
|
|
// Ver: $Id: jpgraph_radar.php 957 2007-12-01 14:00:29Z ljp $
|
|
|
|
//
|
|
|
|
// Copyright (c) Aditus Consulting. All rights reserved.
|
|
|
|
//========================================================================
|
|
|
|
*/
|
|
|
|
|
|
|
|
require_once('jpgraph_plotmark.inc.php');
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
class RadarLogTicks extends Ticks
|
|
|
|
{
|
|
|
|
//---------------
|
|
|
|
// CONSTRUCTOR
|
|
|
|
public function RadarLogTicks()
|
|
|
|
{
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// PUBLIC METHODS
|
2008-11-08 11:00:00 +00:00
|
|
|
|
|
|
|
// TODO: Add Argument grid
|
2020-11-21 18:54:32 +00:00
|
|
|
public 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;
|
|
|
|
} elseif (!$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();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
class RadarLinearTicks extends Ticks
|
|
|
|
{
|
|
|
|
private $minor_step=1;
|
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
private $major_step=2;
|
|
|
|
private $xlabel_offset=0;
|
|
|
|
private $xtick_offset=0;
|
2008-11-08 11:00:00 +00:00
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// CONSTRUCTOR
|
|
|
|
public function RadarLinearTicks()
|
|
|
|
{
|
|
|
|
// Empty
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// PUBLIC METHODS
|
2008-11-08 11:00:00 +00:00
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
// Return major step size in world coordinates
|
2020-11-21 18:54:32 +00:00
|
|
|
public function GetMajor()
|
|
|
|
{
|
|
|
|
return $this->major_step;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
// Return minor step size in world coordinates
|
2020-11-21 18:54:32 +00:00
|
|
|
public function GetMinor()
|
|
|
|
{
|
|
|
|
return $this->minor_step;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
// Set Minor and Major ticks (in world coordinates)
|
2020-11-21 18:54:32 +00:00
|
|
|
public 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
|
2008-11-08 11:00:00 +00:00
|
|
|
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.");
|
2020-11-21 18:54:32 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
$this->major_step=$aMajStep;
|
|
|
|
$this->minor_step=$aMinStep;
|
|
|
|
$this->is_set = true;
|
|
|
|
}
|
|
|
|
|
|
|
|
public 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();
|
|
|
|
}
|
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
|
|
|
|
//===================================================
|
|
|
|
// CLASS RadarAxis
|
|
|
|
// Description: Implements axis for the radar graph
|
|
|
|
//===================================================
|
2020-11-21 18:54:32 +00:00
|
|
|
class RadarAxis extends AxisPrototype
|
|
|
|
{
|
2008-11-08 11:00:00 +00:00
|
|
|
public $title=null;
|
|
|
|
private $title_color="navy";
|
|
|
|
private $len=0;
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// CONSTRUCTOR
|
|
|
|
public 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
|
|
|
|
public function SetTickLabels($aLabelArray, $aLabelColorArray=null)
|
|
|
|
{
|
|
|
|
$this->ticks_label = $aLabelArray;
|
|
|
|
$this->ticks_label_colors = $aLabelColorArray;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// Stroke the axis
|
2008-11-08 11:00:00 +00:00
|
|
|
// $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
|
2020-11-21 18:54:32 +00:00
|
|
|
public 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
|
|
|
|
|
|
|
|
public 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;
|
|
|
|
}
|
|
|
|
|
|
|
|
// Around 3 a'clock
|
|
|
|
if ($aAxisAngle>=7*M_PI/4 || $aAxisAngle <= M_PI/4) {
|
|
|
|
$dx=-0.15;
|
|
|
|
} // Small trimming to make the dist to the axis more even
|
|
|
|
// Around 12 a'clock
|
|
|
|
if ($aAxisAngle>=M_PI/4 && $aAxisAngle <= 3*M_PI/4) {
|
|
|
|
$dx=($aAxisAngle-M_PI/4)*2/M_PI;
|
|
|
|
}
|
|
|
|
// Around 9 a'clock
|
|
|
|
if ($aAxisAngle>=3*M_PI/4 && $aAxisAngle <= 5*M_PI/4) {
|
|
|
|
$dx=1;
|
|
|
|
}
|
|
|
|
// Around 6 a'clock
|
|
|
|
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/12) {
|
|
|
|
$dy=(0.5-$aAxisAngle*2/M_PI);
|
|
|
|
}
|
|
|
|
if ($aAxisAngle<=M_PI/4 && $aAxisAngle > M_PI/12) {
|
|
|
|
$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);
|
|
|
|
}
|
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
} // Class
|
|
|
|
|
|
|
|
|
|
|
|
//===================================================
|
|
|
|
// CLASS RadarGrid
|
|
|
|
// Description: Draws grid for the radar graph
|
|
|
|
//===================================================
|
2020-11-21 18:54:32 +00:00
|
|
|
class RadarGrid
|
|
|
|
{ //extends Grid {
|
2008-11-08 11:00:00 +00:00
|
|
|
private $type='solid';
|
|
|
|
private $grid_color='#DDDDDD';
|
2020-11-21 18:54:32 +00:00
|
|
|
private $show=false;
|
|
|
|
private $weight=1;
|
2008-11-08 11:00:00 +00:00
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
//------------
|
|
|
|
// CONSTRUCTOR
|
|
|
|
public function RadarGrid()
|
|
|
|
{
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
// PUBLIC METHODS
|
|
|
|
public function SetColor($aMajColor)
|
|
|
|
{
|
|
|
|
$this->grid_color = $aMajColor;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function SetWeight($aWeight)
|
|
|
|
{
|
|
|
|
$this->weight=$aWeight;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
// Specify if grid should be dashed, dotted or solid
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetLineStyle($aType)
|
|
|
|
{
|
|
|
|
$this->type = $aType;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
2008-11-08 11:00:00 +00:00
|
|
|
// Decide if both major and minor grid should be displayed
|
2020-11-21 18:54:32 +00:00
|
|
|
public function Show($aShowMajor=true)
|
|
|
|
{
|
|
|
|
$this->show=$aShowMajor;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
//----------------
|
|
|
|
// PRIVATE METHODS
|
|
|
|
public 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();
|
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
} // Class
|
|
|
|
|
|
|
|
|
|
|
|
//===================================================
|
|
|
|
// CLASS RadarPlot
|
|
|
|
// Description: Plot a radarplot
|
|
|
|
//===================================================
|
2020-11-21 18:54:32 +00:00
|
|
|
class RadarPlot
|
|
|
|
{
|
2008-11-08 11:00:00 +00:00
|
|
|
public $mark=null;
|
|
|
|
public $legend="";
|
|
|
|
private $data=array();
|
2020-11-21 18:54:32 +00:00
|
|
|
private $fill=false;
|
|
|
|
private $fill_color=array(200,170,180);
|
2008-11-08 11:00:00 +00:00
|
|
|
private $color=array(0,0,0);
|
|
|
|
private $weight=1;
|
|
|
|
private $linestyle='solid';
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// CONSTRUCTOR
|
|
|
|
public function RadarPlot($data)
|
|
|
|
{
|
|
|
|
$this->data = $data;
|
|
|
|
$this->mark = new PlotMark();
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// PUBLIC METHODS
|
|
|
|
public function Min()
|
|
|
|
{
|
|
|
|
return Min($this->data);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function Max()
|
|
|
|
{
|
|
|
|
return Max($this->data);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function SetLegend($legend)
|
|
|
|
{
|
|
|
|
$this->legend=$legend;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetLineStyle($aStyle)
|
|
|
|
{
|
|
|
|
$this->linestyle=$aStyle;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function SetLineWeight($w)
|
|
|
|
{
|
|
|
|
$this->weight=$w;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function SetFillColor($aColor)
|
|
|
|
{
|
|
|
|
$this->fill_color = $aColor;
|
|
|
|
$this->fill = true;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetFill($f=true)
|
|
|
|
{
|
|
|
|
$this->fill = $f;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetColor($aColor, $aFillColor=false)
|
|
|
|
{
|
|
|
|
$this->color = $aColor;
|
|
|
|
if ($aFillColor) {
|
|
|
|
$this->SetFillColor($aFillColor);
|
|
|
|
$this->fill = true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
public function GetCSIMareas()
|
|
|
|
{
|
|
|
|
JpGraphError::RaiseL(18001);
|
|
|
|
//("Client side image maps not supported for RadarPlots.");
|
|
|
|
}
|
|
|
|
|
|
|
|
public 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
|
|
|
|
public function GetCount()
|
|
|
|
{
|
|
|
|
return count($this->data);
|
|
|
|
}
|
|
|
|
|
|
|
|
public 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);
|
|
|
|
}
|
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
} // Class
|
|
|
|
|
|
|
|
//===================================================
|
|
|
|
// CLASS RadarGraph
|
|
|
|
// Description: Main container for a radar graph
|
|
|
|
//===================================================
|
2020-11-21 18:54:32 +00:00
|
|
|
class RadarGraph extends Graph
|
|
|
|
{
|
|
|
|
public $grid;
|
|
|
|
public $axis=null;
|
|
|
|
private $posx;
|
|
|
|
private $posy;
|
|
|
|
private $len;
|
2008-11-08 11:00:00 +00:00
|
|
|
private $axis_title=null;
|
2020-11-21 18:54:32 +00:00
|
|
|
//---------------
|
|
|
|
// CONSTRUCTOR
|
|
|
|
public 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->SetGridDepth(DEPTH_FRONT);
|
|
|
|
}
|
|
|
|
|
|
|
|
//---------------
|
|
|
|
// PUBLIC METHODS
|
|
|
|
public function SupressTickMarks($f=true)
|
|
|
|
{
|
|
|
|
if (ERR_DEPRECATED) {
|
|
|
|
JpGraphError::RaiseL(18002);
|
|
|
|
}
|
|
|
|
//('RadarGraph::SupressTickMarks() is deprecated. Use HideTickMarks() instead.');
|
|
|
|
$this->axis->scale->ticks->SupressTickMarks($f);
|
|
|
|
}
|
|
|
|
|
|
|
|
public function HideTickMarks($aFlag=true)
|
|
|
|
{
|
|
|
|
$this->axis->scale->ticks->SupressTickMarks($aFlag);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function ShowMinorTickmarks($aFlag=true)
|
|
|
|
{
|
|
|
|
$this->yscale->ticks->SupressMinorTickMarks(!$aFlag);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetScale($axtype, $ymin=1, $ymax=1, $dummy1=null, $dumy2=null)
|
|
|
|
{
|
|
|
|
if ($axtype != "lin" && $axtype != "log") {
|
|
|
|
JpGraphError::RaiseL(18003, $axtype);
|
|
|
|
//("Illegal scale for radarplot ($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();
|
|
|
|
}
|
|
|
|
|
|
|
|
public function SetSize($aSize)
|
|
|
|
{
|
|
|
|
if ($aSize < 0.1 || $aSize>1) {
|
|
|
|
JpGraphError::RaiseL(18004, $aSize);
|
|
|
|
}
|
|
|
|
//("Radar Plot size must be between 0.1 and 1. (Your value=$s)");
|
|
|
|
$this->len=min($this->img->width, $this->img->height)*$aSize/2;
|
|
|
|
}
|
|
|
|
|
|
|
|
public function SetPlotSize($aSize)
|
|
|
|
{
|
|
|
|
$this->SetSize($aSize);
|
|
|
|
}
|
|
|
|
|
|
|
|
public function SetTickDensity($densy=TICKD_NORMAL, $dummy1=null)
|
|
|
|
{
|
|
|
|
$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::RaiseL(18005, $densy);
|
2008-11-08 11:00:00 +00:00
|
|
|
//("RadarPlot Unsupported Tick density: $densy");
|
2020-11-21 18:54:32 +00:00
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetPos($px, $py=0.5)
|
|
|
|
{
|
|
|
|
$this->SetCenter($px, $py);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetCenter($px, $py=0.5)
|
|
|
|
{
|
|
|
|
assert($px > 0 && $py > 0);
|
|
|
|
$this->posx=$this->img->width*$px;
|
|
|
|
$this->posy=$this->img->height*$py;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function SetColor($c)
|
|
|
|
{
|
|
|
|
$this->SetMarginColor($c);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
2020-11-21 18:54:32 +00:00
|
|
|
|
|
|
|
public function SetTitles($title)
|
|
|
|
{
|
|
|
|
$this->axis_title = $title;
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
2020-11-21 18:54:32 +00:00
|
|
|
public function Add($splot)
|
|
|
|
{
|
|
|
|
$this->plots[]=$splot;
|
|
|
|
}
|
|
|
|
|
|
|
|
public function GetPlotsYMinMax($aPlots)
|
|
|
|
{
|
|
|
|
$min=$aPlots[0]->Min();
|
|
|
|
$max=$aPlots[0]->Max();
|
|
|
|
foreach ($this->plots as $p) {
|
|
|
|
$max=max($max, $p->Max());
|
|
|
|
$min=min($min, $p->Min());
|
|
|
|
}
|
|
|
|
if ($min < 0) {
|
|
|
|
JpGraphError::RaiseL(18006, $min);
|
|
|
|
}
|
|
|
|
//("Minimum data $min (Radar plots should only be used when all data points > 0)");
|
|
|
|
return array($min,$max);
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
// Stroke the Radar graph
|
2020-11-21 18:54:32 +00:00
|
|
|
public function Stroke($aStrokeFileName="")
|
|
|
|
{
|
|
|
|
$n = count($this->plots);
|
|
|
|
// Set Y-scale
|
|
|
|
if (!$this->yscale->IsSpecified() && count($this->plots)>0) {
|
|
|
|
list($min, $max) = $this->GetPlotsYMinMax($this->plots);
|
|
|
|
$this->yscale->AutoScale($this->img, 0, $max, $this->len/$this->ytick_factor);
|
|
|
|
} elseif ($this->yscale->IsSpecified() &&
|
|
|
|
($this->yscale->auto_ticks || !$this->yscale->ticks->IsSpecified())) {
|
|
|
|
// The tick calculation will use the user suplied min/max values to determine
|
|
|
|
// the ticks. If auto_ticks is false the exact user specifed min and max
|
|
|
|
// values will be used for the scale.
|
|
|
|
// If auto_ticks is true then the scale might be slightly adjusted
|
|
|
|
// so that the min and max values falls on an even major step.
|
|
|
|
$min = $this->yscale->scale[0];
|
|
|
|
$max = $this->yscale->scale[1];
|
|
|
|
$this->yscale->AutoScale(
|
|
|
|
$this->img,
|
|
|
|
$min,
|
|
|
|
$max,
|
|
|
|
$this->len/$this->ytick_factor,
|
|
|
|
$this->yscale->auto_ticks
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
// 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::RaiseL(18007);
|
|
|
|
}
|
|
|
|
//("Number of titles does not match number of points in plot.");
|
|
|
|
for ($i=0; $i < $n; ++$i) {
|
|
|
|
if ($nbrpnts != $this->plots[$i]->GetCount()) {
|
|
|
|
JpGraphError::RaiseL(18008);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
//("Each radar 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 < $n; ++$i) {
|
|
|
|
$this->plots[$i]->Legend($this);
|
|
|
|
}
|
|
|
|
$this->legend->Stroke($this->img);
|
|
|
|
$this->footer->Stroke($this->img);
|
|
|
|
|
|
|
|
if ($this->grid_depth == DEPTH_BACK) {
|
|
|
|
// 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);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// Plot points
|
|
|
|
$a=M_PI/2;
|
|
|
|
for ($i=0; $i < $n; ++$i) {
|
|
|
|
$this->plots[$i]->Stroke($this->img, $this->posy, $this->yscale, $a);
|
|
|
|
}
|
|
|
|
|
|
|
|
if ($this->grid_depth != DEPTH_BACK) {
|
|
|
|
// 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);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// Should we do any final image transformation
|
|
|
|
if ($this->iImgTrans) {
|
|
|
|
if (!class_exists('ImgTrans', false)) {
|
|
|
|
require_once('jpgraph_imgtrans.php');
|
|
|
|
}
|
|
|
|
|
|
|
|
$tform = new ImgTrans($this->img->img);
|
|
|
|
$this->img->img = $tform->Skew3D(
|
|
|
|
$this->iImgTransHorizon,
|
|
|
|
$this->iImgTransSkewDist,
|
|
|
|
$this->iImgTransDirection,
|
|
|
|
$this->iImgTransHighQ,
|
|
|
|
$this->iImgTransMinSize,
|
|
|
|
$this->iImgTransFillColor,
|
|
|
|
$this->iImgTransBorder
|
|
|
|
);
|
|
|
|
}
|
|
|
|
|
|
|
|
// 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
|
|
|
|
);
|
|
|
|
}
|
2008-11-08 11:00:00 +00:00
|
|
|
}
|
|
|
|
} // Class
|
|
|
|
|
|
|
|
/* EOF */
|