Mercurial Mercurial > hg > stx-libview2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
read data in blocks - better if images are read from a CD
authorClaus Gittinger <cg@exept.de>
Thu, 24 Apr 1997 21:20:58 +0200
changeset 563 38cbee875bfa
parent 562 921472d151d9
child 564 8a31b6fbe9a6
read data in blocks - better if images are read from a CD
GIFReader.st file | annotate | diff | comparison | revisions
TIFFRdr.st file | annotate | diff | comparison | revisions
TIFFReader.st file | annotate | diff | comparison | revisions 
--- 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!
hg/stx-libview2