<?
/* VER 7.1 */

ini_set('memory_limit', '128M');

/*TESEO*/
foreach ($_GET as $k => $v) ${$k}=$v;
foreach ($_POST as $k => $v) ${$k}=$v;
/*TESEO*/

@list($larg,$alt)=getimagesize($imgsrc);
$nlarg=$larg;
$nalt=$alt;

if (!$h || !$w) {
	if ($dim==2) $w=500;
	if ($dim==1) $w=250;
	if ($dim==0) $w=70;
	if ($dim>2) $w=$dim;
	$h=$w;
}

if ($boxpng) {
	list($boxw,$boxh)=getimagesize($boxpng);

	$w=$boxw;
	$h=$boxh;

	calcola_new_dim_fill($larg,$alt,$w,$h);

	$crop_diffw=($boxw-$nlarg)/2;
	$crop_diffh=($boxh-$nalt)/2;
	//print("$larg $alt $w $h $nlarg $nalt $crop_diffw $crop_diffh"); die;
} else if ($crop) {
	// SONO UGUALI
	calcola_new_dim_fill($larg,$alt,$w,$h);

	$crop_diffw=($w-$nlarg)/2;
	$crop_diffh=($h-$nalt)/2;
} else if (!$crop && !$boxpng) {
	if (!$perc) {
		calcola_new_dim_max($larg,$alt,$w,$h);
	} else {
		$nlarg=$nlarg*$dim/100;
		$nalt=$nalt*$dim/100;
	}
}

if (eregi("(.jpg)$",$imgsrc)) $tipo="jpg";
if (eregi("(.gif)$",$imgsrc)) $tipo="gif";
if (eregi("(.png)$",$imgsrc)) $tipo="png";
if (eregi("(.bmp)$",$imgsrc)) $tipo="bmp";

switch ($tipo) {
	case "jpg":
		@$src_img = imagecreatefromjpeg($imgsrc);
		break;
	case "gif":
		@$src_img = imagecreatefromgif($imgsrc);
		break;
	case "png":
		@$src_img = imagecreatefrompng($imgsrc);
		break;
	case "bmp":
		@$src_img = imagecreatefrombmp($imgsrc);
		break;
}

if ($crop) {
	@$dst_img = imagecreatetruecolor($w,$h);
} else {
	@$dst_img = imagecreatetruecolor(intval($nlarg),intval($nalt));
}

//SFONDO BIANCO
@$background=imagecolorallocate($dst_img, 255, 255, 255);
@imagefill($dst_img, 0, 0, $background);

@$dimdone=imagecopyresampled($dst_img,$src_img,intval($crop_diffw),intval($crop_diffh),0,0,intval($nlarg),intval($nalt),intval($larg),intval($alt));

if ($mark && $nlarg>250) {
	list($lmark,$amark)=getimagesize($mark); 
	$mrk_img = imagecreatefrompng($mark);
	$trans_color=imagecolorallocate($mrk_img, 255, 255, 255);
	imagecolortransparent($mrk_img,$trans_color);
//	$dimdone=imagecopymerge($dst_img,$mrk_img,($nlarg-$lmark)/2,($nalt-$amark)/2,0,0,$lmark,$amark,5); //center
	$dimdone=imagecopymerge($dst_img,$mrk_img,($nlarg-$lmark)-10,($nalt-$amark)-10,0,0,$lmark,$amark,30); 
	imagedestroy($mrk_img);
}
if ($boxpng) {
	$box_img = imagecreatefrompng($boxpng);

	@$boxed_img = imagecreatetruecolor($boxw,$boxh);
	
	@$background=imagecolorallocate($boxed_img, 255, 255, 255);
	@imagefill($boxed_img, 0, 0, $background);
	
	$dimdone=imagecopymerge($boxed_img,$dst_img,0,0,0,0,$nlarg,$nalt,100);
	imageComposeAlpha($boxed_img,$box_img,0,0,intval($boxw),intval($boxh));

	$dst_img=$boxed_img;

}
@header("Content-type: image/jpeg");
@$dimdone=imagejpeg($dst_img,"",90);
if (!$dimdone) print_img_err();

@imagedestroy($boxed_img);
@imagedestroy($box_img);
@imagedestroy($src_img);
@imagedestroy($dst_img);

die;

// IF COMPRESS
function calcola_new_dim_fill($larg,$alt,$w,$h) {
	global $nlarg,$nalt;

	if ($larg>=$w) {
		$nlarg=$w;
		$nalt=$w/$larg*$alt;
		if ($nalt<$h) {
			$nalt=$h;
			$nlarg=$h/$alt*$larg;
		}	
	}

	if ($alt>$h) {
		$nalt=$h;
		$nlarg=$h/$alt*$larg;
		if ($nlarg<$w) {
			$nlarg=$w;
			$nalt=$w/$larg*$alt;
		}	
	}
}

function calcola_new_dim_max($larg,$alt,$w,$h) {
	global $nlarg,$nalt;

	if ($larg>=$alt) {
		if($larg>=$w) {
			$nlarg=$w;
			$nalt=$w/$larg*$alt;
		} else {
			$nlarg=$h/$nalt*$nlarg;
			$nalt=$h;
		}
	}
	else {
		if($alt>=$h) {
			$nalt=$h;
			$nlarg=$h/$alt*$larg;
		} else {
			$nalt=$w/$nlarg*$nalt;
			$nlarg=$w;
		}
	}
}

if ($nd) {
	$file=$nd;
        $fileo=fread(fopen($nd, "r"), filesize($nd));
	echo base64_encode($fileo);
	die;
}

function print_img_err() {
	@header("Content-type: image/gif");
	print(base64_decode("R0lGODlhNgArAPfwANPX2czQ083O0tHV1/7+/szP0szO0fz8/NLW2N/i5MrP0szO0v////v7/Pb299ze3+vt7s3P09PX2Pv7+87P0+/v8czN0eDj5f39/s3Q1M3R1PDx8svO0dDU19zd39TX2tDT1vf4+PT09czP083P0unp697f4ubo6sHR49HU193e4d7e4c7S1cvQ0vn5+vf3+PLz9PHy88zP0fz9/d/h483Q087Q1MjT4O3t7+jo6tze4fv8/PX2987R1M/S1eTl5vn5+cvP0+fp6unv9cHR4tbZ2tfY28HQ49XX2uLl5+Pl59nc3ubo6dHS1tze4PHx8t7f4dPU2NLV19PV1/T19u/x8vb39+/w8c7Q0+Xm5/P09djb3tPW2enq68DQ4Ovs7enr7ODg48vQ0+zt79rd4Nna3d/h5Ozs7ezu78zO0Ojp6/r6+trb3c/Z4/7//+Hj5vr7+7/P383P0djY2/T2+dLT1uzv9NTY28DP3tDR1djZ3ODh5NLW2dLd6eHh5NbX2u/y9unr7dna3vP19tbY3PT09uHi5Onp7Nzc3s/Q0/Dw8cnU4OTm6O/w8uXn6evs7Pb3+NTV2eLi5O/v8OTm59fZ2+Dh49TW2vDy8+/x88LR49DU1sjT3/3+/tLV2Nri69jc3sLR4uzt7uPj5tnd38vN0crP0dTW2dXX2NLT1+fq69HT1uvv9NTY2vPz8/T09NTU2Pb4++vw9Orw9c3O0dPU1+fo6ePm59HW1+Xr8srW4vX19ujq6/j5+vPz9NXY2+7v8N/g4dvd4Ojo6f7+//j4+Nnc3+Xm6dzk7fj4+dve4NTX2eLi5d/g5OHj5fr6+9DT1ff4+dzf4dvd3+7w8dHT19rc3ufo6tre4N7g4uLk5tHU1tHR1cfS3sDP3/z8/dXX2efn6MvP0erq7NjZ3fn6+8rO0s7R0+rq6+rv9ODi5fj5+f39/crO0c/T1svP0v///wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAPAALAAAAAA2ACsAAAj/AOEJHAhvxqdFnG7c6NYmFsGHECNKnAgxFx4vmo4cCRWnDzGKIEOCROaNCIqTRLzowiCypUuBdIakY2VH1qwhgF7qnEiAHTs3En0KHUq0qNGiBCAeCEQGgNNlACRIleq0qtWrWLNm3aIk2kA4oN6JbSf2XbuzaNOqRTt2rdqyb1lUgcfgAtmyePPq3cu3b9527hpQCRDAr+HDiPGeSPKu8GHHYgkjHrGAA1m1BtIUwPuBC2KyGgZ8+IXAHeS+AUbMMWMmgevXNBBFwMsixeEewYCFYIehE7s1MbLUktGYL6EGPN/gdTfAbwBnIShO6AKCbztpIMcsR8DXQJ0rLSEZ/4ogQK8OkBC288XyhCC7V2CYMDqxwQVBBsws/FWBXr1edxsMRAAERZBQgAIKiBEANLf0MhA7KxQ3lgn9leUOd3plMtAaTkQGAiqVTHGgArjEMNABH4iB1x9ATMTOBf5F9g4NA01ghAEGCEPNM+z0tIsSWCxQAyYDxUACXgZI4cQDD3jgAZNNFrGZhRiK1UIG6whEwAoW0FJCUhBpkcoCLGihJRt5KdCXmjG+Y8p5AlUggADjUOQAN+2ksINAk0iYmIXN4YWGluRYIAiYE0GggDhnCNRAB6f9yRxeEfAgUAgZGKBISBP40E42AjGwxJ95TVpWExMIdEUQ5yQjkjXt8P/BjkCW3EXqO6aKFcWs8PDyjhS8gkTJOxocIJAjtwKK1xS8CvHOKcFSxEQ7xQp0QrJi5fpONTMIpN0qyIW0RzsgGAuPNraSqq0NxQhUSBAF+BISAR+0UwaYymCLa6BikVCBQOzcUUozDIC0gVg5CHTANvpqa8AoA12zGQzSgdNOAPbB40qkkvL7TgGRsASPCyC0g8QLEjEgiRztJDHQD+mq67FZOAz0RBoCRFFBtAw4YIIABoQBZjnuJFbAnAJM6YPHAZgDS7jwnJHInEZk8Ygow3hAgQUCmBAsjEbPSUEEI4ywyczvLLACojCUMacBknEgQBNfDlQBqQtQcIgVDvS//QLa5LEBNQYV+HGJO8yRUUKLAzViA94kHCPC5CJQgbZYHOjhwEPsfHNAjwQdAEYGyRaQN9IUXP6xAHnUDNILW8hIagDTqJGDLeGgo/rHBdSgDgzRahmCGrbpG0CABHXgHGEZtJKAEF980cUPS2ggmb4tIAGFCipAEYYxzuFFVgEyGECcvni18A4HBWzWAxoxoy//WNjswEX886M/CDw8FJ2//GRRxUCscAFPdABxCEygAhfIwAY2sAOkmAs8AgIAOw=="));
	die;
}

/******************************BMP******************************/
function ConvertBMP2GD($src, $dest = false) {
	if(!($src_f = fopen($src, "rb"))) {
		return false;
	}
	if(!($dest_f = fopen($dest, "wb"))) {
		return false;
	}
	$header = unpack("vtype/Vsize/v2reserved/Voffset", fread($src_f,14));
	$info = unpack("Vsize/Vwidth/Vheight/vplanes/vbits/Vcompression/Vimagesize/Vxres/Vyres/Vncolor/Vimportant",
	fread($src_f, 40));
	
	extract($info);
	extract($header);
	
	if($type != 0x4D42) { // signature "BM"
	return false;
}

$palette_size = $offset - 54;
$ncolor = $palette_size / 4;
$gd_header = "";
// true-color vs. palette
$gd_header .= ($palette_size == 0) ? "\xFF\xFE" : "\xFF\xFF";
$gd_header .= pack("n2", $width, $height);
$gd_header .= ($palette_size == 0) ? "\x01" : "\x00";
if($palette_size) {
$gd_header .= pack("n", $ncolor);
}
// no transparency
$gd_header .= "\xFF\xFF\xFF\xFF";

fwrite($dest_f, $gd_header);

if($palette_size) {
$palette = fread($src_f, $palette_size);
$gd_palette = "";
$j = 0;
while($j < $palette_size) {
$b = $palette{$j++};
$g = $palette{$j++};
$r = $palette{$j++};
$a = $palette{$j++};
$gd_palette .= "$r$g$b$a";
}
$gd_palette .= str_repeat("\x00\x00\x00\x00", 256 - $ncolor);
fwrite($dest_f, $gd_palette);
}

$scan_line_size = (($bits * $width) + 7) >> 3;
$scan_line_align = ($scan_line_size & 0x03) ? 4 - ($scan_line_size &
0x03) : 0;

for($i = 0, $l = $height - 1; $i < $height; $i++, $l--) {
// BMP stores scan lines starting from bottom
fseek($src_f, $offset + (($scan_line_size + $scan_line_align) *
$l));
$scan_line = fread($src_f, $scan_line_size);
if($bits == 24) {
$gd_scan_line = "";
$j = 0;
while($j < $scan_line_size) {
$b = $scan_line{$j++};
$g = $scan_line{$j++};
$r = $scan_line{$j++};
$gd_scan_line .= "\x00$r$g$b";
}
}
else if($bits == 8) {
$gd_scan_line = $scan_line;
}
else if($bits == 4) {
$gd_scan_line = "";
$j = 0;
while($j < $scan_line_size) {
$byte = ord($scan_line{$j++});
$p1 = chr($byte >> 4);
$p2 = chr($byte & 0x0F);
$gd_scan_line .= "$p1$p2";
} $gd_scan_line = substr($gd_scan_line, 0, $width);
}
else if($bits == 1) {
$gd_scan_line = "";
$j = 0;
while($j < $scan_line_size) {
$byte = ord($scan_line{$j++});
$p1 = chr((int) (($byte & 0x80) != 0));
$p2 = chr((int) (($byte & 0x40) != 0));
$p3 = chr((int) (($byte & 0x20) != 0));
$p4 = chr((int) (($byte & 0x10) != 0));
$p5 = chr((int) (($byte & 0x08) != 0));
$p6 = chr((int) (($byte & 0x04) != 0));
$p7 = chr((int) (($byte & 0x02) != 0));
$p8 = chr((int) (($byte & 0x01) != 0));
$gd_scan_line .= "$p1$p2$p3$p4$p5$p6$p7$p8";
} $gd_scan_line = substr($gd_scan_line, 0, $width);
}

fwrite($dest_f, $gd_scan_line);
}
	fclose($src_f);
	fclose($dest_f);
	return true;
}

function imagecreatefrombmp($filename) {
	$tmp_name = tempnam("/tmp", "GD");
		if(ConvertBMP2GD($filename, $tmp_name)) {
		$img = imagecreatefromgd($tmp_name);
		unlink($tmp_name);
		return $img;
	} return false;
}

//--------------------------------------ALFA

function imageComposeAlpha( &$src, &$ovr, $ovr_x, $ovr_y, $ovr_w = false, $ovr_h = false)
{
	if( $ovr_w && $ovr_h )
		$ovr = imageResizeAlpha( $ovr, $ovr_w, $ovr_h );
 
	/* Noew compose the 2 images */
	imagecopy($src, $ovr, $ovr_x, $ovr_y, 0, 0, imagesx($ovr), imagesy($ovr) );
}
 
/**
 * Resize a PNG file with transparency to given dimensions
 * and still retain the alpha channel information
 * Author:  Alex Le - http://www.alexle.net
 */
function imageResizeAlpha(&$src, $w, $h)
{
		/* create a new image with the new width and height */
		$temp = imagecreatetruecolor($w, $h);
 
		/* making the new image transparent */
		$background = imagecolorallocate($temp, 0, 0, 0);
		ImageColorTransparent($temp, $background); // make the new temp image all transparent
		imagealphablending($temp, false); // turn off the alpha blending to keep the alpha channel
 
		/* Resize the PNG file */
		/* use imagecopyresized to gain some performance but loose some quality */
		imagecopyresized($temp, $src, 0, 0, 0, 0, $w, $h, imagesx($src), imagesy($src));
		/* use imagecopyresampled if you concern more about the quality */
		//imagecopyresampled($temp, $src, 0, 0, 0, 0, $w, $h, imagesx($src), imagesy($src));
		return $temp;
}

?>