戻る|進む

DCL:GRPH２:UEPACK : トーン塗りつぶしルーチン:メソッド(元サブルーチン)の説明

9.2.8 uepget/uepset(uepstx)

1.

機能

UEPACKメソッド(元サブルーチン)パッケージで使用する内部変数を参照/変更する. (uepstxは実行時オプションによる変更を許す. )

2.

呼び出し方法

lpara = NumRu::DCL.uepget(cp)
NumRu::DCL.uepset(cp,lpara)
NumRu::DCL.uepstx(cp,lpara)

3.

パラメーターの説明

　

cp	(C*8)	内部変数の名前.
ipara	(I,R,L)	内部変数の値.

以下にcpとして指定できる名前のリストを記す.

'LTONE'	(L)	ぬりわけるトーンレベルをユーザーが指定しなかったとき,uegtlbを使ってトーンレベルとトーンパターンを生成するかどうかを指定する..true.ならuegtlbをつかう;.false.なら'RLEV'(下記)以下をぬるような設定をする(初期値は.false.).
'RLEV'	(R)	'LTONE'が.false.のとき, ぬりわける領域の境界値(初期値は0.0).ここで指定した値以下の領域をぬる.
'IPAT'	(I)	'LTONE'が.false.のとき, 内部変数'RLEV'以下の領域をぬるトーンパターン(初期値は1201:右上がりの斜線).
'ICOLOR1'	(I)	'LTONE'が.true.のとき用いる色番号の下限値(初期値は15).
'ICOLOR2'	(I)	'LTONE'が.true.のとき用いる色番号の上限値(初期値は94).
'ITPAT'	(I)	'LTONE'が.true.のとき用いるパターン番号(初期値は999, べた塗り).

4.

備考

(a)

内部変数を管理するための下請けルーチンとして 以下のものがある.

ncp = NumRu::DCL.uepqnp()	内部変数の総数 ncpを求める.
idx = NumRu::DCL.uepqid(cp)	内部変数 cpの位置 idxを求める.
cp = NumRu::DCL.uepqcp(idx)	idxの位置にある内部変数の名前 cpを参照する.
ipara = NumRu::DCL.uepqvl(idx)	idxの位置にある内部変数の値 iparaを参照する.
NumRu::DCL.uepsvl(idx,ipara)	idxの位置にある内部変数の値 iparaを変更する.

(b)

UEpGETは上に述べたUEPQIDを呼んで 内部変数の位置を求め, uepqvlによって値を参照する; uepsetはuepqidを呼んで内部変数の位置を求め, uepsvlによって値を設定する. したがって指定した内部変数名が見つからないとき, エラーメッセージはuepqidが出力する.

(c)

上記内部変数のほかに, udgcla, udgclbとアルゴリズムの同一性を保つために, UDPACK で用いられる内部変数'NLEV', 'ICYCLE'と同じものが, UEPACK でも用意されている. UDPACK でこれらの値を変えたときは, UEPACK でも変更してやらなければならない.

(d)

ITYPEとしては適切な型の定数または変数を指定すること.