GREEN HARMONY 手記

☆ smalltalkプログラミング

Squeak Workspaceにて実行

| fm pen colorList  |
colorList := #('#9370DB' 'red' 'orange' 
'yellow' 'green' 'blue' '#000080' 
'#800080' '#808000').
fm := Form extent: 200@200 depth: Display depth.
fm fillColor: Color white.
pen := Pen newOnForm: fm.
pen defaultNib: 4.
pen color: (Color fromString: (colorList at: 5)).
pen place: 100@50.
pen  turn: -160; go: 100.
4 timesRepeat: [pen  turn: -144; go: 100].
fm asMorph openInWorld