TIFFRdr.st
changeset 336 9789b02d95bf
parent 335 a32831edacc5
child 357 4bcb93f5892e
--- a/TIFFRdr.st	Mon Sep 30 23:48:26 1996 +0200
+++ b/TIFFRdr.st	Thu Oct 10 19:24:33 1996 +0200
@@ -1008,7 +1008,7 @@
     overAllBytes := bytesPerRow * height.
     data := ByteArray uninitializedNew:overAllBytes.
 
-    offset := 1.
+    offset := 0.
     stripNr := 0.
 
     row := 1.
@@ -1018,15 +1018,15 @@
         inStream position:((stripOffsets at:stripNr) + 1).
 
         offset + nBytes > overAllBytes ifTrue:[
-            nBytes := overAllBytes - offset
+            nBytes := overAllBytes - offset.
         ].
 
-        inStream nextBytes:nBytes into:data startingAt:offset.
+        inStream nextBytes:nBytes into:data startingAt:offset+1.
         offset := offset + nBytes.
         row := row + rowsPerStrip
     ]
 
-    "Modified: 11.7.1996 / 21:10:30 / cg"
+    "Modified: 10.10.1996 / 18:24:05 / cg"
 !
 
 writeBitsPerSample
@@ -1664,6 +1664,6 @@
 !TIFFReader  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.42 1996-09-30 21:48:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/TIFFRdr.st,v 1.43 1996-10-10 17:24:33 cg Exp $'
 ! !
 TIFFReader initialize!