Changeset 15
- Timestamp:
- 11/27/07 18:38:48 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/def_work.pro
r2 r15 12 12 @common 13 13 @com_eg 14 15 IF debug_w THEN print, ' ' 16 IF debug_w THEN print, ' ENTER def_work...' 17 14 18 ; Data bases 15 19 data_bases = data_base_list … … 63 67 64 68 IF cmd.on EQ 1 THEN BEGIN 69 IF debug_w THEN print, ' iline = ', iline 65 70 iplot = iplot + 1 66 71 print, ' ' … … 197 202 nfile_name = fileps 198 203 ; save to file 199 IF save_ps EQ1 THEN BEGIN204 IF save_ps GE 1 THEN BEGIN 200 205 ; open last name file 201 206 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 245 250 ENDELSE 246 247 conv = 'cp ' 248 ext = '.ps' 251 IF save_ps EQ 2 THEN BEGIN 252 ; PDF 253 conv = 'ps2pdf ' 254 ;;IF landscape EQ 1 THEN BEGIN 255 ;; conv = conv+'-rotate -90 ' 256 ;;ENDIF 257 print, ' converting to pdf...' 258 ext = '.pdf' 259 260 ENDIF ELSE BEGIN 261 conv = 'cp ' 262 ext = '.ps' 263 ENDELSE 249 264 IF strpos(cmd.out, 'gif') NE -1 THEN BEGIN 250 265 conv = 'convert ' … … 259 274 spawn, line, prtout 260 275 261 ENDIF 276 ENDIF 262 277 IF strlen(cmd.out) EQ 3 AND strmid(cmd.out, 0, 3) NE 'psm' THEN BEGIN 263 278 CASE cmd.out OF … … 301 316 close, nulhis 302 317 318 IF debug_w THEN print, ' ...EXIT def_work' 319 303 320 END
Note: See TracChangeset
for help on using the changeset viewer.