home *** CD-ROM | disk | FTP | other *** search
/ jppd.dyndns.org / jppd.dyndns.org.tar / jppd.dyndns.org / QUERYPRO / Impressora_PDF / converter.exe / GPLGS / viewmiff.ps < prev    next >
Text File  |  2002-02-22  |  4KB  |  125 lines
  1. %    Copyright (C) 1998 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: viewmiff.ps,v 1.4 2002/02/21 21:49:28 giles Exp $
  17. % viewmiff.ps
  18. % Display a MIFF file.  You would think the 'display' command would do this,
  19. % but many versions of 'display' either core-dump or require unacceptably
  20. % large amounts of memory.
  21.  
  22. % Recognize MIFF keywords.
  23. /miffwords mark
  24.   /class { cvn /class exch def }
  25.   /colors { cvi /colors exch def }
  26.   /columns { cvi /Width exch def }
  27.   /compression { cvn /compression exch def }
  28.   /depth { cvi /depth exch def }
  29.   /packets { cvi /packets exch def }
  30.   /rows { cvi /Height exch def }
  31. .dicttomark readonly def
  32.  
  33. % Recognize MIFF image classes.
  34. /miffclasses mark
  35.   /DirectClass {
  36.     /DeviceRGB setcolorspace
  37.     /BitsPerComponent depth def
  38.     /Decode [ 0 1 0 1 0 1 ] def
  39.   }
  40.   /PseudoClass {
  41.     [ /Indexed
  42.         % The MIFF documentation lies about the size of pixels
  43.         % for this case: the pixel size is determined only by
  44.         % the number of colors, and is not affected by the image
  45.         % depth.  Specifically, if there are 256 or fewer colors
  46.         % but the depth (of color map entries) is 16, each pixel
  47.         % is still only 1 byte, not 2.
  48.       currentdict /colors known {
  49.     /DeviceRGB colors 1 sub
  50.     /BitsPerComponent colors 256 le { 8 } { 16 } ifelse def
  51.     colors 3 mul string depth 8 eq {
  52.       f exch readstring pop
  53.     } {
  54.         % 16-bit color map entries: take only the high-order byte.
  55.       0 1 2 index length 1 sub {
  56.         f read pop 2 index 3 1 roll put f read pop pop
  57.       } for
  58.     } ifelse
  59.       } {
  60.     /colors 256 def
  61.     /DeviceGray 255
  62.     256 string 0 1 255 { 1 index exch dup put } for
  63.       } ifelse
  64.     ] setcolorspace
  65.     /Decode [ 0 1 BitsPerComponent bitshift 1 sub ] def
  66.   }
  67. .dicttomark readonly def
  68.  
  69. % Recognize MIFF compression methods.
  70. /rlstring 768 string def
  71. /rlread {
  72.         % packets is not reliable -- disregard it.
  73.   dup rlstring 0 3 getinterval readstring {
  74.     pop read pop 3 mul 3 3 2 index {
  75.       rlstring exch rlstring 0 3 getinterval putinterval
  76.     } for
  77.     rlstring 0 3 -1 roll 3 add getinterval
  78.   } {
  79.     pop pop ()
  80.   } ifelse
  81. } bind def
  82. /miffcompress mark
  83.   /Uncompressed { f }
  84.   /RunLengthEncoded { { f rlread } }
  85.   /Zip { [ f /FlateDecode filter cvlit /rlread cvx ] cvx }
  86. .dicttomark readonly def
  87.  
  88. % Read a MIFF file and display the image.
  89. /viewmiff {        % <filename> viewmiff -
  90.   50 dict begin
  91.   /fname 1 index def
  92.   /f exch (r) file def
  93.         % Set defaults.
  94.   /ImageType 1 def
  95.   /class /DirectClass def
  96.   /compression /Uncompressed def
  97.   /depth 8 def
  98.   /packets 16#7fffffff def
  99.         % Read and parse the header.
  100.   { f token pop
  101.     dup (:) eq { pop exit } if
  102.     dup type /nametype eq {
  103.       .namestring (=) search {
  104.     exch pop miffwords exch .knownget { exec } { pop } ifelse
  105.       } {
  106.     pop    % who knows?
  107.       } ifelse
  108.     } {
  109.       pop    % probably a comment in braces
  110.     } ifelse
  111.   } loop
  112.         % Read and display the image.
  113.   miffclasses class get exec
  114.   /DataSource miffcompress compression get exec def
  115.   /ImageMatrix [Width 0 0 Height neg 0 Height] def
  116.   currentpagedevice /PageSize get
  117.     dup 0 get exch 1 get scale
  118.   gsave 0.8 setgray 0 0 1 1 rectfill grestore    % provide background
  119.   currentdict image
  120.   showpage
  121.         % Clean up.
  122.   f closefile
  123.   end
  124. } bind def
  125.