-
- mugen Museum
- 12F なでしこ CG コレクション
- 一次元セルオートマトン
一次元セルオートマトン
// 一次元セルオートマトン
!"lib.nako"を取り込む
wx=640; wy=640
母艦について W=wx; H=wy; 母艦のタイトル=""
10回
seed[回数-1]=RandomSelect("0 1 3")
(wx+1)回
col[0][回数-1]=Random(0,3)
wy回
wx回
col[1][回数]=seed[col[0][回数-1]+col[0][回数]+col[0][回数+1]]
y=回数-1
wx回
c=RGB(0,0,col[1][回数]*64)
x=回数-1
点描画(x,y,c)
col[0]=col[1]
文字色=$ffffff; 表示(seed)
// [lib.nako]
●Random(min,max)
それ=乱数(max+1-min)+min
●RandomSelect(SLC)
選択枝=区切(SLC," "); それ=選択枝[乱数(配列要素数(選択枝))]
