アニメ、ドラマ、音楽、読書、プログラミングのメモ等 (随時加筆) Follow @fulcanelli448
(本ページはプロモーションが含まれています)
好きなアニメ: 響け!ユーフォニアム、ちはやふる
他
アニメ、ドラマ、音楽、読書、プログラミングのメモ等 (随時加筆) Follow @fulcanelli448
(本ページはプロモーションが含まれています)
好きなアニメ: 響け!ユーフォニアム、ちはやふる
他
訪問者数: 合計: 今日: 昨日:
☆ 片山 宇樹先生の「身がまま整体入門」に参加させていただいた。
メモ
4月 最も身体が弛む時季、肩甲骨・骨盤を弛めて深いリラックスを得る。
二人一組
自分で出来る整体法
☆ smalltalkプログラミング
Squeak Workspaceにて実行
| fm pen colorList angle arr parr w |
colorList := #('#9370DB' 'red' 'orange' 'yellow' 'green' 'blue'
'#000080' '#800080' '#808000').
fm := Form extent: 500@500 depth: Display depth.
fm fillColor: Color white.
pen := Pen newOnForm: fm.
w := 20.
pen defaultNib: w.
pen place: 160@330.
parr :=
{
0@0 .
-1@ -1 .
-1@1 .
1@1 .
1@0 .
0@ -2 .
-2@0 .
0@ 2 .
2@1 .
1@ -3 .
-3@ -1 .
-1@3
}.
arr := #(9 1 2 3 4 5 6 7 8).
angle := 90.
1 to: 12 do: [:i |
i = 2 ifTrue: [ angle := -90].
pen place: (pen location + ((parr at: i)*(w@w))).
pen turn: angle.
arr do: [:n |
pen color: (Color fromString: (colorList at:n)).
pen go: w.
].
pen color: (Color fromString: 'white').
pen go:w.
arr := arr collect: [:n | n * 2 - 1 \\ 9 + 1].
].
fm asMorph openInWorld
