pr2.pro 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455
  1. PRO Pr2,device,$
  2. bw=bw,$
  3. color=o_color,$
  4. pcl=pcl,$
  5. ps=ps,$
  6. cps=cps,$
  7. eps=eps,$
  8. cgm=cgm,$
  9. screen=screen,$
  10. transparency=o_transparency,$
  11. encapsulated=encapsulated,$
  12. bpp=bpp,$
  13. portrait=portrait,$
  14. landscape=landscape,$
  15. table=table,$
  16. reread=reread,$
  17. noflip=noflip,$
  18. verbose=verbose,$
  19. xsize=xsize,$
  20. ysize=ysize,$
  21. xoffset=xoff,$
  22. yoffset=yoff,$
  23. scale=scale,$
  24. file=file,$
  25. destination=destination
  26. ;+----------------------------------------------------------
  27. ; NAME:pr2
  28. ; like pr, but uses nice fonts
  29. ;
  30. ; Author: D. J. Lea Feb 2008
  31. ;+----------------------------------------------------------
  32. COMMON pr2, view_landscape
  33. set_plot,'ps'
  34. if (n_elements(color) eq 0) then color=1
  35. if (n_elements(landscape) eq 0) then landscape=1
  36. if (keyword_set(portrait)) then landscape=0
  37. encapsulated=1
  38. if (keyword_set(eps)) then encapsulated=1
  39. if (keyword_set(ps)) then encapsulated=0
  40. view_landscape=landscape
  41. DEVICE, filename=file, COLOR=color, landscape=landscape, $
  42. encapsulated=encapsulated, xsize=xsize, ysize=ysize
  43. !p.font=0
  44. device,/helv
  45. ;return
  46. end