equal
deleted
inserted
replaced
21 |
21 |
22 GIFReader comment:' |
22 GIFReader comment:' |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
23 COPYRIGHT (c) 1991 by Claus Gittinger |
24 All Rights Reserved |
24 All Rights Reserved |
25 |
25 |
26 $Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.15 1995-06-06 04:06:59 claus Exp $ |
26 $Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.16 1995-07-02 16:16:09 claus Exp $ |
27 '! |
27 '! |
28 |
28 |
29 !GIFReader class methodsFor:'documentation'! |
29 !GIFReader class methodsFor:'documentation'! |
30 |
30 |
31 copyright |
31 copyright |
42 " |
42 " |
43 ! |
43 ! |
44 |
44 |
45 version |
45 version |
46 " |
46 " |
47 $Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.15 1995-06-06 04:06:59 claus Exp $ |
47 $Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.16 1995-07-02 16:16:09 claus Exp $ |
48 " |
48 " |
49 ! |
49 ! |
50 |
50 |
51 documentation |
51 documentation |
52 " |
52 " |
306 bitsPerSample := #(8). |
306 bitsPerSample := #(8). |
307 |
307 |
308 "check if only grey values are used, |
308 "check if only grey values are used, |
309 could make it a greyscale image if so (currently not done)" |
309 could make it a greyscale image if so (currently not done)" |
310 |
310 |
311 self checkGreyscaleColormap ifTrue:[ |
311 "/ self checkGreyscaleColormap ifTrue:[ |
312 self makeGreyscale |
312 "/ self makeGreyscale |
313 ]. |
313 "/ ]. |
314 |
314 |
315 colorMap := Colormap redVector:redMap greenVector:greenMap blueVector:blueMap. |
315 colorMap := Colormap redVector:redMap greenVector:greenMap blueVector:blueMap. |
316 |
316 |
317 " |
317 " |
318 GIFReader fromFile:'../fileIn/bitmaps/claus.gif |
318 GIFReader fromFile:'../fileIn/bitmaps/claus.gif |
319 GIFReader fromFile:'../fileIn/bitmaps/garfield.gif' |
319 GIFReader fromFile:'../fileIn/bitmaps/garfield.gif' |