equal
deleted
inserted
replaced
262 |
262 |
263 f := Form width:width height:height fromArray:bytes on:aDevice. |
263 f := Form width:width height:height fromArray:bytes on:aDevice. |
264 f notNil ifTrue:[ |
264 f notNil ifTrue:[ |
265 f colorMap:(Array with:(self colorFromValue:0) |
265 f colorMap:(Array with:(self colorFromValue:0) |
266 with:(self colorFromValue:1)). |
266 with:(self colorFromValue:1)). |
|
267 |
|
268 device isNil ifTrue:[ |
|
269 deviceForm isNil ifTrue:[ |
|
270 device := aDevice. |
|
271 deviceForm := f. |
|
272 ] |
|
273 ] |
267 ]. |
274 ]. |
268 ^ f |
275 ^ f |
269 |
276 |
270 "Created: 14.6.1996 / 15:20:00 / cg" |
277 "Created: / 14.6.1996 / 15:20:00 / cg" |
271 "Modified: 24.4.1997 / 17:50:43 / cg" |
278 "Modified: / 30.7.1998 / 14:42:46 / cg" |
272 ! |
279 ! |
273 |
280 |
274 greyImageAsFormOn:aDevice |
281 greyImageAsFormOn:aDevice |
275 "convert a greyscale image to a device form" |
282 "convert a greyscale image to a device form" |
276 |
283 |
744 ! ! |
751 ! ! |
745 |
752 |
746 !Depth1Image class methodsFor:'documentation'! |
753 !Depth1Image class methodsFor:'documentation'! |
747 |
754 |
748 version |
755 version |
749 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.35 1998-07-28 20:24:40 cg Exp $' |
756 ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.36 1998-07-30 13:08:37 cg Exp $' |
750 ! ! |
757 ! ! |