>>559

スマソ。穴を開けたい部分を白で描いたgif…は嘘。鬱。gif作成時に
透明にしておかなければダメ。お詫びにクラス定義＆黒塗り図形で
穴部分指定→黒部分を透明化版を下に。

SketchMorph subclass: #SuketeruMorph
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'Morphic-Basic'!

!SuketeruMorph methodsFor: 'initialization'!
initialize
| form dotSize side |
form _ Form extent: (side _ 100) @ side depth: Display depth.
form fillColor: Color yellow.
self initializeWith: form.
dotSize _ 20 @ 20.
20 timesRepeat: [originalForm getCanvas
fillOval: (side atRandom @ side atRandom
- (dotSize // 2) extent: dotSize)
fillStyle: Color black].
originalForm mapColor: Color black to: Color transparent

"SuketeruMorph new openInWorld"! !