Proyectos de Subversion Moodle

<?php

/*

pDraw - pChart core class

Version     : 2.1.4

Made by     : Jean-Damien POGOLOTTI

Last Update : 19/01/2014

This file can be distributed under the license you can find at :

http://www.pchart.net/license

You can find the whole class documentation on the pChart web site.

*/

/* The GD extension is mandatory */

if (!extension_loaded('gd') && !extension_loaded('gd2')) {

	echo "GD extension must be loaded. \r\n";

	exit();

}

/* Image map handling */

define("IMAGE_MAP_STORAGE_FILE", 680001);

define("IMAGE_MAP_STORAGE_SESSION", 680002);

/* Last generated chart layout */

define("CHART_LAST_LAYOUT_REGULAR", 680011);

define("CHART_LAST_LAYOUT_STACKED", 680012);

/* ImageMap string delimiter */

define("IMAGE_MAP_DELIMITER", chr(1));

class pImage extends pDraw

{

	/* Image settings, size, quality, .. */

	var $XSize = NULL; // Width of the picture

	var $YSize = NULL; // Height of the picture

	var $Picture = NULL; // GD picture object

	var $Antialias = TRUE; // Turn antialias on or off

	var $AntialiasQuality = 0; // Quality of the antialiasing implementation (0-1)

	// var $Mask		= "";				// Already drawn pixels mask (Filled circle implementation) # UNUSED

	var $TransparentBackground = FALSE; // Just to know if we need to flush the alpha channels when rendering

	/* Graph area settings */

	var $GraphAreaX1 = NULL; // Graph area X origin

	var $GraphAreaY1 = NULL; // Graph area Y origin

	var $GraphAreaX2 = NULL; // Graph area bottom right X position

	var $GraphAreaY2 = NULL; // Graph area bottom right Y position

	/* Scale settings */

	var $ScaleMinDivHeight = 20; // Minimum height for scame divs

	/* Font properties */

	var $FontName = "fonts/GeosansLight.ttf"; // Default font file

	var $FontSize = 12; // Default font size

	var $FontBox = NULL; // Return the bounding box of the last written string

	var $FontColorR = 0; // Default color settings

	var $FontColorG = 0; // Default color settings

	var $FontColorB = 0; // Default color settings

	var $FontColorA = 100; // Default transparency

	/* Shadow properties */

	var $Shadow = FALSE; // Turn shadows on or off

	var $ShadowX = NULL; // X Offset of the shadow

	var $ShadowY = NULL; // Y Offset of the shadow

	var $ShadowR = NULL; // R component of the shadow

	var $ShadowG = NULL; // G component of the shadow

	var $ShadowB = NULL; // B component of the shadow

	var $Shadowa = NULL; // Alpha level of the shadow

	/* Image map */

	var $ImageMap = NULL; // Aray containing the image map

	var $ImageMapIndex = "pChart"; // Name of the session array

	var $ImageMapStorageMode = NULL; // Save the current imagemap storage mode

	var $ImageMapAutoDelete = TRUE; // Automatic deletion of the image map temp files

	/* Data Set */

	var $DataSet = NULL; // Attached dataset

	/* Last generated chart info */

	var $LastChartLayout = CHART_LAST_LAYOUT_REGULAR; // Last layout : regular or stacked

	/* Class constructor */

	function __construct($XSize, $YSize, $DataSet = NULL, $TransparentBackground = FALSE)

	{

		$this->TransparentBackground = $TransparentBackground;

		if ($DataSet != NULL) {

			$this->DataSet = $DataSet;

		}

		$this->XSize = $XSize;

		$this->YSize = $YSize;

		$this->Picture = imagecreatetruecolor($XSize, $YSize);

		if ($this->TransparentBackground) {

			imagealphablending($this->Picture, FALSE);

			imagefilledrectangle($this->Picture, 0, 0, $XSize, $YSize, imagecolorallocatealpha($this->Picture, 255, 255, 255, 127));

			imagealphablending($this->Picture, TRUE);

			imagesavealpha($this->Picture, true);

		} else {

			imagefilledrectangle($this->Picture, 0, 0, $XSize, $YSize, $this->AllocateColor(255, 255, 255));

		}

	}

	function __destruct(){

		imagedestroy($this->Picture);

	}

	/* Enable / Disable and set shadow properties */

	function setShadow($Enabled = TRUE, array $Format = [])

	{

		$X = 2;

		$Y = 2;

		$R = 0;

		$G = 0;

		$B = 0;

		$Alpha = 10;

		/* Override defaults */

		extract($Format);

		$this->Shadow = $Enabled;

		$this->ShadowX = $X;

		$this->ShadowY = $Y;

		$this->ShadowR = $R;

		$this->ShadowG = $G;

		$this->ShadowB = $B;

		$this->Shadowa = $Alpha;

		if ($this->ShadowX == 0 || $this->ShadowY == 0){

			die("Invalid shadow specs");

		}

	}

	/* Set the graph area position */

	function setGraphArea($X1, $Y1, $X2, $Y2)

	{

		if ($X2 < $X1 || $X1 == $X2 || $Y2 < $Y1 || $Y1 == $Y2) {

			return -1;

		}

		$this->GraphAreaX1 = $X1;

		$this->DataSet->Data["GraphArea"]["X1"] = $X1;

		$this->GraphAreaY1 = $Y1;

		$this->DataSet->Data["GraphArea"]["Y1"] = $Y1;

		$this->GraphAreaX2 = $X2;

		$this->DataSet->Data["GraphArea"]["X2"] = $X2;

		$this->GraphAreaY2 = $Y2;

		$this->DataSet->Data["GraphArea"]["Y2"] = $Y2;

	}

	/* Return the width of the picture */

	function getWidth()

	{

		return $this->XSize;

	}

	/* Return the heigth of the picture */

	function getHeight()

	{

		return $this->YSize;

	}

	/* Render the picture to a file */

	function render($FileName)

	{

		if ($this->TransparentBackground) {

			imagealphablending($this->Picture, false);

			imagesavealpha($this->Picture, true);

		}

		imagepng($this->Picture, $FileName);

	}

	/* Render the picture to a web browser stream */

	function stroke($BrowserExpire = FALSE)

	{

		if ($this->TransparentBackground) {

			imagealphablending($this->Picture, false);

			imagesavealpha($this->Picture, true);

		}

		if ($BrowserExpire) {

			header("Expires: Mon, 26 Jul 1997 05:00:00 GMT");

			header("Cache-Control: no-cache");

			header("Pragma: no-cache");

		}

		header('Content-type: image/png');

		imagepng($this->Picture);

	}

	/* Automatic output method based on the calling interface */

	function autoOutput($FileName = "output.png")

	{

		if (php_sapi_name() == "cli") {

			$this->Render($FileName);

		} else {

			$this->Stroke();

		}

	}

	/* Return the length between two points */

	function getLength($X1, $Y1, $X2, $Y2)

	{

		return (sqrt(pow(max($X1, $X2) - min($X1, $X2), 2) + pow(max($Y1, $Y2) - min($Y1, $Y2), 2)));

	}

	/* Return the orientation of a line */

	function getAngle($X1, $Y1, $X2, $Y2)

	{

		$Opposite = $Y2 - $Y1;

		$Adjacent = $X2 - $X1;

		$Angle = rad2deg(atan2($Opposite, $Adjacent));

		return (($Angle > 0) ? $Angle : (360 - abs($Angle)));

	}

	/* Return the surrounding box of text area */

	function getTextBox_deprecated($X, $Y, $FontName, $FontSize, $Angle, $Text)

	{

		$Size = imagettfbbox($FontSize, $Angle, realpath($FontName), $Text);

		$Width = $this->getLength($Size[0], $Size[1], $Size[2], $Size[3]) + 1;

		$Height = $this->getLength($Size[2], $Size[3], $Size[4], $Size[5]) + 1;

		$RealPos[0]["X"] = $X;

		$RealPos[0]["Y"] = $Y;

		$RealPos[1]["X"] = cos((360 - $Angle) * PI / 180) * $Width + $RealPos[0]["X"];

		$RealPos[1]["Y"] = sin((360 - $Angle) * PI / 180) * $Width + $RealPos[0]["Y"];

		$RealPos[2]["X"] = cos((270 - $Angle) * PI / 180) * $Height + $RealPos[1]["X"];

		$RealPos[2]["Y"] = sin((270 - $Angle) * PI / 180) * $Height + $RealPos[1]["Y"];

		$RealPos[3]["X"] = cos((180 - $Angle) * PI / 180) * $Width + $RealPos[2]["X"];

		$RealPos[3]["Y"] = sin((180 - $Angle) * PI / 180) * $Width + $RealPos[2]["Y"];

		$RealPos[TEXT_ALIGN_BOTTOMLEFT]["X"] = $RealPos[0]["X"];

		$RealPos[TEXT_ALIGN_BOTTOMLEFT]["Y"] = $RealPos[0]["Y"];

		$RealPos[TEXT_ALIGN_BOTTOMRIGHT]["X"] = $RealPos[1]["X"];

		$RealPos[TEXT_ALIGN_BOTTOMRIGHT]["Y"] = $RealPos[1]["Y"];

		return $RealPos;

	}

	/* Return the surrounding box of text area */

	function getTextBox($X, $Y, $FontName, $FontSize, $Angle, $Text)

	{

		$coords = imagettfbbox($FontSize, 0, realpath($FontName), $Text);

		$a = deg2rad($Angle);

		$ca = cos($a);

		$sa = sin($a);

		$RealPos = [];

		for ($i = 0; $i < 7; $i+= 2) {

			$RealPos[$i / 2]["X"] = $X + round($coords[$i] * $ca + $coords[$i + 1] * $sa);

			$RealPos[$i / 2]["Y"] = $Y + round($coords[$i + 1] * $ca - $coords[$i] * $sa);

		}

		$RealPos[TEXT_ALIGN_BOTTOMLEFT]["X"] = $RealPos[0]["X"];

		$RealPos[TEXT_ALIGN_BOTTOMLEFT]["Y"] = $RealPos[0]["Y"];

		$RealPos[TEXT_ALIGN_BOTTOMRIGHT]["X"] = $RealPos[1]["X"];

		$RealPos[TEXT_ALIGN_BOTTOMRIGHT]["Y"] = $RealPos[1]["Y"];

		$RealPos[TEXT_ALIGN_TOPLEFT]["X"] = $RealPos[3]["X"];

		$RealPos[TEXT_ALIGN_TOPLEFT]["Y"] = $RealPos[3]["Y"];

		$RealPos[TEXT_ALIGN_TOPRIGHT]["X"] = $RealPos[2]["X"];

		$RealPos[TEXT_ALIGN_TOPRIGHT]["Y"] = $RealPos[2]["Y"];

		$RealPos[TEXT_ALIGN_BOTTOMMIDDLE]["X"] = ($RealPos[1]["X"] - $RealPos[0]["X"]) / 2 + $RealPos[0]["X"];

		$RealPos[TEXT_ALIGN_BOTTOMMIDDLE]["Y"] = ($RealPos[0]["Y"] - $RealPos[1]["Y"]) / 2 + $RealPos[1]["Y"];

		$RealPos[TEXT_ALIGN_TOPMIDDLE]["X"] = ($RealPos[2]["X"] - $RealPos[3]["X"]) / 2 + $RealPos[3]["X"];

		$RealPos[TEXT_ALIGN_TOPMIDDLE]["Y"] = ($RealPos[3]["Y"] - $RealPos[2]["Y"]) / 2 + $RealPos[2]["Y"];

		$RealPos[TEXT_ALIGN_MIDDLELEFT]["X"] = ($RealPos[0]["X"] - $RealPos[3]["X"]) / 2 + $RealPos[3]["X"];

		$RealPos[TEXT_ALIGN_MIDDLELEFT]["Y"] = ($RealPos[0]["Y"] - $RealPos[3]["Y"]) / 2 + $RealPos[3]["Y"];

		$RealPos[TEXT_ALIGN_MIDDLERIGHT]["X"] = ($RealPos[1]["X"] - $RealPos[2]["X"]) / 2 + $RealPos[2]["X"];

		$RealPos[TEXT_ALIGN_MIDDLERIGHT]["Y"] = ($RealPos[1]["Y"] - $RealPos[2]["Y"]) / 2 + $RealPos[2]["Y"];

		$RealPos[TEXT_ALIGN_MIDDLEMIDDLE]["X"] = ($RealPos[1]["X"] - $RealPos[3]["X"]) / 2 + $RealPos[3]["X"];

		$RealPos[TEXT_ALIGN_MIDDLEMIDDLE]["Y"] = ($RealPos[0]["Y"] - $RealPos[2]["Y"]) / 2 + $RealPos[2]["Y"];

		return $RealPos;

	}

	/* Set current font properties */

	function setFontProperties(array $Format = [])

	{

		$R = -1;

		$G = -1;

		$B = -1;

		$Alpha = 100;

		$FontName = NULL;

		$FontSize = NULL;

		/* Override defaults */

		extract($Format);

		($R != - 1) AND $this->FontColorR = $R;

		($G != - 1) AND $this->FontColorG = $G;

		($B != - 1) AND $this->FontColorB = $B;

		($Alpha != NULL) AND $this->FontColorA = $Alpha;

		($FontName != NULL) AND $this->FontName = $FontName;

		($FontSize != NULL) AND $this->FontSize = $FontSize;

	}

	/* Returns the 1st decimal values (used to correct AA bugs) */

	function getFirstDecimal($Value)

	{

		$Values = explode(".", $Value);

		return (isset($Values[1])) ? substr($Values[1], 0, 1) : 0;

	}

	/* Attach a dataset to your pChart Object */

	function setDataSet(&$DataSet)

	{

		$this->DataSet = $DataSet;

	}

	/* Print attached dataset contents to STDOUT */

	function printDataSet()

	{

		print_r($this->DataSet);

	}

	/* Initialise the image map methods */

	function initialiseImageMap($Name = "pChart", $StorageMode = IMAGE_MAP_STORAGE_SESSION, $UniqueID = "imageMap", $StorageFolder = "tmp")

	{

		$this->ImageMapIndex = $Name;

		$this->ImageMapStorageMode = $StorageMode;

		if ($StorageMode == IMAGE_MAP_STORAGE_SESSION) {

			if (!isset($_SESSION)) {

				session_start();

			}

			$_SESSION[$this->ImageMapIndex] = NULL;

		} elseif ($StorageMode == IMAGE_MAP_STORAGE_FILE) {

			$this->ImageMapFileName = $UniqueID;

			$this->ImageMapStorageFolder = $StorageFolder;

			if (file_exists($StorageFolder . "/" . $UniqueID . ".map")) {

				unlink($StorageFolder . "/" . $UniqueID . ".map");

			}

		}

	}

	/* Add a zone to the image map */

	function addToImageMap($Type, $Plots, $Color = NULL, $Title = NULL, $Message = NULL, $HTMLEncode = FALSE)

	{

		if ($this->ImageMapStorageMode == NULL) {

			$this->initialiseImageMap();

		}

		/* Encode the characters in the imagemap in HTML standards */

		$Title = str_replace("€", "\u20AC", $Title); # Momchil TODO TEST THIS

		$Title = htmlentities($Title, ENT_QUOTES); #, "ISO-8859-15"); # As of PHP 5.6 The default value for the encoding parameter = the default_charset config option.

		if ($HTMLEncode) {

			$Message = htmlentities($Message, ENT_QUOTES); #, "ISO-8859-15");

			#$Message = str_replace("&lt;", "<", $Message); # Seems covered Example #1 A htmlentities() example

			#$Message = str_replace(">", ">", $Message); # http://php.net/manual/en/function.htmlentities.php

		}

		if ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_SESSION) {

			if (!isset($_SESSION)) {

				$this->initialiseImageMap();

			}

			$_SESSION[$this->ImageMapIndex][] = [$Type,$Plots,$Color,$Title,$Message];

		} elseif ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_FILE) {

			$Handle = fopen($this->ImageMapStorageFolder . "/" . $this->ImageMapFileName . ".map", 'a');

			fwrite($Handle, $Type . IMAGE_MAP_DELIMITER . $Plots . IMAGE_MAP_DELIMITER . $Color . IMAGE_MAP_DELIMITER . $Title . IMAGE_MAP_DELIMITER . $Message . "\r\n");

			fclose($Handle);

		}

	}

	/* Remove VOID values from an imagemap custom values array */

	function removeVOIDFromArray($SerieName, array $Values)

	{

		if (!isset($this->DataSet->Data["Series"][$SerieName])) {

			return -1;

		}

		$Result = [];

		foreach($this->DataSet->Data["Series"][$SerieName]["Data"] as $Key => $Value) {

			if ($Value != VOID && isset($Values[$Key])) {

				$Result[] = $Values[$Key];

			}

		}

		return $Result;

	}

	/* Replace the title of one image map serie */

	function replaceImageMapTitle($OldTitle, $NewTitle)

	{

		if ($this->ImageMapStorageMode == NULL) {

			return -1;

		}

		if (is_array($NewTitle)) {

			$NewTitle = $this->removeVOIDFromArray($OldTitle, $NewTitle);

		}

		if ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_SESSION) {

			if (!isset($_SESSION)) {

				return -1;

			}

			if (is_array($NewTitle)) {

				$ID = 0;

				foreach($_SESSION[$this->ImageMapIndex] as $Key => $Settings) {

					if ($Settings[3] == $OldTitle && isset($NewTitle[$ID])) {

						$_SESSION[$this->ImageMapIndex][$Key][3] = $NewTitle[$ID];

						$ID++;

					}

				}

			} else {

				foreach($_SESSION[$this->ImageMapIndex] as $Key => $Settings) {

					if ($Settings[3] == $OldTitle) {

						$_SESSION[$this->ImageMapIndex][$Key][3] = $NewTitle;

					}

				}

			}

		} elseif ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_FILE) {

			$TempArray = [];

			$Handle = fopen($this->ImageMapStorageFolder . "/" . $this->ImageMapFileName . ".map", "r");

			if ($Handle) {

				while (($Buffer = fgets($Handle, 4096)) !== false) {

					$Fields = preg_split("/" . IMAGE_MAP_DELIMITER . "/", str_replace([chr(10), chr(13)], "", $Buffer));

					$TempArray[] = [$Fields[0], $Fields[1], $Fields[2], $Fields[3], $Fields[4]];

				}

				fclose($Handle);

				if (is_array($NewTitle)) {

					$ID = 0;

					foreach($TempArray as $Key => $Settings) {

						if ($Settings[3] == $OldTitle && isset($NewTitle[$ID])) {

							$TempArray[$Key][3] = $NewTitle[$ID];

							$ID++;

						}

					}

				} else {

					foreach($TempArray as $Key => $Settings) {

						if ($Settings[3] == $OldTitle) {

							$TempArray[$Key][3] = $NewTitle;

						}

					}

				}

				$Handle = fopen($this->ImageMapStorageFolder . "/" . $this->ImageMapFileName . ".map", 'w');

				foreach($TempArray as $Key => $Settings) {

					fwrite($Handle, $Settings[0] . IMAGE_MAP_DELIMITER . $Settings[1] . IMAGE_MAP_DELIMITER . $Settings[2] . IMAGE_MAP_DELIMITER . $Settings[3] . IMAGE_MAP_DELIMITER . $Settings[4] . "\r\n");

				}

				fclose($Handle);

			}

		}

	}

	/* Replace the values of the image map contents */

	function replaceImageMapValues($Title, array $Values)

	{

		if ($this->ImageMapStorageMode == NULL) {

			return -1;

		}

		$Values = $this->removeVOIDFromArray($Title, $Values);

		$ID = 0;

		if ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_SESSION) {

			if (!isset($_SESSION)) {

				return -1;

			}

			foreach($_SESSION[$this->ImageMapIndex] as $Key => $Settings) {

				if ($Settings[3] == $Title) {

					if (isset($Values[$ID])) {

						$_SESSION[$this->ImageMapIndex][$Key][4] = $Values[$ID];

					}

					$ID++;

				}

			}

		} elseif ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_FILE) {

			$TempArray = [];

			$Handle = fopen($this->ImageMapStorageFolder . "/" . $this->ImageMapFileName . ".map", "r");

			if ($Handle) {

				while (($Buffer = fgets($Handle, 4096)) !== false) {

					$Fields = preg_split("/" . IMAGE_MAP_DELIMITER . "/", str_replace([chr(10), chr(13)], "", $Buffer));

					$TempArray[] = [$Fields[0], $Fields[1], $Fields[2], $Fields[3], $Fields[4]];

				}

				fclose($Handle);

				foreach($TempArray as $Key => $Settings) {

					if ($Settings[3] == $Title) {

						if (isset($Values[$ID])) {

							$TempArray[$Key][4] = $Values[$ID];

						}

						$ID++;

					}

				}

				$Handle = fopen($this->ImageMapStorageFolder . "/" . $this->ImageMapFileName . ".map", 'w');

				foreach($TempArray as $Key => $Settings) {

					fwrite($Handle, $Settings[0] . IMAGE_MAP_DELIMITER . $Settings[1] . IMAGE_MAP_DELIMITER . $Settings[2] . IMAGE_MAP_DELIMITER . $Settings[3] . IMAGE_MAP_DELIMITER . $Settings[4] . "\r\n");

				}

				fclose($Handle);

			}

		}

	}

	/* Dump the image map */

	function dumpImageMap($Name = "pChart", $StorageMode = IMAGE_MAP_STORAGE_SESSION, $UniqueID = "imageMap", $StorageFolder = "tmp")

	{

		$this->ImageMapIndex = $Name;

		$this->ImageMapStorageMode = $StorageMode;

		if ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_SESSION) {

			if (!isset($_SESSION)) {

				session_start();

			}

			if ($_SESSION[$Name] != NULL) {

				foreach($_SESSION[$Name] as $Key => $Params) {

					echo $Params[0] . IMAGE_MAP_DELIMITER . $Params[1] . IMAGE_MAP_DELIMITER . $Params[2] . IMAGE_MAP_DELIMITER . $Params[3] . IMAGE_MAP_DELIMITER . $Params[4] . "\r\n";

				}

			}

		} elseif ($this->ImageMapStorageMode == IMAGE_MAP_STORAGE_FILE) {

			if (file_exists($StorageFolder . "/" . $UniqueID . ".map")) {

				$Handle = fopen($StorageFolder . "/" . $UniqueID . ".map", "r");

				if ($Handle) {

					while (($Buffer = fgets($Handle, 4096)) !== false) {

						echo $Buffer;

					}

				}

				fclose($Handle);

				if ($this->ImageMapAutoDelete) {

					unlink($StorageFolder . "/" . $UniqueID . ".map");

				}

			}

		}

		/* When the image map is returned to the client, the script ends */

		exit();

	}

	/* Return the HTML converted color from the RGB composite values */

	function toHTMLColor($R, $G, $B) # Momchil: Not worth caching

	{

		$R = dechex(max(min(255, $R), 0));

		$G = dechex(max(min(255, $G), 0));

		$B = dechex(max(min(255, $B), 0));

		$Color = "#" . (strlen($R) < 2 ? '0' : '') . $R;

		$Color.= (strlen($G) < 2 ? '0' : '') . $G;

		$Color.= (strlen($B) < 2 ? '0' : '') . $B;

		return $Color;

	}

	/* Reverse an array of points */

	function reversePlots($Plots)

	{

		$Result = [];

		for ($i = count($Plots) - 2; $i >= 0; $i = $i - 2) {

			$Result[] = $Plots[$i];

			$Result[] = $Plots[$i + 1];

		}

		return $Result;

	}

	/* Mirror Effect */

	function drawAreaMirror($X, $Y, $Width, $Height, array $Format = [])

	{

		$StartAlpha = isset($Format["StartAlpha"]) ? $Format["StartAlpha"] : 80;

		$EndAlpha = isset($Format["EndAlpha"]) ? $Format["EndAlpha"] : 0;

		$AlphaStep = ($StartAlpha - $EndAlpha) / $Height;

		$Picture = imagecreatetruecolor($this->XSize, $this->YSize);

		imagecopy($Picture, $this->Picture, 0, 0, 0, 0, $this->XSize, $this->YSize);

		for ($i = 1; $i <= $Height; $i++) {

			if ($Y + ($i - 1) < $this->YSize && $Y - $i > 0) {

				imagecopymerge($Picture, $this->Picture, $X, $Y + ($i - 1), $X, $Y - $i, $Width, 1, $StartAlpha - $AlphaStep * $i);

			}

		}

		imagecopy($this->Picture, $Picture, 0, 0, 0, 0, $this->XSize, $this->YSize);

		imagedestroy($Picture);

	}

}

?>