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

GREEN HARMONY 手記

アニメ、ドラマ、音楽、読書、プログラミングのメモ等

(随時加筆)

朝ドラは「おかえりモネ」から視聴開始。過去作も少しずつ見始めています。

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


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

音楽:吉田拓郎、浅川マキ 他

外国語学習:基本文法から学ぶ 英語リーディング教本 (薬袋善郎 著),フランス語のしくみ(佐藤康 著) カラー改訂版 まるおぼえ英単語2600(小倉弘 著),基礎がため 一生モノの英文法 BASIC(澤井康佑 著)世界一簡単なフランス語の本 すぐに読める、読めれば話せる、話せば解る! (中条省平 著)英熟語ターゲット1000 5訂版


アンの夢の家 (文春文庫)
 
アンの夢の家―赤毛のアン・シリーズ6―(新潮文庫)

訪問者数

合計: 今日: 昨日:

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

2020年04月07日 smalltalkプログラミング20200407 [長年日記]

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: 1.
pen place: 100@100.
2 to: 7 do: [:i |
	| w aColor |
	aColor := Color fromString: (colorList at:i).
	pen color: aColor.
	w := 50.
	pen fill: [:each |
		i = 2 ifFalse:[ each turn: 180.].
		each go: w.
		2 timesRepeat: [each turn: -120; go: w.
		]]
		color: aColor.
		].
fm asMorph openInWorld

画像の説明