X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=opt%2Fpsftopst;fp=opt%2Fpsftopst;h=9e375497e4b99637cb8c3e26693f36ceff6f0d45;hb=4d28832cd017d91a5d72fe70aa72f5cecd01162c;hp=c577a1eb99d7cabeebd9c20147419db36dcd7734;hpb=b2262dadfc33a16c396136b8b0aa6f3c8bc34e00;p=pst-anamorphosis.git

diff --git a/opt/psftopst b/opt/psftopst
index c577a1e..9e37549 100755
--- a/opt/psftopst
+++ b/opt/psftopst
@@ -108,7 +108,7 @@ sub EcritureFichierPST {
   my $l    = ($$b[2] - $$b[0]);
   my $h    = ($$b[3] - $$b[1]);
   my $max  = $l; $max = $h if $h > $l;
-  $facteur = ($DimMax * $cm) / $max;
+  $facteur = $DimMax / $max;
   $out    .= "%\@FACTEUR: $facteur\n";
   my $abox = &xy_couple_modifie($b);
   $out    .= "%\@PSPICTURE:\n";