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