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


  $index = "fqradl-composite"
  $figdir = "composite"
  $title  = "fqradl 実験 コンポジット解析"
  jikkou



}


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

def jikkou

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

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

# 拡張子
$base = ".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  = "mradl 実験 時間平均"


# サムネイルタイトル
$header1 = $title 
$header2 = "長波放射加熱率固定実験シリーズ (fqradl)<hr> 
<p>composite 
[<a href =\"fqradl-composite.html\">fqradl-composite</a>] 
</p>
<br>
<table BORDER=\"0\" width=\"80%\" align=\"center\"><tr align=\"left\"><td>
<small>
降水量のピークに準拠したコンポジット図. 
降水量のピークの選び方は, 
<ul>
<li> 各実験の [赤道経度-時間] 降水量データを用いる. 
<li> 3000 [W/m**s] 以上の値を持つ (経度, 時間) を抽出. 
<li> 抽出した経度の周囲 [-3〜3] grid で最大降水量を持つ点を選ぶ.  
</ul>
である. 各量のデータについて, 
選んだ点が経度180度にくるように東西に平行移動して重ねあわせ, 
その平均をとる. 
</small></td></tr></table>
<hr>
adj<br>
[<a href =\"adj-fqradl-tmean.html\">adj-fqradl-tmean</a>] 
[<a href =\"adj-fqradl-xteq.html\">adj-fqradl-xteq</a>] 
[<a href =\"adj-fqradl-spct.html\">adj-fqradl-spct</a>]<br>
<hr> 
kuo<br>
[<a href =\"kuo-fqradl-tmean.html\">kuo-fqradl-tmean</a>] 
[<a href =\"kuo-fqradl-xteq.html\">kuo-fqradl-xteq</a>] 
[<a href =\"kuo-fqradl-spct.html\">kuo-fqradl-spct</a>]<br>
<hr>
ncum<br>
[<a href =\"ncum-fqradl-tmean.html\">ncum-fqradl-tmean</a>] 
[<a href =\"ncum-fqradl-xteq.html\">ncum-fqradl-xteq</a>] 
[<a href =\"ncum-fqradl-spct.html\">ncum-fqradl-spct</a>]<br>
<hr>
実験設定については, <a href=\"fqradl-study.html\">fqradl-study.html<\/a> 参照
"

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


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

end


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

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