cats/includes/graph_bib/phplot.php

4565 lines
164 KiB
PHP
Executable file
Raw Blame History

<?php
/* $Id: phplot.php,v 1.116 2006/11/13 23:17:26 lbayuk Exp $ */
/*
* PHPLOT Version 5.0rc3
* Copyright (C) 1998-2006 Afan Ottenheimer. Released under
* the GPL and PHP licenses as stated in the the README file which should
* have been included with this document.
*
* Recent (2003-2004) work by Miguel de Benito Delgado <nonick AT vodafone DOT es>
*
* Requires PHP 4.3.0 or later
*/
if (! defined(__FUNCTION__))
define(__FUNCTION__, '__FUNCTION__ Requires at least PHP 4.3.0.');
define ('MINY', -1); // Indexes in $data (for DrawXDataLine())
define ('MAXY', -2);
define ('TOTY', -3);
error_reporting(E_ALL);
class PHPlot {
/* I have removed internal variable declarations, some isset() checking was required,
* but now the variables left are those which can be tweaked by the user. This is intended to
* be the first step towards moving most of the Set...() methods into a subclass which will be
* used only when strictly necessary. Many users will be able to put default values here in the
* class and thus avoid memory overhead and reduce parsing times.
*/
//////////////// CONFIG PARAMETERS //////////////////////
var $is_inline = FALSE; // FALSE = Sends headers, TRUE = sends just raw image data
var $browser_cache = FALSE; // FALSE = Sends headers for browser to not cache the image,
// (only if is_inline = FALSE also)
var $safe_margin = 5; // Extra margin used in several places. In pixels
var $x_axis_position = ''; // Where to draw both axis (world coordinates),
var $y_axis_position = ''; // leave blank for X axis at 0 and Y axis at left of plot.
var $xscale_type = 'linear'; // linear, log
var $yscale_type = 'linear';
//Fonts
var $use_ttf = FALSE; // Use True Type Fonts?
var $ttf_path = '.'; // Default path to look in for TT Fonts.
var $default_ttfont = 'benjamingothic.ttf';
var $line_spacing = 4; // Pixels between lines.
// Font angles: 0 or 90 degrees for fixed fonts, any for TTF
var $x_label_angle = 0; // For labels on X axis (tick and data)
var $y_label_angle = 0; // For labels on Y axis (tick and data)
var $x_title_angle = 0; // Don't change this if you don't want to screw things up!
var $y_title_angle = 90; // Nor this.
var $title_angle = 0; // Or this.
//Formats
var $file_format = 'png';
var $output_file = ''; // For output to a file instead of stdout
//Data
var $data_type = 'text-data'; // text-data, data-data-error, data-data, text-data-single
var $plot_type= 'linepoints'; // bars, lines, linepoints, area, points, pie, thinbarline, squared
var $label_scale_position = 0.5; // Shifts data labes in pie charts. 1 = top, 0 = bottom
var $group_frac_width = 0.7; // Bars use this fraction (0 to 1) of a group's space
var $bar_extra_space = 0.5; // Number of extra bar's worth of space in a group
var $bar_width_adjust = 1; // 1 = bars of normal width, must be > 0
var $y_precision = 1;
var $x_precision = 1;
var $data_units_text = ''; // Units text for 'data' labels (i.e: '<27>', '$', etc.)
// Titles
var $title_txt = '';
var $x_title_txt = '';
var $x_title_pos = 'plotdown'; // plotdown, plotup, both, none
var $y_title_txt = '';
var $y_title_pos = 'plotleft'; // plotleft, plotright, both, none
//Labels
// There are two types of labels in PHPlot:
// Tick labels: they follow the grid, next to ticks in axis. (DONE)
// they are drawn at grid drawing time, by DrawXTicks() and DrawYTicks()
// Data labels: they follow the data points, and can be placed on the axis or the plot (x/y) (TODO)
// they are drawn at graph plotting time, by Draw*DataLabel(), called by DrawLines(), etc.
// Draw*DataLabel() also draws H/V lines to datapoints depending on draw_*_data_label_lines
// Tick Labels
var $x_tick_label_pos = 'plotdown'; // plotdown, plotup, both, xaxis, none
var $y_tick_label_pos = 'plotleft'; // plotleft, plotright, both, yaxis, none
// Data Labels:
var $x_data_label_pos = 'plotdown'; // plotdown, plotup, both, plot, all, none
var $y_data_label_pos = 'plotleft'; // plotleft, plotright, both, plot, all, plotin, none
var $draw_x_data_label_lines = FALSE; // Draw a line from the data point to the axis?
var $draw_y_data_label_lines = FALSE; // TODO
// Label types: (for tick, data and plot labels)
var $x_label_type = ''; // data, time. Leave blank for no formatting.
var $y_label_type = ''; // data, time. Leave blank for no formatting.
var $x_time_format = '%H:%M:%S'; // See http://www.php.net/manual/html/function.strftime.html
var $y_time_format = '%H:%M:%S'; // SetYTimeFormat() too...
// Skipping labels
var $x_label_inc = 1; // Draw a label every this many (1 = all) (TODO)
var $y_label_inc = 1;
var $_x_label_cnt = 0; // internal count FIXME: work in progress
// Legend
var $legend = ''; // An array with legend titles
var $legend_x_pos = '';
var $legend_y_pos = '';
//Ticks
var $x_tick_length = 5; // tick length in pixels for upper/lower axis
var $y_tick_length = 5; // tick length in pixels for left/right axis
var $x_tick_cross = 3; // ticks cross x axis this many pixels
var $y_tick_cross = 3; // ticks cross y axis this many pixels
var $x_tick_pos = 'plotdown'; // plotdown, plotup, both, xaxis, none
var $y_tick_pos = 'plotleft'; // plotright, plotleft, both, yaxis, none
var $num_x_ticks = '';
var $num_y_ticks = '';
var $x_tick_inc = ''; // Set num_x_ticks or x_tick_inc, not both.
var $y_tick_inc = ''; // Set num_y_ticks or y_tick_inc, not both.
var $skip_top_tick = FALSE;
var $skip_bottom_tick = FALSE;
var $skip_left_tick = FALSE;
var $skip_right_tick = FALSE;
//Grid Formatting
var $draw_x_grid = FALSE;
var $draw_y_grid = TRUE;
var $dashed_grid = TRUE;
var $grid_at_foreground = FALSE; // Chooses whether to draw the grid below or above the graph
//Colors and styles (all colors can be array (R,G,B) or named color)
var $color_array = 'small'; // 'small', 'large' or array (define your own colors)
// See rgb.inc.php and SetRGBArray()
var $i_border = array(194, 194, 194);
var $plot_bg_color = 'white';
var $bg_color = 'white';
var $label_color = 'black';
var $text_color = 'black';
var $grid_color = 'black';
var $light_grid_color = 'gray';
var $tick_color = 'black';
var $title_color = 'black';
var $data_colors = array('SkyBlue', 'green', 'orange', 'blue', 'orange', 'red', 'violet', 'azure1');
var $error_bar_colors = array('SkyBlue', 'green', 'orange', 'blue', 'orange', 'red', 'violet', 'azure1');
var $data_border_colors = array('black');
var $line_widths = 1; // single value or array
var $line_styles = array('solid', 'solid', 'dashed'); // single value or array
var $dashed_style = '2-4'; // colored dots-transparent dots
var $point_sizes = array(5,5,3); // single value or array
var $point_shapes = array('diamond'); // rect, circle, diamond, triangle, dot, line, halfline, cross
var $error_bar_size = 5; // right and left size of tee
var $error_bar_shape = 'tee'; // 'tee' or 'line'
var $error_bar_line_width = 1; // single value (or array TODO)
var $plot_border_type = 'sides'; // left, sides, none, full
var $image_border_type = 'none'; // 'raised', 'plain', 'none'
var $shading = 5; // 0 for no shading, > 0 is size of shadows in pixels
var $draw_plot_area_background = FALSE;
var $draw_broken_lines = FALSE; // Tells not to draw lines for missing Y data.
//////////////////////////////////////////////////////
//BEGIN CODE
//////////////////////////////////////////////////////
/*!
* Constructor: Setup img resource, colors and size of the image, and font sizes.
*
* \param which_width int Image width in pixels.
* \param which_height int Image height in pixels.
* \param which_output_file string Filename for output.
* \param which_input_fule string Path to a file to be used as background.
*/
function PHPlot($which_width=600, $which_height=400, $which_output_file=NULL, $which_input_file=NULL)
{
/*
* Please see http://www.php.net/register_shutdown_function
* PLEASE NOTE: register_shutdown_function() will take a copy of the object rather than a reference
* so we put an ampersand. However, the function registered will work on the object as it
* was upon registration. To solve this, one of two methods can be used:
* $obj = new object();
* register_shutdown_function(array(&$obj,'shutdown'));
* OR
* $obj = &new object();
* HOWEVER, as the second statement assigns $obj a reference to the current object, it might be that
* several instances mess things up... (CHECK THIS)
*
* AND
* as $this->img is set upon construction of the object, problems will not arise for us (for the
* moment maybe, so I put all this here just in case)
*/
register_shutdown_function(array(&$this, '_PHPlot'));
$this->SetRGBArray($this->color_array);
$this->background_done = FALSE; // Set to TRUE after background image is drawn once
if ($which_output_file)
$this->SetOutputFile($which_output_file);
if ($which_input_file)
$this->SetInputFile($which_input_file);
else {
$this->image_width = $which_width;
$this->image_height = $which_height;
$this->img = ImageCreate($this->image_width, $this->image_height);
if (! $this->img)
$this->PrintError('PHPlot(): Could not create image resource.');
}
$this->SetDefaultStyles();
$this->SetDefaultFonts();
$this->SetTitle('');
$this->SetXTitle('');
$this->SetYTitle('');
$this->print_image = TRUE; // Use for multiple plots per image (TODO: automatic)
}
/*!
* Destructor. Image resources not deallocated can be memory hogs, I think
* it is safer to automatically call imagedestroy upon script termination than
* do it ourselves.
* See notes in the constructor code.
*/
function _PHPlot ()
{
ImageDestroy($this->img);
return;
}
/////////////////////////////////////////////
////////////// COLORS
/////////////////////////////////////////////
/*!
* Returns an index to a color passed in as anything (string, hex, rgb)
*
* \param which_color * Color (can be '#AABBCC', 'Colorname', or array(r,g,b))
*/
function SetIndexColor($which_color)
{
list ($r, $g, $b) = $this->SetRGBColor($which_color); //Translate to RGB
$index = ImageColorExact($this->img, $r, $g, $b);
if ($index == -1) {
return ImageColorResolve($this->img, $r, $g, $b);
} else {
return $index;
}
}
/*!
* Returns an index to a slightly darker color than the one requested.
*/
function SetIndexDarkColor($which_color)
{
list ($r, $g, $b) = $this->SetRGBColor($which_color);
$r -= 0x30; $r = ($r < 0) ? 0 : $r;
$g -= 0x30; $g = ($g < 0) ? 0 : $g;
$b -= 0x30; $b = ($b < 0) ? 0 : $b;
$index = ImageColorExact($this->img, $r, $g, $b);
if ($index == -1) {
return ImageColorResolve($this->img, $r, $g, $b);
} else {
return $index;
}
}
/*!
* Sets/reverts all colors and styles to their defaults. If session is set, then only updates indices,
* as they are lost with every script execution, else, sets the default colors by name or value and
* then updates indices too.
*
* FIXME Isn't this too slow?
*
*/
function SetDefaultStyles()
{
/* Some of the Set*() functions use default values when they get no parameters. */
if (! isset($this->session_set)) {
// If sessions are enabled, this variable will be preserved, so upon future executions, we
// will have it set, as well as color names (though not color indices, that's why we
// need to rebuild them)
$this->session_set = TRUE;
// These only need to be set once
$this->SetLineWidths();
$this->SetLineStyles();
$this->SetDefaultDashedStyle($this->dashed_style);
$this->SetPointSizes($this->point_sizes);
}
$this->SetImageBorderColor($this->i_border);
$this->SetPlotBgColor($this->plot_bg_color);
$this->SetBackgroundColor($this->bg_color);
$this->SetLabelColor($this->label_color);
$this->SetTextColor($this->text_color);
$this->SetGridColor($this->grid_color);
$this->SetLightGridColor($this->light_grid_color);
$this->SetTickColor($this->tick_color);
$this->SetTitleColor($this->title_color);
$this->SetDataColors();
$this->SetErrorBarColors();
$this->SetDataBorderColors();
}
/*
*
*/
function SetBackgroundColor($which_color)
{
$this->bg_color= $which_color;
$this->ndx_bg_color= $this->SetIndexColor($this->bg_color);
return TRUE;
}
/*
*
*/
function SetPlotBgColor($which_color)
{
$this->plot_bg_color= $which_color;
$this->ndx_plot_bg_color= $this->SetIndexColor($this->plot_bg_color);
return TRUE;
}
/*
*
*/
function SetTitleColor($which_color)
{
$this->title_color= $which_color;
$this->ndx_title_color= $this->SetIndexColor($this->title_color);
return TRUE;
}
/*
*
*/
function SetTickColor ($which_color)
{
$this->tick_color= $which_color;
$this->ndx_tick_color= $this->SetIndexColor($this->tick_color);
return TRUE;
}
/*
*
*/
function SetLabelColor ($which_color)
{
$this->label_color = $which_color;
$this->ndx_title_color= $this->SetIndexColor($this->label_color);
return TRUE;
}
/*
*
*/
function SetTextColor ($which_color)
{
$this->text_color= $which_color;
$this->ndx_text_color= $this->SetIndexColor($this->text_color);
return TRUE;
}
/*
*
*/
function SetLightGridColor ($which_color)
{
$this->light_grid_color= $which_color;
$this->ndx_light_grid_color= $this->SetIndexColor($this->light_grid_color);
return TRUE;
}
/*
*
*/
function SetGridColor ($which_color)
{
$this->grid_color = $which_color;
$this->ndx_grid_color= $this->SetIndexColor($this->grid_color);
return TRUE;
}
/*
*
*/
function SetImageBorderColor($which_color)
{
$this->i_border = $which_color;
$this->ndx_i_border = $this->SetIndexColor($this->i_border);
$this->ndx_i_border_dark = $this->SetIndexDarkColor($this->i_border);
return TRUE;
}
/*
*
*/
function SetTransparentColor($which_color)
{
ImageColorTransparent($this->img, $this->SetIndexColor($which_color));
return TRUE;
}
/*!
* Sets the array of colors to be used. It can be user defined, a small predefined one
* or a large one included from 'rgb.inc.php'.
*
* \param which_color_array If an array, the used as color array. If a string can
* be one of 'small' or 'large'.
*/
function SetRGBArray ($which_color_array)
{
if ( is_array($which_color_array) ) { // User defined array
$this->rgb_array = $which_color_array;
return TRUE;
} elseif ($which_color_array == 'small') { // Small predefined color array
$this->rgb_array = array(
'white' => array(255, 255, 255),
'snow' => array(255, 250, 250),
'PeachPuff' => array(255, 218, 185),
'ivory' => array(255, 255, 240),
'lavender' => array(230, 230, 250),
'black' => array( 0, 0, 0),
'DimGrey' => array(105, 105, 105),
'gray' => array(190, 190, 190),
'grey' => array(190, 190, 190),
'navy' => array( 0, 0, 128),
'SlateBlue' => array(106, 90, 205),
'blue' => array( 0, 0, 255),
'SkyBlue' => array(135, 206, 235),
'cyan' => array( 0, 255, 255),
'DarkGreen' => array( 0, 100, 0),
'green' => array( 0, 255, 0),
'YellowGreen' => array(154, 205, 50),
'yellow' => array(255, 255, 0),
'orange' => array(255, 165, 0),
'gold' => array(255, 215, 0),
'peru' => array(205, 133, 63),
'beige' => array(245, 245, 220),
'wheat' => array(245, 222, 179),
'tan' => array(210, 180, 140),
'brown' => array(165, 42, 42),
'salmon' => array(250, 128, 114),
'red' => array(255, 0, 0),
'pink' => array(255, 192, 203),
'maroon' => array(176, 48, 96),
'magenta' => array(255, 0, 255),
'violet' => array(238, 130, 238),
'plum' => array(221, 160, 221),
'orchid' => array(218, 112, 214),
'purple' => array(160, 32, 240),
'azure1' => array(240, 255, 255),
'aquamarine1' => array(127, 255, 212)
);
return TRUE;
} elseif ($which_color_array === 'large') { // Large color array
include("./rgb.inc.php");
$this->rgb_array = $RGBArray;
} else { // Default to black and white only.
$this->rgb_array = array('white' => array(255, 255, 255), 'black' => array(0, 0, 0));
}
return TRUE;
}
/*!
* Returns an array in R, G, B format 0-255
*
* \param color_asked array(R,G,B) or string (named color or '#AABBCC')
*/
function SetRGBColor($color_asked)
{
if ($color_asked == '') { $color_asked = array(0, 0, 0); };
if ( count($color_asked) == 3 ) { // already array of 3 rgb
$ret_val = $color_asked;
} else { // asking for a color by string
if(substr($color_asked, 0, 1) == '#') { // asking in #FFFFFF format.
$ret_val = array(hexdec(substr($color_asked, 1, 2)), hexdec(substr($color_asked, 3, 2)),
hexdec(substr($color_asked, 5, 2)));
} else { // asking by color name
$ret_val = $this->rgb_array[$color_asked];
}
}
return $ret_val;
}
/*!
* Sets the colors for the data.
*/
function SetDataColors($which_data = NULL, $which_border = NULL)
{
if (is_null($which_data) && is_array($this->data_colors)) {
// use already set data_colors
} else if (! is_array($which_data)) {
$this->data_colors = ($which_data) ? array($which_data) : array('blue', 'red', 'green', 'orange');
} else {
$this->data_colors = $which_data;
}
$i = 0;
foreach ($this->data_colors as $col) {
$this->ndx_data_colors[$i] = $this->SetIndexColor($col);
$this->ndx_data_dark_colors[$i] = $this->SetIndexDarkColor($col);
$i++;
}
// For past compatibility:
$this->SetDataBorderColors($which_border);
} // function SetDataColors()
/*!
*
*/
function SetDataBorderColors($which_br = NULL)
{
if (is_null($which_br) && is_array($this->data_border_colors)) {
// use already set data_border_colors
} else if (! is_array($which_br)) {
// Create new array with specified color
$this->data_border_colors = ($which_br) ? array($which_br) : array('black');
} else {
$this->data_border_colors = $which_br;
}
$i = 0;
foreach($this->data_border_colors as $col) {
$this->ndx_data_border_colors[$i] = $this->SetIndexColor($col);
$i++;
}
} // function SetDataBorderColors()
/*!
* Sets the colors for the data error bars.
*/
function SetErrorBarColors($which_err = NULL)
{
if (is_null($which_err) && is_array($this->error_bar_colors)) {
// use already set error_bar_colors
} else if (! is_array($which_err)) {
$this->error_bar_colors = ($which_err) ? array($which_err) : array('black');
} else {
$this->error_bar_colors = $which_err;
}
$i = 0;
foreach($this->error_bar_colors as $col) {
$this->ndx_error_bar_colors[$i] = $this->SetIndexColor($col);
$i++;
}
return TRUE;
} // function SetErrorBarColors()
/*!
* Sets the default dashed style.
* \param which_style A string specifying order of colored and transparent dots,
* i.e: '4-3' means 4 colored, 3 transparent;
* '2-3-1-2' means 2 colored, 3 transparent, 1 colored, 2 transparent.
*/
function SetDefaultDashedStyle($which_style)
{
// String: "numcol-numtrans-numcol-numtrans..."
$asked = explode('-', $which_style);
if (count($asked) < 2) {
$this->DrawError("SetDefaultDashedStyle(): Wrong parameter '$which_style'.");
return FALSE;
}
// Build the string to be eval()uated later by SetDashedStyle()
$this->default_dashed_style = 'array( ';
$t = 0;
foreach($asked as $s) {
if ($t % 2 == 0) {
$this->default_dashed_style .= str_repeat('$which_ndxcol,', $s);
} else {
$this->default_dashed_style .= str_repeat('IMG_COLOR_TRANSPARENT,', $s);
}
$t++;
}
// Remove trailing comma and add closing parenthesis
$this->default_dashed_style = substr($this->default_dashed_style, 0, -1);
$this->default_dashed_style .= ')';
return TRUE;
}
/*!
* Sets the style before drawing a dashed line. Defaults to $this->default_dashed_style
* \param which_ndxcol Color index to be used.
*/
function SetDashedStyle($which_ndxcol)
{
// See SetDefaultDashedStyle() to understand this.
eval ("\$style = $this->default_dashed_style;");
return imagesetstyle($this->img, $style);
}
/*!
* Sets line widths on a per-line basis.
*/
function SetLineWidths($which_lw=NULL)
{
if (is_null($which_lw)) {
// Do nothing, use default value.
} else if (is_array($which_lw)) {
// Did we get an array with line widths?
$this->line_widths = $which_lw;
} else {
$this->line_widths = array($which_lw);
}
return TRUE;
}
/*!
*
*/
function SetLineStyles($which_ls=NULL)
{
if (is_null($which_ls)) {
// Do nothing, use default value.
} else if ( is_array($which_ls)) {
// Did we get an array with line styles?
$this->line_styles = $which_ls;
} else {
$this->line_styles = ($which_ls) ? array($which_ls) : array('solid');
}
return TRUE;
}
/////////////////////////////////////////////
////////////// FONTS
/////////////////////////////////////////////
/*!
* Sets number of pixels between lines of the same text.
*/
function SetLineSpacing($which_spc)
{
$this->line_spacing = $which_spc;
}
/*!
* Enables use of TrueType fonts in the graph. Font initialisation methods
* depend on this setting, so when called, SetUseTTF() resets the font
* settings
*/
function SetUseTTF($which_ttf)
{
$this->use_ttf = $which_ttf;
$this->SetDefaultFonts();
return TRUE;
}
/*!
* Sets the directory name to look into for TrueType fonts.
*/
function SetTTFPath($which_path)
{
// Maybe someone needs really dynamic config. He'll need this:
// clearstatcache();
if (is_dir($which_path) && is_readable($which_path)) {
$this->ttf_path = $which_path;
return TRUE;
} else {
$this->PrintError("SetTTFPath(): $which_path is not a valid path.");
return FALSE;
}
}
/*!
* Sets the default TrueType font and updates all fonts to that.
* The default font might be a full path, or relative to the TTFPath,
* so let SetFont check that it exists.
* Side effect: enable use of TrueType fonts.
*/
function SetDefaultTTFont($which_font)
{
$this->default_ttfont = $which_font;
$this->SetUseTTF(TRUE);
return TRUE;
}
/*!
* Sets fonts to their defaults
*/
function SetDefaultFonts()
{
// TTF:
if ($this->use_ttf) {
$this->SetFont('generic', '', 8);
$this->SetFont('title', '', 14);
$this->SetFont('legend', '', 8);
$this->SetFont('x_label', '', 6);
$this->SetFont('y_label', '', 6);
$this->SetFont('x_title', '', 10);
$this->SetFont('y_title', '', 10);
}
// Fixed:
else {
$this->SetFont('generic', 2);
$this->SetFont('title', 5);
$this->SetFont('legend', 2);
$this->SetFont('x_label', 1);
$this->SetFont('y_label', 1);
$this->SetFont('x_title', 3);
$this->SetFont('y_title', 3);
}
return TRUE;
}
/*!
* Sets Fixed/Truetype font parameters.
* \param $which_elem Is the element whose font is to be changed.
* It can be one of 'title', 'legend', 'generic',
* 'x_label', 'y_label', x_title' or 'y_title'
* \param $which_font Can be a number (for fixed font sizes) or
* a string with the font pathname or filename when using TTFonts.
* For TTFonts, an empty string means use the default font.
* \param $which_size Point size (TTF only)
* Calculates and updates internal height and width variables.
*/
function SetFont($which_elem, $which_font, $which_size = 12)
{
// TTF:
if ($this->use_ttf) {
// Empty font name means use the default font.
if (empty($which_font))
$which_font = $this->default_ttfont;
$path = $which_font;
// First try the font name directly, if not then try with path.
if (!is_file($path) || !is_readable($path)) {
$path = $this->ttf_path . '/' . $which_font;
if (!is_file($path) || !is_readable($path)) {
$this->DrawError("SetFont(): Can't find TrueType font $which_font");
return FALSE;
}
}
switch ($which_elem) {
case 'generic':
$this->generic_font['font'] = $path;
$this->generic_font['size'] = $which_size;
break;
case 'title':
$this->title_font['font'] = $path;
$this->title_font['size'] = $which_size;
break;
case 'legend':
$this->legend_font['font'] = $path;
$this->legend_font['size'] = $which_size;
break;
case 'x_label':
$this->x_label_font['font'] = $path;
$this->x_label_font['size'] = $which_size;
break;
case 'y_label':
$this->y_label_font['font'] = $path;
$this->y_label_font['size'] = $which_size;
break;
case 'x_title':
$this->x_title_font['font'] = $path;
$this->x_title_font['size'] = $which_size;
break;
case 'y_title':
$this->y_title_font['font'] = $path;
$this->y_title_font['size'] = $which_size;
break;
default:
$this->DrawError("SetFont(): Unknown element '$which_elem' specified.");
return FALSE;
}
return TRUE;
}
// Fixed fonts:
if ($which_font > 5 || $which_font < 0) {
$this->DrawError('SetFont(): Non-TTF font size must be 1, 2, 3, 4 or 5');
return FALSE;
}
switch ($which_elem) {
case 'generic':
$this->generic_font['font'] = $which_font;
$this->generic_font['height'] = ImageFontHeight($which_font);
$this->generic_font['width'] = ImageFontWidth($which_font);
break;
case 'title':
$this->title_font['font'] = $which_font;
$this->title_font['height'] = ImageFontHeight($which_font);
$this->title_font['width'] = ImageFontWidth($which_font);
break;
case 'legend':
$this->legend_font['font'] = $which_font;
$this->legend_font['height'] = ImageFontHeight($which_font);
$this->legend_font['width'] = ImageFontWidth($which_font);
break;
case 'x_label':
$this->x_label_font['font'] = $which_font;
$this->x_label_font['height'] = ImageFontHeight($which_font);
$this->x_label_font['width'] = ImageFontWidth($which_font);
break;
case 'y_label':
$this->y_label_font['font'] = $which_font;
$this->y_label_font['height'] = ImageFontHeight($which_font);
$this->y_label_font['width'] = ImageFontWidth($which_font);
break;
case 'x_title':
$this->x_title_font['font'] = $which_font;
$this->x_title_font['height'] = ImageFontHeight($which_font);
$this->x_title_font['width'] = ImageFontWidth($which_font);
break;
case 'y_title':
$this->y_title_font['font'] = $which_font;
$this->y_title_font['height'] = ImageFontHeight($which_font);
$this->y_title_font['width'] = ImageFontWidth($which_font);
break;
default:
$this->DrawError("SetFont(): Unknown element '$which_elem' specified.");
return FALSE;
}
return TRUE;
}
/*!
* Returns an array with the size of the bounding box of an
* arbitrarily placed (rotated) TrueType text string.
*/
function TTFBBoxSize($size, $angle, $font, $string)
{
// First, assume angle < 90
$arr = ImageTTFBBox($size, 0, $font, $string);
$flat_width = $arr[2] - $arr[0];
$flat_height = abs($arr[3] - $arr[5]);
// Now the bounding box
$angle = deg2rad($angle);
$width = ceil(abs($flat_width*cos($angle) + $flat_height*sin($angle))); //Must be integer
$height = ceil(abs($flat_width*sin($angle) + $flat_height*cos($angle))); //Must be integer
return array($width, $height);
}
/*!
* Draws a string of text. Horizontal and vertical alignment are relative to
* to the drawing. That is: vertical text (90 deg) gets centered along y-axis
* with v_align = 'center', and adjusted to the left of x-axis with h_align = 'right',
*
* \note Original multiple lines code submitted by Remi Ricard.
* \note Original vertical code submitted by Marlin Viss.
*/
function DrawText($which_font, $which_angle, $which_xpos, $which_ypos, $which_color, $which_text,
$which_halign = 'left', $which_valign = 'bottom')
{
// TTF:
if ($this->use_ttf) {
$size = $this->TTFBBoxSize($which_font['size'], $which_angle, $which_font['font'], $which_text);
$rads = deg2rad($which_angle);
if ($which_valign == 'center')
$which_ypos += $size[1]/2;
if ($which_valign == 'bottom')
$which_ypos += $size[1];
if ($which_halign == 'center')
$which_xpos -= ($size[0]/2) * cos($rads);
if ($which_halign == 'left')
$which_xpos += $size[0] * sin($rads);
if ($which_halign == 'right')
$which_xpos -= $size[0] * cos($rads);
ImageTTFText($this->img, $which_font['size'], $which_angle,
$which_xpos, $which_ypos, $which_color, $which_font['font'], $which_text);
}
// Fixed fonts:
else {
// Split the text by its lines, and count them
$which_text = ereg_replace("\r", "", $which_text);
$str = split("\n", $which_text);
$nlines = count($str);
$spacing = $this->line_spacing * ($nlines - 1);
// Vertical text:
// (Remember the alignment convention with vertical text)
if ($which_angle == 90) {
// The text goes around $which_xpos.
if ($which_halign == 'center')
$which_xpos -= ($nlines * ($which_font['height'] + $spacing))/2;
// Left alignment requires no modification to $xpos...
// Right-align it. $which_xpos designated the rightmost x coordinate.
else if ($which_halign == 'right')
$which_xpos += ($nlines * ($which_font['height'] + $spacing));
$ypos = $which_ypos;
for($i = 0; $i < $nlines; $i++) {
// Center the text vertically around $which_ypos (each line)
if ($which_valign == 'center')
$ypos = $which_ypos + (strlen($str[$i]) * $which_font['width']) / 2;
// Make the text finish (vertically) at $which_ypos
if ($which_valign == 'bottom')
$ypos = $which_ypos + strlen($str[$i]) * $which_font['width'];
ImageStringUp($this->img, $which_font['font'],
$i * ($which_font['height'] + $spacing) + $which_xpos,
$ypos, $str[$i], $which_color);
}
}
// Horizontal text:
else {
// The text goes above $which_ypos
if ($which_valign == 'top')
$which_ypos -= $nlines * ($which_font['height'] + $spacing);
// The text is centered around $which_ypos
if ($which_valign == 'center')
$which_ypos -= ($nlines * ($which_font['height'] + $spacing))/2;
// valign = 'bottom' requires no modification
$xpos = $which_xpos;
for($i = 0; $i < $nlines; $i++) {
// center the text around $which_xpos
if ($which_halign == 'center')
$xpos = $which_xpos - (strlen($str[$i]) * $which_font['width'])/2;
// make the text finish at $which_xpos
if ($which_halign == 'right')
$xpos = $which_xpos - strlen($str[$i]) * $which_font['width'];
ImageString($this->img, $which_font['font'], $xpos,
$i * ($which_font['height'] + $spacing) + $which_ypos,
$str[$i], $which_color);
}
}
}
return TRUE;
} // function DrawText()
/////////////////////////////////////////////
/////////// INPUT / OUTPUT CONTROL
/////////////////////////////////////////////
/*!
* Sets output file format.
*/
function SetFileFormat($format)
{
$asked = $this->CheckOption($format, 'jpg, png, gif, wbmp', __FUNCTION__);
switch ($asked) {
case 'jpg':
if (imagetypes() & IMG_JPG)
$this->file_format = 'jpg';
return TRUE;
break;
case 'png':
if (imagetypes() & IMG_PNG)
$this->file_format = 'png';
return TRUE;
break;
case 'gif':
if (imagetypes() & IMG_GIF)
$this->file_format = 'gif';
return TRUE;
break;
case 'wbmp':
if (imagetypes() & IMG_WBMP)
$this->file_format = 'wbmp';
return TRUE;
break;
default:
$this->PrintError("SetFileFormat():File format '$format' not supported");
return FALSE;
}
}
/*!
* Selects an input file to be used as graph background and scales or tiles this image
* to fit the sizes.
* \param input_file string Path to the file to be used (jpeg, png and gif accepted)
* \param mode string 'centeredtile', 'tile', 'scale' (the image to the graph's size)
*/
function SetBgImage($input_file, $mode='centeredtile')
{
$this->bgmode = $this->CheckOption($mode, 'tile, centeredtile, scale', __FUNCTION__);
$this->bgimg = $input_file;
}
/*!
* Selects an input file to be used as plot area background and scales or tiles this image
* to fit the sizes.
* \param input_file string Path to the file to be used (jpeg, png and gif accepted)
* \param mode string 'centeredtile', 'tile', 'scale' (the image to the graph's size)
*/
function SetPlotAreaBgImage($input_file, $mode='tile')
{
$this->plotbgmode = $this->CheckOption($mode, 'tile, centeredtile, scale', __FUNCTION__);
$this->plotbgimg = $input_file;
}
/*!
* Sets the name of the file to be used as output file.
*/
function SetOutputFile($which_output_file)
{
$this->output_file = $which_output_file;
return TRUE;
}
/*!
* Sets the output image as 'inline', that is: no Content-Type headers are sent
* to the browser. Needed if you want to embed the images.
*/
function SetIsInline($which_ii)
{
$this->is_inline = (bool)$which_ii;
return TRUE;
}
/*!
* Performs the actual outputting of the generated graph, and
* destroys the image resource.
*/
function PrintImage()
{
// Browser cache stuff submitted by Thiemo Nagel
if ( (! $this->browser_cache) && (! $this->is_inline)) {
header('Expires: Mon, 26 Jul 1997 05:00:00 GMT');
header('Last-Modified: ' . gmdate('D, d M Y H:i:s') . 'GMT');
header('Cache-Control: no-cache, must-revalidate');
header('Pragma: no-cache');
}
switch($this->file_format) {
case 'png':
if (! $this->is_inline) {
Header('Content-type: image/png');
}
if ($this->is_inline && $this->output_file != '') {
ImagePng($this->img, $this->output_file);
} else {
ImagePng($this->img);
}
break;
case 'jpg':
if (! $this->is_inline) {
Header('Content-type: image/jpeg');
}
if ($this->is_inline && $this->output_file != '') {
ImageJPEG($this->img, $this->output_file);
} else {
ImageJPEG($this->img);
}
break;
case 'gif':
if (! $this->is_inline) {
Header('Content-type: image/gif');
}
if ($this->is_inline && $this->output_file != '') {
ImageGIF($this->img, $this->output_file);
} else {
ImageGIF($this->img);
}
break;
case 'wbmp': // wireless bitmap, 2 bit.
if (! $this->is_inline) {
Header('Content-type: image/wbmp');
}
if ($this->is_inline && $this->output_file != '') {
ImageWBMP($this->img, $this->output_file);
} else {
ImageWBMP($this->img);
}
break;
default:
$this->PrintError('PrintImage(): Please select an image type!');
break;
}
return TRUE;
}
/*!
* Prints an error message to stdout and dies
*/
function PrintError($error_message)
{
echo "<p><b>Fatal error</b>: $error_message<p>";
die;
}
/*!
* Prints an error message inline into the generated image and draws it centered
* around the given coordinates (defaults to center of the image)
* \param error_message Message to be drawn
* \param where_x X coordinate
* \param where_y Y coordinate
*/
function DrawError($error_message, $where_x = NULL, $where_y = NULL)
{
if (! $this->img)
$this->PrintError('_DrawError(): Warning, no image resource allocated. '.
'The message to be written was: '.$error_message);
$ypos = (! $where_y) ? $this->image_height/2 : $where_y;
$xpos = (! $where_x) ? $this->image_width/2 : $where_x;
ImageFilledRectangle($this->img, 0, 0, $this->image_width, $this->image_height,
ImageColorAllocate($this->img, 255, 255, 255));
// Switch to built-in fonts, in case of error with TrueType fonts:
$this->SetUseTTF(FALSE);
$this->DrawText($this->generic_font, 0, $xpos, $ypos, ImageColorAllocate($this->img, 0, 0, 0),
wordwrap($error_message), 'center', 'center');
$this->PrintImage();
exit;
// return TRUE;
}
/////////////////////////////////////////////
/////////// LABELS
/////////////////////////////////////////////
/*!
* Sets position for X labels following data points.
*/
function SetXDataLabelPos($which_xdlp)
{
$this->x_data_label_pos = $this->CheckOption($which_xdlp, 'plotdown, plotup, both, xaxis, all, none',
__FUNCTION__);
if ($which_xdlp != 'none')
$this->x_tick_label_pos = 'none';
return TRUE;
}
/*!
* Sets position for Y labels near data points.
* For past compatability we accept plotleft, ...but pass it to SetTickLabelPos
* eventually to specify how far up/down or left/right of the data point
*/
function SetYDataLabelPos($which_ydlp, $which_distance_from_point=0)
{
$this->y_data_label_pos = $this->CheckOption($which_ydlp, 'plotleft, plotright, both, yaxis, all, plotin, none',
__FUNCTION__);
//This bit in SetYDataLabelPos about plotleft is for those who were
//using this function to set SetYTickLabelPos.
if ( ($which_ydlp == 'plotleft') || ($which_ydlp == 'plotright') ||
($which_ydlp == 'both') || ($which_ydlp == 'yaxis') ) {
//Call sety_TICK_labelpos instead of sety_DATA_labelpos
$this->SetYTickLabelPos($which_ydlp);
} elseif ($which_ydlp != 'none') {
//right now its plotin or none
$this->y_data_label_pos = 'plotin';
}
return TRUE;
}
/*!
* Sets position for X labels following ticks (hence grid lines)
*/
function SetXTickLabelPos($which_xtlp)
{
$this->x_tick_label_pos = $this->CheckOption($which_xtlp, 'plotdown, plotup, both, xaxis, all, none',
__FUNCTION__);
if ($which_xtlp != 'none')
$this->x_data_label_pos = 'none';
return TRUE;
}
/*!
* Sets position for Y labels following ticks (hence grid lines)
*/
function SetYTickLabelPos($which_ytlp)
{
$this->y_tick_label_pos = $this->CheckOption($which_ytlp, 'plotleft, plotright, both, yaxis, all, none',
__FUNCTION__);
return TRUE;
}
/*!
* Sets type for tick and data labels on X axis.
* \note 'title' type left for backwards compatibility.
*/
function SetXLabelType($which_xlt)
{
$this->x_label_type = $this->CheckOption($which_xlt, 'data, time, title', __FUNCTION__);
return TRUE;
}
/*!
* Sets type for tick and data labels on Y axis.
*/
function SetYLabelType($which_ylt)
{
$this->y_label_type = $this->CheckOption($which_ylt, 'data, time', __FUNCTION__);
return TRUE;
}
function SetXTimeFormat($which_xtf)
{
$this->x_time_format = $which_xtf;
return TRUE;
}
function SetYTimeFormat($which_ytf)
{
$this->y_time_format = $which_ytf;
return TRUE;
}
function SetXLabelAngle($which_xla)
{
$this->x_label_angle = $which_xla;
return TRUE;
}
function SetYLabelAngle($which_yla)
{
$this->y_label_angle = $which_yla;
return TRUE;
}
/////////////////////////////////////////////
/////////// MISC
/////////////////////////////////////////////
/*!
* Checks the valididy of an option.
* \param which_opt String to check.
* \param which_acc String of accepted choices.
* \param which_func Name of the calling function, for error messages.
* \note If checking everywhere for correctness slows things down, we could provide a
* child class overriding every Set...() method which uses CheckOption(). Those new
* methods could proceed in the unsafe but faster way.
*/
function CheckOption($which_opt, $which_acc, $which_func)
{
$asked = trim($which_opt);
// FIXME: this for backward compatibility, as eregi() fails with empty strings.
if ($asked == '')
return '';
$asked = strtolower($asked);
if (@ eregi($asked, $which_acc)) {
return $asked;
} else {
$this->DrawError("$which_func(): '$which_opt' not in available choices: '$which_acc'.");
return NULL;
}
}
/*!
* \note Submitted by Thiemo Nagel
*/
function SetBrowserCache($which_browser_cache)
{
$this->browser_cache = $which_browser_cache;
return TRUE;
}
/*!
* Whether to show the final image or not
*/
function SetPrintImage($which_pi)
{
$this->print_image = $which_pi;
return TRUE;
}
/*!
* Sets the graph's legend. If argument is not an array, appends it to the legend.
*/
function SetLegend($which_leg)
{
if (is_array($which_leg)) { // use array
$this->legend = $which_leg;
return TRUE;
} else if (! is_null($which_leg)) { // append string
$this->legend[] = $which_leg;
return TRUE;
} else {
$this->DrawError("SetLegend(): argument must not be null.");
return FALSE;
}
}
/*!
* Specifies the absolute (relative to image's up/left corner) position
* of the legend's upper/leftmost corner.
* $which_type not yet used (TODO)
*/
function SetLegendPixels($which_x, $which_y, $which_type=NULL)
{
$this->legend_x_pos = $which_x;
$this->legend_y_pos = $which_y;
return TRUE;
}
/*!
* Specifies the relative (to graph's origin) position of the legend's
* upper/leftmost corner. MUST be called after scales are set up.
* $which_type not yet used (TODO)
*/
function SetLegendWorld($which_x, $which_y, $which_type=NULL)
{
if (! isset($this->scale_is_set))
$this->CalcTranslation();
$this->legend_x_pos = $this->xtr($which_x);
$this->legend_y_pos = $this->ytr($which_y);
return TRUE;
}
/*!
* Accepted values are: left, sides, none, full
*/
function SetPlotBorderType($pbt)
{
$this->plot_border_type = $this->CheckOption($pbt, 'left, sides, none, full', __FUNCTION__);
}
/*!
* Accepted values are: raised, plain
*/
function SetImageBorderType($sibt)
{
$this->image_border_type = $this->CheckOption($sibt, 'raised, plain', __FUNCTION__);
}
/*!
* \param dpab bool
*/
function SetDrawPlotAreaBackground($dpab)
{
$this->draw_plot_area_background = (bool)$dpab;
}
/*!
* \param dyg bool
*/
function SetDrawYGrid($dyg)
{
$this->draw_y_grid = (bool)$dyg;
return TRUE;
}
/*!
* \param dxg bool
*/
function SetDrawXGrid($dxg)
{
$this->draw_x_grid = (bool)$dxg;
return TRUE;
}
/*!
* \param ddg bool
*/
function SetDrawDashedGrid($ddg)
{
$this->dashed_grid = (bool)$ddg;
return TRUE;
}
/*!
* \param dxdl bool
*/
function SetDrawXDataLabelLines($dxdl)
{
$this->draw_x_data_label_lines = (bool)$dxdl;
return TRUE;
}
/*!
* TODO: draw_y_data_label_lines not implemented.
* \param dydl bool
*/
function SetDrawYDataLabelLines($dydl)
{
$this->draw_y_data_label_lines = $dydl;
return TRUE;
}
/*!
* Sets the graph's title.
* TODO: add parameter to choose title placement: left, right, centered=
*/
function SetTitle($which_title)
{
$this->title_txt = $which_title;
if ($which_title == '') {
$this->title_height = 0;
return TRUE;
}
$str = split("\n", $which_title);
$lines = count($str);
$spacing = $this->line_spacing * ($lines - 1);
if ($this->use_ttf) {
$size = $this->TTFBBoxSize($this->title_font['size'], 0, $this->title_font['font'], $which_title);
$this->title_height = $size[1] * $lines;
} else {
$this->title_height = ($this->title_font['height'] + $spacing) * $lines;
}
return TRUE;
}
/*!
* Sets the X axis title and position.
*/
function SetXTitle($which_xtitle, $which_xpos = 'plotdown')
{
if ($which_xtitle == '')
$which_xpos = 'none';
$this->x_title_pos = $this->CheckOption($which_xpos, 'plotdown, plotup, both, none', __FUNCTION__);
$this->x_title_txt = $which_xtitle;
$str = split("\n", $which_xtitle);
$lines = count($str);
$spacing = $this->line_spacing * ($lines - 1);
if ($this->use_ttf) {
$size = $this->TTFBBoxSize($this->x_title_font['size'], 0, $this->x_title_font['font'], $which_xtitle);
$this->x_title_height = $size[1] * $lines;
} else {
$this->x_title_height = ($this->x_title_font['height'] + $spacing) * $lines;
}
return TRUE;
}
/*!
* Sets the Y axis title and position.
*/
function SetYTitle($which_ytitle, $which_ypos = 'plotleft')
{
if ($which_ytitle == '')
$which_ypos = 'none';
$this->y_title_pos = $this->CheckOption($which_ypos, 'plotleft, plotright, both, none', __FUNCTION__);
$this->y_title_txt = $which_ytitle;
$str = split("\n", $which_ytitle);
$lines = count($str);
$spacing = $this->line_spacing * ($lines - 1);
if ($this->use_ttf) {
$size = $this->TTFBBoxSize($this->y_title_font['size'], 90, $this->y_title_font['font'],
$which_ytitle);
$this->y_title_width = $size[0] * $lines;
} else {
$this->y_title_width = ($this->y_title_font['height'] + $spacing) * $lines;
}
return TRUE;
}
/*!
* Sets the size of the drop shadow for bar and pie charts.
* \param which_s int Size in pixels.
*/
function SetShading($which_s)
{
$this->shading = (int)$which_s;
return TRUE;
}
function SetPlotType($which_pt)
{
$this->plot_type = $this->CheckOption($which_pt,
'bars, stackedbars, lines, linepoints, area, points, pie, thinbarline, squared',
__FUNCTION__);
}
/*!
* Sets the position of Y axis.
* \param pos int Position in world coordinates.
*/
function SetYAxisPosition($pos)
{
$this->y_axis_position = (int)$pos;
if (isset($this->scale_is_set)) {
$this->CalcTranslation();
}
return TRUE;
}
/*!
* Sets the position of X axis.
* \param pos int Position in world coordinates.
*/
function SetXAxisPosition($pos)
{
$this->x_axis_position = (int)$pos;
if (isset($this->scale_is_set)) {
$this->CalcTranslation();
}
return TRUE;
}
function SetXScaleType($which_xst)
{
$this->xscale_type = $this->CheckOption($which_xst, 'linear, log', __FUNCTION__);
return TRUE;
}
function SetYScaleType($which_yst)
{
$this->yscale_type = $this->CheckOption($which_yst, 'linear, log', __FUNCTION__);
return TRUE;
}
function SetPrecisionX($which_prec)
{
$this->x_precision = $which_prec;
$this->SetXLabelType('data');
return TRUE;
}
function SetPrecisionY($which_prec)
{
$this->y_precision = $which_prec;
$this->SetYLabelType('data');
return TRUE;
}
function SetErrorBarLineWidth($which_seblw)
{
$this->error_bar_line_width = $which_seblw;
return TRUE;
}
function SetLabelScalePosition($which_blp)
{
//0 to 1
$this->label_scale_position = $which_blp;
return TRUE;
}
function SetErrorBarSize($which_ebs)
{
//in pixels
$this->error_bar_size = $which_ebs;
return TRUE;
}
/*!
* Can be one of: 'tee', 'line'
*/
function SetErrorBarShape($which_ebs)
{
$this->error_bar_shape = $this->CheckOption($which_ebs, 'tee, line', __FUNCTION__);
}
/*!
* Sets point shape for each data set via an array.
* Shape can be one of: 'halfline', 'line', 'plus', 'cross', 'rect', 'circle', 'dot',
* 'diamond', 'triangle', 'trianglemid', or 'none'.
*/
function SetPointShapes($which_pt)
{
if (is_null($which_pt)) {
// Do nothing, use default value.
} else if (is_array($which_pt)) {
// Did we get an array with point shapes?
$this->point_shapes = $which_pt;
} else {
// Single value into array
$this->point_shapes = array($which_pt);
}
foreach ($this->point_shapes as $shape)
{
// TODO, better check, per element rectification
$this->CheckOption($shape,
'halfline, line, plus, cross, rect, circle, dot, diamond, triangle, trianglemid, none',
__FUNCTION__);
}
// Make both point_shapes and point_sizes same size.
$ps = count($this->point_sizes);
$pt = count($this->point_shapes);
if ($ps < $pt) {
array_pad_array($this->point_sizes, $pt);
} else if ($pt > $ps) {
array_pad_array($this->point_shapes, $ps);
}
return TRUE;
}
/*!
* Sets the point size for point plots.
* \param ps int Size in pixels.
* \note Test this more extensively
*/
function SetPointSizes($which_ps)
{
if (is_null($which_ps)) {
// Do nothing, use default value.
} else if (is_array($which_ps)) {
// Did we get an array with point sizes?
$this->point_sizes = $which_ps;
} else {
// Single value into array
$this->point_sizes = array($which_ps);
}
// Make both point_shapes and point_sizes same size.
$ps = count($this->point_sizes);
$pt = count($this->point_shapes);
if ($ps < $pt) {
array_pad_array($this->point_sizes, $pt);
} else if ($pt > $ps) {
array_pad_array($this->point_shapes, $ps);
}
// Fix odd point sizes for point shapes which need it
for ($i = 0; $i < $pt; $i++) {
if ($this->point_shapes[$i] == 'diamond' or $this->point_shapes[$i] == 'triangle') {
if ($this->point_sizes[$i] % 2 != 0) {
$this->point_sizes[$i]++;
}
}
}
return TRUE;
}
/*!
* Tells not to draw lines for missing Y data. Only works with 'lines' and 'squared' plots.
* \param bl bool
*/
function SetDrawBrokenLines($bl)
{
$this->draw_broken_lines = (bool)$bl;
}
/*!
* text-data: ('label', y1, y2, y3, ...)
* text-data-single: ('label', data), for some pie charts.
* data-data: ('label', x, y1, y2, y3, ...)
* data-data-error: ('label', x1, y1, e1+, e2-, y2, e2+, e2-, y3, e3+, e3-, ...)
*/
function SetDataType($which_dt)
{
//The next four lines are for past compatibility.
if ($which_dt == 'text-linear') { $which_dt = 'text-data'; };
if ($which_dt == 'linear-linear') { $which_dt = 'data-data'; };
if ($which_dt == 'linear-linear-error') { $which_dt = 'data-data-error'; };
if ($which_dt == 'text-data-pie') { $which_dt = 'text-data-single'; }
$this->data_type = $this->CheckOption($which_dt, 'text-data, text-data-single, '.
'data-data, data-data-error', __FUNCTION__);
return TRUE;
}
/*!
* Copy the array passed as data values. We convert to numerical indexes, for its
* use for (or while) loops, which sometimes are faster. Performance improvements
* vary from 28% in DrawLines() to 49% in DrawArea() for plot drawing functions.
*/
function SetDataValues(&$which_dv)
{
unset ($this->data_limits_done); // Reset this for every new data_set
$this->num_data_rows = count($which_dv);
$this->total_records = 0; // Perform some useful calculations.
$this->records_per_group = 1;
for ($i = 0, $recs = 0; $i < $this->num_data_rows; $i++) {
// Copy
$this->data[$i] = array_values($which_dv[$i]); // convert to numerical indices.
// Compute some values
$recs = count($this->data[$i]);
$this->total_records += $recs;
if ($recs > $this->records_per_group)
$this->records_per_group = $recs;
$this->num_recs[$i] = $recs;
}
}
/*!
* Pad styles arrays for later use by plot drawing functions:
* This removes the need for $max_data_colors, etc. and $color_index = $color_index % $max_data_colors
* in DrawBars(), DrawLines(), etc.
*/
function PadArrays()
{
array_pad_array($this->line_widths, $this->records_per_group);
array_pad_array($this->line_styles, $this->records_per_group);
array_pad_array($this->data_colors, $this->records_per_group);
array_pad_array($this->data_border_colors, $this->records_per_group);
array_pad_array($this->error_bar_colors, $this->records_per_group);
$this->SetDataColors();
$this->SetDataBorderColors();
$this->SetErrorBarColors();
return TRUE;
}
//////////////////////////////////////////////////////////
/////////// DATA ANALYSIS, SCALING AND TRANSLATION
//////////////////////////////////////////////////////////
/*!
* Analizes data and sets up internal maxima and minima
* Needed by: CalcMargins(), ...
* Text-Data is different than data-data graphs. For them what
* we have, instead of X values, is # of records equally spaced on data.
* text-data is passed in as $data[] = (title, y1, y2, y3, y4, ...)
* data-data is passed in as $data[] = (title, x, y1, y2, y3, y4, ...)
*/
function FindDataLimits()
{
// Set some default min and max values before running through the data
switch ($this->data_type) {
case 'text-data':
case 'text-data-single':
$minx = 0;
$maxx = $this->num_data_rows - 1 ;
$miny = $this->data[0][1];
$maxy = $miny;
break;
default: //Everything else: data-data, etc, take first value
$minx = $this->data[0][1];
$maxx = $minx;
$miny = $this->data[0][2];
$maxy = $miny;
break;
}
$mine = 0; // Maximum value for the -error bar (assume error bars always > 0)
$maxe = 0; // Maximum value for the +error bar (assume error bars always > 0)
$maxt = 0; // Maximum number of characters in text labels
if ($this->plot_type == 'stackedbars') {
$maxmaxy = $minminy = 0;
} else {
$minminy = $miny;
$maxmaxy = $maxy;
}
// Process each row of data
for ($i=0; $i < $this->num_data_rows; $i++) {
$j=0;
// Extract maximum text label length
$val = @ strlen($this->data[$i][$j++]);
$maxt = ($val > $maxt) ? $val : $maxt;
switch ($this->data_type) {
case 'text-data': // Data is passed in as (title, y1, y2, y3, ...)
case 'text-data-single': // This one is for some pie charts
// $numrecs = @ count($this->data[$i]);
$maxy = (double)$this->data[$i][$j++];
if ($this->plot_type == 'stackedbars') {
$miny = 0;
} else {
$miny = $maxy;
}
for (; $j < $this->num_recs[$i]; $j++) {
$val = (double)$this->data[$i][$j];
if ($this->plot_type == 'stackedbars') {
$maxy += abs($val); // only positive values for the moment
} else {
$maxy = ($val > $maxy) ? $val : $maxy;
$miny = ($val < $miny) ? $val : $miny;
}
}
break;
case 'data-data': // Data is passed in as (title, x, y, y2, y3, ...)
// X value:
$val = (double)$this->data[$i][$j++];
$maxx = ($val > $maxx) ? $val : $maxx;
$minx = ($val < $minx) ? $val : $minx;
$miny = $maxy = (double)$this->data[$i][$j++];
// $numrecs = @ count($this->data[$i]);
for (; $j < $this->num_recs[$i]; $j++) {
$val = (double)$this->data[$i][$j];
$maxy = ($val > $maxy) ? $val : $maxy;
$miny = ($val < $miny) ? $val : $miny;
}
break;
case 'data-data-error': // Data is passed in as (title, x, y, err+, err-, y2, err2+, err2-,...)
// X value:
$val = (double)$this->data[$i][$j++];
$maxx = ($val > $maxx) ? $val : $maxx;
$minx = ($val < $minx) ? $val : $minx;
$miny = $maxy = (double)$this->data[$i][$j];
// $numrecs = @ count($this->data[$i]);
for (; $j < $this->num_recs[$i];) {
// Y value:
$val = (double)$this->data[$i][$j++];
$maxy = ($val > $maxy) ? $val : $maxy;
$miny = ($val < $miny) ? $val : $miny;
// Error +:
$val = (double)$this->data[$i][$j++];
$maxe = ($val > $maxe) ? $val : $maxe;
// Error -:
$val = (double)$this->data[$i][$j++];
$mine = ($val > $mine) ? $val : $mine;
}
$maxy = $maxy + $maxe;
$miny = $miny - $mine; // assume error bars are always > 0
break;
default:
$this->PrintError("FindDataLimits(): Unknown data type '$data_type'.");
break;
}
$this->data[$i][MINY] = $miny; // This row's min Y, for DrawXDataLine()
$this->data[$i][MAXY] = $maxy; // This row's max Y, for DrawXDataLine()
$minminy = ($miny < $minminy) ? $miny : $minminy; // global min
$maxmaxy = ($maxy > $maxmaxy) ? $maxy : $maxmaxy; // global max
}
$this->min_x = $minx;
$this->max_x = $maxx;
$this->min_y = $minminy;
$this->max_y = $maxmaxy;
$this->max_t = $maxt;
$this->data_limits_done = TRUE;
return TRUE;
}
/*!
* Calculates image margins on the fly from title positions and sizes,
* and tick labels positions and sizes.
*
* FIXME: fix x_data_label_pos behaviour. Now we are leaving room for it AND x_tick_label_pos
* maybe it shouldn't be so...
*
* TODO: add x_tick_label_width and y_tick_label_height and use them to calculate
* max_x_labels and max_y_labels, to be used by drawing functions to avoid overlapping.
*/
function CalcMargins()
{
// Temporary variables for label size calculation
$xlab = $this->FormatLabel('x', $this->max_x);
$ylab = $this->FormatLabel('y', $this->max_y);
// dirty fix:
// max_t is the maximum data label length (from column 0 of each data row).
if ($this->max_t > strlen ($xlab))
$xlab = sprintf ("%{$this->max_t}s","_");
//////// Calculate maximum X/Y axis label height and width:
// TTFonts:
if ($this->use_ttf) {
// Maximum X axis label height
$size = $this->TTFBBoxSize($this->x_label_font['size'], $this->x_label_angle,
$this->x_label_font['font'], $xlab);
$this->x_tick_label_height = $size[1];
// Maximum Y axis label width
$size = $this->TTFBBoxSize($this->y_label_font['size'], $this->y_label_angle,
$this->y_label_font['font'], $ylab);
$this->y_tick_label_width = $size[0];
}
// Fixed fonts:
else {
// Maximum X axis label height
if ($this->x_label_angle == 90)
$this->x_tick_label_height = strlen($xlab) * $this->x_label_font['width'];
else
$this->x_tick_label_height = $this->x_label_font['height'];
// Maximum Y axis label width
$this->y_tick_label_width = strlen($ylab) * $this->y_label_font['width'];
}
///////// Calculate margins:
// Upper title, ticks and tick labels, and data labels:
$this->y_top_margin = $this->title_height + $this->safe_margin * 2;
if ($this->x_title_pos == 'plotup' || $this->x_title_pos == 'both')
$this->y_top_margin += $this->x_title_height + $this->safe_margin;
if ($this->x_tick_label_pos == 'plotup' || $this->x_tick_label_pos == 'both')
$this->y_top_margin += $this->x_tick_label_height;
if ($this->x_tick_pos == 'plotup' || $this->x_tick_pos == 'both')
$this->y_top_margin += $this->x_tick_length * 2;
if ($this->x_data_label_pos == 'plotup' || $this->x_data_label_pos == 'both')
$this->y_top_margin += $this->x_tick_label_height;
// Lower title, ticks and tick labels, and data labels:
$this->y_bot_margin = $this->safe_margin * 2;
if ($this->x_title_pos == 'plotdown' || $this->x_title_pos == 'both')
$this->y_bot_margin += $this->x_title_height;
if ($this->x_tick_pos == 'plotdown' || $this->x_tick_pos == 'both')
$this->y_bot_margin += $this->x_tick_length * 2;
if ($this->x_tick_pos == 'xaxis' && ($this->x_axis_position == '' || $this->x_axis_position == 0))
$this->y_bot_margin += $this->x_tick_length * 2;
if ($this->x_tick_label_pos == 'plotdown' || $this->x_tick_label_pos == 'both')
$this->y_bot_margin += $this->x_tick_label_height;
if ($this->x_tick_label_pos == 'xaxis' && ($this->x_axis_position == '' || $this->x_axis_position == 0))
$this->y_bot_margin += $this->x_tick_label_height;
if ($this->x_data_label_pos == 'plotdown' || $this->x_data_label_pos == 'both')
$this->y_bot_margin += $this->x_tick_label_height;
// Left title, ticks and tick labels:
$this->x_left_margin = $this->safe_margin * 2;
if ($this->y_title_pos == 'plotleft' || $this->y_title_pos == 'both')
$this->x_left_margin += $this->y_title_width + $this->safe_margin;
if ($this->y_tick_label_pos == 'plotleft' || $this->y_tick_label_pos == 'both')
$this->x_left_margin += $this->y_tick_label_width;
if ($this->y_tick_pos == 'plotleft' || $this->y_tick_pos == 'both')
$this->x_left_margin += $this->y_tick_length * 2 ;
// Right title, ticks and tick labels:
$this->x_right_margin = $this->safe_margin * 2;
if ($this->y_title_pos == 'plotright' || $this->y_title_pos == 'both')
$this->x_right_margin += $this->y_title_width + $this->safe_margin;
if ($this->y_tick_label_pos == 'plotright' || $this->y_tick_label_pos == 'both')
$this->x_right_margin += $this->y_tick_label_width;
if ($this->y_tick_pos == 'plotright' || $this->y_tick_pos == 'both')
$this->x_right_margin += $this->y_tick_length * 2;
$this->x_tot_margin = $this->x_left_margin + $this->x_right_margin;
$this->y_tot_margin = $this->y_top_margin + $this->y_bot_margin;
return;
}
/*!
* Set the margins in pixels (left, right, top, bottom)
*/
function SetMarginsPixels($which_lm, $which_rm, $which_tm, $which_bm)
{
$this->x_left_margin = $which_lm;
$this->x_right_margin = $which_rm;
$this->x_tot_margin = $which_lm + $which_rm;
$this->y_top_margin = $which_tm;
$this->y_bot_margin = $which_bm;
$this->y_tot_margin = $which_tm + $which_bm;
$this->SetPlotAreaPixels();
return;
}
/*!
* Sets the limits for the plot area. If no arguments are supplied, uses
* values calculated from CalcMargins();
* Like in GD, (0,0) is upper left
*
* This resets the scale if SetPlotAreaWorld() was already called
*/
function SetPlotAreaPixels($x1=NULL, $y1=NULL, $x2=NULL, $y2=NULL)
{
if ($x2 && $y2) {
$this->plot_area = array($x1, $y1, $x2, $y2);
} else {
if (! isset($this->x_tot_margin))
$this->CalcMargins();
$this->plot_area = array($this->x_left_margin, $this->y_top_margin,
$this->image_width - $this->x_right_margin,
$this->image_height - $this->y_bot_margin);
}
$this->plot_area_width = $this->plot_area[2] - $this->plot_area[0];
$this->plot_area_height = $this->plot_area[3] - $this->plot_area[1];
// Reset the scale with the new plot area.
if (isset($this->plot_max_x))
$this->CalcTranslation();
return TRUE;
}
/*!
* Sets minimum and maximum x and y values in the plot using FindDataLimits()
* or from the supplied parameters, if any.
*
* This resets the scale if SetPlotAreaPixels() was already called
*/
function SetPlotAreaWorld($xmin=NULL, $ymin=NULL, $xmax=NULL, $ymax=NULL)
{
if (! isset($this->data_limits_done)) { // For automatic setting of data we need data limits
$this->FindDataLimits() ;
}
if ($xmin === NULL || $xmin === '') {
if ($this->data_type == 'text-data') // Valid for data without X values only.
$xmin = 0;
else
$xmin = $this->min_x;
}
if ($xmax === NULL || $xmax === '') {
if ($this->data_type == 'text-data') // Valid for data without X values only.
$xmax = $this->max_x + 1;
else
$xmax = $this->max_x;
}
// Leave room above and below the highest and lowest data points.
if ($ymin === NULL || $ymin === '') {
$ymin = floor($this->min_y - abs($this->min_y) * 0.1);
}
if ($ymax === NULL || $ymax === '') {
$ymax = ceil($this->max_y + abs($this->max_y) * 0.1);
}
// Error checking
if ($ymin == $ymax) // Minimum height
$ymax += 1;
if ($this->yscale_type == 'log') {
if ($ymin <= 0) {
$ymin = 1;
}
if ($ymax <= 0) {
$this->PrintError('SetPlotAreaWorld(): Log plots need data greater than 0');
return FALSE;
}
}
if ($ymax <= $ymin) {
$this->DrawError('SetPlotAreaWorld(): Error in data - max not greater than min');
return FALSE;
}
// Reset (if it was already set) the scale with the new maxs and mins
$this->plot_min_x = $xmin;
$this->plot_max_x = $xmax;
$this->plot_min_y = $ymin;
$this->plot_max_y = $ymax;
if (isset($this->plot_area_width)) {
$this->CalcTranslation();
}
return TRUE;
} //function SetPlotAreaWorld
/*!
* For bar plots, which have equally spaced x variables.
*/
function CalcBarWidths()
{
// group_width is the width of a group, including padding
$group_width = $this->plot_area_width / $this->num_data_rows;
// Actual number of bar spaces in the group. This includes the drawn bars, and
// 'bar_extra_space'-worth of extra bars.
// Note that 'records_per_group' includes the label, so subtract one to get
// the number of points in the group. 'stackedbars' have 1 bar space per group.
if ($this->plot_type == 'stackedbars') {
$num_spots = 1 + $this->bar_extra_space;
} else {
$num_spots = $this->records_per_group - 1 + $this->bar_extra_space;
}
// record_bar_width is the width of each bar's allocated area.
// If bar_width_adjust=1 this is the width of the bar, otherwise
// the bar is centered inside record_bar_width.
// The equation is:
// group_frac_width * group_width = record_bar_width * num_spots
$this->record_bar_width = $this->group_frac_width * $group_width / $num_spots;
// Note that the extra space due to group_frac_width and bar_extra_space will be
// evenly divided on each side of the group: the drawn bars are centered in the group.
// Within each bar's allocated space, if bar_width_adjust=1 the bar fills the
// space, otherwise it is centered.
// This is the actual drawn bar width:
$this->actual_bar_width = $this->record_bar_width * $this->bar_width_adjust;
// This is the gap on each side of the bar (0 if bar_width_adjust=1):
$this->bar_adjust_gap = ($this->record_bar_width - $this->actual_bar_width) / 2;
return TRUE;
}
/*!
* Calculates scaling stuff...
*/
function CalcTranslation()
{
if ($this->plot_max_x - $this->plot_min_x == 0) { // Check for div by 0
$this->xscale = 0;
} else {
if ($this->xscale_type == 'log') {
$this->xscale = ($this->plot_area_width)/(log10($this->plot_max_x) - log10($this->plot_min_x));
} else {
$this->xscale = ($this->plot_area_width)/($this->plot_max_x - $this->plot_min_x);
}
}
if ($this->plot_max_y - $this->plot_min_y == 0) { // Check for div by 0
$this->yscale = 0;
} else {
if ($this->yscale_type == 'log') {
$this->yscale = ($this->plot_area_height)/(log10($this->plot_max_y) - log10($this->plot_min_y));
} else {
$this->yscale = ($this->plot_area_height)/($this->plot_max_y - $this->plot_min_y);
}
}
// GD defines x = 0 at left and y = 0 at TOP so -/+ respectively
if ($this->xscale_type == 'log') {
$this->plot_origin_x = $this->plot_area[0] - ($this->xscale * log10($this->plot_min_x) );
} else {
$this->plot_origin_x = $this->plot_area[0] - ($this->xscale * $this->plot_min_x);
}
if ($this->yscale_type == 'log') {
$this->plot_origin_y = $this->plot_area[3] + ($this->yscale * log10($this->plot_min_y));
} else {
$this->plot_origin_y = $this->plot_area[3] + ($this->yscale * $this->plot_min_y);
}
$this->scale_is_set = TRUE;
/************** FIXME?? *************/
// There should be a better place for this.
// User provided y axis position?
if ($this->y_axis_position !== '') {
// Make sure we draw our axis inside the plot
$this->y_axis_position = ($this->y_axis_position < $this->plot_min_x)
? $this->plot_min_x : $this->y_axis_position;
$this->y_axis_position = ($this->y_axis_position > $this->plot_max_x)
? $this->plot_max_x : $this->y_axis_position;
$this->y_axis_x_pixels = $this->xtr($this->y_axis_position);
} else {
// Default to left axis
$this->y_axis_x_pixels = $this->xtr($this->plot_min_x);
}
// User provided x axis position?
if ($this->x_axis_position !== '') {
// Make sure we draw our axis inside the plot
$this->x_axis_position = ($this->x_axis_position < $this->plot_min_y)
? $this->plot_min_y : $this->x_axis_position;
$this->x_axis_position = ($this->x_axis_position > $this->plot_max_y)
? $this->plot_max_y : $this->x_axis_position;
} elseif ($this->yscale_type == 'log') {
$this->x_axis_position = 1;
} else {
// Default to axis at 0 or plot_min_y (should be 0 anyway, from SetPlotAreaWorld())
// Note x_axis_position must be set because DrawBars and others expect a number.
if ($this->plot_min_y <= 0 && 0 <= $this->plot_max_y)
$this->x_axis_position = 0;
else
$this->x_axis_position = $this->plot_min_y;
}
$this->x_axis_y_pixels = $this->ytr($this->x_axis_position);
} // function CalcTranslation()
/*!
* Translate X world coordinate into pixel coordinate
* Needs values calculated by _CalcTranslation()
*/
function xtr($x_world)
{
//$x_pixels = $this->x_left_margin + ($this->image_width - $this->x_tot_margin)*
// (($x_world - $this->plot_min_x) / ($this->plot_max_x - $this->plot_min_x)) ;
//which with a little bit of math reduces to ...
if ($this->xscale_type == 'log') {
$x_pixels = $this->plot_origin_x + log10($x_world) * $this->xscale ;
} else {
$x_pixels = $this->plot_origin_x + $x_world * $this->xscale ;
}
return round($x_pixels);
}
/*!
* Translate Y world coordinate into pixel coordinate.
* Needs values calculated by _CalcTranslation()
*/
function ytr($y_world)
{
if ($this->yscale_type == 'log') {
//minus because GD defines y = 0 at top. doh!
$y_pixels = $this->plot_origin_y - log10($y_world) * $this->yscale ;
} else {
$y_pixels = $this->plot_origin_y - $y_world * $this->yscale ;
}
return round($y_pixels);
}
/*!
* Formats a tick or data label.
*
* \note Time formatting suggested by Marlin Viss
*/
function FormatLabel($which_pos, $which_lab)
{
switch ($which_pos) {
case 'x':
case 'plotx':
switch ($this->x_label_type) {
case 'title':
$lab = @ $this->data[$which_lab][0];
break;
case 'data':
$lab = number_format($which_lab, $this->x_precision, '.', ',').$this->data_units_text;
break;
case 'time':
$lab = strftime($this->x_time_format, $which_lab);
break;
default:
// Unchanged from whatever format it is passed in
$lab = $which_lab;
break;
}
break;
case 'y':
case 'ploty':
switch ($this->y_label_type) {
case 'data':
$lab = number_format($which_lab, $this->y_precision, '.', ',').$this->data_units_text;
break;
case 'time':
$lab = strftime($this->y_time_format, $which_lab);
break;
default:
// Unchanged from whatever format it is passed in
$lab = $which_lab;
break;
}
break;
default:
$this->PrintError("FormatLabel(): Unknown label type $which_type");
return NULL;
}
return $lab;
} //function FormatLabel
/////////////////////////////////////////////
/////////////// TICKS
/////////////////////////////////////////////
/*!
* Use either this or SetNumXTicks() to set where to place x tick marks
*/
function SetXTickIncrement($which_ti=NULL)
{
if ($which_ti) {
$this->x_tick_inc = $which_ti; //world coordinates
} else {
if (! isset($this->data_limits_done)) {
$this->FindDataLimits(); //Get maxima and minima for scaling
}
$this->x_tick_inc = ($this->plot_max_x - $this->plot_min_x )/10;
}
$this->num_x_ticks = ''; //either use num_y_ticks or y_tick_inc, not both
return TRUE;
}
/*!
* Use either this or SetNumYTicks() to set where to place y tick marks
*/
function SetYTickIncrement($which_ti=NULL)
{
if ($which_ti) {
$this->y_tick_inc = $which_ti; //world coordinates
} else {
if (! isset($this->data_limits_done)) {
$this->FindDataLimits(); //Get maxima and minima for scaling
}
if (! isset($this->plot_max_y))
$this->SetPlotAreaWorld();
$this->y_tick_inc = ($this->plot_max_y - $this->plot_min_y )/10;
}
$this->num_y_ticks = ''; //either use num_y_ticks or y_tick_inc, not both
return TRUE;
}
function SetNumXTicks($which_nt)
{
$this->num_x_ticks = $which_nt;
$this->x_tick_inc = ''; //either use num_x_ticks or x_tick_inc, not both
return TRUE;
}
function SetNumYTicks($which_nt)
{
$this->num_y_ticks = $which_nt;
$this->y_tick_inc = ''; //either use num_y_ticks or y_tick_inc, not both
return TRUE;
}
/*!
*
*/
function SetYTickPos($which_tp)
{
$this->y_tick_pos = $this->CheckOption($which_tp, 'plotleft, plotright, both, yaxis, none', __FUNCTION__);
return TRUE;
}
/*!
*
*/
function SetXTickPos($which_tp)
{
$this->x_tick_pos = $this->CheckOption($which_tp, 'plotdown, plotup, both, xaxis, none', __FUNCTION__);
return TRUE;
}
/*!
* \param skip bool
*/
function SetSkipTopTick($skip)
{
$this->skip_top_tick = (bool)$skip;
return TRUE;
}
/*!
* \param skip bool
*/
function SetSkipBottomTick($skip)
{
$this->skip_bottom_tick = (bool)$skip;
return TRUE;
}
/*!
* \param skip bool
*/
function SetSkipLeftTick($skip)
{
$this->skip_left_tick = (bool)$skip;
return TRUE;
}
/*!
* \param skip bool
*/
function SetSkipRightTick($skip)
{
$this->skip_right_tick = (bool)$skip;
return TRUE;
}
function SetXTickLength($which_xln)
{
$this->x_tick_length = $which_xln;
return TRUE;
}
function SetYTickLength($which_yln)
{
$this->y_tick_length = $which_yln;
return TRUE;
}
function SetXTickCrossing($which_xc)
{
$this->x_tick_cross = $which_xc;
return TRUE;
}
function SetYTickCrossing($which_yc)
{
$this->y_tick_cross = $which_yc;
return TRUE;
}
/////////////////////////////////////////////
//////////////////// GENERIC DRAWING
/////////////////////////////////////////////
/*!
* Fills the background.
*/
function DrawBackground()
{
// Don't draw this twice if drawing two plots on one image
if (! $this->background_done) {
if (isset($this->bgimg)) { // If bgimg is defined, use it
$this->tile_img($this->bgimg, 0, 0, $this->image_width, $this->image_height, $this->bgmode);
} else { // Else use solid color
ImageFilledRectangle($this->img, 0, 0, $this->image_width, $this->image_height,
$this->ndx_bg_color);
}
$this->background_done = TRUE;
return TRUE; // Done
}
return FALSE; // Nothing done
}
/*!
* Fills the plot area background.
*/
function DrawPlotAreaBackground()
{
if (isset($this->plotbgimg)) {
$this->tile_img($this->plotbgimg, $this->plot_area[0], $this->plot_area[1],
$this->plot_area_width, $this->plot_area_height, $this->plotbgmode);
}
else {
if ($this->draw_plot_area_background) {
ImageFilledRectangle($this->img, $this->plot_area[0], $this->plot_area[1],
$this->plot_area[2], $this->plot_area[3], $this->ndx_plot_bg_color);
}
}
return TRUE;
}
/*!
* Tiles an image at some given coordinates.
*
* \param $file string Filename of the picture to be used as tile.
* \param $xorig int X coordinate of the plot where the tile is to begin.
* \param $yorig int Y coordinate of the plot where the tile is to begin.
* \param $width int Width of the area to be tiled.
* \param $height int Height of the area to be tiled.
* \param $mode string One of 'centeredtile', 'tile', 'scale'.
*/
function tile_img($file, $xorig, $yorig, $width, $height, $mode)
{
$size = getimagesize($file);
$input_format = $size[2];
switch($input_format) {
case 1:
$im = @ imagecreatefromGIF ($file);
if (! $im) {
$this->PrintError("tile_img:() Unable to open $file as a GIF.");
return FALSE;
}
break;
case 2:
$im = @ imagecreatefromJPEG ($file);
if (! $im) {
$this->PrintError("tile_img(): Unable to open $file as a JPG.");
return FALSE;
}
break;
case 3:
$im = @ imagecreatefromPNG ($file);
if (! $im) {
$this->PrintError("tile_img(): Unable to open $file as a PNG.");
return FALSE;
}
break;
default:
$this->PrintError('tile_img(): Please select a gif, jpg, or png image.');
return FALSE;
break;
}
if ($mode == 'scale') {
imagecopyresized($this->img, $im, $xorig, $yorig, 0, 0, $width, $height, $size[0],$size[1]);
return TRUE;
} else if ($mode == 'centeredtile') {
$x0 = - floor($size[0]/2); // Make the tile look better
$y0 = - floor($size[1]/2);
} else if ($mode = 'tile') {
$x0 = 0;
$y0 = 0;
}
// Actually draw the tile
// But first on a temporal image.
$tmp = ImageCreate($width, $height);
if (! $tmp)
$this->PrintError('tile_img(): Could not create image resource.');
for ($x = $x0; $x < $width; $x += $size[0])
for ($y = $y0; $y < $height; $y += $size[1])
imagecopy($tmp, $im, $x, $y, 0, 0, $size[0], $size[1]);
// Copy the temporal image onto the final one.
imagecopy($this->img, $tmp, $xorig, $yorig, 0,0, $width, $height);
// Free resources
imagedestroy($tmp);
imagedestroy($im);
return TRUE;
} // function tile_img
/*!
* Draws a border around the final image.
*/
function DrawImageBorder()
{
switch ($this->image_border_type) {
case 'raised':
ImageLine($this->img, 0, 0, $this->image_width-1, 0, $this->ndx_i_border);
ImageLine($this->img, 1, 1, $this->image_width-2, 1, $this->ndx_i_border);
ImageLine($this->img, 0, 0, 0, $this->image_height-1, $this->ndx_i_border);
ImageLine($this->img, 1, 1, 1, $this->image_height-2, $this->ndx_i_border);
ImageLine($this->img, $this->image_width-1, 0, $this->image_width-1,
$this->image_height-1, $this->ndx_i_border_dark);
ImageLine($this->img, 0, $this->image_height-1, $this->image_width-1,
$this->image_height-1, $this->ndx_i_border_dark);
ImageLine($this->img, $this->image_width-2, 1, $this->image_width-2,
$this->image_height-2, $this->ndx_i_border_dark);
ImageLine($this->img, 1, $this->image_height-2, $this->image_width-2,
$this->image_height-2, $this->ndx_i_border_dark);
break;
case 'plain':
ImageLine($this->img, 0, 0, $this->image_width-1, 0, $this->ndx_i_border_dark);
ImageLine($this->img, $this->image_width-1, 0, $this->image_width-1,
$this->image_height-1, $this->ndx_i_border_dark);
ImageLine($this->img, $this->image_width-1, $this->image_height-1, 0, $this->image_height-1,
$this->ndx_i_border_dark);
ImageLine($this->img, 0, 0, 0, $this->image_height-1, $this->ndx_i_border_dark);
break;
case 'none':
break;
default:
$this->DrawError("DrawImageBorder(): unknown image_border_type: '$this->image_border_type'");
return FALSE;
}
return TRUE;
}
/*!
* Adds the title to the graph.
*/
function DrawTitle()
{
// Center of the plot area
//$xpos = ($this->plot_area[0] + $this->plot_area_width )/ 2;
// Center of the image:
$xpos = $this->image_width / 2;
// Place it at almost at the top
$ypos = $this->safe_margin;
$this->DrawText($this->title_font, $this->title_angle, $xpos, $ypos,
$this->ndx_title_color, $this->title_txt, 'center', 'bottom');
return TRUE;
}
/*!
* Draws the X-Axis Title
*/
function DrawXTitle()
{
if ($this->x_title_pos == 'none')
return;
// Center of the plot
$xpos = ($this->plot_area[2] + $this->plot_area[0]) / 2;
// Upper title
if ($this->x_title_pos == 'plotup' || $this->x_title_pos == 'both') {
$ypos = $this->safe_margin + $this->title_height + $this->safe_margin;
$this->DrawText($this->x_title_font, $this->x_title_angle,
$xpos, $ypos, $this->ndx_title_color, $this->x_title_txt, 'center');
}
// Lower title
if ($this->x_title_pos == 'plotdown' || $this->x_title_pos == 'both') {
$ypos = $this->image_height - $this->x_title_height - $this->safe_margin;
$this->DrawText($this->x_title_font, $this->x_title_angle,
$xpos, $ypos, $this->ndx_title_color, $this->x_title_txt, 'center');
}
return TRUE;
}
/*!
* Draws the Y-Axis Title
*/
function DrawYTitle()
{
if ($this->y_title_pos == 'none')
return;
// Center the title vertically to the plot
$ypos = ($this->plot_area[3] + $this->plot_area[1]) / 2;
if ($this->y_title_pos == 'plotleft' || $this->y_title_pos == 'both') {
$xpos = $this->safe_margin;
$this->DrawText($this->y_title_font, 90, $xpos, $ypos, $this->ndx_title_color,
$this->y_title_txt, 'left', 'center');
}
if ($this->y_title_pos == 'plotright' || $this->y_title_pos == 'both') {
$xpos = $this->image_width - $this->safe_margin - $this->y_title_width - $this->safe_margin;
$this->DrawText($this->y_title_font, 90, $xpos, $ypos, $this->ndx_title_color,
$this->y_title_txt, 'left', 'center');
}
return TRUE;
}
/*
* \note Horizontal grid lines overwrite horizontal axis with y=0, so call this first, then DrawXAxis()
*/
function DrawYAxis()
{
// Draw ticks, labels and grid, if any
$this->DrawYTicks();
// Draw Y axis at X = y_axis_x_pixels
ImageLine($this->img, $this->y_axis_x_pixels, $this->plot_area[1],
$this->y_axis_x_pixels, $this->plot_area[3], $this->ndx_grid_color);
return TRUE;
}
/*
*
*/
function DrawXAxis()
{
// Draw ticks, labels and grid
$this->DrawXTicks();
/* This tick and label tend to overlap with regular Y Axis labels,
* as Mike Pullen pointed out.
*
//Draw Tick and Label for X axis
if (! $this->skip_bottom_tick) {
$ylab =$this->FormatLabel('y', $this->x_axis_position);
$this->DrawYTick($ylab, $this->x_axis_y_pixels);
}
*/
//Draw X Axis at Y = x_axis_y_pixels
ImageLine($this->img, $this->plot_area[0]+1, $this->x_axis_y_pixels,
$this->plot_area[2]-1, $this->x_axis_y_pixels, $this->ndx_grid_color);
return TRUE;
}
/*!
* Draw Just one Tick, called from DrawYTicks() and DrawXAxis()
* TODO? Move this inside DrawYTicks() and Modify DrawXAxis() ?
*/
function DrawYTick($which_ylab, $which_ypix)
{
// Ticks on Y axis
if ($this->y_tick_pos == 'yaxis') {
ImageLine($this->img, $this->y_axis_x_pixels - $this->y_tick_length, $which_ypix,
$this->y_axis_x_pixels + $this->y_tick_cross, $which_ypix,
$this->ndx_tick_color);
}
// Labels on Y axis
if ($this->y_tick_label_pos == 'yaxis') {
$this->DrawText($this->y_label_font, $this->y_label_angle,
$this->y_axis_x_pixels - $this->y_tick_length * 1.5, $which_ypix,
$this->ndx_text_color, $which_ylab, 'right', 'center');
}
// Ticks to the left of the Plot Area
if (($this->y_tick_pos == 'plotleft') || ($this->y_tick_pos == 'both') ) {
ImageLine($this->img, $this->plot_area[0] - $this->y_tick_length,
$which_ypix, $this->plot_area[0] + $this->y_tick_cross,
$which_ypix, $this->ndx_tick_color);
}
// Ticks to the right of the Plot Area
if (($this->y_tick_pos == 'plotright') || ($this->y_tick_pos == 'both') ) {
ImageLine($this->img, ($this->plot_area[2] + $this->y_tick_length),
$which_ypix, $this->plot_area[2] - $this->y_tick_cross,
$which_ypix, $this->ndx_tick_color);
}
// Labels to the left of the plot area
if ($this->y_tick_label_pos == 'plotleft' || $this->y_tick_label_pos == 'both') {
$this->DrawText($this->y_label_font, $this->y_label_angle,
$this->plot_area[0] - $this->y_tick_length * 1.5, $which_ypix,
$this->ndx_text_color, $which_ylab, 'right', 'center');
}
// Labels to the right of the plot area
if ($this->y_tick_label_pos == 'plotright' || $this->y_tick_label_pos == 'both') {
$this->DrawText($this->y_label_font, $this->y_label_angle,
$this->plot_area[2] + $this->y_tick_length * 1.5, $which_ypix,
$this->ndx_text_color, $which_ylab, 'left', 'center');
}
} // Function DrawYTick()
/*!
* Draws Grid, Ticks and Tick Labels along Y-Axis
* Ticks and ticklabels can be left of plot only, right of plot only,
* both on the left and right of plot, or crossing a user defined Y-axis
* TODO: marks at whole numbers (-10, 10, 20, 30 ...) no matter where the plot begins (-3, 4.7, etc.)
*/
function DrawYTicks()
{
// Sets the line style for IMG_COLOR_STYLED lines (grid)
if ($this->dashed_grid) {
$this->SetDashedStyle($this->ndx_light_grid_color);
$style = IMG_COLOR_STYLED;
} else {
$style = $this->ndx_light_grid_color;
}
// maxy is always > miny so delta_y is always positive
if ($this->y_tick_inc) {
$delta_y = $this->y_tick_inc;
} elseif ($this->num_y_ticks) {
$delta_y = ($this->plot_max_y - $this->plot_min_y) / $this->num_y_ticks;
} else {
$delta_y = ($this->plot_max_y - $this->plot_min_y) / 10 ;
}
// NOTE: When working with floats, because of approximations when adding $delta_y,
// $y_tmp never equals $y_end at the for loop, so one spurious line would get drawn where
// not for the substraction to $y_end here.
$y_tmp = (double)$this->plot_min_y;
$y_end = (double)$this->plot_max_y - ($delta_y/2);
if ($this->skip_bottom_tick)
$y_tmp += $delta_y;
if ($this->skip_top_tick)
$y_end -= $delta_y;
for (;$y_tmp < $y_end; $y_tmp += $delta_y) {
$ylab = $this->FormatLabel('y', $y_tmp);
$y_pixels = $this->ytr($y_tmp);
// Horizontal grid line
if ($this->draw_y_grid) {
ImageLine($this->img, $this->plot_area[0]+1, $y_pixels, $this->plot_area[2]-1, $y_pixels, $style);
}
// Draw ticks
$this->DrawYTick($ylab, $y_pixels);
}
return TRUE;
} // function DrawYTicks
/*!
* Draws Grid, Ticks and Tick Labels along X-Axis
* Ticks and tick labels can be down of plot only, up of plot only,
* both on up and down of plot, or crossing a user defined X-axis
*
* \note Original vertical code submitted by Marlin Viss
*/
function DrawXTicks()
{
// Sets the line style for IMG_COLOR_STYLED lines (grid)
if ($this->dashed_grid) {
$this->SetDashedStyle($this->ndx_light_grid_color);
$style = IMG_COLOR_STYLED;
} else {
$style = $this->ndx_light_grid_color;
}
// Calculate x increment between ticks
if ($this->x_tick_inc) {
$delta_x = $this->x_tick_inc;
} elseif ($this->num_x_ticks) {
$delta_x = ($this->plot_max_x - $this->plot_min_x) / $this->num_x_ticks;
} else {
$delta_x =($this->plot_max_x - $this->plot_min_x) / 10 ;
}
// NOTE: When working with decimals, because of approximations when adding $delta_x,
// $x_tmp never equals $x_end at the for loop, so one spurious line would get drawn where
// not for the substraction to $x_end here.
$x_tmp = (double)$this->plot_min_x;
$x_end = (double)$this->plot_max_x - ($delta_x/2);
// Should the leftmost tick be drawn?
if ($this->skip_left_tick)
$x_tmp += $delta_x;
// And the rightmost?
if (! $this->skip_right_tick)
$x_end += $delta_x;
for (;$x_tmp < $x_end; $x_tmp += $delta_x) {
$xlab = $this->FormatLabel('x', $x_tmp);
$x_pixels = $this->xtr($x_tmp);
// Vertical grid lines
if ($this->draw_x_grid) {
ImageLine($this->img, $x_pixels, $this->plot_area[1], $x_pixels, $this->plot_area[3], $style);
}
// Tick on X Axis
if ($this->x_tick_pos == 'xaxis') {
ImageLine($this->img, $x_pixels, $this->x_axis_y_pixels - $this->x_tick_cross,
$x_pixels, $this->x_axis_y_pixels + $this->x_tick_length, $this->ndx_tick_color);
}
// Label on X axis
if ($this->x_tick_label_pos == 'xaxis') {
$this->DrawText($this->x_label_font, $this->x_label_angle, $x_pixels,
$this->x_axis_y_pixels + $this->x_tick_length*1.5, $this->ndx_text_color,
$xlab, 'center', 'bottom');
}
// Top of the plot area tick
if ($this->x_tick_pos == 'plotup' || $this->x_tick_pos == 'both') {
ImageLine($this->img, $x_pixels, $this->plot_area[1] - $this->x_tick_length,
$x_pixels, $this->plot_area[1] + $this->x_tick_cross, $this->ndx_tick_color);
}
// Bottom of the plot area tick
if ($this->x_tick_pos == 'plotdown' || $this->x_tick_pos == 'both') {
ImageLine($this->img, $x_pixels, $this->plot_area[3] + $this->x_tick_length,
$x_pixels, $this->plot_area[3] - $this->x_tick_cross, $this->ndx_tick_color);
}
// Top of the plot area tick label
if ($this->x_tick_label_pos == 'plotup' || $this->x_tick_label_pos == 'both') {
$this->DrawText($this->x_label_font, $this->x_label_angle, $x_pixels,
$this->plot_area[1] - $this->x_tick_length*1.5, $this->ndx_text_color,
$xlab, 'center', 'top');
}
// Bottom of the plot area tick label
if ($this->x_tick_label_pos == 'plotdown' || $this->x_tick_label_pos == 'both') {
$this->DrawText($this->x_label_font, $this->x_label_angle, $x_pixels,
$this->plot_area[3] + $this->x_tick_length*1.5, $this->ndx_text_color,
$xlab, 'center', 'bottom');
}
}
return;
} // function DrawXTicks
/*!
*
*/
function DrawPlotBorder()
{
switch ($this->plot_border_type) {
case 'left': // for past compatibility
case 'plotleft':
ImageLine($this->img, $this->plot_area[0], $this->ytr($this->plot_min_y),
$this->plot_area[0], $this->ytr($this->plot_max_y), $this->ndx_grid_color);
break;
case 'right':
case 'plotright':
ImageLine($this->img, $this->plot_area[2], $this->ytr($this->plot_min_y),
$this->plot_area[2], $this->ytr($this->plot_max_y), $this->ndx_grid_color);
break;
case 'both':
case 'sides':
ImageLine($this->img, $this->plot_area[0], $this->ytr($this->plot_min_y),
$this->plot_area[0], $this->ytr($this->plot_max_y), $this->ndx_grid_color);
ImageLine($this->img, $this->plot_area[2], $this->ytr($this->plot_min_y),
$this->plot_area[2], $this->ytr($this->plot_max_y), $this->ndx_grid_color);
break;
case 'none':
//Draw No Border
break;
case 'full':
default:
ImageRectangle($this->img, $this->plot_area[0], $this->ytr($this->plot_min_y),
$this->plot_area[2], $this->ytr($this->plot_max_y), $this->ndx_grid_color);
break;
}
return TRUE;
}
/*!
* Draws the data label associated with a point in the plot at specified x/y world position.
* Calling of this function in DrawLines(), etc is decided after x_data_label_pos value.
* what the setting is (for plots that need it, like DrawSquared())
*/
function DrawDataLabel($which_font, $which_angle, $x_world, $y_world, $which_color, $which_text,
$which_halign = 'center', $which_valign = 'top', $x_adjustment=0, $y_adjustment=0)
{
$data_label = $this->FormatLabel('y', $which_text);
//since DrawDataLabel is going to be called alot - perhaps for speed it is better to
//not use this if statement and just always assume which_font is x_label_font (ditto for color).
if ( empty($which_font) )
$which_font = $this->x_label_font;
$which_angle = empty($which_angle)?'0':$this->x_label_angle;
if ( empty($which_color) )
$which_color = $this->ndx_title_color;
$x_pixels = $this->xtr($x_world) + $x_adjustment;
$y_pixels = $this->ytr($y_world) + $y_adjustment;
$this->DrawText($which_font, $which_angle, $x_pixels, $y_pixels,
$which_color, $which_text, $which_halign, $which_valign);
return TRUE;
}
/*!
* Draws the data label associated with a point in the plot.
* This is different from x_labels drawn by DrawXTicks() and care
* should be taken not to draw both, as they'd probably overlap.
* Calling of this function in DrawLines(), etc is decided after x_data_label_pos value.
* Leave the last parameter out, to avoid the drawing of vertical lines, no matter
* what the setting is (for plots that need it, like DrawSquared())
*/
function DrawXDataLabel($xlab, $xpos, $row=FALSE)
{
// FIXME!! not working...
if (($this->_x_label_cnt++ % $this->x_label_inc) != 0)
return;
$xlab = $this->FormatLabel('x', $xlab);
// Labels below the plot area
if ($this->x_data_label_pos == 'plotdown' || $this->x_data_label_pos == 'both')
$this->DrawText($this->x_label_font, $this->x_label_angle, $xpos,
$this->plot_area[3] + $this->x_tick_length,
$this->ndx_text_color, $xlab, 'center', 'bottom');
// Labels above the plot area
if ($this->x_data_label_pos == 'plotup' || $this->x_data_label_pos == 'both')
$this->DrawText($this->x_label_font, $this->x_label_angle, $xpos,
$this->plot_area[1] - $this->x_tick_length ,
$this->ndx_text_color, $xlab, 'center', 'top');
// $row=0 means this is the first row. $row=FALSE means don't do any rows.
if ($row !== FALSE && $this->draw_x_data_label_lines)
$this->DrawXDataLine($xpos, $row);
}
/*!
* Draws Vertical lines from data points up and down.
* Which lines are drawn depends on the value of x_data_label_pos,
* and whether this is at all done or not, on draw_x_data_label_lines
*
* \param xpos int position in pixels of the line.
* \param row int index of the data row being drawn.
*/
function DrawXDataLine($xpos, $row)
{
// Sets the line style for IMG_COLOR_STYLED lines (grid)
if($this->dashed_grid) {
$this->SetDashedStyle($this->ndx_light_grid_color);
$style = IMG_COLOR_STYLED;
} else {
$style = $this->ndx_light_grid_color;
}
// Lines from the bottom up
if ($this->x_data_label_pos == 'both') {
ImageLine($this->img, $xpos, $this->plot_area[3], $xpos, $this->plot_area[1], $style);
}
// Lines coming from the bottom of the plot
else if ($this->x_data_label_pos == 'plotdown') {
// See FindDataLimits() to see why 'MAXY' index.
$ypos = $this->ytr($this->data[$row][MAXY]);
ImageLine($this->img, $xpos, $ypos, $xpos, $this->plot_area[3], $style);
}
// Lines coming from the top of the plot
else if ($this->x_data_label_pos == 'plotup') {
// See FindDataLimits() to see why 'MINY' index.
$ypos = $this->ytr($this->data[$row][MINY]);
ImageLine($this->img, $xpos, $this->plot_area[1], $xpos, $ypos, $style);
}
}
/*
function DrawPlotLabel($xlab, $xpos, $ypos)
{
$this->DrawText($this->x_label_font, $this->x_label_angle, $xpos, $this
*/
/*!
* Draws the graph legend
*
* \note Base code submitted by Marlin Viss
* FIXME: maximum label length should be calculated more accurately for TT fonts
* Performing a BBox calculation for every legend element, for example.
*/
function DrawLegend($which_x1, $which_y1, $which_boxtype)
{
// Find maximum legend label length
$max_len = 0;
foreach ($this->legend as $leg) {
$len = strlen($leg);
$max_len = ($len > $max_len) ? $len : $max_len;
}
$max_len += 5; // Leave room for the boxes and margins
/////// Calculate legend labels sizes: FIXME - dirty hack - FIXME
// TTF:
if ($this->use_ttf) {
$size = $this->TTFBBoxSize($this->legend_font['size'], 0,
$this->legend_font['font'], '_');
$char_w = $size[0];
$size = $this->TTFBBoxSize($this->legend_font['size'], 0,
$this->legend_font['font'], '|');
$char_h = $size[1];
}
// Fixed fonts:
else {
$char_w = $this->legend_font['width'];
$char_h = $this->legend_font['height'];
}
$v_margin = $char_h/2; // Between vertical borders and labels
$dot_height = $char_h + $this->line_spacing; // Height of the small colored boxes
$width = $char_w * $max_len;
//////// Calculate box size
// upper Left
if ( (! $which_x1) || (! $which_y1) ) {
$box_start_x = $this->plot_area[2] - $width;
$box_start_y = $this->plot_area[1] + 5;
} else {
$box_start_x = $which_x1;
$box_start_y = $which_y1;
}
// Lower right corner
$box_end_y = $box_start_y + $dot_height*(count($this->legend)) + 2*$v_margin;
$box_end_x = $box_start_x + $width - 5;
// Draw outer box
ImageFilledRectangle($this->img, $box_start_x, $box_start_y, $box_end_x, $box_end_y, $this->ndx_bg_color);
ImageRectangle($this->img, $box_start_x, $box_start_y, $box_end_x, $box_end_y, $this->ndx_grid_color);
$color_index = 0;
$max_color_index = count($this->ndx_data_colors) - 1;
$dot_left_x = $box_end_x - $char_w * 2;
$dot_right_x = $box_end_x - $char_w;
$y_pos = $box_start_y + $v_margin;
foreach ($this->legend as $leg) {
// Text right aligned to the little box
$this->DrawText($this->legend_font, 0, $dot_left_x - $char_w, $y_pos,
$this->ndx_text_color, $leg, 'right');
// Draw a box in the data color
ImageFilledRectangle($this->img, $dot_left_x, $y_pos + 1, $dot_right_x,
$y_pos + $dot_height-1, $this->ndx_data_colors[$color_index]);
// Draw a rectangle around the box
ImageRectangle($this->img, $dot_left_x, $y_pos + 1, $dot_right_x,
$y_pos + $dot_height-1, $this->ndx_text_color);
$y_pos += $char_h + $this->line_spacing;
$color_index++;
if ($color_index > $max_color_index)
$color_index = 0;
}
} // Function DrawLegend()
/*!
* TODO Draws a legend over (or below) an axis of the plot.
*/
function DrawAxisLegend()
{
// Calculate available room
// Calculate length of all items (boxes included)
// Calculate number of lines and room it would take. FIXME: this should be known in CalcMargins()
// Draw.
}
/////////////////////////////////////////////
//////////////////// PLOT DRAWING
/////////////////////////////////////////////
/*!
* Draws a pie chart. Data has to be 'text-data' type.
*
* This can work in two ways: the classical, with a column for each sector
* (computes the column totals and draws the pie with that)
* OR
* Takes each row as a sector and uses it's first value. This has the added
* advantage of using the labels provided, which is not the case with the
* former method. This might prove useful for pie charts from GROUP BY sql queries
*/
function DrawPieChart()
{
$xpos = $this->plot_area[0] + $this->plot_area_width/2;
$ypos = $this->plot_area[1] + $this->plot_area_height/2;
$diameter = min($this->plot_area_width, $this->plot_area_height);
$radius = $diameter/2;
// Get sum of each column? One pie slice per column
if ($this->data_type === 'text-data') {
for ($i = 0; $i < $this->num_data_rows; $i++) {
for ($j = 1; $j < $this->num_recs[$i]; $j++) { // Label ($row[0]) unused in these pie charts
@ $sumarr[$j] += abs($this->data[$i][$j]); // NOTE! sum > 0 to make pie charts
}
}
}
// Or only one column per row, one pie slice per row?
else if ($this->data_type == 'text-data-single') {
for ($i = 0; $i < $this->num_data_rows; $i++) {
$legend[$i] = $this->data[$i][0]; // Set the legend to column labels
$sumarr[$i] = $this->data[$i][1];
}
}
else if ($this->data_type == 'data-data') {
for ($i = 0; $i < $this->num_data_rows; $i++) {
for ($j = 2; $j < $this->num_recs[$i]; $j++) {
@ $sumarr[$j] += abs($this->data[$i][$j]);
}
}
}
else {
$this->DrawError("DrawPieChart(): Data type '$this->data_type' not supported.");
return FALSE;
}
$total = array_sum($sumarr);
if ($total == 0) {
$this->DrawError('DrawPieChart(): Empty data set');
return FALSE;
}
if ($this->shading) {
$diam2 = $diameter / 2;
} else {
$diam2 = $diameter;
}
$max_data_colors = count ($this->data_colors);
for ($h = $this->shading; $h >= 0; $h--) {
$color_index = 0;
$start_angle = 0;
$end_angle = 0;
foreach ($sumarr as $val) {
// For shaded pies: the last one (at the top of the "stack") has a brighter color:
if ($h == 0)
$slicecol = $this->ndx_data_colors[$color_index];
else
$slicecol = $this->ndx_data_dark_colors[$color_index];
$label_txt = number_format(($val / $total * 100), $this->y_precision, '.', ', ') . '%';
$val = 360 * ($val / $total);
// NOTE that imagefilledarc measures angles CLOCKWISE (go figure why),
// so the pie chart would start clockwise from 3 o'clock, would it not be
// for the reversal of start and end angles in imagefilledarc()
$start_angle = $end_angle;
$end_angle += $val;
$mid_angle = deg2rad($end_angle - ($val / 2));
// Draw the slice
ImageFilledArc($this->img, $xpos, $ypos+$h, $diameter, $diam2,
360-$end_angle, 360-$start_angle,
$slicecol, IMG_ARC_PIE);
// Draw the labels only once
if ($h == 0) {
// Draw the outline
if (! $this->shading)
ImageFilledArc($this->img, $xpos, $ypos+$h, $diameter, $diam2,
360-$end_angle, 360-$start_angle,
$this->ndx_grid_color, IMG_ARC_PIE | IMG_ARC_EDGED |IMG_ARC_NOFILL);
// The '* 1.2' trick is to get labels out of the pie chart so there are more
// chances they can be seen in small sectors.
$label_x = $xpos + ($diameter * 1.2 * cos($mid_angle)) * $this->label_scale_position;
$label_y = $ypos+$h - ($diam2 * 1.2 * sin($mid_angle)) * $this->label_scale_position;
$this->DrawText($this->generic_font, 0, $label_x, $label_y, $this->ndx_grid_color,
$label_txt, 'center', 'center');
}
$color_index++;
$color_index = $color_index % $max_data_colors;
} // end for
} // end for
}
/*!
* Supported data formats: data-data-error, text-data-error (doesn't exist yet)
* ( data comes in as array("title", x, y, error+, error-, y2, error2+, error2-, ...) )
*/
function DrawDotsError()
{
if ($this->data_type != 'data-data-error') {
$this->DrawError("DrawDotsError(): Data type '$this->data_type' not supported.");
return FALSE;
}
// Suppress duplicate X data labels in linepoints mode; let DrawLinesError() do them.
$do_labels = ($this->plot_type != 'linepoints');
for($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$record = 1; // Skip record #0 (title)
$x_now = $this->data[$row][$record++]; // Read it, advance record index
$x_now_pixels = $this->xtr($x_now); // Absolute coordinates.
// Draw X Data labels?
if ($this->x_data_label_pos != 'none' && $do_labels)
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels, $row);
// Now go for Y, E+, E-
for ($idx = 0; $record < $this->num_recs[$row]; $idx++) {
// Y:
$y_now = $this->data[$row][$record++];
$this->DrawDot($x_now, $y_now, $idx, $this->ndx_data_colors[$idx]);
// Error +
$val = $this->data[$row][$record++];
$this->DrawYErrorBar($x_now, $y_now, $val, $this->error_bar_shape,
$this->ndx_error_bar_colors[$idx]);
// Error -
$val = $this->data[$row][$record++];
$this->DrawYErrorBar($x_now, $y_now, -$val, $this->error_bar_shape,
$this->ndx_error_bar_colors[$idx]);
}
}
} // function DrawDotsError()
/*
* Supported data types:
* - data-data ("title", x, y1, y2, y3, ...)
* - text-data ("title", y1, y2, y3, ...)
*/
function DrawDots()
{
$this->CheckOption($this->data_type, 'text-data, data-data', __FUNCTION__);
// Suppress duplicate X data labels in linepoints mode; let DrawLines() do them.
$do_labels = ($this->plot_type != 'linepoints');
for ($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$rec = 1; // Skip record #0 (data label)
// Do we have a value for X?
if ($this->data_type == 'data-data')
$x_now = $this->data[$row][$rec++]; // Read it, advance record index
else
$x_now = 0.5 + $cnt++; // Place text-data at X = 0.5, 1.5, 2.5, etc...
$x_now_pixels = $this->xtr($x_now);
// Draw X Data labels?
if ($this->x_data_label_pos != 'none' && $do_labels)
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels, $row);
// Proceed with Y values
for($idx = 0;$rec < $this->num_recs[$row]; $rec++, $idx++) {
if (is_numeric($this->data[$row][$rec])) { // Allow for missing Y data
$this->DrawDot($x_now, $this->data[$row][$rec],
$idx, $this->ndx_data_colors[$idx]);
}
}
}
} //function DrawDots
/*!
* A clean, fast routine for when you just want charts like stock volume charts
*/
function DrawThinBarLines()
{
$this->CheckOption($this->data_type, 'text-data, data-data', __FUNCTION__);
for ($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$rec = 1; // Skip record #0 (data label)
// Do we have a value for X?
if ($this->data_type == 'data-data')
$x_now = $this->data[$row][$rec++]; // Read it, advance record index
else
$x_now = 0.5 + $cnt++; // Place text-data at X = 0.5, 1.5, 2.5, etc...
$x_now_pixels = $this->xtr($x_now);
// Draw X Data labels?
if ($this->x_data_label_pos != 'none')
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels);
// Proceed with Y values
for($idx = 0;$rec < $this->num_recs[$row]; $rec++, $idx++) {
if (is_numeric($this->data[$row][$rec])) { // Allow for missing Y data
ImageSetThickness($this->img, $this->line_widths[$idx]);
// Draws a line from user defined x axis position up to ytr($val)
ImageLine($this->img, $x_now_pixels, $this->x_axis_y_pixels, $x_now_pixels,
$this->ytr($this->data[$row][$rec]), $this->ndx_data_colors[$idx]);
}
}
}
ImageSetThickness($this->img, 1);
} //function DrawThinBarLines
/*!
*
*/
function DrawYErrorBar($x_world, $y_world, $error_height, $error_bar_type, $color)
{
/*
// TODO: add a parameter to show datalabels next to error bars?
// something like this:
if ($this->x_data_label_pos == 'plot') {
$this->DrawText($this->error_font, 90, $x1, $y2,
$color, $label, 'center', 'top');
*/
$x1 = $this->xtr($x_world);
$y1 = $this->ytr($y_world);
$y2 = $this->ytr($y_world+$error_height) ;
ImageSetThickness($this->img, $this->error_bar_line_width);
ImageLine($this->img, $x1, $y1 , $x1, $y2, $color);
switch ($error_bar_type) {
case 'line':
break;
case 'tee':
ImageLine($this->img, $x1-$this->error_bar_size, $y2, $x1+$this->error_bar_size, $y2, $color);
break;
default:
ImageLine($this->img, $x1-$this->error_bar_size, $y2, $x1+$this->error_bar_size, $y2, $color);
break;
}
ImageSetThickness($this->img, 1);
return TRUE;
}
/*!
* Draws a styled dot. Uses world coordinates.
* Supported types: 'halfline', 'line', 'plus', 'cross', 'rect', 'circle', 'dot',
* 'diamond', 'triangle', 'trianglemid'
*/
function DrawDot($x_world, $y_world, $record, $color)
{
// TODO: optimize, avoid counting every time we are called.
$record = $record % count ($this->point_shapes);
$half_point = $this->point_sizes[$record] / 2;
$x_mid = $this->xtr($x_world);
$y_mid = $this->ytr($y_world);
$x1 = $x_mid - $half_point;
$x2 = $x_mid + $half_point;
$y1 = $y_mid - $half_point;
$y2 = $y_mid + $half_point;
switch ($this->point_shapes[$record]) {
case 'halfline':
ImageLine($this->img, $x1, $y_mid, $x_mid, $y_mid, $color);
break;
case 'line':
ImageLine($this->img, $x1, $y_mid, $x2, $y_mid, $color);
break;
case 'plus':
ImageLine($this->img, $x1, $y_mid, $x2, $y_mid, $color);
ImageLine($this->img, $x_mid, $y1, $x_mid, $y2, $color);
break;
case 'cross':
ImageLine($this->img, $x1, $y1, $x2, $y2, $color);
ImageLine($this->img, $x1, $y2, $x2, $y1, $color);
break;
case 'rect':
ImageFilledRectangle($this->img, $x1, $y1, $x2, $y2, $color);
break;
case 'circle':
ImageArc($this->img, $x_mid, $y_mid, $this->point_sizes[$record], $this->point_sizes[$record], 0, 360, $color);
break;
case 'dot':
ImageFilledArc($this->img, $x_mid, $y_mid, $this->point_sizes[$record], $this->point_sizes[$record], 0, 360,
$color, IMG_ARC_PIE);
break;
case 'diamond':
$arrpoints = array( $x1, $y_mid, $x_mid, $y1, $x2, $y_mid, $x_mid, $y2);
ImageFilledPolygon($this->img, $arrpoints, 4, $color);
break;
case 'triangle':
$arrpoints = array( $x1, $y_mid, $x2, $y_mid, $x_mid, $y2);
ImageFilledPolygon($this->img, $arrpoints, 3, $color);
break;
case 'trianglemid':
$arrpoints = array( $x1, $y1, $x2, $y1, $x_mid, $y_mid);
ImageFilledPolygon($this->img, $arrpoints, 3, $color);
break;
case 'none':
break;
default:
ImageFilledRectangle($this->img, $x1, $y1, $x2, $y2, $color);
break;
}
return TRUE;
}
/*!
* Draw an area plot. Supported data types:
* 'text-data'
* 'data-data'
* NOTE: This function used to add first and last data values even on incomplete
* sets. That is not the behaviour now. As for missing data in between,
* there are two posibilities: replace the point with one on the X axis (previous
* way), or forget about it and use the preceding and following ones to draw the polygon.
* There is the possibility to use both, we just need to add the method to set
* it. Something like SetMissingDataBehaviour(), for example.
*/
function DrawArea()
{
$incomplete_data_defaults_to_x_axis = FALSE; // TODO: make this configurable
for ($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$rec = 1; // Skip record #0 (data label)
if ($this->data_type == 'data-data') // Do we have a value for X?
$x_now = $this->data[$row][$rec++]; // Read it, advance record index
else
$x_now = 0.5 + $cnt++; // Place text-data at X = 0.5, 1.5, 2.5, etc...
$x_now_pixels = $this->xtr($x_now); // Absolute coordinates
if ($this->x_data_label_pos != 'none') // Draw X Data labels?
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels);
// Proceed with Y values
// Create array of points for imagefilledpolygon()
for($idx = 0; $rec < $this->num_recs[$row]; $rec++, $idx++) {
if (is_numeric($this->data[$row][$rec])) { // Allow for missing Y data
$y_now_pixels = $this->ytr($this->data[$row][$rec]);
$posarr[$idx][] = $x_now_pixels;
$posarr[$idx][] = $y_now_pixels;
$num_points[$idx] = isset($num_points[$idx]) ? $num_points[$idx]+1 : 1;
}
// If there's missing data...
else {
if (isset ($incomplete_data_defaults_to_x_axis)) {
$posarr[$idx][] = $x_now_pixels;
$posarr[$idx][] = $this->x_axis_y_pixels;
$num_points[$idx] = isset($num_points[$idx]) ? $num_points[$idx]+1 : 1;
}
}
}
} // end for
$end = count($posarr);
for ($i = 0; $i < $end; $i++) {
// Prepend initial points. X = first point's X, Y = x_axis_y_pixels
$x = $posarr[$i][0];
array_unshift($posarr[$i], $x, $this->x_axis_y_pixels);
// Append final points. X = last point's X, Y = x_axis_y_pixels
$x = $posarr[$i][count($posarr[$i])-2];
array_push($posarr[$i], $x, $this->x_axis_y_pixels);
$num_points[$i] += 2;
// Draw the poligon
ImageFilledPolygon($this->img, $posarr[$i], $num_points[$i], $this->ndx_data_colors[$i]);
}
} // function DrawArea()
/*!
* Draw Lines. Supported data-types:
* 'data-data',
* 'text-data'
* NOTE: Please see the note regarding incomplete data sets on DrawArea()
*/
function DrawLines()
{
// This will tell us if lines have already begun to be drawn.
// It is an array to keep separate information for every line, with a single
// variable we would sometimes get "undefined offset" errors and no plot...
$start_lines = array_fill(0, $this->records_per_group, FALSE);
if ($this->data_type == 'text-data') {
$lastx[0] = $this->xtr(0);
$lasty[0] = $this->xtr(0);
}
for ($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$record = 1; // Skip record #0 (data label)
if ($this->data_type == 'data-data') // Do we have a value for X?
$x_now = $this->data[$row][$record++]; // Read it, advance record index
else
$x_now = 0.5 + $cnt++; // Place text-data at X = 0.5, 1.5, 2.5, etc...
$x_now_pixels = $this->xtr($x_now); // Absolute coordinates
if ($this->x_data_label_pos != 'none') // Draw X Data labels?
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels, $row);
for ($idx = 0; $record < $this->num_recs[$row]; $record++, $idx++) {
if (($line_style = $this->line_styles[$idx]) == 'none')
continue; //Allow suppressing entire line, useful with linepoints
if (is_numeric($this->data[$row][$record])) { //Allow for missing Y data
$y_now_pixels = $this->ytr($this->data[$row][$record]);
if ($start_lines[$idx] == TRUE) {
// Set line width, revert it to normal at the end
ImageSetThickness($this->img, $this->line_widths[$idx]);
if ($line_style == 'dashed') {
$this->SetDashedStyle($this->ndx_data_colors[$idx]);
ImageLine($this->img, $x_now_pixels, $y_now_pixels, $lastx[$idx], $lasty[$idx],
IMG_COLOR_STYLED);
} else {
ImageLine($this->img, $x_now_pixels, $y_now_pixels, $lastx[$idx], $lasty[$idx],
$this->ndx_data_colors[$idx]);
}
}
$lasty[$idx] = $y_now_pixels;
$lastx[$idx] = $x_now_pixels;
$start_lines[$idx] = TRUE;
}
// Y data missing... should we leave a blank or not?
else if ($this->draw_broken_lines) {
$start_lines[$idx] = FALSE;
}
} // end for
} // end for
ImageSetThickness($this->img, 1); // Revert to original state for lines to be drawn later.
} // function DrawLines()
/*!
* Draw lines with error bars - data comes in as
* array("label", x, y, error+, error-, y2, error2+, error2-, ...);
*/
function DrawLinesError()
{
if ($this->data_type != 'data-data-error') {
$this->DrawError("DrawLinesError(): Data type '$this->data_type' not supported.");
return FALSE;
}
$start_lines = array_fill(0, $this->records_per_group, FALSE);
for ($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$record = 1; // Skip record #0 (data label)
$x_now = $this->data[$row][$record++]; // Read X value, advance record index
$x_now_pixels = $this->xtr($x_now); // Absolute coordinates.
if ($this->x_data_label_pos != 'none') // Draw X Data labels?
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels, $row);
// Now go for Y, E+, E-
for ($idx = 0; $record < $this->num_recs[$row]; $idx++) {
if (($line_style = $this->line_styles[$idx]) == 'none')
continue; //Allow suppressing entire line, useful with linepoints
// Y
$y_now = $this->data[$row][$record++];
$y_now_pixels = $this->ytr($y_now);
if ($start_lines[$idx] == TRUE) {
ImageSetThickness($this->img, $this->line_widths[$idx]);
if ($line_style == 'dashed') {
$this->SetDashedStyle($this->ndx_data_colors[$idx]);
ImageLine($this->img, $x_now_pixels, $y_now_pixels, $lastx[$idx], $lasty[$idx],
IMG_COLOR_STYLED);
} else {
ImageLine($this->img, $x_now_pixels, $y_now_pixels, $lastx[$idx], $lasty[$idx],
$this->ndx_data_colors[$idx]);
}
}
// Error+
$val = $this->data[$row][$record++];
$this->DrawYErrorBar($x_now, $y_now, $val, $this->error_bar_shape,
$this->ndx_error_bar_colors[$idx]);
// Error-
$val = $this->data[$row][$record++];
$this->DrawYErrorBar($x_now, $y_now, -$val, $this->error_bar_shape,
$this->ndx_error_bar_colors[$idx]);
// Update indexes:
$start_lines[$idx] = TRUE; // Tells us if we already drew the first column of points,
// thus having $lastx and $lasty ready for the next column.
$lastx[$idx] = $x_now_pixels;
$lasty[$idx] = $y_now_pixels;
} // end while
} // end for
ImageSetThickness($this->img, 1); // Revert to original state for lines to be drawn later.
} // function DrawLinesError()
/*!
* This is a mere copy of DrawLines() with one more line drawn for each point
*/
function DrawSquared()
{
// This will tell us if lines have already begun to be drawn.
// It is an array to keep separate information for every line, for with a single
// variable we could sometimes get "undefined offset" errors and no plot...
$start_lines = array_fill(0, $this->records_per_group, FALSE);
if ($this->data_type == 'text-data') {
$lastx[0] = $this->xtr(0);
$lasty[0] = $this->xtr(0);
}
for ($row = 0, $cnt = 0; $row < $this->num_data_rows; $row++) {
$record = 1; // Skip record #0 (data label)
if ($this->data_type == 'data-data') // Do we have a value for X?
$x_now = $this->data[$row][$record++]; // Read it, advance record index
else
$x_now = 0.5 + $cnt++; // Place text-data at X = 0.5, 1.5, 2.5, etc...
$x_now_pixels = $this->xtr($x_now); // Absolute coordinates
if ($this->x_data_label_pos != 'none') // Draw X Data labels?
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels); // notice there is no last param.
// Draw Lines
for ($idx = 0; $record < $this->num_recs[$row]; $record++, $idx++) {
if (is_numeric($this->data[$row][$record])) { // Allow for missing Y data
$y_now_pixels = $this->ytr($this->data[$row][$record]);
if ($start_lines[$idx] == TRUE) {
// Set line width, revert it to normal at the end
ImageSetThickness($this->img, $this->line_widths[$idx]);
if ($this->line_styles[$idx] == 'dashed') {
$this->SetDashedStyle($this->ndx_data_colors[$idx]);
ImageLine($this->img, $lastx[$idx], $lasty[$idx], $x_now_pixels, $lasty[$idx],
IMG_COLOR_STYLED);
ImageLine($this->img, $x_now_pixels, $lasty[$idx], $x_now_pixels, $y_now_pixels,
IMG_COLOR_STYLED);
} else {
ImageLine($this->img, $lastx[$idx], $lasty[$idx], $x_now_pixels, $lasty[$idx],
$this->ndx_data_colors[$idx]);
ImageLine($this->img, $x_now_pixels, $lasty[$idx], $x_now_pixels, $y_now_pixels,
$this->ndx_data_colors[$idx]);
}
}
$lastx[$idx] = $x_now_pixels;
$lasty[$idx] = $y_now_pixels;
$start_lines[$idx] = TRUE;
}
// Y data missing... should we leave a blank or not?
else if ($this->draw_broken_lines) {
$start_lines[$idx] = FALSE;
}
}
} // end while
ImageSetThickness($this->img, 1);
} // function DrawSquared()
/*!
* Data comes in as array("title", x, y, y2, y3, ...)
*/
function DrawBars()
{
if ($this->data_type != 'text-data') {
$this->DrawError('DrawBars(): Bar plots must be text-data: use function SetDataType("text-data")');
return FALSE;
}
// This is the X offset from the bar group's label center point to the left side of the first bar
// in the group. See also CalcBarWidths above.
$x_first_bar = (($this->records_per_group - 1) * $this->record_bar_width) / 2 - $this->bar_adjust_gap;
for ($row = 0; $row < $this->num_data_rows; $row++) {
$record = 1; // Skip record #0 (data label)
$x_now_pixels = $this->xtr(0.5 + $row); // Place text-data at X = 0.5, 1.5, 2.5, etc...
if ($this->x_data_label_pos != 'none') // Draw X Data labels?
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels);
// Lower left X of first bar in the group:
$x1 = $x_now_pixels - $x_first_bar;
// Draw the bars in the group:
for ($idx = 0; $record < $this->num_recs[$row]; $record++, $idx++) {
if (is_numeric($this->data[$row][$record])) { // Allow for missing Y data
$x2 = $x1 + $this->actual_bar_width;
if ($this->data[$row][$record] < $this->x_axis_position) {
$y1 = $this->x_axis_y_pixels;
$y2 = $this->ytr($this->data[$row][$record]);
$upgoing_bar = False;
} else {
$y1 = $this->ytr($this->data[$row][$record]);
$y2 = $this->x_axis_y_pixels;
$upgoing_bar = True;
}
// Draw the bar
ImageFilledRectangle($this->img, $x1, $y1, $x2, $y2, $this->ndx_data_colors[$idx]);
if ($this->shading) { // Draw the shade?
ImageFilledPolygon($this->img, array($x1, $y1,
$x1 + $this->shading, $y1 - $this->shading,
$x2 + $this->shading, $y1 - $this->shading,
$x2 + $this->shading, $y2 - $this->shading,
$x2, $y2,
$x2, $y1),
6, $this->ndx_data_dark_colors[$idx]);
}
// Or draw a border?
else {
ImageRectangle($this->img, $x1, $y1, $x2,$y2, $this->ndx_data_border_colors[$idx]);
}
// Draw optional data labels above the bars (or below, for negative values).
if ( $this->y_data_label_pos == 'plotin') {
if ($upgoing_bar) {
$v_align = 'top';
$y_offset = -5 - $this->shading;
} else {
$v_align = 'bottom';
$y_offset = 2;
}
$this->DrawDataLabel('', NULL, $row+0.5, $this->data[$row][$record], '',
$this->data[$row][$record], 'center', $v_align,
($idx + 0.5) * $this->record_bar_width - $x_first_bar, $y_offset);
}
}
// Step to next bar in group:
$x1 += $this->record_bar_width;
} // end for
} // end for
} //function DrawBars
/*!
* Data comes in as array("title", x, y, y2, y3, ...)
* \note Original stacked bars idea by Laurent Kruk < lolok at users.sourceforge.net >
*/
function DrawStackedBars()
{
if ($this->data_type != 'text-data') {
$this->DrawError('DrawStackedBars(): Bar plots must be text-data: use SetDataType("text-data")');
return FALSE;
}
// This is the X offset from the bar's label center point to the left side of the bar.
$x_first_bar = $this->record_bar_width / 2 - $this->bar_adjust_gap;
for ($row = 0; $row < $this->num_data_rows; $row++) {
$record = 1; // Skip record #0 (data label)
$x_now_pixels = $this->xtr(0.5 + $row); // Place text-data at X = 0.5, 1.5, 2.5, etc...
if ($this->x_data_label_pos != 'none') // Draw X Data labels?
$this->DrawXDataLabel($this->data[$row][0], $x_now_pixels);
// Lower left and lower right X of the bars in this group:
$x1 = $x_now_pixels - $x_first_bar;
$x2 = $x1 + $this->actual_bar_width;
// Draw the bars
$oldv = 0;
for ($idx = 0; $record < $this->num_recs[$row]; $record++, $idx++) {
if (is_numeric($this->data[$row][$record])) { // Allow for missing Y data
$y1 = $this->ytr(abs($this->data[$row][$record]) + $oldv);
$y2 = $this->ytr($this->x_axis_position + $oldv);
$oldv += abs($this->data[$row][$record]);
// Draw the bar
ImageFilledRectangle($this->img, $x1, $y1, $x2, $y2, $this->ndx_data_colors[$idx]);
if ($this->shading) { // Draw the shade?
ImageFilledPolygon($this->img, array($x1, $y1,
$x1 + $this->shading, $y1 - $this->shading,
$x2 + $this->shading, $y1 - $this->shading,
$x2 + $this->shading, $y2 - $this->shading,
$x2, $y2,
$x2, $y1),
6, $this->ndx_data_dark_colors[$idx]);
}
// Or draw a border?
else {
ImageRectangle($this->img, $x1, $y1, $x2,$y2, $this->ndx_data_border_colors[$idx]);
}
}
} // end for
} // end for
} //function DrawStackedBars
/*!
*
*/
function DrawGraph()
{
if (! $this->img) {
$this->DrawError('DrawGraph(): No image resource allocated');
return FALSE;
}
if (empty($this->data) || ! is_array($this->data)) {
$this->DrawError("DrawGraph(): No data array");
return FALSE;
}
if (! isset($this->data_limits_done))
$this->FindDataLimits(); // Get maxima and minima for scaling
if ($this->total_records == 0) { // Check for empty data sets
$this->DrawError('Empty data set');
return FALSE;
}
$this->CalcMargins(); // Calculate margins
if (! isset($this->plot_area_width)) { // Set plot area pixel values (plot_area[])
if ($this->plot_type == 'pie') {
// Pie charts can maximize image space usage.
$this->SetPlotAreaPixels($this->safe_margin, $this->title_height + $this->safe_margin,
$this->image_width - $this->safe_margin,
$this->image_height - $this->safe_margin);
} else {
$this->SetPlotAreaPixels();
}
}
if (! isset($this->plot_max_y)) // Set plot area world values (plot_max_x, etc.)
$this->SetPlotAreaWorld();
/* FIXME!! this sort of thing should not be done without user's consent
if ($this->x_data_label_pos != 'none') { // Default: do not draw tick stuff if
$this->x_tick_label_pos = 'none'; // there are data labels.
$this->x_tick_pos = 'none';
}
*/
$this->PadArrays(); // Pad color and style arrays to fit records per group.
$this->DrawBackground();
$this->DrawImageBorder();
$this->DrawPlotAreaBackground();
$this->DrawTitle();
$this->DrawXTitle();
$this->DrawYTitle();
// Pie charts are drawn differently, handle them first
if ($this->plot_type == 'pie') {
$this->DrawPieChart();
if ($this->legend)
$this->DrawLegend($this->legend_x_pos, $this->legend_y_pos, '');
if ($this->print_image)
$this->PrintImage();
return;
}
////// All other chart types:
if (! $this->grid_at_foreground) { // Usually one wants grids to go back, but...
$this->DrawYAxis(); // Y axis must be drawn before X axis (see DrawYAxis())
$this->DrawXAxis();
}
switch ($this->plot_type) {
case 'thinbarline':
$this->DrawThinBarLines();
break;
case 'area':
$this->DrawArea();
break;
case 'squared':
$this->DrawSquared();
break;
case 'lines':
if ( $this->data_type == 'data-data-error') {
$this->DrawLinesError();
} else {
$this->DrawLines();
}
break;
case 'linepoints':
if ( $this->data_type == 'data-data-error') {
$this->DrawLinesError();
$this->DrawDotsError();
} else {
$this->DrawLines();
$this->DrawDots();
}
break;
case 'points';
if ( $this->data_type == 'data-data-error') {
$this->DrawDotsError();
} else {
$this->DrawDots();
}
break;
case 'stackedbars':
$this->CalcBarWidths();
$this->DrawStackedBars();
break;
case 'bars':
default:
$this->plot_type = 'bars'; // Set it if it wasn't already set. (necessary?)
$this->CalcBarWidths();
$this->DrawBars();
break;
} // end switch
if ($this->grid_at_foreground) { // Usually one wants grids to go back, but...
$this->DrawYAxis(); // Y axis must be drawn before X axis (see DrawYAxis())
$this->DrawXAxis();
}
$this->DrawPlotBorder();
if ($this->legend)
$this->DrawLegend($this->legend_x_pos, $this->legend_y_pos, '');
if ($this->print_image)
$this->PrintImage();
} //function DrawGraph()
/////////////////////////////////////////////
////////////////// DEPRECATED METHODS
/////////////////////////////////////////////
/*!
* Deprecated, use SetYTickPos()
*/
function SetDrawVertTicks($which_dvt)
{
if ($which_dvt != 1)
$this->SetYTickPos('none');
return TRUE;
}
/*!
* Deprecated, use SetXTickPos()
*/
function SetDrawHorizTicks($which_dht)
{
if ($which_dht != 1)
$this->SetXTickPos('none');
return TRUE;
}
/*!
* \deprecated Use SetNumXTicks()
*/
function SetNumHorizTicks($n)
{
return $this->SetNumXTicks($n);
}
/*!
* \deprecated Use SetNumYTicks()
*/
function SetNumVertTicks($n)
{
return $this->SetNumYTicks($n);
}
/*!
* \deprecated Use SetXTickIncrement()
*/
function SetHorizTickIncrement($inc)
{
return $this->SetXTickIncrement($inc);
}
/*!
* \deprecated Use SetYTickIncrement()
*/
function SetVertTickIncrement($inc)
{
return $this->SetYTickIncrement($inc);
}
/*!
* \deprecated Use SetYTickPos()
*/
function SetVertTickPosition($which_tp)
{
return $this->SetYTickPos($which_tp);
}
/*!
* \deprecated Use SetXTickPos()
*/
function SetHorizTickPosition($which_tp)
{
return $this->SetXTickPos($which_tp);
}
/*!
* \deprecated Use SetFont()
*/
function SetTitleFontSize($which_size)
{
return $this->SetFont('title', $which_size);
}
/*!
* \deprecated Use SetFont()
*/
function SetAxisFontSize($which_size)
{
$this->SetFont('x_label', $which_size);
$this->SetFont('y_label', $which_size);
}
/*!
* \deprecated Use SetFont()
*/
function SetSmallFontSize($which_size)
{
return $this->SetFont('generic', $which_size);
}
/*!
* \deprecated Use SetFont()
*/
function SetXLabelFontSize($which_size)
{
return $this->SetFont('x_title', $which_size);
}
/*!
* \deprecated Use SetFont()
*/
function SetYLabelFontSize($which_size)
{
return $this->SetFont('y_title', $which_size);
}
/*!
* \deprecated Use SetXTitle()
*/
function SetXLabel($which_xlab)
{
return $this->SetXTitle($which_xlab);
}
/*!
* \deprecated Use SetYTitle()
*/
function SetYLabel($which_ylab)
{
return $this->SetYTitle($which_ylab);
}
/*!
* \deprecated This is now an Internal function - please set width and
* height via PHPlot() upon object construction
*/
function SetImageArea($which_iw, $which_ih)
{
$this->image_width = $which_iw;
$this->image_height = $which_ih;
return TRUE;
}
/*!
* \deprecated Use SetXTickLength() and SetYTickLength() instead.
*/
function SetTickLength($which_tl)
{
$this->SetXTickLength($which_tl);
$this->SetYTickLength($which_tl);
return TRUE;
}
/*!
* \deprecated Use SetYLabelType()
*/
function SetYGridLabelType($which_yglt)
{
return $this->SetYLabelType($which_yglt);
}
/*!
* \deprecated Use SetXLabelType()
*/
function SetXGridLabelType($which_xglt)
{
return $this->SetXLabelType($which_xglt);
}
/*!
* \deprecated Use SetYTickLabelPos()
*/
function SetYGridLabelPos($which_yglp)
{
return $this->SetYTickLabelPos($which_yglp);
}
/*!
* \deprecated Use SetXTickLabelPos()
*/
function SetXGridLabelPos($which_xglp)
{
return $this->SetXTickLabelPos($which_xglp);
}
/*!
* \deprecated Use SetXtitle()
*/
function SetXTitlePos($xpos)
{
$this->x_title_pos = $xpos;
return TRUE;
}
/*!
* \deprecated Use SetYTitle()
*/
function SetYTitlePos($xpos)
{
$this->y_title_pos = $xpos;
return TRUE;
}
/*!
* \deprecated Use DrawDots()
*/
function DrawDotSeries()
{
$this->DrawDots();
}
/*!
* \deprecated Use SetXLabelAngle()
*/
function SetXDataLabelAngle($which_xdla)
{
return $this->SetXLabelAngle($which_xdla);
}
/*!
* Draw Labels (not grid labels) on X Axis, following data points. Default position is
* down of plot. Care must be taken not to draw these and x_tick_labels as they'd probably overlap.
*
* \deprecated Use SetXDataLabelPos()
*/
function SetDrawXDataLabels($which_dxdl)
{
if ($which_dxdl == '1' )
$this->SetXDataLabelPos('plotdown');
else
$this->SetXDataLabelPos('none');
}
/*!
* \deprecated This method was intended to improve performance by being specially
* written for 'data-data'. However, the improvement didn't pay. Use DrawLines() instead
*/
function DrawLineSeries()
{
return $this->DrawLines();
}
/*!
* \deprecated Calculates maximum X-Axis label height. Now inside CalcMargins()
*/
function CalcXHeights()
{
// TTF
if ($this->use_ttf) {
$xstr = str_repeat('.', $this->max_t);
$size = $this->TTFBBoxSize($this->x_label_font['size'], $this->x_label_angle,
$this->x_label_font['font'], $xstr);
$this->x_tick_label_height = $size[1];
}
// Fixed font
else { // For Non-TTF fonts we can have only angles 0 or 90
if ($this->x_label_angle == 90)
$this->x_tick_label_height = $this->max_t * $this->x_label_font['width'];
else
$this->x_tick_label_height = $this->x_label_font['height'];
}
return TRUE;
}
/*!
* \deprecated Calculates Maximum Y-Axis tick label width. Now inside CalcMargins()
*/
function CalcYWidths()
{
//the "." is for space. It isn't actually printed
$ylab = number_format($this->max_y, $this->y_precision, '.', ', ') . $this->data_units_text . '.';
// TTF
if ($this->use_ttf) {
// Maximum Y tick label width
$size = $this->TTFBBoxSize($this->y_label_font['size'], 0, $this->y_label_font['font'], $ylab);
$this->y_tick_label_width = $size[0];
}
// Fixed font
else {
// Y axis title width
$this->y_tick_label_width = strlen($ylab) * $this->y_label_font['width'];
}
return TRUE;
}
/*!
* \deprecated Superfluous.
*/
function DrawLabels()
{
$this->DrawTitle();
$this->DrawXTitle();
$this->DrawYTitle();
}
/*!
* Set up the image resource 'img'
* \deprecated The constructor should init 'img'
*/
function InitImage()
{
$this->img = ImageCreate($this->image_width, $this->image_height);
if (! $this->img)
$this->PrintError('InitImage(): Could not create image resource');
return TRUE;
}
/*!
* \deprecated
*/
function SetNewPlotAreaPixels($x1, $y1, $x2, $y2)
{
//Like in GD 0, 0 is upper left set via pixel Coordinates
$this->plot_area = array($x1, $y1, $x2, $y2);
$this->plot_area_width = $this->plot_area[2] - $this->plot_area[0];
$this->plot_area_height = $this->plot_area[3] - $this->plot_area[1];
$this->y_top_margin = $this->plot_area[1];
if (isset($this->plot_max_x))
$this->CalcTranslation();
return TRUE;
}
/*!
* \deprecated Use _SetRGBColor()
*/
function SetColor($which_color)
{
$this->SetRGBColor($which_color);
return TRUE;
}
/*
* \deprecated Use SetLineWidths().
*/
function SetLineWidth($which_lw)
{
$this->SetLineWidths($which_lw);
if (!$this->error_bar_line_width) {
$this->SetErrorBarLineWidth($which_lw);
}
return TRUE;
}
/*!
* \deprecated
*/
function DrawDashedLine($x1, $y1, $x2, $y2 , $dash_length, $dash_space, $color)
{
if ($dash_length)
$dashes = array_fill(0, $dash_length, $color);
else
$dashes = array();
if ($dash_space)
$spaces = array_fill(0, $dash_space, IMG_COLOR_TRANSPARENT);
else
$spaces = array();
$style = array_merge($dashes, $spaces);
ImageSetStyle($this->img, $style);
ImageLine($this->img, $x1, $y1, $x2, $y2, IMG_COLOR_STYLED);
}
/*!
* \deprecated Selects an input file to be used as background for the whole graph.
* This resizes the graph to the image's size.
*/
function SetInputFile($which_input_file)
{
$size = GetImageSize($which_input_file);
$input_type = $size[2];
switch($input_type) {
case 1:
$im = @ ImageCreateFromGIF ($which_input_file);
if (!$im) { // See if it failed
$this->PrintError("Unable to open $which_input_file as a GIF");
return FALSE;
}
break;
case 3:
$im = @ ImageCreateFromPNG ($which_input_file);
if (!$im) { // See if it failed
$this->PrintError("Unable to open $which_input_file as a PNG");
return FALSE;
}
break;
case 2:
$im = @ ImageCreateFromJPEG ($which_input_file);
if (!$im) { // See if it failed
$this->PrintError("Unable to open $which_input_file as a JPG");
return FALSE;
}
break;
default:
$this->PrintError('SetInputFile(): Please select gif, jpg, or png for image type!');
return FALSE;
break;
}
// Set Width and Height of Image
$this->image_width = $size[0];
$this->image_height = $size[1];
// Deallocate any resources previously allocated
if (isset($this->img))
imagedestroy($this->img);
$this->img = $im;
// Do not overwrite the input file with the background color.
$this->background_done = TRUE;
return TRUE;
}
/*
* \deprecated Use SetPointShapes().
*/
function SetPointShape($which_pt)
{
$this->SetPointShapes($which_pt);
return TRUE;
}
/*
* \deprecated Use SetPointSizes().
*/
function SetPointSize($which_ps)
{
$this->SetPointSizes($which_ps);
return TRUE;
}
} // class PHPlot
////////////////////////
/*!
* Pads an array with another or with itself.
* \param arr array Original array (reference)
* \param size int Size of the resulting array.
* \param arr2 array If specified, array to use for padding. If unspecified, pad with $arr.
*/
function array_pad_array(&$arr, $size, $arr2=NULL)
{
if (! is_array($arr2)) {
$arr2 = $arr; // copy the original array
}
while (count($arr) < $size)
$arr = array_merge_php4($arr, $arr2); // append until done
}
/*!
* Fixes problem with array_merge() in PHP5.
* \note I simply copied this from a bug report. I am not running php5 yet, so
* I cannot reproduce it, which is why I trust the reporter.
*/
function array_merge_php4($array1,$array2)
{
$return=array();
foreach(func_get_args() as $arg){
if(!is_array($arg)){
$arg=array($arg);
}
foreach($arg as $key=>$val){
if(!is_int($key)){
$return[$key]=$val;
}else{
$return[]=$val;
}
}
}
return $return;
}
?>