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