prend2.pro 707 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. PRO PREND2,in_printer,keep=keep,noprint=noprint,double=double,$
  2. view=view,spin_landscape_ps=spin_landscape_ps,$
  3. eps_preview=eps_preview,colour_preview=colour_preview,$
  4. dpi_preview=dpi_preview, suppress_stderr=suppress_stderr
  5. ;+
  6. ; NAME:prend
  7. ;
  8. ; Author: D. J. Lea Feb 2008
  9. COMMON pr2, view_landscape
  10. ; get filename of postscript device
  11. r = fstat(!D.UNIT)
  12. filename = r.name
  13. device,/close
  14. set_plot,'x'
  15. if keyword_set(view) then begin
  16. if (view_landscape) then begin
  17. spawn,'gv -orientation=landscape -swap '+filename
  18. endif else begin
  19. spawn,'gv '+filename
  20. endelse
  21. endif
  22. !p.font=-1
  23. !p.charsize=0
  24. !p.charthick=0
  25. !p.thick=0
  26. !p.background=0
  27. ;return
  28. end