ruby-dcl 1.7.1 → 1.8.2

data/demo/grph2/ucpack/ucpk01.rb

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

data/demo/grph2/ucpack/ucpk02.rb

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

data/demo/grph2/udegpk/u2df01.rb

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

data/demo/grph2/udegpk/u2df02.rb

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

data/demo/grph2/udegpk/u2df03.rb

@@ -1,10 +1,9 @@
 #
 # u2df03.rb
 #
-# $Id: u2df03.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -72,9 +71,9 @@ DCL::uyaxlb('R', uy1, uy2, ch, nc)
 DCL::uysttl('L', 'LATITUDE', 0.0)
 
 DCL::uwsgxb(XMNZ, XMXZ, NXZ)
-DCL::uwsgya(uy1[(IYZ1-1)..-1])
+DCL::uwsgya(uy1[(IYZ1-1)..(IYZ1-1+NYZ-1)])
 
-DCL::udcntr(p[(IXZ1-1)..-1,(IYZ1-1)..-1])
+DCL::udcntr(p[(IXZ1-1)..(IXZ1-1+NXZ-1),(IYZ1-1)..(IYZ1-1+NYZ-1)])
 
 DCL::grcls
 

data/demo/grph2/udegpk/u2df04.rb

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

data/demo/grph2/udegpk/u2df05.rb

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

data/demo/grph2/udegpk/u2df06.rb

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

data/demo/grph2/udegpk/u2df07.rb

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

data/demo/grph2/udegpk/u2df08.rb

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

data/demo/grph2/udegpk/u2df09b.rb

@@ -1,4 +1,3 @@
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/grph2/udegpk/u2df09c.rb

@@ -1,4 +1,3 @@
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/grph2/udegpk/u2df09e.rb

@@ -1,4 +1,3 @@
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/grph2/udegpk/u2df09f.rb

@@ -1,4 +1,3 @@
-require "narray"
 require "numru/dcl"
 include NumRu
 include Math

data/demo/grph2/uipack/uipk01.rb

@@ -1,10 +1,9 @@
 #
 # uipk01.rb
 #
-# $Id: uipk01.rb,v 1.1 2012/03/30 13:57:40 koshiro Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/uipack/uipk02.rb

@@ -1,10 +1,9 @@
 #
 # uipk02.rb
 #
-# $Id: uipk02.rb,v 1.1 2012/03/09 02:02:12 koshiro Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -15,8 +14,6 @@ nx = 50
 ny = 50
 
 z = NArray.sfloat(nx, ny)
-p z.rank
-p z.class
 
 #-- data ---
 for j in 0..ny-1
@@ -26,23 +23,34 @@ for j in 0..ny-1
 end
 
 #-- graph ---
-DCL::swiset('WINDOW_HEIGHT', 300)
-DCL::swiset('WINDOW_WIDTH', 300)
+DCL::swiset('WINDOW_HEIGHT', 500)
+DCL::swiset('WINDOW_WIDTH', 500)
 
 iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
 
 DCL::gropn iws
-DCL::grfrm
-DCL::grswnd(-1.0, 1.0, -1.0, 1.0)
-DCL::grsvpt(0.1, 0.9, 0.1, 0.9)
-DCL::grstrn(1)
-DCL::grstrf
-
-DCL::uipdat(z)
-
-DCL::uxaxdv('t', 0.1, 0.5)
-DCL::uxaxdv('b', 0.1, 0.5)
-DCL::uyaxdv('l', 0.1, 0.5)
-DCL::uyaxdv('r', 0.1, 0.5)
+
+for i in 0..1
+  DCL::grfrm
+  DCL::grswnd(-1.0, 1.0, -1.0, 1.0)
+  DCL::grsvpt(0.1, 0.9, 0.1, 0.9)
+  DCL::grstrn(1)
+  DCL::grstrf
+
+  if i==0
+    DCL::uilset('lcellx',true)
+    DCL::uilset('lcelly',true)
+  else
+    DCL::uilset('lcellx',false)
+    DCL::uilset('lcelly',false)
+  end
+
+  DCL::uipdat(z)
+
+  DCL::uxaxdv('t', 0.1, 0.5)
+  DCL::uxaxdv('b', 0.1, 0.5)
+  DCL::uyaxdv('l', 0.1, 0.5)
+  DCL::uyaxdv('r', 0.1, 0.5)
+end
 
 DCL::grcls

data/demo/grph2/uipack/uipk03.rb

@@ -0,0 +1,50 @@
+#
+# uipk03.rb
+#
+
+require "numru/dcl"
+
+include NumRu
+include Math
+
+nx = 100
+ny = 100
+
+r = NArray.sfloat(nx, ny)
+g = NArray.sfloat(nx, ny)
+b = NArray.sfloat(nx, ny)
+
+for j in 0..ny-1
+  for i in 0..nx-1
+    r[i,j] = exp(-((i-nx/2.0 )**2  + (j-ny/2.0)**2 ) / 5000.0)
+    g[i,j] = exp(-((i-nx/1.01)**2  + (j-ny/1.02)**2) / 1000.0)
+    b[i,j] = exp(-((i-ny/3.0 )**2  + (j-ny/5.0)**2 ) / 3000.0)
+  end
+end
+
+rc = DCL.rnorml(r,0.0,1.0)
+gc = DCL.rnorml(g,0.2,1.0)
+bc = DCL.rnorml(b,0.0,1.0)
+
+DCL.swpset('iheight', 300)
+DCL.swpset('iwidth', 300)
+
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+
+DCL.gropn(iws)
+DCL.grfrm
+DCL.grswnd( -1.0, 1.0, -1.0, 1.0)
+DCL.grsvpt(0.1, 0.9, 0.1, 0.9)
+DCL.grstrn(1)
+DCL.grstrf
+
+DCL.prcopn('DclPaintGrid3')
+DCL.uipda3(rc, gc, bc)
+DCL.prccls('DclPaintGrid3')
+
+DCL.uxaxdv('T', 0.1, 0.5)
+DCL.uxaxdv('B', 0.1, 0.5)
+DCL.uyaxdv('L', 0.1, 0.5)
+DCL.uyaxdv('R', 0.1, 0.5)
+
+DCL.grcls

data/demo/grph2/ulpack/ulpk01.rb

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

data/demo/grph2/ulpack/ulpk01n.rb

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

data/demo/grph2/ulpack/ulpk02.rb

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

data/demo/grph2/ulpack/ulpk02n.rb

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

data/demo/grph2/umpack/test01.rb

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

data/demo/grph2/umpack/test02.rb

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

data/demo/grph2/umpack/test03.rb

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

data/demo/grph2/umpack/test04.rb

@@ -1,10 +1,9 @@
 #
 # test04.rb
 #
-# $Id: test04.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -43,7 +42,7 @@ for i in 0..np-1
   DCL::sglset('LCLIP', true)
   DCL::slpwwr(1)
   DCL::slpvpr(1)
-  cttl = DCL::sgtrnl(DCL::isgtrc(ctr[i]))
+  cttl=DCL::sgtrnl(DCL::isgtrc(ctr[i]))
   DCL::sgtxzr(0.5, 0.95, cttl, 0.03, 0, 0, 3)
 
   DCL::umpmap('coast_world')

data/demo/grph2/umpack/test05.rb

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

data/demo/grph2/umpack/test05r.rb

@@ -0,0 +1,86 @@
+#
+# test05.rb
+#
+# $Id$
+#
+
+require "numru/dcl"
+
+include NumRu
+include Math
+
+
+np = 14
+nx = 73
+ny = 37
+xmin = 0
+xmax = 360
+ymin = -90
+ymax = 90
+p = NArray.new(Float, nx*ny)
+
+#-- data ---
+ctr = ['cyl','mer','mwd','hmr','ek6','ktd','con',
+       'coa','coc','bon','otg','pst','azm','aza']
+fct = NArray[0.12, 0.12, 0.14, 0.14, 0.14, 0.14, 0.11,
+               0.16, 0.12, 0.12, 0.40, 0.12, 0.12, 0.17]
+
+i = 0
+File.foreach('t811231.dat') do |line|
+  line.split(" ").each do |data|
+    p[i] = data.to_f
+    i += 1
+  end
+end
+p.reshape!(nx, ny)
+
+190.step(245, 5) do |r|
+  amin=r
+  amax=r+5
+#       IDX=(R-180)*1.4*1000+999
+  idx=((r-170)*1.25).to_i*1000+999
+  DCL::uestlv(amin, amax, idx)
+end
+
+#-- graph ---
+DCL::swpset('IWIDTH', 4000)
+DCL::swpset('IHEIGHT', 2800)
+iws = (ARGV[0] || (puts ' WORKSTATION ID (I)  ? ;'; DCL::sgpwsn; gets)).to_i
+DCL::sgopn iws
+
+DCL::sglset('LSOFTF', false)
+DCL::sgrset('STLAT1', 75.0)
+DCL::sgrset('STLAT2', 60.0)
+DCL::umlset('LGRIDMJ', false)
+DCL::umrset('DGRIDMN', 30.0)
+
+for i in 0..np-1
+  DCL::sgfrm
+  DCL::sgssim(fct[i], 0.0, 0.0)
+  DCL::sgsmpl(165.0, 60.0, 0.0)
+  DCL::sgsvpt(0.1, 0.9, 0.1, 0.9)
+  DCL::sgswnd(xmin, xmax, ymin, ymax)
+
+  if (ctr[i] == 'otg')
+    DCL::sgstxy(-180.0, 180.0, 0.0, 90.0)
+  else
+    DCL::sgstxy(-180.0, 180.0, -90.0, 90.0)
+  end
+  DCL::sgstrn(DCL::isgtrc(ctr[i]))
+  DCL::sgstrf
+
+  DCL::sglset('LCLIP', true)
+  DCL::slpwwr(1)
+  DCL::slpvpr(1)
+  cttl = DCL::sgtrnl(DCL::isgtrc(ctr[i]))
+  DCL::sgtxzr(0.5, 0.95, cttl, 0.03, 0, 0, 3)
+
+  DCL::uetone(p)
+  DCL::udcntr(p)
+  DCL::umpmap('coast_world')
+  DCL::umpglb
+  DCL::slpvpr(1)
+end
+
+DCL::sgcls
+

data/demo/grph2/umpack/test06.rb

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

data/demo/grph2/umpack/test07.rb

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

data/demo/grph2/umpack/test08.rb

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

data/demo/grph2/umpack/test10.rb

@@ -1,4 +1,3 @@
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph2/umpack/umpk01.rb

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

data/demo/grph2/umpack/umpk02.rb

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

data/demo/grph2/umpack/umpk03.rb

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

data/demo/grph2/umpack/umpk04.rb

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

data/demo/grph2/umpack/umpk05.rb

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

data/demo/grph2/uspack/uspk01.rb

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

data/demo/grph2/uspack/uspk02.rb

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

data/demo/grph2/uspack/uspk03.rb

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

data/demo/grph2/uspack/uspk04.rb

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