From 4d28832cd017d91a5d72fe70aa72f5cecd01162c Mon Sep 17 00:00:00 2001
From: Jean-Michel Sarlat <jm.sarlat@gmail.com>
Date: Wed, 19 Oct 2011 23:39:33 +0200
Subject: [PATCH] Correction d'un bug (taille finale) de psftopst...

---
 opt/psftopst    | 2 +-
 opt/psftopst.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

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";
-- 
2.20.1