Hello everyone !
I found a way to fade out a morph via the BitBlt class. Problem is with the code line "(Duration seconds:1) asDelay wait." When this line is present, i don't see the intermediary states, only the final result. But i need wait time at each iteration of BitBlt copyBits, precisely to visualize the fading out ...
see code below.
Thank you very much for any help ...
Patrick
|s|
s:=SketchMorph fromStream: (FileStream readOnlyFileNamed:'.\images\LesPetitesBetes\abeille.png').
s openInWorld.
s center:Display center.
1 to: 10 do: [:el|
(Duration seconds:1) asDelay wait.
(BitBlt destForm: s form sourceForm: nil halftoneForm: ((Color white) alpha:0.2) combinationRule:24 destOrigin:0@0 sourceOrigin:0@0 extent:(s extent) clipRect: ((0@0) extent: (s extent)) ) copyBits.
].