サブルーチンUETONE 1 つを呼ぶだけで, とりあえず負の領域にトーンをはることができる.
UETONE
u2df04.f:page1
この例は, u2df01.fにUETONEの1行を付け加えただけのものであるが, これによって, 現在設定されているウインドウいっぱいに 等間隔の格子点を設定し, 負の領域に斜線のハッチをつけることができる.
Source:udegpk/u2df04.f