#!/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{

  rezol_exp = [
    "T39L48_eml", "T39L24_eml", "T39L96_eml","T79L48_eml", "T159L48_eml", 
    "T39L48_non", "T39L24_non", "T39L96_non","T79L48_non", "T159L48_non", 
    "T39L48_ias", "T39L48_kuo", "T39L48_ksc", "T39L48_mca", "T39L48_non" ]
  
  rezol_exp.each{ |rezol|
    rezol_jikkou(rezol)
  }

  sonota_jikkou

}

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

def jikkou

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

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

# 拡張子
$base = ".gif"

# 接頭子
# $head = "T39L48_eml_control_"

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

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

#画像ファイルサイズ

# $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   = "#99FF33" 

# html ヘッダタイトル
#$title  = "time-mean calculated for APE SH standard output [control]"

# サムネイルタイトル
$header1 = $title 
$header2 = "<br>
<br>
[<a href =\"T39L48_eml_control_anim2hourly.html\">T39L48_eml</a>] 
[<a href =\"T39L48_non_control_anim2hourly.html\">T39L48_non</a>] 
[<a href =\"T159L48_eml_control_anim2hourly.html\">T159L48_eml</a>] 
[<a href =\"T159L48_non_control_anim2hourly.html\">T159L48_non</a>]<br>

[<a href =\"T39L48_ias_control_anim2hourly.html\">T39L48_ias</a>] 
[<a href =\"T39L48_ksc_control_anim2hourly.html\">T39L48_ksc</a>] 
[<a href =\"T39L48_kuo_control_anim2hourly.html\">T39L48_kuo</a>] 
[<a href =\"T39L48_mca_control_anim2hourly.html\">T39L48_mca</a>] 
<br><br>
<hr>
control: 
[<a href =\"anim2hourly.html\">anim2hourly</a>] 
[<a href =\"comp.html\">composite</a>] 
[<a href =\"spctfilt_setting.html\">spctfilt</a>] 
<hr>
[<a href =\"eml.html\">Resolution (Emanuel)</a>] 
[<a href =\"non.html\">Resolution (nocumulus)</a>]
[<a href =\"T39L48.html\">Cumulus scheme</a>] 
[<a href =\"sst.html\">SST distribution</a>] 
<hr>
[<a href= \"../\">HOME</a>]
"


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

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

end



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

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


########################################################
##  ローカル生成ルーチン
########################################################

def rezol_jikkou(rezol)

  $head = "#{rezol}_control_"
  $figdir = "anim2hourly"
  $index = "#{rezol}_control_#{$figdir}"
  $infofile = "anim2hourly.txt"
  $title  = "#{rezol}_control anim2hourly" 
  $width  = "200" ; $height = "150" ; $figtable_num = 4
  jikkou
  anim_sed($index)

end

def sonota_jikkou

  $head = ""
  $figdir = ""
  $index = "anim2hourly"
  $infofile = "anim2hourly_index.txt"
  $title  = "anim2hourly" 
  $width  = "200" ; $height = "150" ; $figtable_num = 4
  jikkou

end

def anim_sed(index)

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

end