home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Actualizar / Impressora_PDF / converter.exe / GPLGS / viewpbm.ps < prev    next >
Text File  |  2002-06-03  |  5KB  |  185 lines
  1. %    Copyright (C) 1992, 1995, 1996, 1998, 1999 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: viewpbm.ps,v 1.5 2002/06/02 12:03:28 mpsuzuki Exp $
  17. % viewpbm.ps
  18. % Display a PBM/PGM/PPM file.
  19. % Requires the Level 2 `image' operator (to handle variable pixel widths).
  20. % If SCALE is defined, maps input pixels to output pixels with that scale;
  21. % if SCALE is undefined, scales the image to fit the page.
  22.  
  23. /s 100 string def
  24. /readmaxv {        % <file> readmaxv -
  25.   10 string readline pop cvx exec /maxv exch def
  26. } bind def
  27. /readrow {        % <file> <row> readrow <row>
  28.   0 1 2 index length 1 sub {
  29.     1 index exch 3 index token pop put
  30.   } for exch pop
  31. } bind def
  32. /read01 {        % <file> <count> read01 <byte>
  33.   0 exch {
  34.     1 index read pop 48 xor dup 1 le { exch dup add add } { pop } ifelse
  35.   } repeat
  36. } bind def
  37. /readrow01 {        % <file> <row> readrow01 <row>
  38.   0 1 w 8 idiv {
  39.     1 index exch 3 index 8 read01 put
  40.   } for
  41.   wrem 0 ne {
  42.      dup rsize 1 sub wrem read01 8 wrem sub bitshift put
  43.   } if
  44.   exch pop
  45. } bind def
  46. /readwh {        % <file> readwh <w> <h>
  47.  dup s readline pop        % check for comment
  48.  (#) anchorsearch {
  49.    pop pop dup s readline pop
  50.  } if
  51.  cvx exec
  52. } bind def
  53. /pbmtypes mark
  54. % The procedures in this dictionary are called as
  55. %    <file> Pn <w> <h> <readproc>
  56. /P1 {            % ASCII 1-bit white/black
  57.   /bpc 1 def /maxv 1 def /rsize w 7 add 8 idiv def
  58.   /wrem w 8 mod def
  59.   /ncomp 1 def /invert true def /DeviceGray setcolorspace
  60.   readwh
  61.     { readrow01 }
  62. } bind
  63. /P2 {            % ASCII 8-bit gray
  64.   readwh
  65.   /bpc 8 def 2 index readmaxv /rsize 2 index def
  66.   /ncomp 1 def /invert false def /DeviceGray setcolorspace
  67.     { readrow }
  68. } bind
  69. /P3 {            % ASCII 8-bit RGB
  70.   readwh
  71.   /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  72.   /ncomp 3 def /invert false def /DeviceRGB setcolorspace
  73.     { readrow }
  74. } bind
  75. /P4 {            % Binary 1-bit white/black
  76.   readwh
  77.   /bpc 1 def /maxv 1 def /rsize 2 index 7 add 8 idiv def
  78.   /ncomp 1 def /invert true def /DeviceGray setcolorspace
  79.     { readstring pop }
  80. } bind
  81. /P5 {            % Binary 8-bit gray
  82.   readwh
  83.   /bpc 8 def 2 index readmaxv /rsize 2 index def
  84.   /ncomp 1 def /invert false def /DeviceGray setcolorspace
  85.     { readstring pop }
  86. } bind
  87. /P6 {            % Binary 8-bit RGB
  88.   readwh
  89.   /bpc 8 def 2 index readmaxv /rsize 2 index 3 mul def
  90.   /ncomp 3 def /invert false def /DeviceRGB setcolorspace
  91.     { readstring pop }
  92. } bind
  93. .dicttomark readonly def
  94. /pbmsetup {            % <file> <w> <h> <readproc> runpbm -
  95.    /readproc exch def
  96.    /h exch def
  97.    /w exch def
  98.    /f exch def
  99.    20 dict begin        % image dictionary
  100.      /ImageType 1 def
  101.      /Width w def
  102.      /Height h def
  103.      /ImageMatrix [w 0 0 h neg 0 h] def
  104.      /BitsPerComponent bpc def
  105.      /Decode [ 0 255 maxv div invert { exch } if ncomp 1 sub { 2 copy } repeat ] def
  106.      /DataSource [ f rsize string /readproc load /exec load ] cvx def
  107.    currentdict end
  108. } def
  109. /imagescale {            % <imagedict> imagescale -
  110.   begin
  111.     /SCALE where {
  112.       pop
  113.     % Map pixels SCALE-for-1.  Assume orthogonal transformation.
  114.       Width 1 0 dtransform add abs div SCALE mul
  115.       Height 0 1 dtransform add abs div SCALE mul
  116.     } {
  117.     % Scale the image (uniformly) to fit the page.
  118.       clippath pathbbox pop pop translate
  119.       pathbbox .min exch pop exch pop ceiling
  120.       dup Height Width gt {
  121.     Width mul Height div exch
  122.       } {
  123.     Height mul Width div
  124.       } ifelse
  125.     }
  126.     ifelse scale
  127.   end
  128. } def
  129.  
  130. % Image a PBM file page by page.
  131. /viewpbm {            % <filename> viewpbm -
  132.   20 dict begin
  133.     (r) file /pf exch def {
  134.       pf token not { exit } if
  135.       pbmtypes exch get pf exch exec pbmsetup
  136.       dup imagescale image showpage
  137.     } loop
  138.   end
  139. } def
  140.  
  141. % Reassemble a composite PBM file from the CMYK separations.
  142. /viewpsm {
  143.   20 dict begin
  144.     /fname exch def
  145.     /sources [ 0 1 3 {
  146.       /plane exch def 
  147.       /pf fname (r) file def
  148.       pf pbmtypes pf token pop get exec
  149.         % Stack: pf w h readproc
  150.       plane {
  151.     /readproc exch def /h exch def /w exch def pop
  152.     /row rsize string def
  153.     h { pf row readproc pop } repeat
  154.     pf pbmtypes pf token pop get exec
  155.       } repeat
  156.       pbmsetup
  157.     } for ] def
  158.     /datas [ sources { /DataSource get 0 get } forall ] def
  159.     /decode sources 0 get /Decode get
  160.       dup 0 get exch 1 get add cvi 0 exch
  161.       2 copy 4 copy 8 array astore def
  162.     sources 0 get
  163.       dup /MultipleDataSources true put
  164.       dup /DataSource datas put
  165.       dup /Decode decode put
  166.     /DeviceCMYK setcolorspace
  167.     dup imagescale image showpage
  168.   end
  169. } def
  170.  
  171. % If the program was invoked from the command line, run it now.
  172. [ shellarguments
  173.  { counttomark 1 ge
  174.     { ] { viewpbm } forall
  175.     }
  176.     { cleartomark
  177.       (Usage: gs [--] viewpbm.ps filename.p*m ...\n) print
  178.       ( e.g.: gs [--] viewpbm.ps my.ppm another.ppm\n) print flush
  179.     }
  180.    ifelse
  181.  }
  182.  { pop
  183.  }
  184. ifelse
  185.