imagecopyresampled et bande noir !!!

[JEAN]

Bonjour,
je veux redimmentionné une image en gardant les proportion et mettre
des bande BLANCHE sur le coté de l'image si celle-ci n'est pas en
proportion.
Je créé une image blanche.... jusque là pas de problème.
Mais lorsque j'aplique la copie dans la zone, les cotés deviennent
noir.
Une idée pour empèché d'avoir des bandes noir ?

$ims=getimagesize($_FILES[$CHAMPS]['tmp_name']);
$im2 = imagecreatetruecolor (($PL),($PH));
$blanc = imagecolorallocate($im2, 255, 255, 255);
imagefill($im2, 0, 0, $blanc);
// Image blanche ok!
if (($ims[0]/$ims[1])<($PL/$PH))
{$x1=intval(($ims[0]-($PL*$ims[1]/$PH))/2);
$y1=0;
$l1=intval(($PL*$ims[1])/$PH);
$h1=$ims[1];
}
else
{$x1=0;
$y1=intval(($ims[1]-($PH*$ims[0]/$PL))/2);
$l1=$ims[0];
$h1=intval(($PH*$ims[0])/$PL);
}
imagecopyresampled ($im2, $im, 0, 0, $x1, $y1,$PL+1,$PH+1,$l1,$h1);
imagejpeg ($im2,$dest_fichier);

[JEAN]

Problème résolu, c'est les coordonnées qui sont erronée