長年にわたるデータを解析した人なら, 日付軸をつけることの面倒くささは十分ご承知でしょう.
DclDrawAxisCalendarを用いると, 閏年まで考慮した完璧な日付軸を容
易に作画することができます.
まず, 作画しようとする座標軸については, 日数を単位として正規化変換を設
定する必要があります. また, 座標軸の作画は, ユーザー座標系において0に相当す
る位置からおこなわれるので, 下の例の場合のように1996年1月1日から3月
31日まで91日分をビューポートいっぱいに割り当てたいときには, ウインドウ
の両端値を UXMIN が 0.0, UXMAX が days(= 90)と指定します.
日付に関する座標軸は, サブルーチン DclDrawAxisCalendar で簡単に描くことができます. 最初の引数では, これまで通り, 座標軸を描く場所を指定します. 2番めの引数は起日, つまり座標軸を描きはじめる最初の日です. これはdcl_date型の構造体を与えます. 構造体の中身はyear, month, dayの3つの整数であり, 下の例のようにしてあらかじめ指定します. さらにndオプションに, 何日間分を描くかを指定します.
program calendar use dcl integer,parameter :: days=90 type(dcl_date) :: date date%year = 1991 date%month = 4 date%day = 1 call DclOpenGraphics() call DclNewFrame call DclSetWindow( 0.0, real(days), -1.0, +1.0 ) call DclSetViewPort( 0.2, 0.8, 0.2, 0.8 ) call DclSetTransFunction call DclDrawAxisCalendar( 'bt', date, nd=days ) call DclDrawAxis( 'l', 0.25, 0.05 ) call DclDrawAxis( 'r', 0.25, 0.05 ) call DclDrawTitle( 'l', 'Correlation', 0.0 ) call DclDrawTitle( 't', 'Calendar', 0.0, 2 ) call DclCloseGraphics end program |
|
DclDrawAxisCalendar (UCXACL,UCYCL, UCXADY,UCYADY, UCXANM,UCYANM, UCXAYR,UCYAYR) |
日付座標軸を描く. |