home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / viewgif.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  4.8 KB  |  164 lines
  1. %    Copyright (C) 1989, 1992, 1993, 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: viewgif.ps,v $ $Revision: 1.2.2.1 $
  20. % viewgif.ps
  21. % Display a GIF file.
  22.  
  23. /read1            % <file> read1 <int>
  24.  { read pop
  25.  } bind def
  26. /read2            % <file> read2 <int>
  27.  { dup read1 exch read1 8 bitshift add
  28.  } bind def
  29.  
  30. /readGIFheader        % <file> readGIFheader <dict>
  31.  { 20 dict begin
  32.    dup 6 string readstring pop
  33.    dup (GIF87a) eq exch (GIF89a) eq or not
  34.     { (Not a GIF file.\n) print cleartomark stop
  35.     } if
  36.    dup read2 /Width exch def
  37.    dup read2 /Height exch def
  38.    dup read1
  39.    dup 128 ge /GlobalColor exch def
  40.    dup -4 bitshift 7 and 1 add /BitsPerPixel exch def    %***BOGUS?***
  41.    dup 8 and 0 ne /PaletteSorted exch def
  42.    7 and 1 add dup /BitsPerPixel exch def
  43.      1 exch bitshift /PaletteSize exch def
  44.    dup read1 /BackgroundIndex exch def
  45.    dup read1 15 add 64 div /AspectRatio exch def
  46.    GlobalColor
  47.     { PaletteSize 3 mul string readstring pop
  48.       /GlobalPalette exch def
  49.     } if
  50.    currentdict end
  51.  } bind def
  52.  
  53. /readGIFimageHeader    % <file> readGIFimageHeader <dict>
  54.             % Note: GIF header must be on dict stack
  55.  { 10 dict begin
  56.     { dup read1
  57.       dup (!) 0 get ne { exit } if pop        % extension
  58.       dup read1 pop
  59.        { dup read1 dup 0 eq { pop exit } if { dup read1 pop } repeat
  60.        } loop
  61.     } loop
  62.    (,) 0 get ne
  63.     { (Not a GIF image.\n) print stop
  64.     } if
  65.    dup read2 /Left exch def
  66.    dup read2 /Top exch def
  67.    dup read2 /Width exch def
  68.    dup read2 /Height exch def
  69.    dup read1
  70.    dup 128 ge /LocalColor exch def
  71.    dup 64 and 0 ne /Interlaced exch def
  72.    LocalColor
  73.     { 7 and 1 add /BitsPerPixel exch def
  74.       1 BitsPerPixel bitshift 3 mul string readstring pop
  75.       /Palette exch def
  76.     }
  77.     { pop pop /Palette GlobalPalette def
  78.     }
  79.    ifelse
  80.    currentdict end
  81.  } bind def
  82.  
  83. /imageGIF        % <imagedict> imageGIF
  84.  { /ImageOut where
  85.     { pop
  86.         % We know BitsPerComponent = 8, Decode = [0 255].
  87.         % and there is only a single data source which is
  88.         % either a filter or a string whose size is exactly
  89.         % the width of the row.
  90.       dup /DataSource get dup type /stringtype eq
  91.        { ImageOut exch writestring
  92.        }
  93.        { pop dup /Width get string
  94.      1 index /Height get
  95.       { 1 index /DataSource get 1 index readstring pop
  96.         ImageOut exch writestring
  97.       }
  98.      repeat pop pop
  99.        }
  100.       ifelse 
  101.     }
  102.     { image
  103.     }
  104.    ifelse
  105.  } bind def
  106.  
  107. /viewGIF        % <file|string> viewGIF -
  108.  { save 20 dict begin
  109.    /saved exch def
  110.    dup type /stringtype eq { (r) file } if
  111.    /F exch def
  112.    /ImageOutFile where { /ImageOut ImageOutFile (w) file def } if
  113.    F readGIFheader /Header exch def
  114.      currentdict Header end begin begin
  115.    DEBUG { Header { exch == == } forall (----------------\n) print flush } if
  116.    F readGIFimageHeader /ImageHeader exch def
  117.      currentdict ImageHeader end begin begin
  118.    DEBUG { ImageHeader { exch == == } forall (----------------\n) print flush } if
  119.    /D F
  120.    <<    /InitialCodeLength F read1
  121.     /FirstBitLowOrder true
  122.     /BlockData true
  123.     /EarlyChange 0
  124.    >> /LZWDecode filter def
  125.  
  126.    [/Indexed /DeviceRGB 1 BitsPerPixel bitshift 1 sub Palette] setcolorspace
  127.    matrix currentmatrix
  128.    0 1 3 { 2 copy get dup 0 ne { dup abs div } if 3 copy put pop pop } for
  129.    setmatrix
  130.    <<    /ImageType 1
  131.     /ImageMatrix [1 0 0 -1 0 Height]
  132.     /BitsPerComponent 8
  133.     /Decode [0 255]
  134.    Interlaced
  135.     {    /Width Width   /Height 1
  136.     /row Width string def
  137.     /DataSource row
  138.       >> /I exch def
  139.       /inter        % <num> <denom> inter -
  140.        { /denom exch def   /num exch def
  141.          gsave
  142.      /lines Height denom 1 sub add num sub denom idiv def
  143.      0 1 lines 1 sub {
  144.        Height exch denom mul num add sub
  145.        I /ImageMatrix get 5 3 -1 roll put
  146.        D row readstring pop pop
  147.        I imageGIF
  148.      } for
  149.      grestore
  150.        }
  151.       bind def
  152.       0 8 inter
  153.       4 8 inter
  154.       2 4 inter
  155.       1 2 inter
  156.     }
  157.     {    /Width Width   /Height Height
  158.     /DataSource D
  159.       >> imageGIF
  160.     }
  161.    ifelse
  162.    saved end end end restore
  163.  } bind def   
  164.