ruby-dcl 1.6.2

data/demo/grph1/sgpack/sgpk04.rb

@@ -0,0 +1,86 @@
+#
+# sgpk04.rb
+#
+# $Id: sgpk04.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
+
+DCL::sgfrm
+DCL::sgswnd(0.0, 1.0, -0.8, 0.2)
+DCL::sgsvpt(0.1, 0.9, 0.1, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sglset('LCLIP', true)
+DCL::slpvpr(1)
+
+DCL::sgpmu(x, y)                   # <--�ޡ���������(1����)
+
+DCL::sgswnd(0.0, 1.0, -0.7, 0.3)
+DCL::sgstrf
+DCL::sgspmt(2)                        # <--�ޡ�����type����(+)
+DCL::sgpmu(x, y)                   # <--�ޡ���������(2����)
+
+DCL::sgswnd(0.0, 1.0, -0.6, 0.4)
+DCL::sgstrf
+DCL::sgspmt(3)                        # <--�ޡ�����type����(*)
+DCL::sgpmu(x, y)                   # <--�ޡ���������(3����)
+
+DCL::sgswnd(0.0, 1.0, -0.5, 0.5)
+DCL::sgstrf
+DCL::sgspmt(4)                        # <--�ޡ�����type����(o)
+DCL::sgpmu(x, y)                   # <--�ޡ���������(4����)
+
+DCL::sgswnd(0.0, 1.0, -0.4, 0.6)
+DCL::sgstrf
+DCL::sgspmi(2)                        # <-- �ޡ����� index ����
+DCL::sgpmu(x, y)                   #<--�ޡ���������(5����)
+
+DCL::sgswnd(0.0, 1.0, -0.3, 0.7)
+DCL::sgstrf
+DCL::sgspmi(3)
+DCL::sgspmt(2)
+
+DCL::sgplu(x, y)                   # <-- �ޤ�������
+DCL::sgpmu(x, y)                   # <--�ޡ���������(6����)
+
+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::sgswnd(0.0, 1.0, -0.2, 0.8)
+DCL::sgstrf
+DCL::gllset('LMISS', true)
+DCL::sgspmi(2)
+DCL::sgspmt(3)
+
+DCL::sgplu(x, y)                   # <-- �ޤ�������
+DCL::sgpmu(x, y)                   # <--�ޡ���������(7����)
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk05.rb

@@ -0,0 +1,66 @@
+#
+# sgpk05.rb
+#
+# $Id: sgpk05.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+n = 9
+y = NArray.sfloat(n)
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sgfrm
+
+x1 = 0.1
+x2 = 0.9
+xc = 0.5
+
+DCL::sgslni(1)
+y = y.indgen * (-0.1) + 0.9
+for i in 0..n-1
+  DCL::sglnv(x1, y[i], x2, y[i])
+end
+DCL::sglnv(xc, 0.05, xc, 0.95)
+
+DCL::sgtxv(xc, y[0], 'SGTXV TEST') # <-- �ƥ�����1 ����
+
+DCL::sgstxi(2)                     # <-- �ƥ�����Index ����
+DCL::sgtxv(xc, y[1], 'INDEX2')     # <-- �ƥ�����2 ����
+
+DCL::sgstxi(3)                     # <-- �ƥ�����Index ����
+DCL::sgtxv(xc, y[2], 'INDEX3')     # <-- �ƥ�����3 ����
+
+DCL::sgstxi(4)
+DCL::sgstxs(0.03)                  # <--�ƥ�����Size����(��)
+DCL::sgtxv(xc, y[3], 'SMALL')      # <-- �ƥ�����4 ����
+
+DCL::sgstxs(0.07)                  # <--�ƥ�����Size����(��)
+DCL::sgtxv(xc, y[4], 'LARGE')      # <-- �ƥ�����5 ����
+
+DCL::sgstxs(0.05)
+DCL::sgstxi(5)
+DCL::sgstxc(-1)                    # <-- ��·��
+DCL::sgtxv(xc, y[5], 'LEFT')       # <-- �ƥ�����6 ����
+
+DCL::sgstxc(0)                     # <-- ���·��
+DCL::sgtxv(xc, y[6], 'CENTER')     # <-- �ƥ�����7 ����
+
+DCL::sgstxc(1)                     # <-- ��·��
+DCL::sgtxv(xc, y[7], 'RIGHT')      # <-- �ƥ�����8 ����
+
+DCL::sgstxc(0)
+DCL::sgstxi(4)
+DCL::sgstxr(20)                    # <-- �ƥ����Ȳ�ž
+DCL::sgtxv(xc, y[8], 'ROTATION')   # <-- �ƥ�����9 ����
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk06.rb

@@ -0,0 +1,91 @@
+#
+# sgpk06.rb
+#
+# $Id: sgpk06.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+n = 37
+x = NArray.sfloat(n)
+y = NArray.sfloat(n)
+
+#-- data ---
+dt = 2.0* 3.14159 / (n-1)
+r = 0.2
+for i in 0..n-1
+  x[i] = r*sin(dt*i) + 0.5
+  y[i] = r*cos(dt*i) + 0.5
+end
+
+xc = 0.5
+yc = 0.5
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+#----------------------------- page 1 ---------------------------------
+DCL::sgfrm
+DCL::sgstxi(3)
+DCL::sgspli(2)
+#     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::sgplu(x, y)                      # <-- ������
+DCL::sgtxu(xc, yc, 'SGTXU')              # <-- �ƥ�����
+
+#----------------------------- page 2 ---------------------------------
+DCL::sgfrm
+#     xmin, xmax, ymin, ymax
+DCL::sgswnd(0.0,  1.0,  0.0,  1.0)       # <-- 1x1
+DCL::sgsvpt(0.1,  0.4,  0.6,  0.9)       # <-- ������view port
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::slpvpr(1)
+DCL::sgplu(x, y)                      # <-- ������
+DCL::sgtxu(xc, yc, 'SGTXU')              # <-- �ƥ�����
+
+#     xmin, xmax, ymin, ymax
+DCL::sgswnd(0.0,  1.0,  0.3,  0.7)       # <-- �椬���window
+DCL::sgsvpt(0.6, 0.9, 0.6, 0.9)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::slpvpr(1)
+DCL::sgplu(x, y)                      # <-- ������
+DCL::sgtxu(xc, yc, 'SGTXU')              # <-- �ƥ�����
+
+#     xmin, xmax, ymin, ymax
+DCL::sgswnd(0.0,  1.0, -0.5,  0.5)       # <-- �Ϥ߽Ф� window
+DCL::sgsvpt(0.1, 0.4, 0.1, 0.4)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::slpvpr(1)
+DCL::sgplu(x, y)                      # <-- ������
+DCL::sgtxu(xc, yc, 'SGTXU')              # <-- �ƥ�����
+
+DCL::sglset('LCLIP', true)               # <-- ����åԥ�
+#     xmin, xmax, ymin, ymax
+DCL::sgswnd(0.0,  1.0, -0.5, 0.5)
+DCL::sgsvpt(0.6,  0.9,  0.1, 0.4)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::slpvpr(1)
+DCL::sgplu(x, y)                      # <-- ������
+DCL::sgtxu(xc, yc, 'SGTXU')              # <-- �ƥ�����
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk07.rb

@@ -0,0 +1,66 @@
+#
+# sgpk07.rb
+#
+# $Id: sgpk07.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+n = 9
+y = NArray.sfloat(n)
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+DCL::sgfrm
+
+x1 = 0.1
+x2 = 0.9
+xc = 0.5
+
+DCL::sgslni(1)
+y = y.indgen * (-0.1) + 0.9
+for i in 0..n-1
+  DCL::sglnv(x1, y[i], x2, y[i])
+end
+DCL::sglnv(xc, 0.05, xc, 0.95)
+
+#----------------------- SUPER/SUB SCRIPT ------------------------------
+DCL::sgtxv(xc, y[0], 'SGTXV|SUP"RST_SUB"')
+
+DCL::sgstxi(2)
+DCL::sglset('LCNTL', true)                 # <-- ź������ȥ�����ON
+DCL::sgtxv(xc, y[1], 'SGTXV|SUP"RST_SUB"')
+
+DCL::sgrset('SHIFT', 0.5)                  # <-- ���ե�������
+DCL::sgrset('SMALL', 0.5)                  # <-- ź�����礭������
+DCL::sgtxv(xc, y[2], 'SGTXV|SUP"RST_SUB"')
+
+#------------------------ FONT SELECTION -------------------------------
+DCL::sgstxi(1)
+DCL::sgstxs(0.05)
+DCL::sgtxv(xc, y[3], 'ABCDEFG abcdefg')
+
+DCL::sgiset('IFONT', 2)                    # <-- ���줤�ʥե����
+DCL::sgtxv(xc, y[4], 'ABCDEFG abcdefg')
+
+DCL::sgstxi(3)
+DCL::sgtxv(xc, y[5], 'ABCDEFG abcdefg')
+
+#------------------------- GREEK LETTERS -------------------------------
+greek1 = [152,153,154,155,156,157,158,159,160,161].collect{|i| DCL::csgi(i)}.join
+greek2 = [130,131,135,138,141,143,145,148,150,151].collect{|i| DCL::csgi(i)}.join
+DCL::sgtxv(xc, y[6], greek1)
+DCL::sgtxv(xc, y[7], greek2)
+
+#----------------------------- SYMBOLS ---------------------------------
+symbol = [189,190,191,192,193,210,211,212,217,218].collect{|i| DCL::csgi(i)}.join
+DCL::sgtxv(xc, y[8], symbol)
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk08.rb

@@ -0,0 +1,67 @@
+#
+# sgpk08.rb
+#
+# $Id: sgpk08.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include NMath
+
+
+upx3 = NArray.sfloat(3)
+upy3 = NArray.sfloat(3)
+upx6 = NArray.sfloat(6)
+upy6 = NArray.sfloat(6)
+upxs = NArray.sfloat(61)
+upys = NArray.sfloat(61)
+
+#-- data ---
+a = 0.8
+th = 3.14159 * 2 / 3
+upy3 = upy3.indgen * th + th
+upx3 = sin(upy3) * a
+upy3 = cos(upy3) * a
+
+th = 3.14159 * 2 / 6
+upy6 = upy6.indgen * th + th
+upx6 = sin(upy6) * a
+upy6 = cos(upy6) * a
+
+th = 3.14159 * 4 / 60
+upxs = upxs.indgen * a/30 - a
+upys = upys.indgen * th 
+upys = sin(upys) * a
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sglset('LSOFTF', true)            # <-- ���եȥե���λ���
+DCL::sgfrm
+
+DCL::sgswnd(-1.0, 1.0, -1.0, 1.0)
+DCL::sgsvpt(0.0, 0.5, 0.0, 0.5)
+DCL::sgstrn(1)
+DCL::sgstrf
+
+DCL::sgplu(upx3, upy3)
+DCL::sgtnu(upx3, upy3)              # <--�֤���(����)
+
+DCL::sgsvpt(0.0, 0.5, 0.5, 1.0)
+DCL::sgstrf
+DCL::sgstnp(101)
+DCL::sgtnu(upx6, upy6)              # <-- ���� (����)
+
+DCL::sgsvpt(0.5, 1.0, 0.0, 0.5)
+DCL::sgstrf
+DCL::sgtnzu(upx6, upy6, 201)        # <--����(����)
+
+DCL::sgsvpt(0.5, 1.0, 0.5, 1.0)
+DCL::sgstrf
+DCL::sgtnzu(upxs, upys, 601)       # <-- ���� (����)
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk09.rb

@@ -0,0 +1,61 @@
+#
+# sgpk09.rb
+#
+# $Id: sgpk09.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+kmax = 4
+nn = 73
+dd = 2.0
+ux = NArray.sfloat(nn)
+uy = NArray.sfloat(nn)
+
+#-- data ---
+xorg = NArray[2.5, 7.5, 2.5, 7.5]
+yorg = NArray[7.5, 7.5, 2.5, 2.5]
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sgfrm
+
+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::sgstxs(0.03)
+DCL::sgstxi(3)
+DCL::sgstxc(0)
+
+DCL::sgsplc('K=1')
+
+for k in 0..kmax-1
+  DCL::sgslni(1)
+  DCL::sglnu(xorg[k]-dd, yorg[k], xorg[k]+dd, yorg[k])
+  DCL::sglnu(xorg[k], yorg[k]-dd, xorg[k], yorg[k]+dd)
+
+  for i in 0..nn-1
+    th = 2*PI*i/(nn-1)
+    ux[i] = xorg[k] + dd*cos(th+k*PI/7)
+    uy[i] = yorg[k] + dd*sin((k+1)*th)
+  end
+
+  DCL::sgspli(2)
+  DCL::sgsplt(k+1)
+  DCL::sglset('LCHAR', true)
+  DCL::sgplu(ux, uy)
+  DCL::sglset('LCHAR', false)
+  DCL::sgnplc
+end
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgpk10.rb

@@ -0,0 +1,58 @@
+#
+# sgpk10.rb
+#
+# $Id: sgpk10.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+nd = 12
+DDEG = 360.0/nd
+dd = 0.25
+
+rx = NArray.sfloat(nd)
+ry = NArray.sfloat(nd)
+
+#-- data ---
+for n in 0..nd-1
+  rx[n] = dd*(n+1)*cos(PI/180*DDEG*n)
+  ry[n] = dd*(n+1)*sin(PI/180*DDEG*n)
+end
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sgfrm
+
+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
+
+x1 = 3.0
+y1 = 7.0
+for n in 0..nd-1
+  DCL::sglazu(x1, y1, x1+rx[n], y1+ry[n], 1, 2)
+end
+
+DCL::sglset('LPROP', false)
+DCL::sgrset('CONST', 0.05)
+x1 = 7.0
+y1 = 7.0
+for n in 0..nd-1
+  DCL::sglazu(x1, y1, x1+rx[n], y1+ry[n], 1, 2)
+end
+
+for i in 1..8
+  DCL::sgrset('ANGLE', 10.0*i)
+  DCL::sglazu(i.to_f, 2.0, (i+1).to_f, 3.0, 1, 2)
+end
+
+DCL::sgcls
+