#
# = お絵かきしてファイル名を変更してアニメーションを作るスクリプト 
#
# * 履歴:
#         2011/09/13  実験 4 用に書き換え
#         2011/09/12  実験 2 用に書き換え
#         2011/08/12  snap shot と animation の gif ファイル名を変更
#         2011/07/26  draw-H2O-g_main.rb からコピーして新規作成
#
####################################

#dt = 86400                             # 絵を出力する時間刻み幅
dt = 50                                # いろいろいじり中
#dt = 20                                # いろいろいじり中
tt = 20000                             # 全積分時間
tnmin = 1                              # 繰り返し回数の最小値 (固定)
tnmax = tt/dt                          # 繰り返し回数の最大値

###--- 定数の設定確認 ---###
print dt
printf ("\n")
print tt
printf ("\n")
print tnmin
printf ("\n")
print tnmax
printf ("\n")

###--- ファイル名の通し番号を入れておく配列を作る ---###
inum=[0]
for tn in (tnmin-1)..tnmax 
  inum[tn] = tn*dt
end

###--- 繰り返しはじめ ---###
for tn in (tnmin-1)..tnmax 

  ###--- お絵かきするよ (cf: 高橋(芳)さんスクリプト) ---###
    ###--- 渡したい引数は dt, tn ---###
  system('ruby draw-H2O-l-Rain_sub.rb '  + tn.to_s + ' ' + dt.to_s + ' ')

  ###--- ファイル名を rename & png を gif に変換 ---###
#  system("mv dcl_001.png" ##三桁の通し番号##.png")
#  com = sprintf( "mv dcl_001.png dcl_t%0#{6}d.png", inum[tn] )
  com = sprintf( "convert dcl_001.png dcl_H2O-l-Rain_t%0#{5}d.gif", inum[tn] )
  system(com)

end

###--- アニメーション作る ---###
#system("convert", "-delay", "25", "dcl_t*.png", "anim-color-H2O-l-Cloud.gif")
system("gifsicle --delay=25 dcl_H2O-l-Rain_t*.gif > dcl_H2O-l-Rain_anim.gif")