home *** CD-ROM | disk | FTP | other *** search
/ CICA 1993 August / CICA.cdr / unzipped / util / gs26wgui / port_scr.ps < prev    next >
Encoding:
Text File  |  1993-03-15  |  928 b   |  29 lines
  1. % A small prologue for going from landscape mode to portrait.
  2. % The files will no longer fit without some kind of scaling.
  3. % This is a rough attempt by a novice... there must be a better way.
  4. %
  5. % This version is intended to fit what would have been a Landscape image
  6. % inside a 640x480 screen image.  It is intended to be used
  7. % with the command line parameters
  8. %        -g640x480 port_scr.ps 
  9.  
  10.  
  11.     gsave clippath pathbbox grestore
  12.     4 dict begin
  13.     /ury exch def /urx exch def /lly exch def /llx exch def
  14.     271 73 translate
  15.         .58 .58 scale
  16.     90 rotate
  17.     ury urx sub llx ury add neg translate
  18.     gsave clippath pathbbox grestore
  19.     4 dict begin
  20.     /ury exch def /urx exch def /lly exch def /llx exch def
  21.     90 rotate
  22.     ury urx sub llx ury add neg translate
  23.     gsave clippath pathbbox grestore
  24.     4 dict begin
  25.     /ury exch def /urx exch def /lly exch def /llx exch def
  26.     90 rotate
  27.     ury urx sub llx ury add neg translate
  28.     end
  29.