viewgif.ps 5.27 KB
Newer Older
1
% Copyright (C) 2001-2019 Artifex Software, Inc.
2
% All Rights Reserved.
3
%
4 5
% This software is provided AS-IS with no warranty, either express or
% implied.
6
%
7 8 9
% This software is distributed under license and may not be copied,
% modified or distributed except as expressly authorized under the terms
% of the license contained in the file LICENSE in this distribution.
10
%
11
% Refer to licensing information at http://www.artifex.com or contact
12 13
% Artifex Software, Inc.,  1305 Grant Avenue - Suite 200, Novato,
% CA 94945, U.S.A., +1(415)492-9861, for further information.
14
%
15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49

% viewgif.ps
% Display a GIF file.

/read1			% <file> read1 <int>
 { read pop
 } bind def
/read2			% <file> read2 <int>
 { dup read1 exch read1 8 bitshift add
 } bind def

/readGIFheader		% <file> readGIFheader <dict>
 { 20 dict begin
   dup 6 string readstring pop
   dup (GIF87a) eq exch (GIF89a) eq or not
    { (Not a GIF file.\n) print cleartomark stop
    } if
   dup read2 /Width exch def
   dup read2 /Height exch def
   dup read1
   dup 128 ge /GlobalColor exch def
   dup -4 bitshift 7 and 1 add /BitsPerPixel exch def	%***BOGUS?***
   dup 8 and 0 ne /PaletteSorted exch def
   7 and 1 add dup /BitsPerPixel exch def
     1 exch bitshift /PaletteSize exch def
   dup read1 /BackgroundIndex exch def
   dup read1 15 add 64 div /AspectRatio exch def
   GlobalColor
    { PaletteSize 3 mul string readstring pop
      /GlobalPalette exch def
    } if
   currentdict end
 } bind def

/readGIFimageHeader	% <file> readGIFimageHeader <dict>
50
                        % Note: GIF header must be on dict stack
51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81
 { 10 dict begin
    { dup read1
      dup (!) 0 get ne { exit } if pop		% extension
      dup read1 pop
       { dup read1 dup 0 eq { pop exit } if { dup read1 pop } repeat
       } loop
    } loop
   (,) 0 get ne
    { (Not a GIF image.\n) print stop
    } if
   dup read2 /Left exch def
   dup read2 /Top exch def
   dup read2 /Width exch def
   dup read2 /Height exch def
   dup read1
   dup 128 ge /LocalColor exch def
   dup 64 and 0 ne /Interlaced exch def
   LocalColor
    { 7 and 1 add /BitsPerPixel exch def
      1 BitsPerPixel bitshift 3 mul string readstring pop
      /Palette exch def
    }
    { pop pop /Palette GlobalPalette def
    }
   ifelse
   currentdict end
 } bind def

/imageGIF		% <imagedict> imageGIF
 { /ImageOut where
    { pop
82 83 84 85
                % We know BitsPerComponent = 8, Decode = [0 255].
                % and there is only a single data source which is
                % either a filter or a string whose size is exactly
                % the width of the row.
86 87 88 89
      dup /DataSource get dup type /stringtype eq
       { ImageOut exch writestring
       }
       { pop dup /Width get string
90 91 92 93 94
         1 index /Height get
          { 1 index /DataSource get 1 index readstring pop
            ImageOut exch writestring
          }
         repeat pop pop
95
       }
96
      ifelse
97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116
    }
    { image
    }
   ifelse
 } bind def

/viewGIF		% <file|string> viewGIF -
 { save 20 dict begin
   /saved exch def
   dup type /stringtype eq { (r) file } if
   /F exch def
   /ImageOutFile where { /ImageOut ImageOutFile (w) file def } if
   F readGIFheader /Header exch def
     currentdict Header end begin begin
   VGIFDEBUG { Header { exch == == } forall (----------------\n) print flush } if
   F readGIFimageHeader /ImageHeader exch def
     currentdict ImageHeader end begin begin
   VGIFDEBUG { ImageHeader { exch == == } forall (----------------\n) print flush } if
   /D F
   <<	/InitialCodeLength F read1
117 118 119
        /FirstBitLowOrder true
        /BlockData true
        /EarlyChange 0
120 121 122 123 124 125 126
   >> /LZWDecode filter def

   [/Indexed /DeviceRGB 1 BitsPerPixel bitshift 1 sub Palette] setcolorspace
   matrix currentmatrix
   0 1 3 { 2 copy get dup 0 ne { dup abs div } if 3 copy put pop pop } for
   setmatrix
   <<	/ImageType 1
127 128 129
        /ImageMatrix [1 0 0 -1 0 Height]
        /BitsPerComponent 8
        /Decode [0 255]
130 131
   Interlaced
    {	/Width Width   /Height 1
132 133
        /row Width string def
        /DataSource row
134 135 136 137
      >> /I exch def
      /inter		% <num> <denom> inter -
       { /denom exch def   /num exch def
         gsave
138 139 140 141 142 143 144 145
         /lines Height denom 1 sub add num sub denom idiv def
         0 1 lines 1 sub {
           Height exch denom mul num add sub
           I /ImageMatrix get 5 3 -1 roll put
           D row readstring pop pop
           I imageGIF
         } for
         grestore
146 147 148 149 150 151 152 153
       }
      bind def
      0 8 inter
      4 8 inter
      2 4 inter
      1 2 inter
    }
    {	/Width Width   /Height Height
154
        /DataSource D
155 156 157 158
      >> imageGIF
    }
   ifelse
   saved end end end restore
159
 } bind def
160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178

% This lets you do stuff on the command line like:
% gs -sDEVICE=pdfwrite -o stuff%03d.pdf viewgif.ps -c "(image.gif) << /PageSize 2 index viewGIFgetsize 2 array astore  >> setpagedevice viewGIF"
% so the output size is influenced by the original image.
/viewGIFgetsize		% <file|string> ==> [width height]
{
   save 20 dict begin
   /saved exch def
   dup type /stringtype eq { (r) file } if
   /F exch def
   F readGIFheader /Header exch def
     currentdict Header end begin begin
   VGIFDEBUG { Header { exch == == } forall (----------------\n) print flush } if
   F readGIFimageHeader /ImageHeader exch def
     currentdict ImageHeader end begin begin
   F 0 setfileposition		% reset file pointer
   Width Height
   saved end end end restore
} bind def