home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Vyzkuste / gs / gs650w32.exe / gs6.50 / lib / viewmiff.ps < prev    next >
Text File  |  2000-12-05  |  4KB  |  127 lines
  1. %    Copyright (C) 1998 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of AFPL Ghostscript.
  4. % 
  5. % AFPL Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author or
  6. % distributor accepts any responsibility for the consequences of using it, or
  7. % for whether it serves any particular purpose or works at all, unless he or
  8. % she says so in writing.  Refer to the Aladdin Free Public License (the
  9. % "License") for full details.
  10. % 
  11. % Every copy of AFPL Ghostscript must include a copy of the License, normally
  12. % in a plain ASCII text file named PUBLIC.  The License grants you the right
  13. % to copy, modify and redistribute AFPL Ghostscript, but only under certain
  14. % conditions described in the License.  Among other things, the License
  15. % requires that the copyright notice and this notice be preserved on all
  16. % copies.
  17.  
  18. % $Id: viewmiff.ps,v 1.2 2000/09/19 18:29:11 lpd Exp $
  19. % viewmiff.ps
  20. % Display a MIFF file.  You would think the 'display' command would do this,
  21. % but many versions of 'display' either core-dump or require unacceptably
  22. % large amounts of memory.
  23.  
  24. % Recognize MIFF keywords.
  25. /miffwords mark
  26.   /class { cvn /class exch def }
  27.   /colors { cvi /colors exch def }
  28.   /columns { cvi /Width exch def }
  29.   /compression { cvn /compression exch def }
  30.   /depth { cvi /depth exch def }
  31.   /packets { cvi /packets exch def }
  32.   /rows { cvi /Height exch def }
  33. .dicttomark readonly def
  34.  
  35. % Recognize MIFF image classes.
  36. /miffclasses mark
  37.   /DirectClass {
  38.     /DeviceRGB setcolorspace
  39.     /BitsPerComponent depth def
  40.     /Decode [ 0 1 0 1 0 1 ] def
  41.   }
  42.   /PseudoClass {
  43.     [ /Indexed
  44.         % The MIFF documentation lies about the size of pixels
  45.         % for this case: the pixel size is determined only by
  46.         % the number of colors, and is not affected by the image
  47.         % depth.  Specifically, if there are 256 or fewer colors
  48.         % but the depth (of color map entries) is 16, each pixel
  49.         % is still only 1 byte, not 2.
  50.       currentdict /colors known {
  51.     /DeviceRGB colors 1 sub
  52.     /BitsPerComponent colors 256 le { 8 } { 16 } ifelse def
  53.     colors 3 mul string depth 8 eq {
  54.       f exch readstring pop
  55.     } {
  56.         % 16-bit color map entries: take only the high-order byte.
  57.       0 1 2 index length 1 sub {
  58.         f read pop 2 index 3 1 roll put f read pop pop
  59.       } for
  60.     } ifelse
  61.       } {
  62.     /colors 256 def
  63.     /DeviceGray 255
  64.     256 string 0 1 255 { 1 index exch dup put } for
  65.       } ifelse
  66.     ] setcolorspace
  67.     /Decode [ 0 1 BitsPerComponent bitshift 1 sub ] def
  68.   }
  69. .dicttomark readonly def
  70.  
  71. % Recognize MIFF compression methods.
  72. /rlstring 768 string def
  73. /rlread {
  74.         % packets is not reliable -- disregard it.
  75.   dup rlstring 0 3 getinterval readstring {
  76.     pop read pop 3 mul 3 3 2 index {
  77.       rlstring exch rlstring 0 3 getinterval putinterval
  78.     } for
  79.     rlstring 0 3 -1 roll 3 add getinterval
  80.   } {
  81.     pop pop ()
  82.   } ifelse
  83. } bind def
  84. /miffcompress mark
  85.   /Uncompressed { f }
  86.   /RunLengthEncoded { { f rlread } }
  87.   /Zip { [ f /FlateDecode filter cvlit /rlread cvx ] cvx }
  88. .dicttomark readonly def
  89.  
  90. % Read a MIFF file and display the image.
  91. /viewmiff {        % <filename> viewmiff -
  92.   50 dict begin
  93.   /fname 1 index def
  94.   /f exch (r) file def
  95.         % Set defaults.
  96.   /ImageType 1 def
  97.   /class /DirectClass def
  98.   /compression /Uncompressed def
  99.   /depth 8 def
  100.   /packets 16#7fffffff def
  101.         % Read and parse the header.
  102.   { f token pop
  103.     dup (:) eq { pop exit } if
  104.     dup type /nametype eq {
  105.       .namestring (=) search {
  106.     exch pop miffwords exch .knownget { exec } { pop } ifelse
  107.       } {
  108.     pop    % who knows?
  109.       } ifelse
  110.     } {
  111.       pop    % probably a comment in braces
  112.     } ifelse
  113.   } loop
  114.         % Read and display the image.
  115.   miffclasses class get exec
  116.   /DataSource miffcompress compression get exec def
  117.   /ImageMatrix [Width 0 0 Height neg 0 Height] def
  118.   currentpagedevice /PageSize get
  119.     dup 0 get exch 1 get scale
  120.   gsave 0.8 setgray 0 0 1 1 rectfill grestore    % provide background
  121.   currentdict image
  122.   showpage
  123.         % Clean up.
  124.   f closefile
  125.   end
  126. } bind def
  127.