まず最初のプログラム KIHON1 を見て下さい.
PROGRAM KIHON1 PARAMETER( NMAX=50 ) REAL X(0:NMAX), Y1(0:NMAX), Y2(0:NMAX), Y3(0:NMAX) DO 10 N=0,NMAX X (N) = REAL(N)/REAL(NMAX) Y1(N) = X(N)**3 Y2(N) = X(N)**2 Y3(N) = SQRT(X(N)) 10 CONTINUE WRITE(*,*) ' WORKSTATION ID (I) ? ;' CALL SGPWSN READ (*,*) IWS CALL SGOPN( IWS ) CALL SGFRM CALL SLPVPR( 1 ) CALL SGPLV( NMAX+1, X, Y1 ) CALL SGPMV( NMAX+1, X, Y2 ) CALL SGTXV( 0.5, 0.5, 'SGTXV' ) CALL SGLSET( 'LSOFTF', .TRUE. ) CALL SGTNV( NMAX+1, X, Y3 ) CALL SGCLS ENDPROGRAM KIHON1
図形を描くためには, まずディスプレイやプリンタなど図形出力装置(デバイ
ス)の準備をします. この準備をする時の操作を「オープン」といい, SGOPN というサブルーチンを呼びます. ここで, 引数 IWS はワークス
テーション番号で, 各デバイスに割り当てられた番号です. IWS>0 の
ときは画面を横長に使い, IWS<0 のときは画面を縦長に使って図形出
力は 90度回転して表示します. 14行めのサブルーチン SGPWSN を呼ぶ
と, それぞれの環境で利用可能なワークステーション名のリストが書き出され
ます.
第2章では GROPN だったのが, SGOPN になっていま
す. 以下の SGFRM や SGCLS なども同様ですが, SGxxx が
GRPH1 のコントロールルーチンであるのに対して, GRxxx はそれぞれに
対応する GRPH2 のコントロールルーチンなのです. GRxxx ではいくつ
かの初期化処理も同時に行なっているので, 第2章のように
GRPH2 のルーチン(例えば, QUICK1 では USGRPH) を使う場合に
は, こちらを使います. 一方, この章では GRPH1 で閉じたルーチン群で説明
をするので, SGxxx を用いています.
つぎに, SGFRM で新しい作画領域を設定します. DCLではいくつかの座
標系と座標変換が用意されていて, それぞれの座標系で作図ができます. しか
し, それらの説明は次章にまわすことにして, ここでは[0,1]×[0,1]
の仮想直角座標系(これからV-座標系と略記します)だけを陽に考えま
しょう. SGFRM を呼ぶことにより, 各デバイスの作画できる領域に最大
内接するようにこの仮想直角座標系が設定され, この範囲がとりあえず「ビュー
ポート」となります. SLPVPR ルーチンでこのビューポートの枠を描い
ています.
図形を構成する基本要素を出力プリミティブといいます. GRPH1 の出力プリミ
ティブには, ポリライン(折れ線), ポリマーカー(マーカー列), テキスト(文
字列), およびトーン(多角形のぬりつぶし)の4つがあり, 補助的に, アロー
(矢印)とライン(線分)のサブプリミティブがあります. 結果の図を参照すれば
明らかですが, SGPLV ルーチンで3次関数の折れ線が実線で描かれ,
SGPMV ルーチンでは2次関数が・のマーカー列として描かれます. また,
SGTXV ルーチンで文字列 'SGTXV' がビューポートの真ん中に描
かれます. さらに, SGTNV ルーチンでは,
と y=x で囲
まれた領域が点々でぬりつぶされます. とりあえず, 24行めのサブルーチンコー
ルはこのトーンの「おまじない」と思って下さい. これらのプリミティブには
それぞれいくつかの属性があり, それらを陽に指定することにより, 多種多様
な作図が可能となります.
そして, 最後に描画を終了する時の操作を「クローズ」といい, SGCLS
ルーチンを呼びます. すべての図形は, デバイスをオープンしてからクローズ
するまでの間に描かれることになります.
デバイスに出力される図形が複数「ページ」にわたることがありますが, DCL では, ページという言葉の代わりに「フレーム」という言葉を使います. これ は, デバイスによってはページという概念のないもの(例えば, 巻物のような 長い紙に出力するようなデバイス) があったり, 後述のように物理的な1ペー ジの中に複数のフレームを設定することもあるからです.
Copyright (C) 2000 GFD Dennou Club. All rights reserved.