WANtaro雑記帳（Win_GMT：２次元グラフの枠を描く）

rem ***************************************************************************
rem * ２次元グラフの枠を描く                                                  *
rem ***************************************************************************
del .*

rem ***************************************************************************
rem * 普通軸                                                                  *
rem ***************************************************************************
psbasemap -R0/100/-10/10 -JX8/4 -Ba20f10/a4f2 -P > fig_wg_01.eps
rem ***************************************************************************
rem * psbasemap      枠を描くコマンド                                         *
rem * -R0/100/-10/10 x軸を0から100，y軸を-10から10の範囲に設定                *
rem * -JX8/4         x軸の長さを8cm，y軸の長さを4cmに設定                     *
rem * -Ba20f10/a4f2  x軸について，(a)数値を描くピッチを20に，                 *
rem *                             (f)目盛を描くピッチを10に設定．             *
rem *                y軸について，(a)数値を描くピッチを4に，                  *
rem *                             (f)目盛を描くピッチを2に設定．              *
rem * -P             図を作成する用紙を縦長に設定．                           *
rem *                これがないとeps->pngなどの時にpngが90度回転して          *
rem *                作成されます．                                           *
rem * fig_test01.eps 出力ファイル名(eps形式)                                  *
rem ***************************************************************************



gmtset TICK_LENGTH -0.2c
psbasemap -R0/100/-10/10 -JX8/4 -Ba20f5/a4f2WSne -P> fig_wg_02.eps
rem ***************************************************************************
rem * gmtset TICK_LENGTH -0.2c 座標軸に描く目盛の長さ．defaultは外向き0.2cm． *
rem *                          マイナスにすると枠の内側に目盛り線を描画する． *
rem * WSne 軸線を描く箇所を西南北東に設定．                                   *
rem *      大文字で指定されたWS(西：左縦軸，南：下横軸)に目盛数値を記載する． *
rem *      上の例で判るように，defaultでは西南北東全てに軸線と目盛数値を      *
rem *      描画する．                                                         *
rem ***************************************************************************



gmtset TICK_LENGTH 0c
psbasemap -R0/100/-10/10 -JX8/4 -Ba20g10/a4g2WS -P > fig_wg_03.eps
rem ***************************************************************************
rem * gmtset TICK_LENGTH 0c 座標軸に描く目盛の長さを0に設定．                 *
rem *                       グリッドを描くため目盛り線は不要．                *
rem * -Ba20g10/a4g2 x軸について，(g)10ピッチでグリッドを描き，                *
rem *                            (a)20ピッチで目盛数値を描画．                *
rem *               y軸について，(g)2ピッチでグリッドを描き，                 *
rem *                            (a)4ピッチで目盛数値を描画．                 *
rem * WS            軸線と目盛数値を(W)西と(S)南に描画．                      *
rem *               北と東の軸線はグリッドのみで太線は入らない．              *
rem ***************************************************************************



gmtset TICK_LENGTH 0c
psbasemap -R0/100/-10/10 -JX8/4 -Ba20g10/a4g2WSne -P > fig_wg_04.eps
rem ***************************************************************************
rem * WSne 軸線と目盛数値を(W)西と(S)南に描画．                               *
rem *      (n)北と(e)東に太い軸線を入れる．                                   *
rem *      (ne)は小文字指定のため目盛数値は入らない．                         *
rem ***************************************************************************



rem ***************************************************************************
rem * 片対数(x軸を対数表示)                                                   *
rem ***************************************************************************
gmtset TICK_LENGTH 0c
psbasemap -R0.01/100/-10/10 -JX8l/4 -Ba1g1/a4g2WSne -P > fig_wg_05.eps
rem ***************************************************************************
rem * -JX8l/4     x軸長さを8cmとし(l：小文字のエル)対数軸とする．              *
rem *             y軸は長さ4cmの普通軸．                                       *
rem * -Ba1g1/a4g2 x軸について(a1g1)に対応するグリッドと数値目盛を描画．        *
rem *             y軸については前出の普通軸の表示と同じ．                      *
rem ***************************************************************************



gmtset TICK_LENGTH 0c
psbasemap -R0.01/100/-10/10 -JX8l/4 -Ba1g3/a4g2WSne -P > fig_wg_06.eps
rem ***************************************************************************
rem * -Ba1g3/a4g2 x軸について(a1g3)に対応するグリッドと数値目盛を描画．       *
rem *             y軸については前出の普通軸の表示と同じ．                     *
rem ***************************************************************************



gmtset TICK_LENGTH 0c
psbasemap -R0.01/100/-10/10 -JX8l/4 -Ba1g3p/a4g2WSne -P > fig_wg_07.eps
rem ***************************************************************************
rem * -Ba1g3p/a4g2 x軸について(a1g3)に対応するグリッドと数値目盛を描画．      *
rem *              (p)の追加により10のべき乗表示とする．                      *
rem *              y軸については前出の普通軸の表示と同じ．                    *
rem ***************************************************************************



gmtset ANOT_FONT_SIZE 12
gmtset LABEL_FONT_SIZE 8
gmtset TICK_LENGTH 0c
rem
psbasemap -R0.01/100/-10/10 -JX8l/4 -Bg3a1:"Name of x-axis":/g2a4:"Name of y-axis":WSen -U -P > fig_wg_08.eps
rem ***************************************************************************
rem * gmtset ANOT_FONT_SIZE 12  座標軸目盛のフォントサイズ．defaultは14pt．   *
rem * gmtset LABEL_FONT_SIZE 8  座標軸ラベルのフォントサイズ．defaultは24pt． *
rem * -Bg3a1:"Name of x-axis":/g2a4:"Name of y-axis":WSen                     *
rem *     x軸表示指定(g3a1)に続き(:)で区切ってx軸ラベルを記載．               *
rem *     (/)の次のy軸表示指定(g2a4)に続き(:)で区切ってy軸ラベルを記載．      *
rem *     y軸ラベルの次に(:)で区切って座標軸表示方法(WSen)を記載．            *
rem * -U 左下にタイムスタンプを表示(実行時の日付けと時間)                     *
rem ***************************************************************************



set range=0.01/100/-10/10
set scale=8l/4
set xga=g3a1
set yga=g2a4
set xlabel="Name of x-axis"
set ylabel="Name of y-axis"
set fig_out=fig_wg_09.eps
rem
gmtset ANOT_FONT_SIZE 10
gmtset ANOT_OFFSET 0.2c
gmtset LABEL_FONT_SIZE 8
gmtset LABEL_OFFSET 0.1c
gmtset TICK_LENGTH 0c
rem
psbasemap -R%range% -JX%scale% -B%xga%:%xlabel%:/%yga%:%ylabel%:WSen -P -U%fig_out% > %fig_out%
rem
set range=
set scale=
set xga=
set yga=
set xlabel=
set ylabel=
set fig_out=
rem ***************************************************************************
rem * 各種指定をWindowsコマンドプロンプトの変数を用いて記載した               *
rem * バッチコマンドの例．                                                    *
rem * gmtset ANOT_OFFSET 0.2c  座標軸目盛と目盛数値の間の距離．               *
rem *                          defaultは0.2cm                                 *
rem * gmtset LABEL_OFFSET 0.1c 軸目盛の下端から軸ラベルの上端までの間隔．     *
rem *                          defaultは0.3cm                                 *
rem * -U%fig_out% タイムスタンプと出力ファイル名をを表示                      *
rem ***************************************************************************

del .*