--- a/Depth1Image.st	Wed Apr 09 10:23:34 2014 +0200
+++ b/Depth1Image.st	Wed Apr 09 12:19:01 2014 +0200
@@ -605,13 +605,15 @@
     f := Form width:width height:height fromArray:self bits onDevice:aDevice.
     f notNil ifTrue:[
         f colorMap:(Array with:color0 with:color1).
+        "special: depth1 forms are drawn with fg on bg paint"
+        f setPaint:color0 on:color1.
 
         "/ remember deviceForm
         (device isNil or:[deviceForm isNil]) ifTrue:[
             device := aDevice.
             deviceForm := f.
             maskedPixelsAre0 := nil.
-        ]
+        ].
     ].
     ^ f
 
@@ -772,10 +774,10 @@
 !Depth1Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.60 2014-04-09 08:23:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.61 2014-04-09 10:19:01 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.60 2014-04-09 08:23:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Depth1Image.st,v 1.61 2014-04-09 10:19:01 stefan Exp $'
 ! !