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

  exp_jikkou

}


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

def jikkou

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

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

# 拡張子
$base = ".gif"

# 接頭子
$head = "wavecisk-"

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

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

#画像ファイルサイズ

# $width  = "160" ; $height = "120"
# $width  = "200" ; $height = "150"
# $width  = "280" ; $height = "210"

# テーブル, フォントの色
# $color_table   = "#ADD8E6" 
$color_table   = "#D3D3D3" 
$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>

<table BORDER=\"0\" cellspacing=\"10\" align=\"center\">
<tr><td><small>
<ul>
  <li> コンタートーンは, おまかせで引いている
  <li> X-Z Y-velosity のコンターが…
</ul>
</small></td></tr></table>
<hr>
[<a href =\"wavecisk-xteq.html\">X-T diagram</a>] 
[<a href =\"wavecisk-movie_xy.html\">X-Y GIF anime</a>] 
[<a href =\"wavecisk-movie_xz.html\">X-Z GIF anime</a>] 
<hr>
[<a href =\"../\">HOME</a>]
"


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


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

end



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

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


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

def exp_jikkou

  $head = "wavecisk-"
  $figdir = "movie_xy"
  $index = "#{$head}movie_xy"
  $infofile = "movie_xy.txt"
  $title  = "wave-CISK eqatorial beta plane spmodel: X-Y GIF anime" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou
  anim_sed($index)

  $figdir = "movie_xz"
  $index = "#{$head}movie_xz"
  $infofile = "movie_xz.txt"
  $title  = "wave-CISK eqatorial beta plane spmodel: X-Z GIF anime" 
  $width  = "280" ; $height = "210" ; $figtable_num = 3
  jikkou
  anim_sed($index)

  $figdir = "xteq"
  $index = "#{$head}xteq"
  $infofile = "xteq.txt"
  $title  = "wave-CISK eqatorial beta plane spmodel: X-T diagram" 
  $width  = "200" ; $height = "150" ; $figtable_num = 4
  jikkou

end

def anim_sed(index)

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

end