--- a/GIFReader.st Thu Apr 24 20:33:40 1997 +0200
+++ b/GIFReader.st Thu Apr 24 21:20:58 1997 +0200
@@ -240,7 +240,7 @@
index := 1.
count := aStream nextByte.
[count notNil and:[count ~~ 0]] whileTrue:[
- aStream nextBytes:count into:compressedData startingAt:index.
+ aStream nextBytes:count into:compressedData startingAt:index blockSize:4096.
index := index + count.
count := aStream nextByte
].
@@ -331,7 +331,7 @@
"
"Modified: 5.7.1996 / 17:32:01 / stefan"
- "Modified: 10.1.1997 / 15:40:58 / cg"
+ "Modified: 24.4.1997 / 21:13:06 / cg"
!
makeGreyscale
@@ -467,6 +467,6 @@
!GIFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.47 1997-04-10 22:55:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.48 1997-04-24 19:20:58 cg Exp $'
! !
GIFReader initialize!
--- a/TIFFRdr.st Thu Apr 24 20:33:40 1997 +0200
+++ b/TIFFRdr.st Thu Apr 24 21:20:58 1997 +0200
@@ -1359,12 +1359,14 @@
nBytes := overAllBytes - offset.
].
- inStream nextBytes:nBytes into:data startingAt:offset+1.
+ "/ read it 4k-wise; this leads to a better behavior,
+ "/ when big images reading from a slow cdrom
+ inStream nextBytes:nBytes into:data startingAt:offset+1 blockSize:4096.
offset := offset + nBytes.
row := row + rowsPerStrip
]
- "Modified: 10.1.1997 / 18:10:46 / cg"
+ "Modified: 24.4.1997 / 21:10:07 / cg"
! !
!TIFFReader methodsFor:'private - reading'!
@@ -2093,6 +2095,6 @@
!TIFFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.53 1997-04-10 23:11:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.54 1997-04-24 19:20:39 cg Exp $'
! !
TIFFReader initialize!
--- a/TIFFReader.st Thu Apr 24 20:33:40 1997 +0200
+++ b/TIFFReader.st Thu Apr 24 21:20:58 1997 +0200
@@ -1359,12 +1359,14 @@
nBytes := overAllBytes - offset.
].
- inStream nextBytes:nBytes into:data startingAt:offset+1.
+ "/ read it 4k-wise; this leads to a better behavior,
+ "/ when big images reading from a slow cdrom
+ inStream nextBytes:nBytes into:data startingAt:offset+1 blockSize:4096.
offset := offset + nBytes.
row := row + rowsPerStrip
]
- "Modified: 10.1.1997 / 18:10:46 / cg"
+ "Modified: 24.4.1997 / 21:10:07 / cg"
! !
!TIFFReader methodsFor:'private - reading'!
@@ -2093,6 +2095,6 @@
!TIFFReader class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.53 1997-04-10 23:11:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/TIFFReader.st,v 1.54 1997-04-24 19:20:39 cg Exp $'
! !
TIFFReader initialize!