ruby-dcl 1.6.2

data/demo/grph1/sgpack/sgksx2.rb

@@ -0,0 +1,90 @@
+#
+# sgksx2.rb
+#
+# $Id: sgksx2.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+#-- data ---
+ux = NArray[2.0, 4.0, 5.0, 7.0, 8.0]
+uy = NArray[4.0, 5.0, 4.0, 5.0, 4.0]
+vx = NArray[0.2, 0.4, 0.5, 0.7, 0.8]
+vy = NArray[0.5, 0.6, 0.5, 0.6, 0.5]
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC.
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC.
+#     TRANSFORMATION FUNCTION : LINEAR*LINEAR
+#     NO-CLIPPING, FONT NO.=1
+DCL::sgfrm
+DCL::sgiset('IFONT', 1)
+DCL::sgswnd(0.0, 10.0, 0.0, 10.0)
+DCL::sgsvpt(0.0, 1.0, 0.0, 1.0)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sglnzu(0.1, 0.1, 9.9, 0.1, 1)
+DCL::sglnzu(9.9, 0.1, 9.9, 9.9, 1)
+DCL::sglnzu(9.9, 9.9, 0.1, 9.9, 1)
+DCL::sglnzu(0.1, 9.9, 0.1, 0.1, 1)
+
+DCL::sgplzu(ux, uy, 2, 3)
+DCL::sgpmzu(ux, uy, 5, 3, 0.04)
+vx1, vy1 = DCL::stftrf(ux[0], uy[0])
+vx2, vy2 = DCL::stftrf(ux[3], uy[3])
+DCL::sglnzv(vx1, vy1, vx2, vy2, 2)
+DCL::sgtxzu(5.0, 8.5, 'TESTU', 0.1, 0, 0, 3)
+
+DCL::sgswnd(2.5, 7.5, 2.5, 7.5)
+DCL::sgsvpt(0.25, 0.75, 0.25, 0.75)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgplzv(vx, vy, 3, 1)
+DCL::sgpmzv(vx, vy, 4, 1, 0.02)
+DCL::sgtxzv(0.5, 0.75, 'TESTV', 0.1, 0, 0, 3)
+
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC.
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC.
+#     TRANSFORMATION FUNCTION : LINEAR*LINEAR
+#     CLIPPING, FONT NO.=2
+DCL::sgfrm
+DCL::sgiset('IFONT', 2)
+DCL::sgswnd(0.0, 10.0, 0.0, 10.0)
+DCL::sgsvpt(0.0, 1.0, 0.0, 1.0)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sglnzu(0.1, 0.1, 9.9, 0.1, 1)
+DCL::sglnzu(9.9, 0.1, 9.9, 9.9, 1)
+DCL::sglnzu(9.9, 9.9, 0.1, 9.9, 1)
+DCL::sglnzu(0.1, 9.9, 0.1, 0.1, 1)
+
+DCL::sgplzu(ux, uy, 2, 3)
+DCL::sgpmzu(ux, uy, 5, 3, 0.04)
+vx1, vy1 = DCL::stftrf(ux[0], uy[0])
+vx2, vy2 = DCL::stftrf(ux[3], uy[3])
+DCL::sglnzv(vx1, vy1, vx2, vy2, 2)
+DCL::sgtxzu(5.0, 8.5, 'TESTU', 0.1, 0, 0, 3)
+
+DCL::sgswnd(2.5, 7.5, 2.5, 7.5)
+DCL::sgsvpt(0.25, 0.75, 0.25, 0.75)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sglset('LCLIP', true)
+DCL::slpvpr(1)
+DCL::sgplzv(vx, vy, 3, 1)
+DCL::sgpmzv(vx, vy, 4, 1, 0.02)
+DCL::sgtxzv(0.5, 0.75, 'TESTV', 0.1, 0, 0, 3)
+
+DCL::sgcls

data/demo/grph1/sgpack/sgksx3.rb

@@ -0,0 +1,75 @@
+#
+# sgksx3.rb
+#
+# $Id: sgksx3.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+np = 100
+ux = NArray.sfloat(np)
+uy = NArray.sfloat(np)
+
+#-- data ---
+ux.indgen(1.0, 1.0)
+for i in 1..np
+  uy[i-1]=exp(-i*0.03)*sin(i*3.14/180*20)
+end
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+iws = iws.abs
+DCL::sgopn iws
+
+DCL::slrat(2.0, 1.0)
+DCL::sldiv('Y', 2, 1)
+DCL::slmgn(0.1, 0.1, 0.1, 0.1)
+
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC.
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC.
+#     TRANSFORMATION FUNCTION : LINEAR*LINEAR
+DCL::sgfrm
+DCL::sgswnd(1.0, np.to_f, -1.0, +1.0)
+DCL::sgsvpt(0.1, 0.9, 0.1, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::slpwwr(1)
+
+DCL::sglnzu(1.0, 0.0, np.to_f, 0.0, 1)
+DCL::sglnzu(1.0, -1.0, 1.0, +1.0, 1)
+
+DCL::sgplzu(ux, uy, 2, 3)
+DCL::sgpmzu(ux, uy, 5, 3, 0.02)
+DCL::sgtxzv(0.5, 0.9, 'TEST1', 0.05, 0, 0, 3)
+
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN WC.
+#     TEST POLYLINE, POLYMARKER, TEXT PRIMITIVE IN NDC.
+#     TRANSFORMATION FUNCTION : LOG*LINEAR
+DCL::sgfrm
+DCL::sgswnd(1.0, np.to_f, -1.0, +1.0)
+DCL::sgsvpt(0.1, 0.9, 0.1, 0.9)
+DCL::sgstrn(3)
+DCL::sgstrf
+
+DCL::slpwwr(1)
+
+DCL::gllset('LMISS', true)
+DCL::sgiset('NPMSKIP', 2)
+ux[ 4]=999.0
+uy[19]=999.0
+
+DCL::sglnzu(1.0, 0.0, np.to_f, 0.0, 1)
+DCL::sglnzu(1.0, -1.0, 1.0, +1.0, 1)
+
+DCL::sgplzu(ux, uy, 3, 3)
+DCL::sgpmzu(ux, uy, 2, 3, 0.02)
+DCL::sgtxzv(0.5, 0.9, 'TEST2', 0.05, 0, 0, 3)
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sglidx.rb

@@ -0,0 +1,40 @@
+#
+# sglidx.rb
+#
+# $Id: sglidx.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+dx = 0.01
+dd = 0.08
+
+#-- graph ---
+iw = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iw
+
+DCL::slmgn(0.05, 0.05, 0.00, 0.10)
+DCL::slsttl('DEMONSTRATION FOR LINE INDEX', 'T', 0.0, 0.0, 0.018, 1)
+DCL::sgfrm
+
+for j in 0..9
+  for i in 0..9
+    idx=j*10+i
+    next if idx == 0
+    x1=i*0.1+dx
+    x2=x1+dd
+    y1=1.0-j*0.1-dx
+    y2=y1-dd
+    chr = format("%2d", idx)
+    DCL::sglnzv(x1, y1, x2, y2, idx)
+    DCL::sgtxzv(x1+dx*2, y2+dx*2, chr, 0.015, 0, 1, 1)
+  end
+end
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgltyp.rb

@@ -0,0 +1,48 @@
+#
+# sgltyp.rb
+#
+# $Id: sgltyp.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+n = 2
+x = NArray.sfloat(n)
+y = NArray.sfloat(n)
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+DCL::sgfrm
+DCL::sgtxzv(0.5, 0.9, 'LINE TYPE', 0.04, 0, 0, 3)
+
+x[0]=0.4
+x[1]=0.8
+
+for i in 1..5
+  if (1 <= i && i <= 4)
+    itype=i
+  else
+    cpat = "0011111111001001"
+    itype = ("0b" + cpat).oct
+    DCL::sgsplt(itype)
+  end
+
+  cttl = format("ITYPE = %5d", itype)
+
+  y[0]=0.7-(i-1)*0.12
+  y[1]=y[0]
+  DCL::sgtxzv(0.1, y[0], cttl, 0.02, 0, -1, 3)
+  if (i == 5)
+    DCL::sgtxzv(0.1, y[0]-0.05, '(' + cpat + ')', 0.015, 0, -1, 3)
+  end
+  DCL::sgplzv(x, y, itype, 3)
+end
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk01.rb

@@ -0,0 +1,39 @@
+#
+# sgpk01.rb
+#
+# $Id: sgpk01.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout 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
+
+DCL::sgfrm                   # <-- �ڡ������Ѱդ���.
+
+x1 = 0.1
+x2 = 0.9
+DCL::sglnv(x1, 0.9, x2, 0.9) # <-- �ǥե���Ȥ�Line index��ľ������
+
+DCL::sgslni(2)               # <-- line index ��2������
+DCL::sglnv(x1, 0.8, x2, 0.8)
+
+DCL::sgslni(3)
+DCL::sglnv(x1, 0.7, x2, 0.7)
+
+DCL::sgslni(4)
+DCL::sglnv(x1, 0.6, x2, 0.6)
+
+DCL::sglnzv(x1, 0.4, x2, 0.4, 1 ) #  <-- line index ����ꤷ������
+DCL::sglnzv(x1, 0.3, x2, 0.3, 2)
+DCL::sglnzv(x1, 0.2, x2, 0.2, 3)
+DCL::sglnzv(x1, 0.1, x2, 0.1, 4)
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk02.rb

@@ -0,0 +1,79 @@
+#
+# sgpk02.rb
+#
+# $Id: sgpk02.rb,v 1.2 2011-02-23 15:21:41 koshiro 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
+

data/demo/grph1/sgpack/sgpk03.rb

@@ -0,0 +1,107 @@
+#
+# sgpk03.rb
+#
+# $Id: sgpk03.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include NMath
+
+n = 41
+x = NArray.sfloat(n)
+y = NArray.sfloat(n)
+
+#-- data ---
+dt = 4.0* 3.14159 / (n-1)
+x = x.indgen * (1.0/(n-1))
+y = y.indgen * dt
+y = sin(y) * 0.15
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+#----------------------------- page 1 ---------------------------------
+DCL::sgfrm
+
+DCL::sgswnd(0.0, 1.0, -0.8, 0.2)
+DCL::sgsvpt(0.15, 0.85, 0.1, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+DCL::slpvpr(1)
+DCL::sgplu(x, y)                   # <-- 1����
+
+DCL::sgswnd(0.0, 1.0, -0.7, 0.3)
+DCL::sgstrf
+DCL::sgspli(2)                        # <-- line index ����
+DCL::sgplu(x, y)                   # <-- 2����
+
+DCL::sgswnd(0.0, 1.0, -0.6, 0.4)
+DCL::sgstrf
+DCL::sgspli(3)                        # <-- line index ����
+DCL::sgplu(x, y)                   # <-- 3����
+
+DCL::sgswnd(0.0, 1.0, -0.4, 0.6)
+DCL::sgstrf
+DCL::sgsplt(2)                        # <--linetype����(����)
+DCL::sgplu(x, y)                   # <-- 4����
+
+DCL::sgswnd(0.0, 1.0, -0.3, 0.7)
+DCL::sgstrf
+DCL::sgsplt(3)                        # <--linetype����(����)
+DCL::sgplu(x, y)                   # <-- 5����
+
+DCL::sgswnd(0.0, 1.0, -0.2, 0.8)
+DCL::sgstrf
+DCL::sgsplt(4)                        # <--linetype����(��������)
+DCL::sgplu(x, y)                   # <-- 6����
+
+#----------------------------- page 2 ---------------------------------
+DCL::sgfrm
+
+DCL::sgswnd(0.0, 1.0, -0.8, 0.2)
+DCL::sgsvpt(0.15, 0.85, 0.1, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+DCL::slpvpr(1)
+
+DCL::sgrset('bitlen', 0.006)          # <-- ��������Ĺ���ѹ�
+DCL::sgsplt(4)
+DCL::sgplu(x, y)                   # <-- 1����
+
+DCL::sgswnd(0.0, 1.0, -0.6, 0.4)
+DCL::sgstrf
+DCL::sgspli(2)
+
+itype = '0b1111111100100100'.oct # <-- �ѥ���������
+DCL::sgsplt(itype)                    # <-- �ѥ���������
+DCL::sgplu(x, y)                   # <-- 2����
+
+DCL::sgswnd(0.0, 1.0, -0.4, 0.6)
+DCL::sgstrf
+DCL::sgiset('NBITS', 32)
+itype = '0b10010010011111000111110001111100'.oct - ("0b1" + "0"*32).oct
+DCL::sgsplt(itype)
+DCL::sgplu(x, y)
+
+DCL::sgswnd(0.0, 1.0, -0.2, 0.8)
+DCL::sgstrf
+DCL::sgspli(1)
+DCL::sgsplt(1)
+
+n1=n/4
+y[n1-2] = 999.0                  # <-- ��»��
+y[n1-1] = 999.0
+y[n1  ] = 999.0
+
+n2=n1*3
+y[n2-2] = 999.0
+y[n2  ] = 999.0
+
+DCL::gllset('LMISS', true)
+DCL::sgplu(x, y)                   # <-- 4����
+
+DCL::sgcls
+