Changeset 15

Timestamp:

11/27/07 18:38:48 (16 years ago)

Author:

kolasinski

Message:

Add some debug_w in def_work - Add the possibility to convert ps files to pdf format - save_ps = 2 in plt_def

File:

• trunk/procs/def_work.pro (modified) (6 diffs)

trunk/procs/def_work.pro

@@ -12 +12 @@
 @common
 @com_eg
+
+   IF debug_w THEN print, ' '
+   IF debug_w THEN print, '  ENTER def_work...'
+
 ; Data bases
    data_bases = data_base_list
@@ -63 +67 @@
 
       IF cmd.on EQ 1 THEN BEGIN
+         IF debug_w THEN print, '    iline = ', iline
          iplot = iplot + 1
          print, ' '
@@ -197 +202 @@
             nfile_name = fileps
             ; save to file
-            IF save_ps EQ 1 THEN BEGIN
+            IF save_ps GE 1 THEN BEGIN
                ; open last name file
                IF strmid(cmd.out, 0, 3) ne 'psm' OR  movie_count EQ 0 THEN BEGIN
@@ -244 +249 @@
                   print, '  saving file <base name>= '+nfile_name+file_suffix
                ENDELSE 
-
-               conv = 'cp '
-               ext = '.ps'
+               IF save_ps EQ 2 THEN BEGIN  
+                  ; PDF
+                  conv = 'ps2pdf '
+                  ;;IF landscape EQ 1 THEN BEGIN
+                  ;;   conv = conv+'-rotate -90 '
+                  ;;ENDIF 
+                  print, '  converting to pdf...'
+                  ext = '.pdf'
+                  
+               ENDIF ELSE BEGIN 
+                  conv = 'cp '
+                  ext = '.ps'
+               ENDELSE 
                IF strpos(cmd.out, 'gif') NE -1 THEN BEGIN
                   conv = 'convert '
@@ -259 +274 @@
                spawn, line, prtout
 
-            ENDIF 
+            ENDIF  
             IF strlen(cmd.out) EQ 3 AND strmid(cmd.out, 0, 3) NE 'psm' THEN BEGIN
                CASE cmd.out OF
@@ -301 +316 @@
    close, nulhis
 
+   IF debug_w THEN print, '  ...EXIT def_work'
+
 END