Correction du bug #2 de psftopst puis reprise de fichiers

[pst-anamorphosis.git] / opt / psftopst

diff --git a/opt/psftopst b/opt/psftopst
index ffc6a27..7cd5f51 100755 (executable)
--- a/opt/psftopst
+++ b/opt/psftopst
@@ -39,9 +39,9 @@ our ($Nom, $Dir, $Ext) = &FichierNRE($Fichier);
 # === Transformation éventuelle par pstoedit -----------------------------------
 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";
@@ -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";