ドリトルでアート No.07 どりーむ･オブ･でじたる ２
前にやった「どりーむ･オブ･でじたる」がちょっと気に入ったので、今日は別のバージョンを作ってみた。タイマーの数を一挙に４倍の200個に増やして、これを並列に動かしてみる。数字も9桁から1桁にして、一つ一つの数字がランダムに動くようにしてみた。
//どりーむ･オブ･でじたる ２
dc=配列!作る.[dc!""入れる]! 200 繰り返す. 横size=30. 縦size=40.
描画:カウンタ=[|n x y|
dc!(n) (ラベル！ " " 作る (横size-0)(縦size-0) 大きさ)上書き.
タイマー!作る (random(10)*0.1) 間隔 60秒 時間[
c=色！(0)(random(100)+100)(0)作る.
(dc!(n)見る)!(黒)色 (c)文字色 (x)(y)位置 (random(10)-1)書く
]実行
].
sx=-300. sy=-160. x=sx. n=0.
[m=0. y=sy.
[n=n+1. m=m+1.
描画! (n)(x)(y+縦size*(m-1)) カウンタ
]! 10 繰り返す.
x=x+横size
]! 20 繰り返す.
//--------- ここまで ----------
表示色の緑の色の明るさを、タイマー毎に微妙に変えてある。なんかちょっとアートな気分だ。
0 Comments:
コメントを投稿
<< Home