#
# sgpk02.rb
#
# $Id: sgpk02.rb,v 1.1 2000/11/21 03:02:07 keiko Exp $
#

require "narray"
require "numru/dcl"

include NumRu
include Math


#-- graph ---
iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
DCL::sgopn iws

#----------------------------- page 1 ---------------------------------
DCL::sgfrm
DCL::sgslni(3)

#     xmin, xmax, ymin, ymax
DCL::sgswnd(0.0,  1.0,  0.0,  1.0)     #  <--+
DCL::sgsvpt(0.0,  1.0,  0.0,  1.0)     #     | 変換関数の設定
DCL::sgstrn(1)                         #     |
DCL::sgstrf                            #  <--+

DCL::slpvpr(1)                         #  <--- 枠を描く

DCL::sglnzu( 0.2,  0.8,  0.8,  0.2, 2) #  <--- x印を描く
DCL::sglnu ( 0.2,  0.2,  0.8,  0.8)    #  <-|

#----------------------------- page 2 ---------------------------------
DCL::sgfrm

#     xmin, xmax, ymin, ymax
DCL::sgswnd(0.0,  1.0,  0.0,  1.0)     #  <-- 正立
DCL::sgsvpt(0.1,  0.4,  0.6,  0.9)     #  <-- 左上
DCL::sgstrf

DCL::slpvpr(1)

DCL::sglnzu(0.2, 0.8, 0.8, 0.2, 2)
DCL::sglnu(0.2, 0.2, 0.8, 0.8)

#   ------------------------------------------
#     xmin, xmax, ymin, ymax
DCL::sgswnd(0.0,  1.0,  1.0,  0.0)     #  <-- 上下逆
DCL::sgsvpt(0.6,  0.9,  0.6,  0.9)     #  <-- 右上
DCL::sgstrf

DCL::slpvpr(1)

DCL::sglnzu(0.2, 0.8, 0.8, 0.2, 2)
DCL::sglnu(0.2, 0.2, 0.8, 0.8)

#   ------------------------------------------
#     xmin, xmax, ymin, ymax
DCL::sgswnd(0.0,  1.0,  0.0,  0.6)     #  <-- 小さなウインド
DCL::sgsvpt(0.1,  0.4,  0.1,  0.4)     #  <-- 左下
DCL::sgstrf
DCL::slpvpr(1)

DCL::sglnzu(0.2, 0.8, 0.8, 0.2, 2)
DCL::sglnu(0.2, 0.2, 0.8, 0.8)

#   ------------------------------------------
#     xmin, xmax, ymin, ymax
DCL::sgswnd(0.0,  1.0,  0.0,  0.6)     #  <-- 小さなウインド
DCL::sgsvpt(0.6,  0.9,  0.1,  0.4)     #  <-- 右下
DCL::sgstrf
DCL::slpvpr(1)

DCL::sglset('LCLIP', true)             #  <-- クリッピングの指定
DCL::sglnzu(0.2, 0.8, 0.8, 0.2, 2)
DCL::sglnu(0.2, 0.2, 0.8, 0.8)

DCL::sgcls