--- 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!