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