Petitverse

プチコンにセルオートマトン系の技術を導入することでゲームの見た目を良くする情報交換が出来たらと思います。

セルオートマトンとは近傍の状態からある地点の次の状態を決定するシミュレーション技術であり、水面や炎などを描画できるようです。

取りあえず水面のサンプルコードを試行錯誤してみました。
湖の絵の中にこのコードの表示結果を埋め込めば揺らぐ水面などを描けると思います。
移し間違いなどがあるかもしれません。
Y=I,X=J
で脳内変換してください

dim CA[3,12,20]　'セルオートマトンのデータ、[(ひとつ前のターン、現在、次のターン)、ｙ座標、x座標]
dim turn=0
dim turnn'次のターンを指す変数
dim turno’前のターンを指す変数
dim h'計算用の一時変数
ACLS
for y=0 to 11
for x=0 to 19
ca[turn.y,x]=rndf()'水面の高さの初期値として乱数を入れる
next
next
while 1
turnn=(turn+1) mod 3
turno=(turn+2) mod 3
for i=0 to 11
for j=0 to 19
'1セルの次の状態の計算開始
’周囲4セルの平均+今の高さ-前の水面高さで水面の高さを計算しそれを色に変換する処理
h=0.0
h=h+getcell(turn,i-1,j)
h=h+getcell(turn,i+1,j)
h=h+getcell(turn,i,j+1)
h=h+getcell(turn,i,j-1)
h=h*0.25’周囲4セルの平均
ca[turnn,i,j]=h+ca[turn,i,j]-ca[turno,i,j]’過去の高さと今の高さを考慮
'画面いっぱいに描画
GFILL J*20,i*20,J*20+20,I*20+20,RGB(8,f(ca[turn,i,j],32,96,64),f(24,32,192))
next
next
inc Turn
turn=turn mod 3
vsync 10
wend
def f(h,m,a,d)
'水面の高さを色に写像する処理
dim h2
h2=floor(h*m)+a’色に変換
if h2>255 then h2=255
if h2<d then h2=d’RGBから飛び出ないようにかつ色が黒くならないように
return h2
end
def getcell(t,y,x)
if y<0 or y>11 or x<0 or x>19 then
return 0.0'画面外なら0を返す
else
return ca[t,y,x]'でなければ指定セルのデータを返す
endif
end
思ったより計算量と描画が重いので1セル辺りを大きくとっています。
プチコン4では高速に実行できるかも。