ドリトルでアート No.08 赤と黒
ドリトルの図形オブジェクトには、図形を回転させるメソッドがある。今日はboxfメソッドを拡張して、四角い図形を指定の角度で回転できるようにしてみる。このメソッドを使って、赤と黒の単純な繰り返しパターンを描いてみた。後から描く赤の方をランダムに向きを変えてみる。
//赤と黒
描画:gload=[|file x y| タートル！作る ぺんなし (x)(y) 位置 (file) 変身する].
描画:boxf=[|x1 y1 x2 y2 color dg|タートル! 作る 消える ペンなし (x1)(y1)位置 ペンあり (x2-x1)(0)移動する (0)(y2-y1)移動する ((x2-x1)*-1)(0)移動する 閉じる 図形にする (dg) 右回り (color) 塗る].
描画! ("c:\image\photo.jpg") gload.
ystart=-160. xstart=-360. xmax=8. ymax=5. size=95. s1=size*0.7. s2=s1*0.7.
y=ystart.[
x=xstart.[
描画! (x)(y)(x+s1)(y-s1)(黒)(0)boxf.
描画! (x)(y)(x+s2)(y-s2)(赤)(random(10))boxf.
x=x+size.
]! (xmax) 繰り返す. y=y+size.
]! (ymax) 繰り返す.
//--------- ここまで ----------
このままでも、現代音楽の演奏会用ポスターとして使えそうな作品ができあがる。
0 Comments:
コメントを投稿
<< Home