home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / viewpbm.ps < prev    next >
Text File  |  2000-03-09  |  6KB  |  187 lines
  1. %    Copyright (C) 1992, 1995, 1996, 1998, 1999 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. % $Id: viewpbm.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % viewpbm.ps
  20. % Display a PBM/PGM/PPM file.
  21. % Requires the Level 2 `image' operator (to handle variable pixel widths).
  22. % If SCALE is defined, maps input pixels to output pixels with that scale;
  23. % if SCALE is undefined, scales the image to fit the page.
  24.  
  25. /s 100 string def
  26. /readmaxv {        % <file> readmaxv -
  27.   10 string readline pop cvx exec /maxv exch def
  28. } bind def
  29. /readrow {        % <file> <row> readrow <row>
  30.   0 1 2 index length 1 sub {
  31.     1 index exch 3 index token pop put
  32.   } for exch pop
  33. } bind def
  34. /read01 {        % <file> <count> read01 <byte>
  35.   0 exch {
  36.     1 index read pop 48 xor dup 1 le { exch dup add add } { pop } ifelse
  37.   } repeat
  38. } bind def
  39. /readrow01 {        % <file> <row> readrow01 <row>
  40.   0 1 w 8 idiv {
  41.     1 index exch 3 index 8 read01 put
  42.   } for
  43.   wrem 0 ne {
  44.      dup rsize 1 sub wrem read01 8 wrem sub bitshift put
  45.   } if
  46.   exch pop
  47. } bind def
  48. /readwh {        % <file> readwh <w> <h>
  49.  dup s readline pop        % check for comment
  50.  (#) anchorsearch {
  51.    pop pop dup s readline pop
  52.  } if
  53.  cvx exec
  54. } bind def
  55. /pbmtypes mark
  56. % The procedures in this dictionary are called as
  57. %    <file> Pn <w> <h> <readproc>
  58. /P1 {            % ASCII 1-bit white/black
  59.   /bpc 1 def /maxv 1 def /rsize w 7 add 8 idiv def
  60.   /wrem w 8 mod def
  61.   /ncomp 1 def /invert true def /DeviceGray setcolorspace
  62.   readwh
  63.     { readrow01 }
  64. } bind
  65. /P2 {            % ASCII 8-bit gray
  66.   readwh
  67.   /bpc 8 def 2 index readmaxv /rsize 2 index def
  68.   /ncomp 1 def /invert false def /DeviceGray setcolorspace
  69.     { readrow }
  70. } bind
  71. /P3 {            % ASCII 8-bit RGB
  72.   readwh
  73.   /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  74.   /ncomp 3 def /invert false def /DeviceRGB setcolorspace
  75.     { readrow }
  76. } bind
  77. /P4 {            % Binary 1-bit white/black
  78.   readwh
  79.   /bpc 1 def /maxv 1 def /rsize 2 index 7 add 8 idiv def
  80.   /ncomp 1 def /invert true def /DeviceGray setcolorspace
  81.     { readstring pop }
  82. } bind
  83. /P5 {            % Binary 8-bit gray
  84.   readwh
  85.   /bpc 8 def 2 index readmaxv /rsize 2 index def
  86.   /ncomp 1 def /invert false def /DeviceGray setcolorspace
  87.     { readstring pop }
  88. } bind
  89. /P6 {            % Binary 8-bit RGB
  90.   readwh
  91.   /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  92.   /ncomp 3 def /invert false def /DeviceRGB setcolorspace
  93.     { readstring pop }
  94. } bind
  95. .dicttomark readonly def
  96. /pbmsetup {            % <file> <w> <h> <readproc> runpbm -
  97.    /readproc exch def
  98.    /h exch def
  99.    /w exch def
  100.    /f exch def
  101.    20 dict begin        % image dictionary
  102.      /ImageType 1 def
  103.      /Width w def
  104.      /Height h def
  105.      /ImageMatrix [w 0 0 h neg 0 h] def
  106.      /BitsPerComponent bpc def
  107.      /Decode [ 0 255 maxv div invert { exch } if ncomp 1 sub { 2 copy } repeat ] def
  108.      /DataSource [ f rsize string /readproc load /exec load ] cvx def
  109.    currentdict end
  110. } def
  111. /imagescale {            % <imagedict> imagescale -
  112.   begin
  113.     /SCALE where {
  114.       pop
  115.     % Map pixels SCALE-for-1.  Assume orthogonal transformation.
  116.       Width 1 0 dtransform add abs div SCALE mul
  117.       Height 0 1 dtransform add abs div SCALE mul
  118.     } {
  119.     % Scale the image (uniformly) to fit the page.
  120.       clippath pathbbox pop pop translate
  121.       pathbbox min exch pop exch pop ceiling
  122.       dup Height Width gt {
  123.     Width mul Height div exch
  124.       } {
  125.     Height mul Width div
  126.       } ifelse
  127.     }
  128.     ifelse scale
  129.   end
  130. } def
  131.  
  132. % Image a PBM file page by page.
  133. /viewpbm {            % <filename> viewpbm -
  134.   20 dict begin
  135.     (r) file /pf exch def {
  136.       pf token not { exit } if
  137.       pbmtypes exch get pf exch exec pbmsetup
  138.       dup imagescale image showpage
  139.     } loop
  140.   end
  141. } def
  142.  
  143. % Reassemble a composite PBM file from the CMYK separations.
  144. /viewpsm {
  145.   20 dict begin
  146.     /fname exch def
  147.     /sources [ 0 1 3 {
  148.       /plane exch def 
  149.       /pf fname (r) file def
  150.       pf pbmtypes pf token pop get exec
  151.         % Stack: pf w h readproc
  152.       plane {
  153.     /readproc exch def /h exch def /w exch def pop
  154.     /row rsize string def
  155.     h { pf row readproc pop } repeat
  156.     pf pbmtypes pf token pop get exec
  157.       } repeat
  158.       pbmsetup
  159.     } for ] def
  160.     /datas [ sources { /DataSource get 0 get } forall ] def
  161.     /decode sources 0 get /Decode get
  162.       dup 0 get exch 1 get add cvi 0 exch
  163.       2 copy 4 copy 8 array astore def
  164.     sources 0 get
  165.       dup /MultipleDataSources true put
  166.       dup /DataSource datas put
  167.       dup /Decode decode put
  168.     /DeviceCMYK setcolorspace
  169.     dup imagescale image showpage
  170.   end
  171. } def
  172.  
  173. % If the program was invoked from the command line, run it now.
  174. [ shellarguments
  175.  { counttomark 1 ge
  176.     { ] { viewpbm } forall
  177.     }
  178.     { cleartomark
  179.       (Usage: gs [--] viewpbm.ps filename.p*m ...\n) print
  180.       ( e.g.: gs [--] viewpbm.ps my.ppm another.ppm\n) print flush
  181.     }
  182.    ifelse
  183.  }
  184.  { pop
  185.  }
  186. ifelse
  187.