home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 February / PCWK0296.iso / sharewar / dos / inne / gs300ini / ps2image.ps < prev    next >
Encoding:
Text File  |  1994-08-02  |  5.8 KB  |  172 lines
  1. %    Copyright (C) 1990, 1991, 1993 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Convert a .ps file to another .ps file containing only a bit image.
  19. % After loading ps2image.ps into Ghostscript, invoke
  20. %    (output_file.ps) ps2image
  21. % This replaces the current device, writing the output on the file
  22. % instead of to the device.  Then invoke
  23. %    (your_input_file.ps) run
  24. % To display the image at a later time, simply run the file that was
  25. % written (output_file.ps).
  26.  
  27. % Initialize, and redefine copypage and showpage.
  28. /ps2idict 25 dict def
  29. ps2idict begin
  30.  
  31.         % Save the showpage operator.
  32.   /realshowpage /showpage load def
  33.  
  34.         % Define a monochrome palette.
  35.   /monopalette <00 ff> def
  36.  
  37.         % The following string gets copied to the output file,
  38.         % and also gets executed now.
  39.  
  40. /initstring
  41. (%!
  42.   /maxrep 31 def        % max repeat count
  43.   /maxrep1 maxrep 1 sub def
  44.         % Initialize the strings for filling runs.
  45.      /.ImageFills [
  46.      0 1 255
  47.       { maxrep string dup 0 1 maxrep1 { 3 index put dup } for
  48.     pop exch pop readonly
  49.       } for
  50.      ] readonly def
  51.         % Initialize the procedure table for input dispatching.
  52.      /.ImageProcs [
  53.      33 { { pop .ImageItem } } repeat
  54.      32 { {    % 0x21-0x40: (N-0x20) data bytes follow
  55.       32 sub 3 index exch 0 exch getinterval 2 index exch
  56.       readhexstring pop exch pop dup
  57.      } bind } repeat
  58.      31 { {    % 0x41-0x5f: repeat last data byte (N-0x40) times
  59.       64 sub .ImageFills 2 index dup length 1 sub get get
  60.       exch 0 exch getinterval
  61.      } bind } repeat
  62.      160 { { pop .ImageItem } } repeat
  63.      ] readonly def
  64.         % Read one item from a compressed image.
  65.         % Stack contents: <buffer> <file> <previous>
  66.   /.ImageItem
  67.    { 1 index read pop dup .ImageProcs exch get exec
  68.    } bind def
  69.         % Read and print an entire compressed image,
  70.         % scaling it uniformly in X and Y to fill the page.
  71.         % Arguments: <width> <height>
  72.   /.ImageRead
  73.    { gsave 1 [
  74.      clippath pathbbox pop pop translate
  75.      pathbbox newpath 4 -2 roll pop pop
  76.      dup 3 1 roll abs 5 index exch div exch abs 6 index exch div
  77.      2 copy lt { exch } if pop        % (definition of max)
  78.      0 0 2 index neg 0 4 index 7 -1 roll mul
  79.      ] { .ImageItem }
  80.      4 index 7 add 8 idiv string currentfile ()
  81.      8 3 roll
  82.      image pop pop pop
  83.      grestore showpage
  84.    } bind def
  85. ) def
  86. initstring cvx exec        % Execute it now too.
  87.  
  88.         % Write a repeat command on the file.
  89.   /writerepeat        % <count> writerepeat -
  90.    {  { dup 31 le { exit } if myfile (_) writestring 31 sub } loop
  91.      dup 0 ne { 64 add myfile exch write } { pop } ifelse
  92.    } bind def
  93.  
  94.         % Write a data command on the file.
  95.   /writedata        % <string> writedata -
  96.    {  { dup length 0 eq { exit } if
  97.     dup length 32 min
  98.     dup 16#20 add myfile exch write
  99.     1 index 0 2 index getinterval myfile exch writehexstring
  100.     myfile (\n) writestring
  101.     1 index length 1 index sub getinterval
  102.       }
  103.      loop pop
  104.    } bind def
  105.  
  106.         % Write an entire data string on the file.
  107.   /writedatastring        % <string> writedatastring -
  108.    {  { dup length 4 lt { exit } if
  109.         % Detect a maximal run of non-repeated data.
  110.     dup length 4 sub 0 exch 1 exch
  111.      { 2 copy 3 getinterval 2 index 2 index 1 add 3 getinterval
  112.        eq { exit } if pop
  113.      }
  114.     for
  115.     dup type /stringtype eq { exit } if    % no repetition found
  116.     1 add
  117.     1 index 0 2 index getinterval writedata
  118.     1 index length 1 index sub getinterval
  119.         % Detect a maximal run of repeated data.
  120.         % We know there are at least 3 repeated bytes.
  121.     dup 0 get exch
  122.     dup length exch 3 1 3 index 1 sub
  123.      {        % Stack: <byte> <length> <string> <index>
  124.        2 copy get 4 index ne { 3 -1 roll pop exch exit } { pop } ifelse
  125.      }
  126.     for        % Stack: <byte> <length> <string>
  127.     exch dup writerepeat
  128.     1 index length 1 index sub getinterval
  129.     exch pop
  130.       }
  131.      loop writedata
  132.    } bind def
  133.  
  134.         % The main procedure.
  135.   /ps2image
  136.    {                % Open the file
  137.      (w) file /myfile exch def
  138.      myfile initstring writestring
  139.                     % Get the device parameters
  140.      currentdevice getdeviceprops .dicttomark
  141.      dup /HWSize get aload pop
  142.        /devheight exch def
  143.        /devwidth exch def
  144.      /InitialMatrix get
  145.        /devmatrix exch def
  146.                 % Make a corresponding memory device
  147.      devmatrix devwidth devheight monopalette
  148.      makeimagedevice
  149.      /mydevice exch def
  150.      mydevice setdevice        % (does an erasepage)
  151.      /rowwidth devwidth 7 add 8 idiv def
  152.      /row rowwidth 7 add 8 idiv 8 mul string def    % pad for scanning
  153.                 % Replace the definition of showpage
  154.      userdict /showpage { ps2idict begin myshowpage end } bind put
  155.    } def
  156.                 % Write the image on the file
  157.   /myshowpage
  158.    { myfile devwidth write==only   myfile ( ) writestring
  159.      myfile devheight write==only   myfile ( .ImageRead\n) writestring
  160.                  % Write the hex data
  161.      0 1 devheight 1 sub
  162.       { mydevice exch row 0 rowwidth getinterval copyscanlines
  163.     writedatastring
  164.       } for
  165.      myfile flushfile
  166.      erasepage initgraphics
  167.    } bind def
  168.  
  169. end
  170.  
  171. /ps2image { ps2idict begin ps2image end } bind def
  172.