From: Jean-Michel Sarlat <jm.sarlat@gmail.com>
Date: Wed, 19 Oct 2011 21:39:33 +0000 (+0200)
Subject: Correction d'un bug (taille finale) de psftopst...
X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=commitdiff_plain;h=4d28832cd017d91a5d72fe70aa72f5cecd01162c;p=pst-anamorphosis.git

Correction d'un bug (taille finale) de psftopst...
---

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";
diff --git a/opt/psftopst.pl b/opt/psftopst.pl
index c577a1e..9e37549 100755
--- a/opt/psftopst.pl
+++ b/opt/psftopst.pl
@@ -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";