常に真ん中にアイコン表示+プロジェクタからアイコンを出せなくする

前提：インスタンス変数iconに表示するiconモーフ格納

drawOn: aCanvas
　(いろんな処理)
　icon center: self center.
  self submorphs = #()
　　ifTrue: [self addMorph: icon].

結構進んだ

こつをつかんできたのか結構進みました。
昨日、今日でとりあえずプロジェクターのモーフ（コスチュームを入れ替える方）の製作をしてみました。

ピクセル単位で絵を作成 Ver.2

    

    
form morph x y
    
"DEPTHを指定しないと2色モードになるみたいです"
form := Form extent: WIDTH@HEIGHT depth: DEPTH.
"to:の部分を(form bits) sizeにするとまともに動かない"
1 to: (WIDTH*HEIGHT) do: [ :i |
　x := i-1 \\ form width.
　y := i-1 // form width.
"COLORはColorクラス"
　form colorAt: x@y put:COLOR
 ].
morph := ImageMorph new initialize.
morph image: form.

プロジェクタのアイコンVer.2

squeaker氏の書き込みを元にForm>> colorAt: put:を使ったバージョンのアイコンを作りました。Ver.1は何故かアルファ値の指定が上手くいっていないようで、透明にしたかった部分がそのまま残っていましたが、今回の場合はきちんと透明化できるので今後はこっちの方をメインに使っていこうと思います。

・・・といっても、ドット単位で絵を描くのはこのアイコンくらいなので、再び使うことは今のところないでしょう。

ワークショップ

今日から5週にわたって小学校でのワークショップ後半戦が始まりました。
今回からは新カリキュラムでやるようで、新しい教科書のプリントの内容に教える方も教わる方もてんやわんやでした。来年は自分がこうなるのでしょうか・・・？

ピクセル単位で絵を作成

    

    
form bits pixel morph
    
form := Form extent: WIDTH@HEIGHT depth: DEPTH.
bits := form bits.
pixel := LargePositiveInteger new: 4.
1 to: bits size do: [ :i |
 pixel at: 1 put: REDVALUE.
 pixel at: 2 put: GREENVALUE.
 pixel at: 3 put: BLUEVALUE.
 pixel at: 4 put: ALPHAVALUE.
 bits at: i put: pixel].
morph := ImageMorph new initialize.
morph image: form.

アイコンを作った

とりあえずプロジェクタモーフ用の独自のアイコンモーフを作りました。
何かわかってきたかも。