3.1 仮想直角座標系(V-座標系)での基本描画

まず最初のプログラム 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

      END

PROGRAM 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=\sqrt{x}$ と y=x で囲まれた領域が点々でぬりつぶされます. とりあえず, 24行めのサブルーチンコールはこのトーンの「おまじない」と思って下さい. これらのプリミティブにはそれぞれいくつかの属性があり, それらを陽に指定することにより, 多種多様な作図が可能となります.

そして, 最後に描画を終了する時の操作を「クローズ」といい, SGCLS ルーチンを呼びます. すべての図形は, デバイスをオープンしてからクローズするまでの間に描かれることになります.

$\resizebox{10cm}{!}{\includegraphics{kihon1/kihon1.eps}}$
kihon1.f: frame1

デバイスに出力される図形が複数「ページ」にわたることがありますが, DCL では, ページという言葉の代わりに「フレーム」という言葉を使います. これは, デバイスによってはページという概念のないもの(例えば, 巻物のような長い紙に出力するようなデバイス) があったり, 後述のように物理的な1ページの中に複数のフレームを設定することもあるからです.