GREEN HARMONY 手記

☆ smalltalkプログラミング

Squeak Workspaceにて実行

| fm pen rx ry w x y angle |
rx := 100.
ry := 100.
w := 50.
angle := -90.
fm := Form extent: 200@200 depth: Display depth.
fm fillColor: Color white.
pen := Pen newOnForm: fm.
pen defaultNib: 2.

pen color: Color blue.

2 to: 7 do: [:i |
	pen goto: rx@ry.
	x := w * ((angle * (Float pi/180)) cos) + rx.
	y := w * ((angle * (Float pi/180)) sin) + ry.
	pen goto: x@y.
	angle := angle - 60.
	x := w * ((angle * (Float pi/180)) cos) + rx.
	y := w * ((angle * (Float pi/180)) sin) + ry.
	pen goto: x@y.
].
fm asMorph openInWorld