'From Moshi of 3 March 2007 [latest update: #273] on 9 August 2007 at 10:47:43 am'! "Change Set: Translucent-YO Date: 27 July 2007 Author: Ted Kaehler SketchMorphs that have translucency (0 < alpha < 255) were not blending with the background in drawOn:. Yoshiki found the fix."! !Canvas methodsFor: 'drawing-images' stamp: 'tk 8/1/2007 15:16'! translucentImage: aForm at: aPoint sourceRect: sourceRect "Draw with a translucent image using the best way of creating translucency. Perhaps translucency should be available without creating an image form." self shadowColor ifNotNil:[ ^self stencil: aForm at: aPoint sourceRect: sourceRect color: self shadowColor]. aForm isTranslucent not ifTrue:[^self paintImage: aForm at: aPoint sourceRect: sourceRect]. self image: aForm at: aPoint sourceRect: sourceRect rule: 34 "better than Form blend = 24"! ! !Form methodsFor: 'testing' stamp: 'tk 8/1/2007 15:14'! isTranslucent "Answer whether this form may be translucent. ColorForm inherits from this also." ^self depth = 32! ! ColorForm removeSelector: #isTranslucent!