#!/usr/bin/env ruby
#
# 表題: ape お絵描きサムネイル HTML 作成スクリプト
#
# 履歴: 2003/09/28 やまだ由 
#
# 注意: 本プログラムは, 
#       dcphoto.pl Ver 1.02 - 写真用 HTML作成スクリプト
#       Mitsuda Chihiro   <totera@ep.sci.hokudai.ac.jp>
#       を ruby で写経し, やまだ由用にカスタマイズしたものである 
#
#
#
#

END{

  $head = ""
  $index = "mradlA-tmean"
  $infofile = $index + ".txt"
  $figdir = "tmean"
  $title  = "mradlA 実験 時間平均"
  $base = "-lay1.gif"
  $width  = "200"; $height = "150"
  $figtable_num = 4
  jikkou

  $index = "mradlQ-tmean"
  $infofile = $index + ".txt"
  $figdir = "tmean"
  $title  = "mradlQ 実験 時間平均"
  $figtable_num = 4
  jikkou

  $index = "mradlA-xteq"
  $infofile = $index + ".txt"
  $figdir = "xteq"
  $title  = "mradlA 実験 x-t ダイヤグラム"
  $figtable_num = 4
  jikkou

  $index = "mradlQ-xteq"
  $infofile = $index + ".txt"
  $figdir = "xteq"
  $title  = "mradlQ 実験 x-t ダイヤグラム"
  $figtable_num = 4
  jikkou

  $index = "mradlA-spct"
  $infofile = $index + ".txt"
  $figdir = "spct"
  $title  = "mradlA 実験 時空間スペクトル"
  $figtable_num = 4
  jikkou

  $index = "mradlQ-spct"
  $infofile = $index + ".txt"
  $figdir = "spct"
  $title  = "mradlQ 実験 時空間スペクトル"
  $figtable_num = 4
  jikkou

  $index = "kuo-mradlA-tmean"
  $infofile = $index + ".txt"
  $figdir = "tmean"
  $title  = "kuo-mradlA 実験 時間平均"
  $figtable_num = 4
  jikkou

  $index = "kuo-mradlQ-tmean"
  $infofile = $index + ".txt"
  $figdir = "tmean"
  $title  = "kuo-mradlQ 実験 時間平均"
  $figtable_num = 4
  jikkou

  $index = "kuo-mradlA-xteq"
  $infofile = $index + ".txt"
  $figdir = "xteq"
  $title  = "kuo-mradlA 実験 x-t ダイヤグラム"
  $figtable_num = 4
  jikkou

  $index = "kuo-mradlQ-xteq"
  $infofile = $index + ".txt"
  $figdir = "xteq"
  $title  = "kuo-mradlQ 実験 x-t ダイヤグラム"
  $figtable_num = 4
  jikkou

  $index = "kuo-mradlA-spct"
  $infofile = $index + ".txt"
  $figdir = "spct"
  $title  = "kuo-mradlA 実験 時空間スペクトル"
  $figtable_num = 4
  jikkou

  $index = "kuo-mradlQ-spct"
  $infofile = $index + ".txt"
  $figdir = "spct"
  $title  = "kuo-mradlQ 実験 時空間スペクトル"
  $figtable_num = 4
  jikkou

  $head = "AGCM5_kuo_"
  $base = ".gif"
  $figdir = "tr_wk"
  $index = "#{$head}#{$figdir}"
  $infofile = "#{$figdir}.txt"
  $title  = "kuo-mradlA 実験 Takayabu (1994a), Wheeler and Kiradis (1999) plot"
  $figtable_num = 5
  jikkou

  $head = "AGCM5_adj_"
  $base = ".gif"
  $figdir = "tr_wk"
  $index = "#{$head}#{$figdir}"
  $infofile = "#{$figdir}.txt"
  $title  = "adj-mradlA 実験  Takayabu (1994a), Wheeler and Kiradis (1999) plot"
  $figtable_num = 5
  jikkou

  $head = "AGCM5_kuo_con_"
  $base = ".gif"
  $figdir = "anim"
  $index = "#{$head}#{$figdir}"
  $infofile = "#{$figdir}.txt"
  $title  = "kuo-con 実験 gif アニメ集"
  $figtable_num = 4
  jikkou
  anim_sed($index)

  $head = "AGCM5_kuo_mradlAc_"
  $base = ".gif"
  $figdir = "anim"
  $index = "#{$head}#{$figdir}"
  $infofile = "#{$figdir}.txt"
  $title  = "kuo-mradlAc 実験 gif アニメ集"
  $figtable_num = 4
  jikkou
  anim_sed($index)

  $head = "AGCM5_adj_mradlAd_"
  $base = ".gif"
  $figdir = "anim"
  $index = "#{$head}#{$figdir}"
  $infofile = "#{$figdir}.txt"
  $title  = "adj-mradlAd 実験 gif アニメ集"
  $figtable_num = 4
  jikkou
  anim_sed($index)

  $head = "AGCM5_kuo_con_"
  $base = ".gif"
  $figdir = "anim"
  $index = "#{$head}#{$figdir}_1hour"
  $infofile = "#{$figdir}.1hour.txt"
  $title  = "kuo-con 実験 gif アニメ集"
  $figtable_num = 4
  jikkou
  anim_sed($index)

  $head = "AGCM5_kuo_mradlAc_"
  $base = ".gif"
  $figdir = "anim"
  $index = "#{$head}#{$figdir}_1hour"
  $infofile = "#{$figdir}.1hour.txt"
  $title  = "kuo-mradlAc 実験 gif アニメ集"
  $figtable_num = 4
  jikkou
  anim_sed($index)

  $head = "AGCM5_adj_mradlAd_"
  $base = ".gif"
  $figdir = "anim"
  $index = "#{$head}#{$figdir}_1hour"
  $infofile = "#{$figdir}.1hour.txt"
  $title  = "adj-mradlAd 実験 gif アニメ集"
  $figtable_num = 4
  jikkou
  anim_sed($index)


  $head = "AGCM5_kuo_"
  $base = ".gif"
  $figdir = "misc"
  $index = "#{$head}#{$figdir}_xteq"
  $infofile = "#{$figdir}_xteq.txt"
  $title  = "さらなるパラメタ実験"
  $width  = "280"; $height = "210"
  $figtable_num = 3
  jikkou


}



########################################################
##  ユーザ設定
########################################################

def jikkou

# インデックスファイル  $PWD/../html/${index}.html, $PWD/../html/table_${index}.rd
#$index = ""

# 情報ファイル, $PWD/${infofile}
#$infofile = $index + ".txt"

# 拡張子
#$base = "-lay1.gif"

# 絵のあるディレクトリ名, $PWD/../${figdir}
#$figdir = "tmean"
# $figdir = "spct"
#$figdir = "xteq"


# 横にならべるファイル数
# $figtable_num = 5
#$figtable_num = 4


#画像ファイルサイズ
# $width  = "160"
# $height = "120"
# $width  = "200"
# $height = "150"
# $width  = "280"
# $height = "210"


# テーブル, フォントの色
$color_table   = "#ADD8E6" 
$color_font    = "#000080" 
$color_link    = "#269900" 
$color_visited = "#269900" 
$color_hover   = "#CC9933" 

# html ヘッダタイトル
#$title  = "baseSST q,t の qradl への感度"
#$title  = "mradl 実験に与える吸収係数の検討"
#$title  = "mradl 実験 時間平均"
#$title  = "mradl 実験 時空間スペクトル"
#$title  = "mradl 実験 x-t ダイヤグラム"

# サムネイルタイトル
$header1 = $title 
$header2 = "長波放射バンドの吸収係数を変える実験<hr> 
mradlA 実験(大気バンドの吸収係数を変える)<br>
「Aa -> con -> Ab -> Ac -> Ad」にしたがって上層の長波放射冷却が強まり, 下層の長波放射冷却が弱まる (qradl図参照)<br>
[<a href =\"mradlA-tmean.html\">adj-mradlA-tmean</a>] 
[<a href =\"mradlA-xteq.html\">adj-mradlA-xteq</a>] 
[<a href =\"mradlA-spct.html\">adj-mradlA-spct</a>]
[<a href =\"AGCM5_adj_tr_wk.html\">adj-mradlA-WK1999</a>]<br>
[<a href =\"kuo-mradlA-tmean.html\">kuo-mradlA-tmean</a>] 
[<a href =\"kuo-mradlA-xteq.html\">kuo-mradlA-xteq</a>] 
[<a href =\"kuo-mradlA-spct.html\">kuo-mradlA-spct</a>] 
[<a href =\"AGCM5_kuo_tr_wk.html\">kuo-mradlA-WK1999</a>]
<hr> 
animation<br>
[<a href =\"AGCM5_kuo_con_anim.html\">kuo-con_anim_2hourly</a>]
[<a href =\"AGCM5_kuo_mradlAc_anim.html\">kuo-mradlAc_anim_2hourly</a>]
[<a href =\"AGCM5_adj_mradlAd_anim.html\">adj-mradlAd_anim_2hourly</a>] <br>
[<a href =\"AGCM5_kuo_con_anim_1hour.html\">kuo-con_anim_1hourly</a>]
[<a href =\"AGCM5_kuo_mradlAc_anim_1hour.html\">kuo-mradlAc_anim_1hourly</a>]
[<a href =\"AGCM5_adj_mradlAd_anim_1hour.html\">adj-mradlAd_anim_1hourly</a>]
<!--
<hr> 
mradlQ 実験(最も上層に効く水蒸気バンドの吸収係数を変える)<br> 
「Qa -> con -> Qb -> Qc -> Qd」にしたがって上層の長波放射冷却が強まるが, 下層は変わらない(qradl図参照) <br>
[<a href =\"mradlQ-tmean.html\">adj-mradlQ-tmean</a>] 
[<a href =\"mradlQ-xteq.html\">adj-mradlQ-xteq</a>] 
[<a href =\"mradlQ-spct.html\">adj-mradlQ-spct</a>]<br>
[<a href =\"kuo-mradlQ-tmean.html\">kuo-mradlQ-tmean</a>] 
[<a href =\"kuo-mradlQ-xteq.html\">kuo-mradlQ-xteq</a>] 
[<a href =\"kuo-mradlQ-spct.html\">kuo-mradlQ-spct</a>] 
-->
<hr>
composite 
<!--[<a href =\"mradl-composite.html\">mradl-composite</a>] -->
[<a href =\"mradlA-composite.html\">mradlA-composite</a>] 
<hr>
もう少しだけ詳しい実験設定については, <a href=\"mradl-study3.html\">mradl-study3.html<\/a> の設定 4, 5 参照
"

# サムネイルフッタ ;
$footer = "Last update: #{Time.now} <br> 
           Copyright &copy\; 2003 YAMADA Yukiko"


# ファイル生成実行
print $title, "\n" ; apethum

end


def anim_sed(index)

#  `sed s/-t0.gif\"\>/-anim.gif\"\>/ ../#{index}.html > tmp.html`
  `sed s/-t0.gif\\"\\>/-anim.gif\\"\\>/ ../#{index}.html > tmp.html`
  `mv tmp.html ../#{index}.html`

end


########################################################
##  include ファイル
########################################################

require 'date'
require '/home/yukiko/lib/ape-thum.rb'
$KCODE = "e"