home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / viewpbm.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  5.6 KB  |  188 lines
  1. %    Copyright (C) 1992, 1995, 1996, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: viewpbm.ps,v $ $Revision: 1.2.2.1 $
  20. % viewpbm.ps
  21. % Display a PBM/PGM/PPM file.
  22. % Requires the Level 2 `image' operator (to handle variable pixel widths).
  23. % If SCALE is defined, maps input pixels to output pixels with that scale;
  24. % if SCALE is undefined, scales the image to fit the page.
  25.  
  26. /s 100 string def
  27. /readmaxv {        % <file> readmaxv -
  28.   10 string readline pop cvx exec /maxv exch def
  29. } bind def
  30. /readrow {        % <file> <row> readrow <row>
  31.   0 1 2 index length 1 sub {
  32.     1 index exch 3 index token pop put
  33.   } for exch pop
  34. } bind def
  35. /read01 {        % <file> <count> read01 <byte>
  36.   0 exch {
  37.     1 index read pop 48 xor dup 1 le { exch dup add add } { pop } ifelse
  38.   } repeat
  39. } bind def
  40. /readrow01 {        % <file> <row> readrow01 <row>
  41.   0 1 w 8 idiv {
  42.     1 index exch 3 index 8 read01 put
  43.   } for
  44.   wrem 0 ne {
  45.      dup rsize 1 sub wrem read01 8 wrem sub bitshift put
  46.   } if
  47.   exch pop
  48. } bind def
  49. /readwh {        % <file> readwh <w> <h>
  50.  dup s readline pop        % check for comment
  51.  (#) anchorsearch {
  52.    pop pop dup s readline pop
  53.  } if
  54.  cvx exec
  55. } bind def
  56. /pbmtypes mark
  57. % The procedures in this dictionary are called as
  58. %    <file> Pn <w> <h> <readproc>
  59. /P1 {            % ASCII 1-bit white/black
  60.   /bpc 1 def /maxv 1 def /rsize w 7 add 8 idiv def
  61.   /wrem w 8 mod def
  62.   /ncomp 1 def /invert true def /DeviceGray setcolorspace
  63.   readwh
  64.     { readrow01 }
  65. } bind
  66. /P2 {            % ASCII 8-bit gray
  67.   readwh
  68.   /bpc 8 def 2 index readmaxv /rsize 2 index def
  69.   /ncomp 1 def /invert false def /DeviceGray setcolorspace
  70.     { readrow }
  71. } bind
  72. /P3 {            % ASCII 8-bit RGB
  73.   readwh
  74.   /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  75.   /ncomp 3 def /invert false def /DeviceRGB setcolorspace
  76.     { readrow }
  77. } bind
  78. /P4 {            % Binary 1-bit white/black
  79.   readwh
  80.   /bpc 1 def /maxv 1 def /rsize 2 index 7 add 8 idiv def
  81.   /ncomp 1 def /invert true def /DeviceGray setcolorspace
  82.     { readstring pop }
  83. } bind
  84. /P5 {            % Binary 8-bit gray
  85.   readwh
  86.   /bpc 8 def 2 index readmaxv /rsize 2 index def
  87.   /ncomp 1 def /invert false def /DeviceGray setcolorspace
  88.     { readstring pop }
  89. } bind
  90. /P6 {            % Binary 8-bit RGB
  91.   readwh
  92.   /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  93.   /ncomp 3 def /invert false def /DeviceRGB setcolorspace
  94.     { readstring pop }
  95. } bind
  96. .dicttomark readonly def
  97. /pbmsetup {            % <file> <w> <h> <readproc> runpbm -
  98.    /readproc exch def
  99.    /h exch def
  100.    /w exch def
  101.    /f exch def
  102.    20 dict begin        % image dictionary
  103.      /ImageType 1 def
  104.      /Width w def
  105.      /Height h def
  106.      /ImageMatrix [w 0 0 h neg 0 h] def
  107.      /BitsPerComponent bpc def
  108.      /Decode [ 0 255 maxv div invert { exch } if ncomp 1 sub { 2 copy } repeat ] def
  109.      /DataSource [ f rsize string /readproc load /exec load ] cvx def
  110.    currentdict end
  111. } def
  112. /imagescale {            % <imagedict> imagescale -
  113.   begin
  114.     /SCALE where {
  115.       pop
  116.     % Map pixels SCALE-for-1.  Assume orthogonal transformation.
  117.       Width 1 0 dtransform add abs div SCALE mul
  118.       Height 0 1 dtransform add abs div SCALE mul
  119.     } {
  120.     % Scale the image (uniformly) to fit the page.
  121.       clippath pathbbox pop pop translate
  122.       pathbbox min exch pop exch pop ceiling
  123.       dup Height Width gt {
  124.     Width mul Height div exch
  125.       } {
  126.     Height mul Width div
  127.       } ifelse
  128.     }
  129.     ifelse scale
  130.   end
  131. } def
  132.  
  133. % Image a PBM file page by page.
  134. /viewpbm {            % <filename> viewpbm -
  135.   20 dict begin
  136.     (r) file /pf exch def {
  137.       pf token not { exit } if
  138.       pbmtypes exch get pf exch exec pbmsetup
  139.       dup imagescale image showpage
  140.     } loop
  141.   end
  142. } def
  143.  
  144. % Reassemble a composite PBM file from the CMYK separations.
  145. /viewpsm {
  146.   20 dict begin
  147.     /fname exch def
  148.     /sources [ 0 1 3 {
  149.       /plane exch def 
  150.       /pf fname (r) file def
  151.       pf pbmtypes pf token pop get exec
  152.         % Stack: pf w h readproc
  153.       plane {
  154.     /readproc exch def /h exch def /w exch def pop
  155.     /row rsize string def
  156.     h { pf row readproc pop } repeat
  157.     pf pbmtypes pf token pop get exec
  158.       } repeat
  159.       pbmsetup
  160.     } for ] def
  161.     /datas [ sources { /DataSource get 0 get } forall ] def
  162.     /decode sources 0 get /Decode get
  163.       dup 0 get exch 1 get add cvi 0 exch
  164.       2 copy 4 copy 8 array astore def
  165.     sources 0 get
  166.       dup /MultipleDataSources true put
  167.       dup /DataSource datas put
  168.       dup /Decode decode put
  169.     /DeviceCMYK setcolorspace
  170.     dup imagescale image showpage
  171.   end
  172. } def
  173.  
  174. % If the program was invoked from the command line, run it now.
  175. [ shellarguments
  176.  { counttomark 1 ge
  177.     { ] { viewpbm } forall
  178.     }
  179.     { cleartomark
  180.       (Usage: gs [--] viewpbm.ps filename.p*m ...\n) print
  181.       ( e.g.: gs [--] viewpbm.ps my.ppm another.ppm\n) print flush
  182.     }
  183.    ifelse
  184.  }
  185.  { pop
  186.  }
  187. ifelse
  188.