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
# http://melusine.eu.org/syracuse/G/git/?p=pst-anamorphosis.git git
# ==============================================================================
-our $windows_pstoedit = "<chemin vers pstoedit.exe>";
+our $windows_pstoedit = '<chemin vers pstoedit.exe>';
our $on_windows = $^O =~ /^MSWin/;
our $GS = $on_windows ? "gswin32c" : "gs";
# === Acquisition des options de la ligne de commande -------------------------
$::opt_dimmax = 4; # Dimension maximale : 4 cm par défaut
-$::opt_t = 0; # Transformation initiale par pstoedit
+$::opt_ps = 0; # Transformation initiale par pstoedit
use Getopt::Long;
GetOptions(
"dimmax=s",
- "t"
+ "ps"
);
our $debug = 1;
our ($Nom, $Dir, $Ext) = &FichierNRE($Fichier);
# === Transformation éventuelle par pstoedit -----------------------------------
-if ($::opt_t) {
+if ($::opt_ps) {
use File::Copy;
my $f = "$Nom-original$Ext";
copy($Fichier, $f);
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";