Changeset 1597 for trunk

Timestamp:

Oct 27, 2009, 10:23:35 AM (15 years ago)

Author:

gah

Message:

 

File:

• trunk/gui/scripts/xyprint.tcl (modified) (1 diff)

trunk/gui/scripts/xyprint.tcl

@@ -211 +211 @@
 
     if { $format == "eps" } {
-        set cmd [list | eps2eps - - << $psdata]
+        set cmd [list | /usr/bin/gs -q -sDEVICE=epswrite -sstdout=%stderr -sOutputFile=- -dNOPAUSE -dBATCH -dSAFER -dDEVICEWIDTH=250000 -dDEVICEHEIGHT=250000 - << $psdata]
+        #set cmd [list | /usr/bin/eps2eps - - << $psdata]
     } elseif { $format == "pdf" } {
-        set cmd [list | eps2eps - - << $psdata | ps2pdf - -]
+        set cmd [list | /usr/bin/gs -q -sDEVICE=epswrite -sstdout=%stderr -sOutputFile=- -dNOPAUSE -dBATCH -dSAFER -dDEVICEWIDTH=250000 -dDEVICEHEIGHT=250000 - << $psdata | /usr/bin/gs -dSAFER -dCompatibilityLevel=1.4 -q -dNOPAUSE -dBATCH -sDEVICE=pdfwrite -sstdout=%stderr -sOutputFile=- -dSAFER -dCompatibilityLevel=1.4 -c .setpdfwrite -f -]
+        #set cmd [list | /usr/bin/eps2eps - - << $psdata | /usr/bin/ps2pdf - -]
     }
     if { [catch {