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

#dt = 86400                               # 絵を出力する時間刻み幅
dt = 50                                  # いろいろいじり中
#tt = 864000                              # 全積分時間
#tt = 7080                                # 全積分時間
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 
#for tn in 0..3

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

  ###--- 引数のまわりをちょっと練習 ---###
#   p sprintf("t%0#{6}d", tn*dt)      # ok
#   inum = sprintf("t%0#{6}d", tn*dt) # ok
#   p sprintf( "dcl.gif /dcl_t%0#{6}d.gif", inum[tn] )

  ###--- 高橋(芳)さんスクリプトからぱくってきた and 書き換え ---###
#  com = sprintf( "mv dcl.gif " + figdir + "/dcl_num%0#{3}d_mon%0#{2}d.gif", iyr, imon )

  ###-- ファイルの rename --###
#  com = sprintf( "mv dcl_001.png dcl_t%0#{6}d_tb10.png", inum[tn] )
#  com = sprintf( "mv dcl_001.png dcl_t%0#{4}d.png", inum[tn] )

  ###--- ファイルの rename & png を gif に変換 ---###
  com = sprintf( "convert dcl_001.png dcl_Exner_t%0#{5}d.gif", inum[tn] )
  system(com)

end

###--- アニメーションを作る ---###
#system("convert", "-delay", "50", "dcl_*.png", "anim-PotTemp.gif")
#system("convert", "-delay", "50", "dcl_*.png", "anim-line-PotTemp_dt1h.gif")
#system("gifsicle", "--delay=25", "--loopcount=1", "dcl_*.gif", ">", "anim-Exner_dt20.gif")
system("gifsicle --delay=25 --loopcount=1 dcl_*.gif > dcl_Exner_anim.gif")