#!/usr/bin/env ruby

require "numru/ggraph"
include NumRu

file = "sp-bg.nc"
var = "sd"
xvar = "k"
yvar = "freq"
ymin = 0
ymax = 0.8
xmin = -15
xmax = 15
xintval = 1
yintval = 1
gphys =  GPhys::IO.open_gturl("#{file}@#{var},#{yvar}=#{ymin}:#{ymax}:#{yintval},#{xvar}=#{xmin}:#{xmax}:#{xintval}")
interval = nil
rangemin = nil
rangemax = nil
wsn = 4

DCL.swcset('fname', $0.split(".")[0])
DCL.swpset('ldump', true)
DCL.swpset('lwait', false)
DCL.swpset('lwait1', false)
DCL.swpset('lalt', true)
DCL.swiset('iwidth', 600)
DCL.swiset('iheight', 600)
DCL.uzfact(1.0)
#DCL.sgscmn(5)                # set colormap
DCL.gropn(wsn)
#DCL.sldiv('y',3,2)           # 2x2に画面分割, 'y'=yoko: 左上→右上→左下...
DCL.sgpset('lcntl', true)   # 制御文字を解釈する
DCL.sgpset('lfull',true)     # 全画面表示
DCL.sgpset('lfprop',true)    # プロポーショナルフォントを使う
#DCL.udpset('lmsg',false)     # コンター間隔非表示

vp = [0.2,0.8,0.2,0.8] # [vxmin, vxmax, vymin, vymax]

GGraph.set_fig('viewport'=>vp)

GGraph.set_linear_tone_options( 'int' => interval,
	'min'=>rangemin, 'max'=>rangemax )

GGraph.set_axes('xtitle'=> 'k', 
                'ytitle'=> 'frequency')

GGraph.tone( gphys.log, true, 'title'=>"" )
#GGraph.contour( gphys, false, )

GGraph::color_bar('left'=>true, 'landscape'=>true )
DCL.sgstxi("013") #ラインインデクス設定
DCL.sgstxs(0.02) #高さ設定
sigma = File.basename(Dir.pwd).split('=').last
DCL.sgtxu(10,0.85,"sigma=#{sigma}") #座標と文字列を与えて描画

DCL.grcls