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

diff --git a/opt/psftopst.pl b/opt/psftopst.pl
index e127258..9e37549 100755
--- a/opt/psftopst.pl
+++ b/opt/psftopst.pl
@@ -2,7 +2,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $
   if 0;
 use strict;
 # ==============================================================================
-# psftopdf
+# psftopst
 # Version 1.0 (Mercredi 19 octobre 2011)                      Jean-Michel Sarlat
 # Ce script fait partie du projet pst-anamorphosis         (Gilg, Luque, Sarlat)
 # http://melusine.eu.org/syracuse/G/pst-anamorphosis                    Checkout
@@ -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";