%表題 gtool3 利用の手引(ggtool) % %履歴 90/09/24 沼口 敦 % 95/05/31 竹広真一 for dcl-5.0 % \chapter{描画モジュール群} 地球流体電脳ライブラリを用いた, 描画に関するモジュールが用意されている. \section{基本描画モジュール} 描画のためには, 各描画モジュールを 次のような順番で呼ばなくてはならない. \begin{quote} \begin{verbatim} GGOPEN GGLAY1, GGLAY2, GGLAY3 GGAXES, GGAXIS GGCNTR, GGTONE, GGVECT, GGCURV, GGMARK GGCLSE \end{verbatim} \end{quote} 何枚も図を描く場合には, {\tt GGOPEN}と{\tt GGCLSE}は最初と最後に1回づつ呼ぶだけでよい. {\tt GGLAY1} etc. において改ページが行なわれる. {\tt GGCNTR}などで描画した後も設定を記憶しているので, 例えばコンターとベクトルを重ねて表示することは, {\tt GGCNTR}の直後に{\tt GGVECT}を呼ぶことで実現できる. 折れ線を複数本描く場合も同様に{\tt GGCURV}を続けて呼べばよい. 1枚の図にコンターと折れ線を同居させるような場合等, レイアウトを変更したい場合には, {\tt GGLAY1}を書き直したものを作成して {\tt GGLAY1}の代わりに用いればよい. \subsection{GGOPEN [S] グラフィック開始 } \entry{GGOPEN} % GGOPEN.FOR 9: 1990/09/23 (日) 19:15:06 \begin{verbatim} SUBROUTINE GGOPEN I ( IWS ) * INTEGER IWS ! ワークステーションNo. \end{verbatim} \begin{setumei} 描画の初期化を行なう. 全ての他の描画モジュール呼び出しに先だって 1回だけ呼ぶ必要がある. IWSについては, {\rm SGPACK}のマニュアルを参照のこと. \end{setumei} \subsection{GGCLSE [S] グラフィック終了 } \entry{GGCLSE} % GGOPEN.FOR 27: 1990/09/23 (日) 19:15:06 \begin{verbatim} SUBROUTINE GGCLSE \end{verbatim} \begin{setumei} 描画の最終処理を行なう. 全ての他の描画モジュール呼び出しが終った後に 1回だけ呼ぶ必要がある. \end{setumei} \subsection{GGLAY1 [S] レイアウト, 題名表示 } \entry{GGLAY1} % GGLAY1.FOR 9: 1990/09/23 (日) 19:14:34 \begin{verbatim} SUBROUTINE GGLAY1 I ( HHEAD ) * CHARACTER HHEAD ( * )*(*) ! ヘッダー \end{verbatim} \begin{setumei} 枠のレイアウトを行ない, ヘッダーから必要な情報を取ってきて書き出す. まず\モジラ{GGPGET}{GGPSET}の管理するパラメータ VXMIN, VXMAX, VYMIN, VYMAXに従って ビューポートを設定する. 次にビューポートの上に, 上からタイトルTITL1,TITL2とデータセット名DEST, 単位UNITと時刻TIME (\モジラ{GTPGET}{GTPSET}の管理する \パラ{UITM}{'DAY'}の単位に直したもの), 識別名称ITEMと編集略記号のEDITxの並びと ファイル番号FNUMとデータ番号DNUMを連ねたものを記す. 文字の高さは \モジラ{GGPGET}{GGPSET}の管理する \パラ{STITL}{0.02}および \パラ{SEDIT}{0.013}に従う. さらに, ビューポートの右に 上から順に編集タイトルETITLx, データ時刻DATE, 横軸の格子識別名称AITM1, 横軸の格子範囲ASTR1, AEND1, 縦軸の格子識別名称AITM2, 縦軸の格子範囲ASTR2, AEND2, レンジ最小値DMIN, レンジ最大値DMAX, 間隔(小)DIVS, 間隔(大)DIVL, データ変更日付MDATE, データ変更者MSIGNの順に記す. 文字の高さは \モジラ{GGPGET}{GGPSET}の管理する \パラ{SDESC}{0.01}に従う. 他のレイアウト・題名表示サブルーチンとして {\tt GGLAY2},{\tt GGLAY3} が用意されている. サブルーチンの呼び方は {\tt GGLAY1} と同じである. \end{setumei} \subsection{GGAXES [S] 軸のセット X-Y } \entry{GGAXES} % GGAXES.FOR 9: 1990/09/23 (日) 19:13:14 \begin{verbatim} SUBROUTINE GGAXES I ( HHEAD ) * CHARACTER HHEAD ( * )*(*) ! ヘッダー \end{verbatim} \begin{setumei} コンター(GGCNTR), トーン(GGTONE), ベクトル(GGVECT)を描くための 座標を設定し, 座標軸を描く. これに先だって\モジ{GGLAY1} が呼ばれている必要がある. まず格子位置ファイルを読み込み, {\rm USPACK}を利用して ウインドウを設定し, 座標軸を描く. 軸の範囲はヘッダーの記述子ASTR1, ASTR2に準拠し, さらにヘッダーの記述子DMIN, DMAX, DIVS, DIVLを参考にする. これらに欠損値以外が設定されている場合には, DIVSごとに目盛を打ち, DIVLごとにラベルを付ける. しかも軸の全体を用いる場合には, DMINからDMAXまでのウィンドウを設定するようにする. それ以外のときは格子点の位置を用いて, {\rm USPACK}によって適当に決める. 軸に付けるラベルの文字の高さ, および軸に付けるタイトルの文字の高さは \モジラ{GGPGET}{GGPSET}の管理する \パラ{SAXSL}{0.015}および\パラ{SAXST}{0.015}に従う. 軸の向き, および通常の軸か対数軸かは 記述子STYP(\ref{スケーリングタイプ}参照)に従う \end{setumei} \subsection{GGAXIS [S] 軸のセット X or Y 軸のみ } \entry{GGAXIS} % GGAXIS.FOR 9: 1990/09/23 (日) 19:13:28 \begin{verbatim} SUBROUTINE GGAXIS I ( HHEAD , HPOS ) * CHARACTER HHEAD ( * )*(*) ! ヘッダー CHARACTER HPOS *(*) ! セットする軸 ('X' or 'Y') \end{verbatim} \begin{setumei} 折れ線(GGCURV), マーカー(GGMARK)を描くための 座標を設定し, 座標軸を描く. これに先だって\モジ{GGLAY1} が呼ばれている必要がある. HPOS='X'の時は横軸のみ, HPOS='Y'の時は縦軸のみ設定する. もう一つの軸の座標設定は, \モジ{GGCURV}, \モジ{GGMARK}の中で行なわれる. そのほかは\モジ{GGAXES}と同様である. \end{setumei} \subsection{GGAXRR [ES] X or Y 軸のリセット} \entry{GGAXRR} \begin{verbatim} ENTRY GGAXRR I ( HPOS ) CHARACTER HPOS *(*) !" セットする軸 ('X' or 'Y') \end{verbatim} \subsection{GGCNTR [S] コンター描画 } \entry{GGCNTR} % GGCNTR.FOR 9: 1990/09/23 (日) 19:14:05 \begin{verbatim} SUBROUTINE GGCNTR I ( HHEAD, GDATA ) * CHARACTER HHEAD ( * )*(*) ! ヘッダー REAL GDATA ( * ) ! データ \end{verbatim} \begin{setumei} {\rm UPACK}のUDCNTRを用いてコンターを描画する. これに先だって\モジ{GGAXES} が呼ばれている必要がある. コンターレベルを決める際は, ヘッダーの記述子DMIN, DMAX, DIVS, DIVLを参考にする. これらに欠損値以外が設定されている場合には, DMINからDMAXまで, DIVSごとにコンターを引き, DIVLごとにラベルを付ける. それ以外のときは UDCNTRの内部で適当に決める. ただしこの場合, コンターに何本おきにラベルを付けるかの指定 ICYCLEは \モジラ{GGPGET}{GGPSET}の管理する \パラ{ICYCLE}{4}に従う. DIVSごとにコンターを引いた場合に コンターの数が \モジラ{GGPGET}{GGPSET}の管理する \パラ{NCONMAX}{50}本以上になる場合には, \パラ{CONRFCT}{0.5}を参照してコンターレベルを設定し直す. CONRFCT=0.の時は大きな値のコンターを省き, CONRFCT=1.の時は小さな値のコンターを省く CONRFCT=0.5の時は大きな値と小さな値を均等に省く. ただし, 指定したDMINが欠損値でなく, DMAXが欠損値の場合は CONRFCT=0.の場合と同じ扱い, ただし, 指定したDMINが欠損値で, DMAXが欠損値でない場合は CONRFCT=1.の場合と同じ扱いとなる. コンターに付けるラベルの文字の高さ, および図の下部に入れるコンター間隔の注記の文字の高さは \モジラ{GGPGET}{GGPSET}の管理する \パラ{SCONL}{0.01}および \パラ{SREMK}{0.008}に従う. UDPGET/UDPSETの管理する {\rm UDPACK}のパラメータは, ICYCLE, RSIZEL, RSIZETを除いて有効であり, GGCNTRを呼ぶ前にUDPSETで指定できる. \end{setumei} \subsection{GGMAPS [S] 地図描画} \entry{GGMAPS} \begin{verbatim} SUBROUTINE GGMAPS I ( MFILES ) CHARACTER MFILES * (NFILN) !" 地図情報ファイル名 \end{verbatim} \begin{setumei} 電脳ライブラリ {\rm UMPACK} を用いて地図情報を出力する. これに先だって, {\tt GGAXES} により しかるべく地図座標変換が設定されている必要がある. ファイル名 {\ MFILES} には ',' を区切り子として 複数の地図情報ファイルを指定できる. 出力可能な地図ファイルについては電脳ライブラリの マニュアルを参照のこと. \end{setumei} \subsection{GGTONE [S] トーン描画 } \entry{GGTONE} % GGTONE.FOR 9: 1990/09/23 (日) 19:15:53 \begin{verbatim} SUBROUTINE GGTONE I ( HHEAD, GDATA, I TONL , ITON , NTON ) * CHARACTER HHEAD ( * )*(*) ! ヘッダー REAL GDATA ( * ) ! データ REAL TONL ( NTON+1 ) ! トーン境界値 INTEGER ITON ( NTON ) ! トーン番号 * INTEGER NTON ! トーンの数 \end{verbatim} \begin{setumei} {\rm UEPACK}のUETONEを用いてハーフトーンのぬりわけを行なう. これに先だって\モジ{GGAXES} が呼ばれている必要がある. ITON(I)は, 値がTONL(I)とTONL(I+1)の間である領域に ぬる濃淡パターンの番号を示す. 境界のデータレベルは小さい順(TONL(I)