ruby-dcl 1.7.1 → 1.8.2

data/demo/rakuraku/kihon/kihon1.rb

@@ -1,9 +1,8 @@
 #
 # kihon1.rb
-#   $Id: kihon1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/kihon/kihon2.rb

@@ -1,9 +1,8 @@
 #
 # kihon2.rb
-#   $Id: kihon2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/kihon/kihon3.rb

@@ -1,9 +1,8 @@
 #
 # kihon3.rb
-#   $Id: kihon3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/kihon/kihon4.rb

@@ -1,9 +1,8 @@
 #
 # kihon4.rb
-#   $Id: kihon4.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/kihon/kihon5.rb

@@ -1,9 +1,8 @@
 #
 # kihon5.rb
-#   $Id: kihon5.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/kihon/kihon6.rb

@@ -1,9 +1,8 @@
 #
 # kihon6.rb
-#   $Id: kihon6.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/kihon/kihon7.rb

@@ -1,9 +1,8 @@
 #
 # kihon7.rb
-#   $Id: kihon7.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -13,6 +12,8 @@ def aplot
   nmax = 40
   x = NArray.sfloat(nmax+1)
   y = NArray.sfloat(nmax+1)
+  xx = NArray.sfloat(4)
+  yy = NArray.sfloat(4)
 
   DCL::slpvpr(1)
 
@@ -28,11 +29,15 @@ def aplot
   #-- triangle ----
   dt = 2.0*PI/3
   for n in 0..3
-    x[n] = 40.0*sin(n*dt)
-    y[n] = 40.0*cos(n*dt)
+    xx[n] = 40.0*sin(n*dt)
+    yy[n] = 40.0*cos(n*dt)
   end
 
-  DCL::sgplu(x, y)
+  DCL::sgplu(xx, yy)
+
+p "OTB:"
+p xx
+p yy
 
   #-- string ----
   DCL::sgtxu(0.0, 0.0, 'SGTXU')

data/demo/rakuraku/kihon/kihon8.rb

@@ -1,10 +1,9 @@
 #
 # kihon8.rb
-#   $Id: kihon8.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include NMath

data/demo/rakuraku/kihon/kihon9.rb

@@ -1,10 +1,9 @@
 #
 # kihon9.rb
-#   $Id: kihon9.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include NMath

data/demo/rakuraku/kihon/kihona.rb

@@ -1,10 +1,9 @@
 #
 # kihona.rb
-#   $Id: kihona.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include NMath

data/demo/rakuraku/kihon/kihonb.rb

@@ -1,10 +1,9 @@
 #
 # kihonb.rb
-#   $Id: kihonb.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math
@@ -32,15 +31,17 @@ end
 DCL::sglnv(xc, 0.05, xc, 0.95)
 
 #-- �ǥե���� ----
-DCL::sgtxv(xc, y[0], 'SGTXV|SUP"RST_SUB"')
+DCL::sgtxv(xc, y[0], 'SGTXV\^{SUP}RST\_{SUB}')
 
 #-- ź�� ----
 DCL::sglset('LCNTL', true)
-DCL::sgtxv(xc, y[1], 'SGTXV|SUP"RST_SUB"')
+DCL::sgtxv(xc, y[1], 'SSGTXV\^{SUP}RST\_{SUB}')
 
 DCL::sgrset('SMALL', 0.5)
 DCL::sgrset('SHIFT', 0.5)
-DCL::sgtxv(xc, y[2], 'SGTXV|SUP"RST_SUB"')
+DCL::swlset('LSYSFNT', true)
+DCL::sgtxv(xc, y[2], 'S\o-G\o~T\u-X\o~\u-V\^{SUP}RST\_{SUB}')
+DCL::swlset('LSYSFNT', false)
 
 #-- �ե���� ----
 DCL::sgtxv(xc, y[3], 'ABCDEFG abcdefg')
@@ -55,17 +56,17 @@ DCL::sgiset('IFONT', 1)
 DCL::sgstxi(1)
 
 #-- ���ꥷ��ʸ�� ----
-greek1 = DCL::csgi(128) + DCL::csgi(129) + DCL::csgi(130) + DCL::csgi(131) + DCL::csgi(132) +
-         DCL::csgi(133) + DCL::csgi(134) + DCL::csgi(135) + DCL::csgi(136) + DCL::csgi(137)
-greek2 = DCL::csgi(152) + DCL::csgi(153) + DCL::csgi(154) + DCL::csgi(155) + DCL::csgi(156) +
-         DCL::csgi(157) + DCL::csgi(158) + DCL::csgi(159) + DCL::csgi(160) + DCL::csgi(161)
+greek1 = DCL::usgi(128) + DCL::usgi(129) + DCL::usgi(130) + DCL::usgi(131) + DCL::usgi(132) +
+         DCL::usgi(133) + DCL::usgi(134) + DCL::usgi(135) + DCL::usgi(136) + DCL::usgi(137)
+greek2 = DCL::usgi(152) + DCL::usgi(153) + DCL::usgi(154) + DCL::usgi(155) + DCL::usgi(156) +
+         DCL::usgi(157) + DCL::usgi(158) + DCL::usgi(159) + DCL::usgi(160) + DCL::usgi(161)
 
 DCL::sgtxv(xc, y[6], greek1)
 DCL::sgtxv(xc, y[7], greek2)
 
 #-- �ü쵭�� ----
-symbol = DCL::csgi(189) + DCL::csgi(190) + DCL::csgi(191) + DCL::csgi(192) + DCL::csgi(193) +
-         DCL::csgi(210) + DCL::csgi(211) + DCL::csgi(212) + DCL::csgi(217) + DCL::csgi(218)
+symbol = DCL::usgi(189) + DCL::usgi(190) + DCL::usgi(191) + DCL::usgi(192) + DCL::usgi(193) +
+         DCL::usgi(210) + DCL::usgi(211) + DCL::usgi(212) + DCL::usgi(217) + DCL::usgi(218)
 
 DCL::sgtxv(xc, y[8], symbol)
 

data/demo/rakuraku/kihon/kihonc.rb

@@ -1,10 +1,9 @@
 #
 # kihonc.rb
-#   $Id: kihonc.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/layout/lay1.rb

@@ -1,10 +1,9 @@
 #
 # lay1.rb
-#   $Id: lay1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/layout/lay2.rb

@@ -1,10 +1,9 @@
 #
 # lay2.rb
-#   $Id: lay2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/layout/lay3.rb

@@ -1,10 +1,9 @@
 #
 # lay3.rb
-#   $Id: lay3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/map3d/map3d1.rb

@@ -1,10 +1,9 @@
 #
 # map3d1.rb
-#   $Id: map3d1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/map3d/map3d2.rb

@@ -1,10 +1,9 @@
 #
 # map3d2.rb
-#   $Id: map3d2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/map3d/map3d3.rb

@@ -1,10 +1,9 @@
 #
 # map3d3.rb
-#   $Id: map3d3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/map3d/map3d4.rb

@@ -1,10 +1,9 @@
 #
 # map3d4.rb
-#   $Id: map3d4.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/map3d/map3d5.rb

@@ -1,10 +1,9 @@
 #
 # map3d5.rb
-#   $Id: map3d5.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/map3d/map3d6.rb

@@ -1,6 +1,5 @@
 # map3d6.rb
 
-require "narray"
 require "numru/dcl"
 include NMath
 include NumRu

data/demo/rakuraku/map3d/map3d7.rb

@@ -1,6 +1,5 @@
 # map3d6.rb
 
-require "narray"
 require "numru/dcl"
 include NMath
 include NumRu

data/demo/rakuraku/miss/miss1.rb

@@ -1,9 +1,8 @@
 #
 # miss1.rb
-#   $Id: miss1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/miss/miss2.rb

@@ -1,10 +1,9 @@
 #
 # miss2.rb
-#   $Id: miss2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/quick/quick1.rb

@@ -1,9 +1,8 @@
 #
 # quick1.rb
-#   $Id: quick1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/quick/quick2.rb

@@ -1,9 +1,8 @@
 #
 # quick2.rb
-#   $Id: quick2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/quick/quick3.rb

@@ -1,9 +1,8 @@
 #
 # quick3.rb
-#   $Id: quick3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/quick/quick4.rb

@@ -1,9 +1,8 @@
 #
 # quick4.rb
-#   $Id: quick4.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/quick/quick5.rb

@@ -1,9 +1,8 @@
 #
 # quick5.rb
-#   $Id: quick5.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/rakuraku/u2d/u2d1.rb

@@ -1,10 +1,9 @@
 #
 # u2d1.rb
-#   $Id: u2d1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/u2d/u2d2.rb

@@ -1,10 +1,9 @@
 #
 # u2d2.rb
-#   $Id: u2d2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/u2d/u2d3.rb

@@ -1,10 +1,9 @@
 #
 # u2d3.rb
-#   $Id: u2d3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/u2d/u2d4.rb

@@ -1,10 +1,9 @@
 #
 # u2d4.rb
-#   $Id: u2d4.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/u2d/u2d5.rb

@@ -1,10 +1,9 @@
 #
 # u2d5.rb
-#   $Id: u2d5.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/u2d/u2d6.rb

@@ -1,10 +1,9 @@
 #
 # u2d6.rb
-#   $Id: u2d6.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/u2d/u2d7.rb

@@ -1,10 +1,9 @@
 #
 # u2d7.rb
-#   $Id: u2d7.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uspack/uspac1.rb

@@ -1,10 +1,9 @@
 #
 # uspac1.rb
-#   $Id: uspac1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math
@@ -28,7 +27,7 @@ DCL::gropn iws
 
 DCL::grfrm
 
-DCL::ussttl('TIME', 'YEAR', 'HEAT FLUX', 'W/m|2"')
+DCL::ussttl('TIME', 'YEAR', 'HEAT FLUX', 'W/m\^2')
 DCL::usgrph(x, y)
 
 DCL::grcls

data/demo/rakuraku/uspack/uspac2.rb

@@ -1,10 +1,9 @@
 #
 # uspac2.rb
-#   $Id: uspac2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uspack/uspac3.rb

@@ -1,10 +1,9 @@
 #
 # uspac3.rb
-#   $Id: uspac3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math
@@ -30,7 +29,7 @@ DCL::grfrm
 
 rundef = DCL::glrget('RUNDEF')
 DCL::grswnd(xmin, xmax, rundef, rundef)
-DCL::ussttl('TIME', 'YEAR', 'HEAT FLUX', 'W/m|2"')
+DCL::ussttl('TIME', 'YEAR', 'HEAT FLUX', 'W/m\^2')
 DCL::usgrph(rundef, y)
 
 DCL::grcls

data/demo/rakuraku/uspack/uspac4.rb

@@ -1,10 +1,9 @@
 #
 # uspac4.rb
-#   $Id: uspac4.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uxyz/uxyz1.rb

@@ -1,10 +1,9 @@
 #
 # uxyz1.rb
-#   $Id: uxyz1.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uxyz/uxyz2.rb

@@ -1,10 +1,9 @@
 #
 # uxyz2.rb
-#   $Id: uxyz2.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uxyz/uxyz3.rb

@@ -1,10 +1,9 @@
 #
 # uxyz3.rb
-#   $Id: uxyz3.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uxyz/uxyz4.rb

@@ -1,10 +1,9 @@
 #
 # uxyz4.rb
-#   $Id: uxyz4.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uxyz/uxyz5.rb

@@ -1,10 +1,9 @@
 #
 # uxyz5.rb
-#   $Id: uxyz5.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/rakuraku/uxyz/uxyz6.rb

@@ -1,10 +1,9 @@
 #
 # uxyz6.rb
-#   $Id: uxyz6.rb,v 1.1.1.1 2011/02/23 07:21:26 horinout Exp $
+#   $Id$
 #
 
 
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math