トップ «前の日記(2020年04月11日) 最新 次の日記(2020年06月24日)» 編集

GREEN HARMONY 手記

アニメ、ドラマ、音楽、読書、プログラミングのメモ等 (随時加筆)

(本ページはプロモーションが含まれています)

好きなアニメ: 響け!ユーフォニアムちはやふる

好きな音楽:吉田拓郎浅川マキ

訪問者数: 合計: 今日: 昨日:

プライバシーポリシー
検索キーワード:

2020年04月14日 smalltalkでプログラミング20200414 [長年日記]

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

画像の説明