X-Git-Url: https://melusine.eu.org/syracuse/G/git/?a=blobdiff_plain;f=opt%2Fpsftopst.pl;h=e4e38da1aefc685e902694ea1b1fe7c387fc1367;hb=HEAD;hp=e127258a97ed64a1f1c883830e4fe976be7e44be;hpb=9eee0699194e5bdd4a8c0bf41e27b29bc3648559;p=pst-anamorphosis.git

diff --git a/opt/psftopst.pl b/opt/psftopst.pl
index e127258..e4e38da 100755
--- a/opt/psftopst.pl
+++ b/opt/psftopst.pl
@@ -2,14 +2,14 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $
   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";
@@ -18,11 +18,11 @@ our $PS = $on_windows ? $windows_pstoedit : "pstoedit";
 
 # ===  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;
@@ -37,11 +37,11 @@ our $Fichier = $ARGV[0];
 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";
@@ -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";
@@ -124,7 +124,7 @@ sub EcritureFichierPST {
     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";