2015-05-01 17:50 GMT+02:00 Werner Kassens <wkass...@libello.com>: > Hi Peter, > at the morphic level you might eventually look at ColorMappingCanvas and > make a subclass. > werner > > >
Inverting the color of a form: Display reverse:(0@0 extent:600@300). Inverting colors of an athens drawing: Paint a white rectangle with paint mode "difference" |view paint | view := AthensSceneView new. paint := nil. view scene:[:canvas | paint ifNil:[paint := (Form fromDisplay:(0@0 extent:600@300) )asAthensPaintOn: canvas]. canvas surface clear:Color white. canvas setPaint: paint. canvas drawShape:(0@0 extent:600@300). canvas paintMode restoreAfter:[ canvas setPaint: Color white. canvas paintMode difference. canvas drawShape:(0@0 extent:600@300). ]. ]. view openInWindow.