2015-05-01 17:50 GMT+02:00 Werner Kassens <[email protected]>:
> 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.
