- mugen Museum
- 14F Bit Arrow で CG
- 紅 - タイルdeアート
紅 - タイルdeアート
ドリトルのGUIオブジェクト label! の色を timer! で変化させれば、ちょっとアートな作品ができるのではないかと思い作ってみました。
再読込をすると別のパターンに変わります。
紅
http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_2.html
再帰処理バージョン。自動的(10秒毎)にパターンが変わります。
紅
http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_2a.html
// art_2(紅)
screen! (black) paint.
map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))].
w=screen!width?. h=screen!height?.
xn=random(8). yn=random(8).
ws=ceil(w/xn). hs=ceil(h/yn).
s=0.7.
tile=array! create. b=array! create. m=array! create. d=array! create.
i=0. j=0.
[i=i+1.
[j=j+1.
x=!(j)(1)(xn+1)(w/-2)(w/2) map. y=!(i)(1)(yn+1)(h/2)(h/-2) map.
b! (random(255)) add. m! (1) add.
tile! (label! create (ws*s)(hs*s) size (x+(ws*(1-s)/2))(y-(hs*(1-s)/2)) position
(white) fontcolor (12) fontsize) add.
]! (xn) repeat.
j=0.
]! (yn) repeat.
t1=timer! create (0.1) interval (60*60) duration [
[|i|
d! (i) (random(5)) set.
[(b! (i) get)>=256]! then [m! (i)(-1) set] execute.
[(b! (i) get)<=0]! then [m! (i) (+1) set] execute.
c=((b! (i) get)+(d! (i) get)*(m! (i) get)).
b! (i) (c) set.
//debug (tile! (i) get)! (c) set (color! (0)(0)(c) create) paint.
(tile! (i) get)! (color! (c)(0)(0) create) paint.
]! (xn*yn) repeat.
] execute.
![Default](https://d3caz7hhiepl95.cloudfront.net/assets/user/default-6344dcd9594efe2c770024a51c383175.png)