ピクセル単位で絵を作成

備忘録 

    

    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.