ruby-dcl 1.6.2

data/demo/grph1/sgpack/sgtclr.rb

@@ -0,0 +1,59 @@
+#
+# sgtclr.rb
+#
+# $Id: sgtclr.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+np = 5
+nt = 10
+dd = 0.07
+ds = 0.003
+dx = dd+ds*2
+dy = 1.0 / nt
+
+#-- data ---
+xbox = NArray[0.0, 1.0, 1.0, 0.0, 0.0]
+ybox = NArray[0.0, 0.0, 1.0, 1.0, 0.0]
+
+#-- graph ---
+iw = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gliset('MAXMSG', 300)
+DCL::sgopn iw
+
+DCL::sglset('LFULL', true)
+DCL::sglset('LSOFTF', false)
+DCL::sgiset('INDEX', 1)
+DCL::slrat(0.85, 1.0)
+DCL::slmgn(0.0, 0.0, 0.05, 0.1)
+DCL::slsttl('TEST OF SGTONE', 'T', 0.0, -0.5, 0.025, 1)
+
+DCL::sgfrm
+
+DCL::sgswnd(0.0, 1.0, 0.0, 1.0)
+DCL::sgstrn(1)
+
+for j in 0..9
+  for i in 0..9
+    x1=dx*i+ds+(1-dx*nt)/2
+    x2=x1+dd
+    y1=dy*(9-j)+ds
+    y2=y1+dd
+    level=(i+j*10)*1000+999
+    DCL::sgsvpt(x1, x2, y1, y2)
+    DCL::sgstrf
+    chr = format("%5d", level)
+    DCL::sgtnzu(xbox, ybox, level)
+    DCL::sgplzu(xbox, ybox, 1, 1)
+    DCL::sgtxzv(x2, y2+(dy-dd)/2, chr, 0.01, 0, 1, 1)
+  end
+end
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgtone.rb

@@ -0,0 +1,70 @@
+#
+# sgtone.rb
+#
+# $Id: sgtone.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+np = 5
+nt = 6
+dd = 0.13
+ds = 0.005
+dx = dd+ds*2
+dy = 1.0 / nt
+
+
+#-- data ---
+xbox = NArray[0.0, 1.0, 1.0, 0.0, 0.0]
+ybox = NArray[0.0, 0.0, 1.0, 1.0, 0.0]
+
+#-- graph ---
+iw = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+#ifn = (puts ' SOFT FILL=1/HARD FILL=2 (I) ? ;'; gets).to_i
+ifn=1
+n = (puts ' TONE PATTERN (0-6) (I) ? ;'; gets).to_i
+
+DCL::gliset('MAXMSG', 300)
+DCL::sgopn iw
+
+if (ifn == 1)
+  DCL::sglset('LSOFTF', true)
+else
+  DCL::sglset('LSOFTF', false)
+end
+
+DCL::sglset('LFULL', true)
+DCL::sgiset('INDEX', 3)
+
+DCL::slrat(0.85, 1.0)
+DCL::slmgn(0.0, 0.0, 0.05, 0.1)
+
+cttl = format("TONE PATTERN = %1dXX", n)
+DCL::slsttl(cttl, 'T', 0.0, -0.5, 0.03, 1)
+
+DCL::sgfrm
+DCL::sgswnd(0.0, 1.0, 0.0, 1.0)
+DCL::sgstrn(1)
+for j in 0..5
+  for i in 0..5
+    x1=dx*i+ds+(1-dx*nt)/2
+    x2=x1+dd
+    y1=dy*(5-j)+ds
+    y2=y1+dd
+    level=i+j*10+n*100
+    DCL::sgsvpt(x1, x2, y1, y2)
+    DCL::sgstrf
+    chr = format("%5d", level)
+    DCL::sgtnzu(xbox, ybox, level)
+    DCL::sgplzu(xbox, ybox, 1, 1)
+    DCL::sgtxzv(x2, y2+(dy-dd)/2, chr, 0.015, 0, 1, 3)
+  end
+end
+
+DCL::sgcls
+

data/demo/grph1/sgpack/sgtonz.rb

@@ -0,0 +1,66 @@
+#
+# sgfonz.rb
+#
+# $Id: sgtonz.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+np = 5
+nt = 6
+dd = 0.13
+ds = 0.005
+dx = dd+ds*2
+dy = 1.0 / nt
+
+#-- data ---
+xbox = NArray[0.0, 1.0, 1.0, 0.0, 0.0]
+ybox = NArray[0.0, 0.0, 1.0, 1.0, 0.0]
+
+#-- graph ---
+iw = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+ifn = (puts ' SOFT FILL=1/HARD FILL=2 (I) ? ;'; gets).to_i
+
+DCL::gliset('MAXMSG', 300)
+DCL::sgopn iw
+
+if (ifn == 1)
+  DCL::sglset('LSOFTF', true)
+else
+  DCL::sglset('LSOFTF', false)
+end
+
+DCL::sglset('LFULL', true)
+DCL::sgiset('INDEX', 3)
+DCL::slrat(0.85, 1.0)
+DCL::slmgn(0.0, 0.0, 0.05, 0.1)
+DCL::slsttl('TEST OF SGTONE', 'T', 0.0, -0.5, 0.03, 1)
+
+for n in 0..6
+  DCL::sgfrm
+  DCL::sgswnd(0.0, 1.0, 0.0, 1.0)
+  DCL::sgstrn(1)
+  for j in 0..5
+    for i in 0..5
+      x1=dx*i+ds+(1-dx*nt)/2
+      x2=x1+dd
+      y1=dy*(5-j)+ds
+      y2=y1+dd
+      level=i+j*10+n*100+n*1000
+      DCL::sgsvpt(x1, x2, y1, y2)
+      DCL::sgstrf
+      chr = format("%5d", level)
+      DCL::sgtnzu(xbox, ybox, level)
+      DCL::sgplzu(xbox, ybox, 1, 1)
+      DCL::sgtxzv(x2, y2+(dy-dd)/2, chr, 0.015, 0, 1, 3)
+    end
+  end
+end
+
+DCL::sgcls
+

data/demo/grph1/slpack/slpk01.rb

@@ -0,0 +1,37 @@
+#
+# slpk01.rb
+#
+# $Id: slpk01.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.abs)
+
+DCL::slmgn(0.1, 0.1, 0.05, 0.05)      # <-- ��1��٥�Υޡ�����
+
+DCL::sldiv('s', 3, 5)                 # <-- �ե졼��ʬ��(��2��٥�)
+DCL::slmgn(0.05, 0.05, 0.05, 0.05)    # <-- ��2��٥�Υޡ�����
+DCL::slrat(1.0, 1.0)                  # <-- ��2��٥�νIJ�������
+DCL::sgstxi(2)
+DCL::sgstxs(0.1)
+
+for i in 1..15
+  DCL::sgfrm                          # <--
+  DCL::slpwwr(1)                      # <    ����������̤�1�ڡ���
+  ctxt = format("FRAME%2.2d", i)      # <    ���褹��Τ�Ʊ��
+  DCL::sgtxv(0.5, 0.5, ctxt)          # <--
+end
+
+DCL::sgcls
+
+
+
+

data/demo/grph1/slpack/slpk02.rb

@@ -0,0 +1,29 @@
+#
+# slpk02.rb
+#
+# $Id: slpk02.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::slmgn(0.0, 0.0, 0.05, 0.05)                      # <-- �ޡ���������
+DCL::slrat(1.0, 1.0)                                  # <-- �IJ�������
+DCL::slsttl('FIGURE TITLE', 'T',  0.0, -1.0, 0.02, 1) # <-+
+DCL::slsttl('page:#PAGE',   'B',  1.0,  1.0, 0.02, 2) # <-+ �����ȥ�����
+DCL::slsttl('PROG.NAME',    'B', -1.0,  1.0, 0.02, 3) # <-+
+
+DCL::sgfrm                          # <-- �����Ǽºݤ˥����ȥ뤬�񤫤��
+DCL::slpwwr(1)
+DCL::sgtxzv(0.5, 0.5, 'FIGURE', 0.05, 0, 0, 1)
+
+DCL::sgcls
+

data/demo/grph1/slpack/slpk03.rb

@@ -0,0 +1,36 @@
+#
+# slpk03.rb
+#
+# $Id: slpk03.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::sglset('LFULL', true)
+DCL::slmgn(0.0, 0.0, 0.08, 0.08)
+
+DCL::slrat(1.0, 0.6)                              # <-- �IJ�������
+DCL::slsttl('FIGURE TITLE', 'T',  0.0, -1.0, 0.02, 1)
+DCL::slsttl('page:#PAGE',   'B',  1.0,  1.0, 0.02, 2)
+DCL::slsttl('PROG.NAME',    'B', -1.0,  1.0, 0.02, 3)
+
+DCL::sgfrm
+
+DCL::slpwwr(1)
+DCL::sgtxzv(0.01, 0.02, 'LOWER LEFT',  0.02, 0, -1, 3)
+DCL::sgtxzv(0.01, 0.58, 'UPPER LEFT',  0.02, 0, -1, 3)
+DCL::sgtxzv(0.99, 0.02, 'LOWER RIGHT', 0.02, 0,  1, 3)
+DCL::sgtxzv(0.99, 0.58, 'UPPER RIGHT', 0.02, 0,  1, 3)
+
+DCL::sgcls
+

data/demo/grph1/slpack/slpk04.rb

@@ -0,0 +1,36 @@
+#
+# slpk04.rb
+#
+# $Id: slpk04.rb,v 1.1.1.1 2011-02-23 07:21:27 horinout Exp $
+#
+
+require "narray"
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+#-- data ---
+x = [-7.5, 7.5, 7.5, -7.5, -7.5]
+y = [-7.5,-7.5, 7.5,  7.5, -7.5]
+
+#-- graph ---
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+xmaxf = 26.0
+ymaxf = 18.5
+DCL::slform(xmaxf, ymaxf)        # <-- ����Ū���ѻ���礭�������
+DCL::slrat(xmaxf, ymaxf)
+
+DCL::sglset('LFULL', true)
+DCL::sgfrm
+
+DCL::sgswnd(-xmaxf/2.0, xmaxf/2.0, -ymaxf/2.0, ymaxf/2.0)
+DCL::sgstrf
+DCL::sgplu(x, y)
+DCL::sgtxzu(0.0, 0.0, "15cm #{DCL::csgi(194)} 15cm", 0.05, 0, 0, 3)
+
+DCL::sgcls
+

data/demo/grph2/g2pack/g2pk01.rb

@@ -0,0 +1,78 @@
+#-----------------------------------------------------------------------
+#     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
+#-----------------------------------------------------------------------
+
+require "numru/dcl"
+
+include NumRu
+include Math
+
+raise "This program is for DCL 5.3 or later" unless DCL::DCLVERSION >= '5.3'
+
+#  / SET PARAMETERS /
+
+nx = 15
+ny = 15
+ux = NArray.sfloat(nx).indgen!/(nx-1)
+uy = NArray.sfloat(ny).indgen!/(nx-1)
+cx = NArray.sfloat(nx,ny)
+cy = NArray.sfloat(nx,ny)
+for j in 0...ny
+  for i in 0...nx
+    cx[i,j] = ux[i] + 0.1*uy[j]
+    cy[i,j] = 0.2*ux[i] + uy[j]
+  end
+end
+
+cxmin = 0.0
+cxmax = 1.1
+cymin = 0.0
+cymax = 1.1
+
+# / GRAPHIC /
+
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn(iws)
+DCL::grfrm
+DCL::grsvpt(0.15,0.85,0.15,0.85)
+DCL::grswnd(ux[0],ux[-1],uy[0],uy[-1])
+DCL::g2sctr(ux,uy,cx,cy)
+DCL::grstrn(51)
+DCL::sgscwd(cxmin,cxmax,cymin,cymax)
+DCL::grstrf
+DCL::sglset('LCLIP',true)
+
+#  / TONE /
+
+z = NArray.sfloat(nx,ny)
+for j in 0...ny
+  for i in 0...nx
+    z[i,j] = ux[i] + uy[j]
+  end
+end
+
+DCL::uelset('ltone',true)
+DCL::uwsgxa(ux)
+DCL::uwsgya(uy)
+DCL::uetone(z)
+
+#  / GRID LINES /
+
+for j in 0...ny
+  uyw = NArray.sfloat(nx).fill!(uy[j])
+  DCL::sgplu(ux,uyw)
+end
+
+for i in 0...nx
+  uxw = NArray.sfloat(ny).fill!(ux[i])
+  DCL::sgplu(uxw,uy)
+end
+
+# / AXES (Switch to ITR==1) /
+
+DCL::grswnd(cxmin,cxmax,cymin,cymax)
+DCL::grstrn(1)
+DCL::grstrf
+DCL::usdaxs
+DCL::uxsttl('t','BOTH X & Y TRANSFORMED',0.0)
+DCL::grcls

data/demo/grph2/g2pack/g2pk02.rb

@@ -0,0 +1,75 @@
+#-----------------------------------------------------------------------
+#     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
+#-----------------------------------------------------------------------
+
+require "numru/dcl"
+
+include NumRu
+include NMath
+
+raise "This program is for DCL 5.3 or later" unless DCL::DCLVERSION >= '5.3'
+
+# / SET PARAMETERS /
+
+nx = 15
+ny = 15
+ux = NArray.sfloat(nx).indgen!/(nx-1) - 0.5
+terrain = 0.1 * exp(-24*ux**2)
+uy = NArray.sfloat(ny).indgen!/(nx-1)
+cx = NArray.sfloat(nx,ny)
+cy = NArray.sfloat(nx,ny)
+
+cx[0,0] = DCL::glrget('rundef')
+for j in 0...ny
+  for i in 0...nx
+    cy[i,j] = uy[j]*(1.0-terrain[i]) + terrain[i]
+  end
+end
+
+# / GRAPHIC /
+
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::gropn(iws)
+DCL::grfrm
+DCL::grsvpt(0.15,0.85,0.15,0.85)
+DCL::grswnd(ux[0],ux[-1],uy[0],uy[-1])
+DCL::g2sctr(ux,uy,cx,cy)
+DCL::grstrn(51)
+DCL::grstrf
+
+# / TONE /
+
+z = NArray.sfloat(nx,ny)
+for j in 0...ny
+  for i in 0...nx
+    z[i,j] = ux[i] * (1-uy[j])
+  end
+end
+
+DCL::uelset('ltone',true)
+DCL::uwsgxa(ux)
+DCL::uwsgya(uy)
+DCL::uetone(z)
+
+# / GRID LINES /
+
+for j in 0...ny
+  uyw = NArray.sfloat(nx).fill!(uy[j])
+  DCL::sgplu(ux,uyw)
+end
+
+for i in 0...nx
+  uxw = NArray.sfloat(ny).fill!(ux[i])
+  DCL::sgplu(uxw,uy)
+end
+
+#  / AXES  (Switch to ITR==1) /
+
+cxmin, cxmax, cymin, cymax = DCL::g2qctm
+p cxmin, cxmax, cymin, cymax
+DCL::grswnd(cxmin,cxmax,cymin,cymax)
+DCL::grstrn(1)
+DCL::grstrf
+DCL::usdaxs
+DCL::uxsttl('t','TERRAIN FOLLOWING',0.0)
+DCL::grcls