<?
/*
Variables:
	src - Source file name
	dir - Source dir
	q - quality of output JPEG
	w - width of image
	h - height of image
	z - if set to 1, then auto center image
	fs - font size
	f - foreground color
	b - background color
	s - shadow color
	d - shadow drop (offset)
	alt - alternative text (if image not found)
	str - text to write on image
	z - center image if z=1
	fr - file to be used as frame
*/
function ImageStringAlignAndWrap($image, $font, $text, $color, $shadow, $drop, $maxwidth, $alignment, $valign, $padding="5")
{
  $fontwidth = ImageFontWidth($font);
 $fontheight = ImageFontHeight($font);
  $margin = floor($padding + $drop)/2; // So that shadow is not off image on right align & bottom valign
  if ($maxwidth != NULL) {
  $maxcharsperline = floor( ($maxwidth - ($margin * 2)) / $fontwidth);
  $text = wordwrap($text, $maxcharsperline, "\n", 1);
  }
  
 $lines = explode("\n", $text);
  
  switch($valign){
    case "center":
     $y = (imageSY($image) - ($fontheight * sizeof($lines)))/2;
     break;
    case "bottom":
     $y = imageSY($image) - (($fontheight * sizeof($lines)) + $margin);
     break;
    default:
     $y = $margin;
     break;
  }
  switch($alignment){
    case "right":
      while (list($numl, $line) = each($lines)) {
            ImageString($image, $font, (imagesx($image) - $fontwidth*strlen($line))-$margin+$drop, ($y+$drop), $line, $shadow);
            ImageString($image, $font, (imagesx($image) - $fontwidth*strlen($line))-$margin, $y, $line, $color);
            $y += $fontheight;
      }
    break;
    case "center":
      while (list($numl, $line) = each($lines)) {
            ImageString($image, $font, floor((imagesx($image) - $fontwidth*strlen($line))/2)+$drop, ($y+$drop), $line, $shadow);
            ImageString($image, $font, floor((imagesx($image) - $fontwidth*strlen($line))/2), $y, $line, $color);
            $y += $fontheight;
      }
    break;
    default:
      while (list($numl, $line) = each($lines)) {
            ImageString($image, $font, $margin+$drop, ($y+$drop), $line, $shadow);
            ImageString($image, $font, $margin, $y, $line, $color);
            $y += $fontheight;
      }
    break;
  }
}

?>
<?
switch (substr($src, -3, 3)) {
	case "gif" :
		$type="gif";
		break;
	case "png" :
		$type="png";
		break;
	case "jpg" :
	case "jpeg" :
	default :
		$type="jpeg";
		break;
}
header("Content-type: image/jpeg");
header("Last-Modified: " . gmdate("D, d M Y H:i:s",mktime (0,0,0,1,1,2000)) . " GMT"); 
header("Expires: Mon, 26 Jul 2040 05:00:00 GMT"); 
header("Cache-Control: max-age=10000000, s-maxage=1000000, proxy-revalidate, must-revalidate");
	if (empty($alt)) {
		$alt="Image not Available";
	}
	if (!empty($fr)) {
		$useFrame = true;
	} else {
		$useFrame = false;
	}
	if (empty($q)) {
		$quality= 70;
	}
	else {
		$quality = (int)$q;
	}
	
	$err = false;
	switch ($type) {
	 	case "gif":
			$src_img = imagecreatefromgif($dir.$src) or $err=true;
			break;
		case "jpeg":
			$src_img = imagecreatefromjpeg($dir.$src) or $err=true;
			break;
		case "png":
			$src_img = imagecreatefrompng($dir.$src) or $err=true;
			break;
	}
	if ($useFrame) $frame = imagecreatefromgif($dir.$fr) or $err=true;
	if (!$err) {
		if (empty($w)) {
			$new_w=ImageSX($src_img);
		}
		else {
			$new_w = (int)$w;
		}
		$cof = $new_w/ImageSX($src_img);
		if (empty($h) || $h=="0") {
			$new_h=ImageSY($src_img)*$cof;
		}
		else {
			$new_h = (int)$h;
		}
		if ($z=="1") {
			if (ImageSX($src_img) > ImageSY($src_img)){
				$image_w = (int)$w;
				$cof = $image_w/ImageSX($src_img);
				$image_h = ImageSY($src_img)*$cof;
				$image_offset_x = 0;
				$image_offset_y = (int)(($h - $image_h)/2);
			}
			else {
				$image_h = (int)$h;
				$cof = $image_h/ImageSY($src_img);
				$image_w = ImageSX($src_img)*$cof;
				$image_offset_y = 0;
				$image_offset_x = (int)(($w - $image_w)/2);
			}
		}
		else {
			$image_offset_x = 0;
			$image_offset_y = 0;
			$image_h = $new_h;
			$image_w = $new_w;
		}
		
	}
	else
	{
		if (empty($w)) {
			$new_w=144;
		}
		else {
			$new_w = (int)$w;
		}
		$new_h = (int)$h;
		if (empty($new_h)) $new_h = $new_w;
	}
    $px     =20;
	$dst_img=ImageCreate($new_w,$new_h);
	//$dst_img=ImageCreateTrueColor($new_w,$new_h);
	if (empty($b)) {
		$b = imagecolorallocate($dst_img,200, 200,200);
	}
	else {
	    $cr = hexdec(substr($b, 0, 2)); 
		$cg = hexdec(substr($b, 2, 2)); 
		$cb = hexdec(substr($b, 4, 2)); 

		$b = imagecolorallocate($dst_img,$cr, $cg,$cb);
	}
	if (empty($f)) {
		$f =imagecolorallocate($dst_img,255, 255,255);
	}
	else {
	    $cr = hexdec(substr($f, 0, 2)); 
		$cg = hexdec(substr($f, 2, 2)); 
		$cb = hexdec(substr($f, 4, 2)); 

		$f = imagecolorallocate($dst_img,$cr, $cg,$cb);
	}
	
	if (!$err) {
		if (empty($fs)) {
			$fs= 1;
		}
		else {
			$fs = (int)$fs;
		}
		
		ImageCopyResized($dst_img,$src_img,$image_offset_x,$image_offset_y,0,0,$image_w,$image_h,ImageSX($src_img),ImageSY($src_img));
		ImageStringAlignAndWrap($dst_img, $fs, $str, $f, $f, 0, $new_w, "center", "center","7");
		
		if ($useFrame) ImageCopy($dst_img, $frame,0,0,0,0,ImageSX($frame), ImageSY($frame));
		//ImageColorTransparent($dst_img, $b);
		//ImageColorTransparent($dst_img, $f);
	}
	else {	
		
		$font_size = (int)($new_w/30);
		if ($new_w <51) {
			$alt = "X";
			$font_size=5;
		}
		
		//ImageColorTransparent($dst_img, $orange);
		//ImageString($dst_img,2, (int)$new_w/2, (int)$new_h/2, $str, $white);
		
		ImageStringAlignAndWrap($dst_img, $font_size, $alt, $f, $b, 3, $new_w, "center", "center","7");

	}
//	ImageCopyResampled($dst_img,$src_img,0,0,0,0,$new_w,$new_h,ImageSX($src_img),ImageSY($src_img));
	
		imagejpeg($dst_img,'', $quality);
	
    imagedestroy($dst_img);
?>