# 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";
+ my $f = "$Nom-original.$Ext";
copy($Fichier, $f);
- my @a = ($PS, "-f ps", $f, $Fichier);
+ my @a = ($PS, "-f", "ps", $f, $Fichier);
$debug and print STDERR "Processing by pstoedit...\n";
system(@a) == 0 or die "Running pstoedit failed\nCommand :".join(" ",@a)."\n";
$debug and print STDERR "Ok!\n";
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";
if ($$r[$i]->{path}) {
$out .= "%% Path : $i\n";
my $couleur = $$cmyk{$$r[$i]->{setcmykcolor}};
- my $epaisseur = $$r[$i]->{setlinewidth}; $epaisseur = sprintf("linewidth=%0.5fpt", $epaisseur / $facteur);
+ my $epaisseur = $$r[$i]->{setlinewidth}; $epaisseur = sprintf("linewidth=%0.5fpt", $epaisseur * $facteur * $cm);
my $t = $$r[$i]->{type};
$t eq "fill" and $out .= "\\pscustom[fillstyle=solid,fillcolor=$couleur,linestyle=none]{\n";
$t eq "eofill" and $out .= "\\pscustom[fillstyle=asolid,fillcolor=$couleur,linestyle=none]{\n";