ドリトルでアート No.09 蜜蜂たちの秘密の航路図
今日は、タートルをランダムウォークさせるメソッドを作ってみる。どのぐらいヨタヨタさせるかと何回歩かせるかをパラメータに加えてみた。開始点を変えて、５本の線を描いてみる。
//蜜蜂たちの秘密の航路図
描画:gload=[|file x y| タートル！作る ぺんなし (x)(y) 位置 (file) 変身する].
描画：rwalk=[|x y color size df n| x1=x. y1=y.[
x2 =x1+(random(df)-df/2)*10.y2=y1+(random(df)-df/2)*10.タートル! 作る (size)線の太さ 消える ペンなし (x1)(y1)位置 ペンあり (x2)(y2)位置 図形にする (color)塗る. x1=x2. y1=y2.]! (n) 繰り返す].
描画! ("c:\image\photo-2.jpg") gload.
[x=random(400)-200. y=random(300)-150.
描画! (x)(y)(色!(random(200))(random(200))(random(200))作る)(1)(20)(100) rwalk.
]! 5 繰り返す.
//--------- ここまで ----------
ちょっと単純すぎたかもしれないが、ランダムな軌跡も表題を付けるとそれなりに見えてしまうから何か不思議だ。
0 Comments:
コメントを投稿
<< Home