--- a/Form.st Wed Apr 23 14:17:10 1997 +0200
+++ b/Form.st Wed Apr 23 14:17:57 1997 +0200
@@ -816,7 +816,9 @@
for depth 8 forms, 1 pixel/byte is filled;
for depth 1 forms, 8 pixels/byte are filled
for depth 4 forms, 2 pixels/byte are filled.
- Padding is done to the next byte-boundary
+ Padding is done row-wise to the next BYTE-boundary
+ If multiple pixels are contained in a single byte,
+ left bits are in the most significant bit positions.
(i.e. for width==13 and depth==1 it will return 2 bytes per scanline)"
|bytesPerLine "{ Class: SmallInteger }"
@@ -865,6 +867,7 @@
inData replaceFrom:1 to:bytesPerLine * height with:tmpData startingAt:1
]
].
+
"
have to reverse bytes, if not msbFirst ?
"
@@ -879,6 +882,10 @@
"/ dstIndex := dstIndex + bytesPerLine
"/ ]
"/ ].
+
+ "
+ have to reverse bits, if not msbFirst ?
+ "
(info at:#bitOrder) ~~ #msbFirst ifTrue:[
buffer := ByteArray new:bytesPerLine.
dstIndex := 1.
@@ -893,7 +900,7 @@
^ inData.
- "Modified: 19.3.1997 / 13:44:20 / cg"
+ "Modified: 23.4.1997 / 14:17:08 / cg"
!
bits:aByteArray
@@ -1788,6 +1795,6 @@
!Form class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.81 1997-04-10 14:51:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview/Form.st,v 1.82 1997-04-23 12:17:57 cg Exp $'
! !
Form initialize!