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