home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / viewpcx.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  4.6 KB  |  154 lines
  1. %    Copyright (C) 1996, 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: viewpcx.ps,v $ $Revision: 1.2.2.1 $
  20. % viewpcx.ps
  21. % Display a PCX 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. % ****NOTE: does not handle multi-plane images with palette.
  26.  
  27. /pcxbytes [
  28.   0 1 255 {
  29.     64 string exch 0 1 63 {
  30.       3 copy exch put pop
  31.     } for pop
  32.   } for
  33. ] readonly def
  34. /readpcx {            % - readpcx <str>
  35.   f                % gets replaced
  36.   dup read not {
  37.     pop ()
  38.   } {
  39.     dup 192 lt {
  40.       ( ) dup 0 4 -1 roll put exch pop
  41.     } {
  42.       192 sub //pcxbytes 3 -1 roll read pop get exch 0 exch getinterval
  43.     } ifelse
  44.   } ifelse
  45. } def
  46. /get2                % <string> <index> get2 <int>
  47.  { 2 copy get 3 1 roll 1 add get 8 bitshift add
  48.  } bind def
  49. /dsproc
  50.  { df s readstring pop        % s gets filled in
  51.    s1 () ne { df s1 readstring pop pop } if % discard padding bytes
  52.  } def                % don't bind, must be writable
  53. /viewpcx            % <filename> viewpcx -
  54.  { 100 dict begin
  55.    /fname 1 index def
  56.    /f exch (r) file def
  57.         % Read and unpack the header.
  58.    /header f 128 string readstring pop def
  59.    /version header 1 get def
  60.    /bpp header 3 get def
  61.    /w header 8 get2 header 4 get2 sub 1 add def
  62.    /h header 10 get2 header 6 get2 sub 1 add def
  63.    /nplanes header 65 get def
  64.    /bpl header 66 get2 def
  65.    /palinfo header 68 get2 def
  66.    /nbits bpp nplanes mul def
  67.    version 5 eq
  68.     { nbits 8 le
  69.        { /cspace
  70.        [/Indexed   /DeviceRGB   1 bpp bitshift 1 sub
  71.      f fileposition
  72.      1 nbits bitshift 3 mul string
  73.      fname status pop pop pop exch pop
  74.      1 index length sub f exch setfileposition
  75.      f exch readstring pop
  76.      exch f exch setfileposition
  77.        ] def
  78.      /decode [0 cspace 2 get] def
  79.        }
  80.        { /cspace /DeviceRGB def
  81.      /decode [0 1 0 1 0 1] def
  82.        }
  83.       ifelse
  84.     }
  85.     { /cspace
  86.     [/Indexed   /DeviceRGB   1 bpp bitshift 1 sub
  87.      header 16 1 nbits bitshift 16 min 3 mul getinterval
  88.     ] def
  89.       /decode [0 cspace 2 get] def
  90.     }
  91.    ifelse
  92.         % Set up scaling.
  93.    /SCALE where
  94.     { pop
  95.     % Map pixels SCALE-for-1.  Assume orthogonal transformation.
  96.       w 1 0 dtransform add abs div SCALE mul
  97.       h 0 1 dtransform add abs div SCALE mul
  98.     }
  99.     {    % Scale the image (uniformly) to fit the page.
  100.       clippath pathbbox pop pop translate
  101.       pathbbox min exch pop exch pop ceiling
  102.       dup h w gt { w mul h div exch } { h mul w div } ifelse
  103.     }
  104.    ifelse scale
  105.         % Since the number of bytes per line is always even,
  106.         % it may not match the width specification.
  107.    /wbpl w bpp mul 7 add 8 idiv def
  108.         % Define the data source procedure.
  109.    /s1 bpl wbpl sub string def
  110.    /df /readpcx load copyarray dup 0 f put cvx bind readonly
  111.      0 () /SubFileDecode filter def
  112.    /dsource [ nplanes
  113.     { /dsproc load copyarray
  114.       dup 1 wbpl string put
  115.       cvx bind readonly
  116.     }
  117.    repeat ] def
  118.         % Construct the image dictionary.
  119.    20 dict begin        % image dictionary
  120.      /ImageType 1 def
  121.      /Width w def
  122.      /Height h def
  123.      /ImageMatrix [w 0 0 h neg 0 h] def
  124.      /BitsPerComponent bpp def
  125.      /Decode decode def
  126.      /DataSource dsource dup length 1 gt
  127.       { /MultipleDataSources true def }
  128.       { 0 get }
  129.      ifelse def
  130.    currentdict end
  131.         % Finally, display the image.
  132.    cspace setcolorspace
  133.    image
  134.    showpage
  135.    df closefile
  136.    f closefile
  137.    end
  138.  } bind def
  139.  
  140. % If the program was invoked from the command line, run it now.
  141. [ shellarguments
  142.  { counttomark 1 ge
  143.     { ] { viewpcx } forall
  144.     }
  145.     { cleartomark
  146.       (Usage: gs -- viewpcx.ps filename.pcx ...\n) print
  147.       ( e.g.: gs -- viewpcx.ps my.pcx another.pcx\n) print flush
  148.     }
  149.    ifelse
  150.  }
  151.  { pop
  152.  }
  153. ifelse
  154.