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