<?
	$mappa=imagecreatefromjpeg($immagine);
	$larg=imagesx($mappa); 
	$alt=imagesy($mappa); 
	
	if ($var_l) {
	
		if ($larg>=$alt) {
			if ($larg>$var_l) {
				$newalt=round( (($alt*$var_l)/$larg),0);
				$newlarg=$var_l;
			} else {
				$newlarg=$larg;
				$newalt=$alt;
			}
			$imgdest=imagecreatetruecolor($newlarg, $newalt);
		} else {
			if ($alt>$var_l) {
				$newlarg=round( (($larg*$var_l)/$alt),0);
				$newalt=$var_l;
			} else {
				$newlarg=$larg;
				$newalt=$alt;
			}
			$imgdest=imagecreatetruecolor($newlarg, $newalt);
			
		}
	}
	
	if ($var_alt) {
			if ($alt>$var_alt) {
				$newlarg=round( (($larg*$var_alt)/$alt),0);
				$newalt=$var_alt;
			} else {
				$newlarg=$larg;
				$newalt=$alt;
			}
			$imgdest=imagecreatetruecolor($newlarg, $newalt);			
	}
	
	
	
	
	
	
	imagecopyresampled($imgdest,$mappa,0,0,0,0,$newlarg,$newalt,$larg,$alt);
	if ($alt>500) {
		$ric_alt=500;
		$ric_larg=$newlarg*5;
		$ricampiona=imagecreatetruecolor($ric_larg, $ric_alt);
		imagecopyresampled($ricampiona,$mappa,0,0,0,0,$ric_larg,$ric_alt,$larg,$alt);
		@imagejpeg($ricampiona,$immagine);	
	}
	imagejpeg($imgdest);
	imagedestroy($imgdest);
	imagedestroy($mappa);

?>