#DOCUMENTATION by cg
class: GIFReader
comment/format in:
#fromStream:
#readImage:
--- a/GIFReader.st Fri Feb 17 11:57:52 2017 +0100
+++ b/GIFReader.st Fri Feb 17 13:02:33 2017 +0100
@@ -281,7 +281,7 @@
atEnd := true
] ifFalse:[
byte == Extension ifTrue:[
-"/ 'Ext' infoPrintCR.
+ "/ 'Ext' infoPrintCR.
self readExtension:aStream.
] ifFalse:[
(byte == Terminator) ifTrue:[
@@ -291,7 +291,7 @@
(byte ~~ ImageSeparator) ifTrue:[
^ self fileFormatError:('corrupted gif file (no IMAGESEP): ' , (byte printStringRadix:16)).
].
-"/ 'Img' infoPrintCR.
+ "/ 'Img' infoPrintCR.
fileColorMap notNil ifTrue:[
colorMap := fileColorMap.
@@ -365,8 +365,9 @@
Image fromFile:'/home/cg/work/stx/goodies/bitmaps/gifImages/animated/arrow.gif'
"
- "Modified: / 5.7.1996 / 17:32:01 / stefan"
- "Modified: / 21.8.1998 / 22:20:00 / cg"
+ "Modified: / 05-07-1996 / 17:32:01 / stefan"
+ "Modified: / 21-08-1998 / 22:20:00 / cg"
+ "Modified (format): / 17-02-2017 / 12:29:10 / cg"
! !
!GIFReader methodsFor:'private-reading'!
@@ -548,17 +549,17 @@
"get image data"
leftOffs := aStream nextInt16MSB:false.
topOffs := aStream nextInt16MSB:false.
-"/ 'GIFReader: leftOffs ' infoPrint. leftOffs infoPrintCR.
-"/ 'GIFReader: topOffs ' infoPrint. topOffs infoPrintCR.
+ "/ 'GIFReader: leftOffs ' infoPrint. leftOffs infoPrintCR.
+ "/ 'GIFReader: topOffs ' infoPrint. topOffs infoPrintCR.
width := aStream nextInt16MSB:false.
height := aStream nextInt16MSB:false.
self reportDimension.
-"/
-"/ 'width ' print. width printNewline.
-"/ 'height ' print. height printNewline.
-"/
+ "/
+ "/ 'width ' print. width printNewline.
+ "/ 'height ' print. height printNewline.
+ "/
"another flag byte"
flag := aStream nextByte.
@@ -606,7 +607,7 @@
h := height.
data := ByteArray new:((width + 1) * (h + 1)).
-"/ 'GIFReader: decompressing ...' infoPrintCR.
+ "/ 'GIFReader: decompressing ...' infoPrintCR.
self class decompressGIFFrom:compressedData
count:compressedSize
@@ -615,7 +616,7 @@
codeLen:(codeLen + 1).
interlaced ifTrue:[
-"/ 'GIFREADER: deinterlacing ...' infoPrintCR.
+ "/ 'GIFREADER: deinterlacing ...' infoPrintCR.
tmp := ByteArray new:(data size).
"phase 1: 0, 8, 16, 24, ..."
@@ -661,7 +662,7 @@
"Created: / 13-01-1998 / 10:44:05 / cg"
"Modified: / 12-08-1998 / 13:55:32 / cg"
- "Modified (format): / 16-11-2016 / 23:07:20 / cg"
+ "Modified (format): / 17-02-2017 / 12:29:44 / cg"
! !
!GIFReader methodsFor:'private-writing'!