View this PageEdit this PageAttachments to this PageHistory of this PageHomeRecent ChangesSearch the SwikiHelp Guide

ペンで遊ぶ

back


ちょっと前に「Pen」クラスを調べてたときのメモを整理してみたです。
タートルなんだけど亀がみえないってのが趣深しですな。
(Graphics-PrimitivesクラスカテゴリのPenクラス)



■ペンのインスタンスを作りまする。

----------------------------------------
myPen _ Pen new.
----------------------------------------
Alt + d ( Cmd + d )


■ペンを下ろします。

ペンを下ろすと画面に描画でき、ペンを上げると描画できなくなります。
----------------------------------------
myPen down.
----------------------------------------
Alt + d ( Cmd + d )


ちなみにペンを上げるのはこれね。
これを実行すると次のステップ空何も起こらないので
もう一度、ペン・ダウンしてちょんまげ。
----------------------------------------
myPen up
----------------------------------------
Alt + d ( Cmd + d )



■ペンを移動させます。

ペンを移動させるとペンが下りていると今いるところから
ペンの向きの方向に30進み直線を描画するです。
ペンは初期設定では画面の中心の位置にいて方向は上方向を指しています。
----------------------------------------
myPen go: 30.
----------------------------------------
Alt + d ( Cmd + d )


今いるところから指定の位置まで移動する場合は
----------------------------------------
myPen goto: 300@300.
----------------------------------------
Alt + d ( Cmd + d )


描画するラインに矢印をつけたいときは
----------------------------------------
myPen go: 50; arrowHead.
----------------------------------------
Alt + d ( Cmd + d )


■ペンの向きを変えます。

----------------------------------------
myPen turn: 45.
----------------------------------------
Alt + d ( Cmd + d )


向きが変わったかどうか試してみまする。
----------------------------------------
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )


いろいろ移動料や向きを変えて試してみてちょんまげ。

■文字を表示する

----------------------------------------
myPen print: 'I am Here !' withFont: TextStyle defaultFont.
----------------------------------------
Alt + d ( Cmd + d )



■画面を綺麗にする。

画面にペンでいろいろ描いちゃった後は軌跡を消して
画面を綺麗にしたいものであります。
ワールドメニューの「ディスプレイを再表示」でもいいし
以下のソースをDo itしてもいいっす。
----------------------------------------
Display restore.
----------------------------------------
Alt + d ( Cmd + d )



■ペンの位置と方向

ペンを下ろしているときは軌跡が残っているのでいいんだけど
上げてたりすると自分が今何処にいるのかわかんないっす。
そんなときは
----------------------------------------
myPen location.
----------------------------------------
Alt + p ( Cmd + p )

ペンを下ろしてて軌跡を残さずに別の場所に移動したいときは
----------------------------------------
myPen place: 300@300.
----------------------------------------
Alt + d ( Cmd + d )


ペンのホームポジション(最初の場所)に戻りたいときは
----------------------------------------
myPen home.
----------------------------------------
Alt + d ( Cmd + d )


ペンが今どっちの方向を向いているか知りたい場合は
----------------------------------------
myPen direction.
----------------------------------------
Alt + p ( Cmd + p )


ペンの向きを最初の方向(画面の上の方向)へ戻したいときは
----------------------------------------
myPen north.
----------------------------------------
Alt + d ( Cmd + d )



■ペンの形や色を変える

ペンの大きさを変える。数値をいろいろ変えてみてちょ。
----------------------------------------
myPen defaultNib: 2.
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )

ペンの形を丸にする。
----------------------------------------
myPen roundNib: 8.
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )

ペンの形を四角形にする。
----------------------------------------
myPen squareNib: 5.
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )


色を変える
----------------------------------------
myPen color: Color red.
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )

<色リスト>
black
blue
brown
cyan
darkGray
gray
green
lightBlue
lightBrown
lightCyan
lightGray
lightGreen
lightMagenta
lightOrange
lightRed
lightYellow
magenta
orange
paleBlue
paleBuff
paleGreen
paleMagenta
paleOrange
palePeach
paleRed
paleTan
paleYellow
red
tan
transparent
veryDarkGray
veryLightGray
veryPaleRed
veryVeryDarkGray
veryVeryLightGray
white
yellow

RGBで指定する場合
----------------------------------------
myPen color: (Color r: 0.5 g: 1.0 b: 1.0).
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )

透明度を設定する場合
----------------------------------------
myPen color: (Color r: 0.5 g: 0.5 b: 1.0 alpha: 0.5).
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )

256で設定する場合
----------------------------------------
myPen color: (Color r: 255 g: 125 b: 125 range: 255).
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )


色をパレットで選ぶ
----------------------------------------
myPen color: Color fromUser.
myPen home.
myPen north.
myPen go: 50.
----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen combinationRule: Form over.
----------------------------------------
Alt + d ( Cmd + d )



■繰り返す

----------------------------------------
myPen defaultNib: 2.
myPen color: Color red.
myPen home.
myPen north.
4 timesRepeat: [
	myPen go: 50.
	myPen turn: 90].

----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
1 to: 50 do: [: i |
	myPen go: i * 4.
	myPen turn: 89].

----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen fill: [:each | 6 timesRepeat: [ 
			each go: 50;
			turn: 60]] 
	color: Color fromUser.

----------------------------------------
Alt + d ( Cmd + d )



■Penクラスに用意されてる楽しいメソッドを試して見るです。

終わったらワールドメニューの「ディスプレイを再表示」してね。
----------------------------------------
myPen dragon: 10.
----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen filberts: 4 side: 5.
----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen hilbert: 4 side: 5.
----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen hilberts: 5.
----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen mandala: 30.
----------------------------------------
Alt + d ( Cmd + d )


----------------------------------------
myPen spiral: 100 angle: 89.
----------------------------------------
Alt + d ( Cmd + d )


これはDo itしてから左ドラッグでクモの巣のような幾何学模様が描けます。
再度左クリックすると色がどんどん変わっていくです。
元に戻りたいときは右クリックです。(しばらく押した状態にしておくと確実です)
----------------------------------------
myPen web.
----------------------------------------
Alt + d ( Cmd + d )



下の入力ボックスに書き込んで”add to the page”ボタンで登録出来ます。
修正したい場合はページ左のアイコンの”edit”で出てくる画面で編集可能です。
ページ左のアイコンの”uploads”で画像(JPEG,GIF,PNG)のアップロードもできます。


Link to this Page