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

GREEN HARMONY 手記

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

(随時加筆)

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

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


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

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

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


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

訪問者数

合計: 今日: 昨日:

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

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

smalltalkプログラミング

Squeak Workspaceにて実行

| aMorph gMorph sMorph colorList pdict |
colorList := #('#9370DB' 'red' 'orange'
 'yellow' 'green' 
'blue' '#000080'
 '#800080' '#808000' ).

aMorph := Morph new.
aMorph position: 500@500.
aMorph extent: 300@300.
aMorph color: Color white.

pdict := Dictionary new.
pdict at:7 put: -70@36. 
pdict at:2 put: -70@ -36.
pdict at:8 put: 0@ -78.
pdict at:3 put: 36@ -70.
pdict at:9 put: 70@ -36.
pdict at:4 put: 70@36.
pdict at:6 put: 0@78.
pdict at:1 put: -36@70.


gMorph := CircleMorph new.
gMorph bounds: (0@0 corner: 200@200).
gMorph color: Color white.
gMorph borderWidth: 3.
gMorph borderColor: (Color fromString: '#DAA520').
aMorph addMorphCentered: gMorph. 

sMorph := CircleMorph new.
sMorph bounds: (0@0 corner: 72@72).
sMorph color: (Color fromString: '#DAA520').
sMorph borderWidth: 3.
sMorph borderColor: (Color fromString: '#DAA520').
aMorph addMorphCentered: sMorph. 


{-78@0 . 78@0 . -36@ -70 . 36@70} do: [:each |
	| bMorph p |
	bMorph := CircleMorph new.
	bMorph bounds: (0@0 corner: 36@36).
	bMorph color: (Color fromString: (colorList at:5)).
	bMorph borderColor: (Color fromString: (colorList at:5)).
	p := bMorph extent // 2.
	bMorph position: (aMorph bounds center - (p + each)).
	aMorph addMorph: bMorph.
].

#(7 2 8 3 9 4 6 1) do: [: n |
	| bMorph p |
	bMorph := CircleMorph new.
	bMorph bounds: (0@0 corner: 36@36).
	bMorph color: (Color fromString: (colorList at:n)).
	bMorph borderColor: (Color fromString: (colorList at:n)).
	p := bMorph extent // 2.
	bMorph position: (aMorph bounds center - (p + (pdict at:n))).
	aMorph addMorph: bMorph.
].

aMorph openInWorld.

画像の説明