From: Jean-Michel Sarlat 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";