アニメ、ドラマ、音楽、読書、プログラミングのメモ等
朝ドラは「おかえりモネ」から視聴開始。過去作も少しずつ見始めています。
好きなアニメ: 響け!ユーフォニアム、ちはやふる
他
音楽:吉田拓郎、浅川マキ 他
外国語学習：基本文法から学ぶ 英語リーディング教本 (薬袋善郎 著),
フランス語のしくみ(佐藤康 著)
カラー改訂版 まるおぼえ英単語２６００(小倉弘 著),
基礎がため 一生モノの英文法 BASIC(澤井康佑 著)、
世界一簡単なフランス語の本 すぐに読める、読めれば話せる、話せば解る！ (中条省平 著)
本ページはプロモーションが含まれています
訪問者数
合計： 今日： 昨日：
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.
[ツッコミを入れる]
