マーカー列の図形出力(polymarker primitive)に関するサブルーチン群.
GLpGET/GLpSETが管理する内部変数'LMISS'を.TRUE.にすると 欠損値処理をおこなう. つまり欠損値の点にはマーカーを打たない.
また,内部変数'NPMSKIP'([here]節参照)を 変更することによって何点かに1個の割合で マーカーを描くこともできる.
U/V座標系でマーカー列を描く.属性も同時に指定する.
CALL SCPMZU(N,UPX,UPY,UPZ,ITYPE,INDEX,RSIZE)
CALL SCPMZV(N,VPX,VPY,VPZ,ITYPE,INDEX,RSIZE)
N (I) 配列UPX, UPY, UPZの長さ.
UPX, UPY, (R) 長さNの配列.
UPZ マーカーを打つ点のU座標系における(X, Y, Z)
座標の値を与える.
VPX, VPY, (R) 長さNの配列.
VPZ マーカーを打つ点のV座標系における(X, Y, Z)
座標の値を与える.
ITYPE (I) マーカータイプ.SCSPMT参照.
INDEX (I) マーカーのラインインデクス. SCSPMI参照.
RSIZE (R) マーカーのサイズ.SCSPMS参照.
U/V座標系でマーカー列を描く.
CALL SCPMU(N,UPX,UPY,UPZ)
CALL SCPMV(N,VPX,VPY,VPZ)
N (I) 配列UPX, UPY, UPZ の長さ.
UPX, UPY, (R) 長さNの配列.
UPZ マーカーを打つ点のU座標系における(X, Y, Z)
座標の値を与える.
VPX, VPY, (R) 長さNの配列.
VPZ マーカーを打つ点のV座標系における(X, Y, Z)
座標の値を与える.
SCPMU, SCPMV で描くマーカータイプを設定する.
CALL SCSPMT(ITYPE)
ITYPE (I) マーカータイプ(初期値は1)
. ITYPEが1のとき'', 2のとき'+', 3のとき'',
4のとき''のように, DCL文字番号(
[here] 節および[here] ,[here]
節の フォントテーブル参照)に対応する文字を描く.
たとえばITYPE = 152のとき,'α 'を描く.
CALL SCQPMT(ITYPE)によって参照できる.
SCPMU, SCPMV で描くマーカーの ラインインデクスを設定する.
CALL SCSPMI(INDEX)
INDEX (I) マーカーを描く線のラインインデクス (
[here] 節参照;初期値は1).
CALL SCQPMI(INDEX)によって参照できる.
SCPMU, SCPMV で描くマーカーの大きさを設定する.
CALL SCSPMS(RSIZE)
RSIZE (R) マーカーの大きさをR-座標系における
単位で指定する(初期値は0.01).
CALL SCQPMS(RSIZE)によって参照できる.
NUMAGUTI Atusi <a1n@gfdl.gov> Last Modified: Thu Aug 31 13:05:13 EDT 1995