-
- mugen Museum
- 12F なでしこ CG コレクション
- 一次元セルオートマトン（多色版）SET#12
一次元セルオートマトン（多色版）SET#12
// 一次元セルオートマトン(Multi Color Version & Auto Save)
!"lib.nako"を取り込む
!"色定数.nako"を取り込む
wx=640; wy=640
母艦について W=wx; H=wy; 母艦のタイトル=""
50回
c1d(回数)
●c1d(cnt)
13回
seed[回数-1]=RandomSelect("4 4 4 4 3 3 3 2 2 1 0")
iro[回数-1]=RandomSelect("Lavender Snow Orangered Royalblue Navy Plum Skyblue Lime Forestgreen")
(wx+1)回
col[0][回数-1]=Random(0,4)
wy回
wx回
col[1][回数]=seed[col[0][回数-1]+col[0][回数]+col[0][回数+1]]
y=回数-1
wx回
c=EVAL(iro[col[1][回数]])
x=回数-1
点描画(x,y,c)
col[0]=col[1]
画像保存(母艦,"{デスクトップ}CG\c1d3\"&RIGHT(cnt+600,3)&".jpg")
