UEPACK : トーン塗りつぶしルーチン

概要

UEPACK は2次元等値線図のぬりわけをおこなうサブルーチンパッケージである. ぬりわけはU座標系でおこなわれるので, すべての正規化変換に対応している.

このパッケージにおいて,等値線図のぬりわけは 「GRPH1」のトーンプリミティブを用いておこなわれている (「GRPH1」のマニュアル参照). なおこのパッケージでは,ぬりわけをおこなうだけで 等値線そのものや座標軸の外枠などは描かない.

UEPACK において ユーザーが使用するサブルーチンとしては以下のようなものがある.

格子点座標に関する情報はUWPACK(第[here]節参照)が管理している.

2次元データをとにかくぬりわけたい(quick look)というときには, 単にUETONEを呼ぶだけでよい. このときは,現在設定されているウインドウいっぱいに 等間隔の格子点を設定し,負の領域に斜線のハッチをつける.

ぬりわけるレベル値の設定を UDPACK と同様にしておこないたいときは, UEpGET/UEpSETの管理する内部変数 'LTONE'.TRUE. として UETONE を呼べば,UDPACK が自動的に生成するきざみ値で (厳密には UDPACK と同じアルゴリズムにもとづいてレベル値を設定し)ぬりわける. さらに, UDGCLA に対応して UEGTLA, UDGCLB に対応して UEGTLB を呼べば コンターレベルとぬりわけるレベルの値が同一に設定される.

もしも格子点が不等間隔の場合は, UETONEを呼ぶ前にUWSGXA (X方向)/ UWSGYA (Y方向)を呼んで 格子点の座標値をあらかじめ指定すればよい. あるいはウインドウのある一部分に等間隔の格子点を設定したい場合は, UWSGXB (X方向)/ UWSGYB (Y方向)をもちい 最小値と最大値を指定して格子点を設定すればよい.

上に述べたように,ぬりわけるレベルをあらかじめ指定したいときは, UETONEを呼ぶ前にUEGTLAまたはUEGTLBを呼べばよい. ただしこの場合は,等間隔のトーンレベルしか生成されない. もしも,不等間隔のトーンレベルとパターンを指定したい場合や, 特定のトーンレベルとパターンを追加したい場合は, UESTLVまたはUESTLNを呼べばよい. (すべてのレベルを無効にするにはUEITLVを呼べばよい.) なお,ぬりわけは指定したレベルの順におこなう. ぬりわけるトーンパターンについては,「GRPH1」SGPACKの付録を参照の こと.

このパッケージが用いている「GRPH1」のトーンプリミティブは 出力装置の能力に応じてhard fillとsoft fillを切替えることができる. SGpGET/SGpSETが管理する 内部変数'LSOFTF'(「GRPH1」のマニュアル参照)が .TRUE.のときはsoft fillをおこなう; .FALSE.のときはhard fillをおこなう (初期値は.TRUE.). ただし,hard fillを指定してもその能力がない場合は soft fillとなる. なおsoft fillはフィルエリアサブプリミティブ (「GRPH1」フィルエリアサブプリミティブの節参照)の 下位ルーチンを用いている.

また,色を用いたべた塗り(下位3桁が999であるようなトーンパターン番号) による塗りわけをおこなうとき,色番号をドットなどのパターン番号として 読みかえることができる. SGpGET/SGpSETの管理する内部変数'LCL2TN' (GRPH1/SGPACK参照)が.TRUE.のときは読みかえる; .FALSE.のときは読みかえない (初期値は.FALSE.). ただし,色を用いた塗りわけができないような装置では, 'LCL2TN'.FALSE.と設定されていても, パターン番号による読みかえをおこなおうとする.

すでに描かれた図形の上にsoft fillをおこなっても,トーンパターンが上書き されるだけで,それまでに描かれた図形が(べた塗りをしない限り)消えてしま うことはない. しかしながら,出力装置によってはhard fillによるぬりわけによって 先に描かれた図形が消えてしまうことがあるので, 座標軸や等高線図と一緒にUEPACKを用いるときは 描く順番に注意すること.

内部的には,UEBLK1, UEBLK2という名前の 共通ブロックを使用している. ユーザーは同じ名前の外部手続き名・共通ブ ロック名を用いてはならない.


Back to Main


Latex Source


地球流体電脳倶楽部 : 95/6/9 (Version 5.0)

NUMAGUTI Atusi <a1n@gfdl.gov>
Last Modified: Thu Aug 31 13:08:24 EDT 1995