--- a/Depth1Image.st Mon Aug 08 17:13:01 2016 +0200
+++ b/Depth1Image.st Mon Aug 08 17:13:04 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1993 by Claus Gittinger
All Rights Reserved
@@ -196,7 +194,7 @@
|f c0 c1|
- f := Form width:width height:height fromArray:self bits onDevice:aDevice.
+ f := Form imageForm width:width height:height fromArray:self bits onDevice:aDevice.
c0 := self colorFromValue:0.
c1 := self colorFromValue:1.
c0 brightness > 0.5 ifTrue:[
@@ -614,11 +612,12 @@
"all colors are available, this is easy now"
- form := Form onDevice:aDevice.
+ form := Form imageForm onDevice:aDevice.
form notNil ifTrue:[
form
colorMap:(Array with:color0 with:color1);
- width:width height:height fromArray:self bits.
+ width:width height:height fromArray:self bits;
+ forgetBits.
"/ remember deviceForm
(device isNil or:[deviceForm isNil]) ifTrue:[