home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / utility / gsview13 / gsview32.exe / RCDATA / 900 next >
Text File  |  1995-12-09  |  1KB  |  42 lines
  1. /gsview_orientation {
  2.  gsview_offset
  3.  gsave clippath pathbbox grestore
  4.  4 dict begin
  5.  /ury exch def /urx exch def /lly exch def /llx exch def
  6.  gsview_landscape
  7.  {-90 rotate
  8.  llx ury add neg llx lly sub translate} if
  9.  gsview_upsidedown
  10.  {180 rotate
  11.  llx urx add neg lly ury add neg translate} if
  12.  gsview_seascape
  13.  {90 rotate
  14.  lly llx sub lly urx add neg translate} if
  15.  end
  16. } def
  17. /showpage
  18. { (showpage\r\n) print flush
  19.  0 .endpage {1 true .outputpage erasepage initgraphics}
  20.  if gsview_orientation .beginpage
  21. } bind def
  22. gsview_orientation
  23. /gsview_cleanup {clear cleardictstack} def
  24. /gsview_setpagesize {
  25.  gsview_landscape gsview_seascape or {exch} if
  26.  gsview_zoom {pop pop}
  27.   {//statusdict begin .setpagesize end gsview_orientation} ifelse
  28. } def
  29. /letter {612 792 gsview_setpagesize} def
  30. /note {540 720 gsview_setpagesize} def
  31. /legal {612 1008 gsview_setpagesize} def
  32. /a3 {842 1190 gsview_setpagesize} def
  33. /a4 {595 842 gsview_setpagesize} def
  34. /a5 {421 595 gsview_setpagesize} def
  35. /a6 {297 421 gsview_setpagesize} def
  36. /b4 {709 1002 gsview_setpagesize} def
  37. /flsa {612 936 gsview_setpagesize} def
  38. /flse {612 936 gsview_setpagesize} def
  39. /halfletter {396 612 gsview_setpagesize} def
  40. /11x17 {792 1224 gsview_setpagesize} def
  41. /ledger {1224 792 gsview_setpagesize} def