ピクセル単位で絵を作成　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.