equal
deleted
inserted
replaced
83 pixelIndex := (width * 8 * y) + 1 + (x * 8). |
83 pixelIndex := (width * 8 * y) + 1 + (x * 8). |
84 |
84 |
85 ^ ((bytes unsignedInt16At:pixelIndex MSB:true) bitShift:48) |
85 ^ ((bytes unsignedInt16At:pixelIndex MSB:true) bitShift:48) |
86 + ((bytes unsignedInt16At:pixelIndex+2 MSB:true) bitShift:32) |
86 + ((bytes unsignedInt16At:pixelIndex+2 MSB:true) bitShift:32) |
87 + ((bytes unsignedInt16At:pixelIndex+4 MSB:true) bitShift:16) |
87 + ((bytes unsignedInt16At:pixelIndex+4 MSB:true) bitShift:16) |
88 + (bytes wordAt:pixelIndex+6 MSB:true). |
88 + (bytes unsignedInt16At:pixelIndex+6 MSB:true). |
89 ! |
89 ! |
90 |
90 |
91 pixelAtX:x y:y put:aPixelValue |
91 pixelAtX:x y:y put:aPixelValue |
92 "set the pixel at x/y to aPixelValue. |
92 "set the pixel at x/y to aPixelValue. |
93 Pixels start at x=0 , y=0 for upper left pixel, end at |
93 Pixels start at x=0 , y=0 for upper left pixel, end at |
139 |
139 |
140 !Depth64Image class methodsFor:'documentation'! |
140 !Depth64Image class methodsFor:'documentation'! |
141 |
141 |
142 version |
142 version |
143 ^ '$Header$' |
143 ^ '$Header$' |
|
144 ! |
|
145 |
|
146 version_CVS |
|
147 ^ '$Header$' |
144 ! ! |
148 ! ! |
145 |
149 |