#! /usr/bin/ruby
# -*- coding: euc-jp -*-

# script_draw スクリプトの後処理
# == 説明
# * script_draw で作成した ps ファイルを分割し png に変換する.
#
# == オプション
# --prefix     生成する画像ファイルに付ける接頭詞
#
# == USAGE
#   % separate_ps.rb --prefix=EXPNAME_
#
# == 履歴
# * 2014-09-18 石渡正樹 作成

require "getoptlong"        # for option_parse

## オプション解析
parser = GetoptLong.new
parser.set_options(
                   ###    global option   ###
                   ['--prefix',                      GetoptLong::REQUIRED_ARGUMENT]
                   )
parser.each_option do |name, arg|
    eval "$OPT_#{name.sub(/^--/, '').gsub(/-/, '_')} = '#{arg}'"  # strage option value to $OPT_val
end

system("dclpsseparate none_time.ps")
system("mv dcl_001.ps OSR_time.ps")
system("mv dcl_002.ps OLR_time.ps")
system("mv dcl_003.ps SSR_time.ps")
system("mv dcl_004.ps SLR_time.ps")
system("mv dcl_005.ps Evap_time.ps")
system("mv dcl_006.ps Sens_time.ps")
system("mv dcl_007.ps Rain_time.ps")
system("mv dcl_008.ps SurfTemp_time.ps")
system("mv dcl_009.ps Temp_time.ps")
system("mv dcl_010.ps PrecipWater_time.ps")
system("mv dcl_011.ps Ps_time.ps")
system("rm none_time.ps")


system("dclpsseparate none_merid.ps")
system("mv dcl_001.ps Temp_merid.ps")
system("mv dcl_002.ps U_merid.ps")
system("mv dcl_003.ps V_merid.ps")
system("mv dcl_004.ps SigDot_merid.ps")
system("mv dcl_005.ps RelHumid_merid.ps")
system("mv dcl_006.ps QVap_merid.ps")
system("mv dcl_007.ps MSF_merid.ps")
system("rm none_merid.ps")


system("dclpsseparate none_lat.ps")
system("mv dcl_001.ps OSR_lat.ps")
system("mv dcl_002.ps OLR_lat.ps")
system("mv dcl_003.ps Evap_lat.ps")
system("mv dcl_004.ps Sens_lat.ps")
system("mv dcl_005.ps SSR_lat.ps")
system("mv dcl_006.ps SLR_lat.ps")
system("mv dcl_007.ps Rain_lat.ps")
system("mv dcl_008.ps SurfTemp_lat.ps")
system("mv dcl_009.ps Temp_lat.ps")
system("mv dcl_010.ps Ps_lat.ps")
system("mv dcl_011.ps PrecipWater_lat.ps")
system("rm none_lat.ps")


files = Dir.glob(["./*_lat.ps", "./*_time.ps", "./*_merid.ps"])

for filename in files
  unless filename.include?($OPT_prefix) then
    basename = File.basename(filename,".ps")
    rotated_filename =  $OPT_prefix + basename + ".ps"
    png_filename = $OPT_prefix + basename + ".png"
    system("dclpsrot #{filename} > #{rotated_filename} && convert #{rotated_filename} #{png_filename}")
  end
end