initial import

lib/classes/graphik/ScatterPlot.class.php

@@ -0,0 +1,300 @@
+<?php
+/*
+ * This work is hereby released into the Public Domain.
+ * To view a copy of the public domain dedication,
+ * visit http://creativecommons.org/licenses/publicdomain/ or send a letter to
+ * Creative Commons, 559 Nathan Abbott Way, Stanford, California 94305, USA.
+ *
+ */
+
+require_once dirname(__FILE__)."/Plot.class.php";
+
+/**
+ * ScatterPlot
+ *
+ * @package Artichow
+ */
+class awScatterPlot extends awPlot implements awLegendable {
+	
+	/**
+	 * Add marks to the scatter plot
+	 *
+	 * @var Mark
+	 */
+	public $mark;
+	
+	/**
+	 * Labels on the plot
+	 *
+	 * @var Label
+	 */
+	public $label;
+	
+	/**
+	 * Link points ?
+	 *
+	 * @var bool
+	 */
+	protected $link = FALSE;
+	
+	/**
+	 * Display impulses
+	 *
+	 * @var bool
+	 */
+	protected $impulse = NULL;
+	
+	/**
+	 * Link NULL points ?
+	 *
+	 * @var bool
+	 */
+	protected $linkNull = FALSE;
+	
+	/**
+	 * Line color
+	 *
+	 * @var Color
+	 */
+	protected $lineColor;
+	
+	/**
+	 * Line type
+	 *
+	 * @var int
+	 */
+	protected $lineStyle = awLine::SOLID;
+	
+	/**
+	 * Line thickness
+	 *
+	 * @var int
+	 */
+	protected $lineThickness = 1;
+	 	
+	/**
+	 * Construct a new awScatterPlot
+	 *
+	 * @param array $datay Numeric values for Y axis
+	 * @param array $datax Numeric values for X axis
+	 * @param int $mode
+	 */
+	public function __construct($datay, $datax = NULL) {
+	
+		parent::__construct();
+		
+		// Defaults marks
+		$this->mark = new awMark;
+		$this->mark->setType(awMark::CIRCLE);
+		$this->mark->setSize(7);
+		$this->mark->border->show();
+		
+		$this->label = new awLabel;
+		
+		$this->setValues($datay, $datax);
+		$this->setColor(new awBlack);
+	
+	}
+	
+	/**
+	 * Display plot as impulses
+	 *
+	 * @param awColor $impulse Impulses color (or NULL to disable impulses)
+	 */
+	public function setImpulse($color) {
+		$this->impulse = $color;
+	}
+	
+	/**
+	 * Link scatter plot points
+	 *
+	 * @param bool $link
+	 * @param awColor $color Line color (default to black)
+	 */
+	public function link($link, $color = NULL) {
+		$this->link = (bool)$link;
+		if($color instanceof awColor) {
+			$this->setColor($color);
+		}
+	}
+	
+	/**
+	 * Ignore null values for Y data and continue linking
+	 *
+	 * @param bool $link
+	 */
+	public function linkNull($link) {
+		$this->linkNull = (bool)$link;
+	}
+	
+	/**
+	 * Change line color
+	 *
+	 * @param awColor $color
+	 */
+	public function setColor(awColor $color) {
+		$this->lineColor = $color;
+	}
+	
+	/**
+	 * Change line style
+	 *
+	 * @param int $style
+	 */
+	public function setStyle($style) {
+		$this->lineStyle = (int)$style;
+	}
+	
+	/**
+	 * Change line tickness
+	 *
+	 * @param int $tickness
+	 */
+	public function setThickness($tickness) {
+		$this->lineThickness = (int)$tickness;
+	}
+
+	/**
+	 * Get the line thickness
+	 *
+	 * @return int
+	 */
+	public function getLegendLineThickness() {
+		return $this->lineThickness;
+	}
+
+	/**
+	 * Get the line type
+	 *
+	 * @return int
+	 */
+	public function getLegendLineStyle() {
+		return $this->lineStyle;
+	}
+
+	/**
+	 * Get the color of line
+	 *
+	 * @return Color
+	 */
+	public function getLegendLineColor() {
+		return $this->lineColor;
+	}
+
+	/**
+	 * Get the background color or gradient of an element of the component
+	 *
+	 * @return Color, Gradient
+	 */
+	public function getLegendBackground() {
+		return NULL;
+	}
+
+	/**
+	 * Get a mark object
+	 *
+	 * @return Mark
+	 */
+	public function getLegendMark() {
+		return $this->mark;
+	}
+	
+	public function drawComponent(awDriver $driver, $x1, $y1, $x2, $y2, $aliasing) {
+	
+		$count = count($this->datay);
+		
+		// Get start and stop values
+		list($start, $stop) = $this->getLimit();
+		
+		// Build the polygon
+		$polygon = new awPolygon;
+		
+		for($key = 0; $key < $count; $key++) {
+		
+			$x = $this->datax[$key];
+			$y = $this->datay[$key];
+			
+			if($y !== NULL) {
+				$p = awAxis::toPosition($this->xAxis, $this->yAxis, new awPoint($x, $y));
+				$polygon->set($key, $p);
+			} else if($this->linkNull === FALSE) {
+				$polygon->set($key, NULL);
+			}
+		
+		}
+		
+		// Link points if needed
+		if($this->link) {
+		
+			$prev = NULL;
+			
+			foreach($polygon->all() as $point) {
+			
+				if($prev !== NULL and $point !== NULL) {
+					$driver->line(
+						$this->lineColor,
+						new awLine(
+							$prev,
+							$point,
+							$this->lineStyle,
+							$this->lineThickness
+						)
+					);
+				}
+				$prev = $point;
+				
+			}
+		}
+		
+		// Draw impulses
+		if($this->impulse instanceof awColor) {
+			
+			foreach($polygon->all() as $key => $point) {
+			
+				if($point !== NULL) {
+					
+					$zero = awAxis::toPosition(
+						$this->xAxis,
+						$this->yAxis,
+						new awPoint($key, 0)
+					);
+					
+					$driver->line(
+						$this->impulse,
+						new awLine(
+							$zero,
+							$point,
+							awLine::SOLID,
+							1
+						)
+					);
+					
+				}
+				
+			}
+		
+		}
+		
+		// Draw marks and labels
+		foreach($polygon->all() as $key => $point) {
+
+			$this->mark->draw($driver, $point);
+			$this->label->draw($driver, $point, $key);
+			
+		}
+		
+	}
+	
+	protected function xAxisPoint($position) {
+		$y = $this->xAxisZero ? 0 : $this->getRealYMin();
+		return awAxis::toPosition($this->xAxis, $this->yAxis, new awPoint($position, $y));
+	}
+	
+	public function getXCenter() {
+		return FALSE;
+	}
+
+}
+
+registerClass('ScatterPlot');
+?>