<?php//=======================================================================// File:	JPGRAPH_IMGTRANS.PHP// Description:	Extension for JpGraph to do some simple img transformations// Created: 	2003-09-06// Author:	Johan Persson (johanp@aditus.nu)// Ver:		$Id: jpgraph_imgtrans.php,v 1.1.2.3 2004/03/27 12:20:45 aditus Exp $//// License:	This code is released under QPL 1.0 // Copyright (C) 2003 Johan Persson //========================================================================//------------------------------------------------------------------------// Class ImgTrans// Perform some simple image transformations. //------------------------------------------------------------------------class ImgTrans {    var $gdImg=null;    function ImgTrans($aGdImg) {	// Constructor	$this->gdImg = $aGdImg;    }    // --------------------------------------------------------------------    // _TransVert3D() and _TransHor3D() are helper methods to     // Skew3D().     // --------------------------------------------------------------------    function _TransVert3D($aGdImg,$aHorizon=100,$aSkewDist=120,$aDir=SKEW3D_DOWN,$aMinSize=true,$aFillColor='#FFFFFF',$aQuality=false,$aBorder=false,$aHorizonPos=0.5) {	// Parameter check	if( $aHorizonPos < 0 || $aHorizonPos > 1.0 ) {	    JpGraphError::Raise("Value for image transformation out of bounds.\nVanishing point on horizon must be specified as a value between 0 and 1.");	}	$w = imagesx($aGdImg);	$h = imagesy($aGdImg);	// Create new image	$ww = $w;	if( $aMinSize ) 	    $hh = ceil($h * $aHorizon / ($aSkewDist+$h));	else 	    $hh = $h;		$newgdh = imagecreatetruecolor($ww,$hh);	$crgb = new RGB( $newgdh );	$fillColor = $crgb->Allocate($aFillColor);	imagefilledrectangle($newgdh,0,0,$ww-1,$hh-1,$fillColor);	if( $aBorder ) {	    $colidx = $crgb->Allocate($aBorder);	    imagerectangle($newgdh,0,0,$ww-1,$hh-1,$colidx);	}	$mid = round($w * $aHorizonPos);    	$last=$h;	for($y=0; $y < $h; ++$y) {		    $yp = $h-$y-1;	    $yt = floor($yp * $aHorizon / ($aSkewDist + $yp));	    	    if( !$aQuality ) {		if( $last <= $yt ) continue ;		$last = $yt;	    }	    for($x=0; $x < $w; ++$x) {	    		$xt = ($x-$mid) * $aSkewDist / ($aSkewDist + $yp);		if( $aDir == SKEW3D_UP ) 		    $rgb = imagecolorat($aGdImg,$x,$h-$y-1);		else		    $rgb = imagecolorat($aGdImg,$x,$y);		$r = ($rgb >> 16) & 0xFF;		$g = ($rgb >> 8) & 0xFF;		$b = $rgb & 0xFF;    		$colidx = imagecolorallocate($newgdh,$r,$g,$b);			$xt = round($xt+$mid);		if( $aDir == SKEW3D_UP ) {		    $syt = $yt;		}		else {		    $syt = $hh-$yt-1;		}		if( !empty($set[$yt]) ) {		    $nrgb = imagecolorat($newgdh,$xt,$syt);		    $nr = ($nrgb >> 16) & 0xFF;		    $ng = ($nrgb >> 8) & 0xFF;		    $nb = $nrgb & 0xFF;    		    $colidx = imagecolorallocate($newgdh,floor(($r+$nr)/2),						 floor(($g+$ng)/2),floor(($b+$nb)/2));			}			imagesetpixel($newgdh,$xt,$syt,$colidx);		    }	    $set[$yt] = true;		}	return $newgdh;    }    // --------------------------------------------------------------------    // _TransVert3D() and _TransHor3D() are helper methods to     // Skew3D().     // --------------------------------------------------------------------    function _TransHor3D($aGdImg,$aHorizon=100,$aSkewDist=120,$aDir=SKEW3D_LEFT,$aMinSize=true,$aFillColor='#FFFFFF',$aQuality=false,$aBorder=false,$aHorizonPos=0.5) {	$w = imagesx($aGdImg);	$h = imagesy($aGdImg);	// Create new image	$hh = $h;	if( $aMinSize ) 	    $ww = ceil($w * $aHorizon / ($aSkewDist+$w));	else 	    $ww = $w;		$newgdh = imagecreatetruecolor($ww,$hh);	$crgb = new RGB( $newgdh );	$fillColor = $crgb->Allocate($aFillColor);	imagefilledrectangle($newgdh,0,0,$ww-1,$hh-1,$fillColor);	if( $aBorder ) {	    $colidx = $crgb->Allocate($aBorder);	    imagerectangle($newgdh,0,0,$ww-1,$hh-1,$colidx);	}	$mid = round($h * $aHorizonPos);	$last = -1; 	for($x=0; $x < $w-1; ++$x) {	    	    $xt = floor($x * $aHorizon / ($aSkewDist + $x));	    if( !$aQuality ) {		if( $last >= $xt ) continue ;		$last = $xt;	    }	    for($y=0; $y < $h; ++$y) {			$yp = $h-$y-1;		$yt = ($yp-$mid) * $aSkewDist / ($aSkewDist + $x);		if( $aDir == SKEW3D_RIGHT ) 		    $rgb = imagecolorat($aGdImg,$w-$x-1,$y);		else		    $rgb = imagecolorat($aGdImg,$x,$y);		$r = ($rgb >> 16) & 0xFF;		$g = ($rgb >> 8) & 0xFF;		$b = $rgb & 0xFF;    		$colidx = imagecolorallocate($newgdh,$r,$g,$b);			$yt = floor($hh-$yt-$mid-1);		if( $aDir == SKEW3D_RIGHT ) {		    $sxt = $ww-$xt-1;		}		else		    $sxt = $xt ;		if( !empty($set[$xt]) ) {		    $nrgb = imagecolorat($newgdh,$sxt,$yt);		    $nr = ($nrgb >> 16) & 0xFF;		    $ng = ($nrgb >> 8) & 0xFF;		    $nb = $nrgb & 0xFF;    		    $colidx = imagecolorallocate($newgdh,floor(($r+$nr)/2),						 floor(($g+$ng)/2),floor(($b+$nb)/2));			}		imagesetpixel($newgdh,$sxt,$yt,$colidx);		    }	    $set[$xt] = true;	}	return $newgdh;    }    // --------------------------------------------------------------------    // Skew image for the apperance of a 3D effect    // This transforms an image into a 3D-skewed version    // of the image. The transformation is specified by giving the height    // of the artificial horizon and specifying a "skew" factor which    // is the distance on the horizon line between the point of     // convergence and perspective line.    //    // The function returns the GD handle of the transformed image    // leaving the original image untouched.    //    // Parameters:    // * $aGdImg, GD handle to the image to be transformed    // * $aHorizon, Distance to the horizon     // * $aSkewDist, Distance from the horizon point of convergence    //   on the horizon line to the perspective points. A larger     //   value will fore-shorten the image more    // * $aDir, parameter specifies type of convergence. This of this     //   as the walls in a room you are looking at. This specifies if the    //   image should be applied on the left,right,top or bottom walls.    // * $aMinSize, true=make the new image just as big as needed,    //   false = keep the image the same size as the original image    // * $aFillColor, Background fill color in the image    // * $aHiQuality, true=performa some interpolation that improves    //   the image quality but at the expense of performace. Enabling    //   high quality will have a dramatic effect on the time it takes    //   to transform an image.    // * $aBorder, if set to anything besides false this will draw a     //   a border of the speciied color around the image    // --------------------------------------------------------------------    function Skew3D($aHorizon=120,$aSkewDist=150,$aDir=SKEW3D_DOWN,$aHiQuality=false,$aMinSize=true,$aFillColor='#FFFFFF',$aBorder=false) {	return $this->_Skew3D($this->gdImg,$aHorizon,$aSkewDist,$aDir,$aHiQuality,			      $aMinSize,$aFillColor,$aBorder);    }    function _Skew3D($aGdImg,$aHorizon=120,$aSkewDist=150,$aDir=SKEW3D_DOWN,$aHiQuality=false,$aMinSize=true,$aFillColor='#FFFFFF',$aBorder=false) {	if( $aDir == SKEW3D_DOWN || $aDir == SKEW3D_UP )	    return $this->_TransVert3D($aGdImg,$aHorizon,$aSkewDist,$aDir,$aMinSize,$aFillColor,$aHiQuality,$aBorder);	else	    return $this->_TransHor3D($aGdImg,$aHorizon,$aSkewDist,$aDir,$aMinSize,$aFillColor,$aHiQuality,$aBorder);    }    }?>