ruby-dcl 1.7.1 → 1.8.2

data/LICENSE.txt

@@ -1,7 +1,7 @@
 RubyDCL is copyrighted free software by Takeshi Horinouchi and
 GFD Dennou Club (http://www.gfd-dennou.org/).
 
-Copyright 2011 (C) Takeshi Horinouchi and GFD Dennou Club
+Copyright 2003-2022 (C) GFD Dennou Club
 (http://www.gfd-dennou.org/) All rights reserved.
 
 Redistribution and use in source and binary forms, with or without

data/Rakefile

@@ -1,26 +1,22 @@
 # -* coding: utf-8 -*-
-require 'rake/testtask'
 require 'rake/extensiontask'
 require 'rake/packagetask'
 begin
-  require 'bundler/gem_tasks'
+  require 'bundler/gem_helper'  # instead of 'bundler/gem_tasks' -> need manual
+                                # calls of install_tasks (see below)
 rescue LoadError
   puts 'If you want to create gem, You must install Bundler'
 end
 
-require './lib/numru/dcl.rb'
+# manual calls of install_tasks to support multiple gemspec files
+Bundler::GemHelper.install_tasks(name: "ruby-dcl")
+
+require './lib/numru/dcl/version.rb'
 def version
   NumRu::DCL::VERSION
 end
 
-task :default => :test
-task :test => :compile
-Rake::TestTask.new do |t|
-  t.libs << 'lib' << 'test'
-  #t.test_files = FileList['test/test_*.rb'].exclude('test/test_assoccoords.rb')
-  #t.test_files = FileList['./demo/rubydcloriginal/*.rb']
-end
-
+task :default => :compile
 Rake::ExtensionTask.new do |ext|
   ext.name = 'dcl_raw'
   ext.ext_dir = 'ext/numru'

data/demo/gokuraku/hop/hop.rb

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

data/demo/gokuraku/jump/jump1.rb

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

data/demo/gokuraku/jump/jump2.rb

@@ -1,9 +1,8 @@
 #
 # jump2.rb
-#   $Id: jump2.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+#   $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -41,7 +40,7 @@ DCL::grsvpt(0.2,  0.8,   0.2,  0.8)
 DCL::grstrn(4)
 DCL::grstrf
 
-DCL::ussttl('FREQUENCY', '/s', 'POWER', 'm|2"/s|2"')
+DCL::ussttl('FREQUENCY', '/s', 'POWER', 'm\^2/s\^2')
 DCL::usdaxs
 
 DCL::uulin(x, y)

data/demo/gokuraku/layout/lay1.rb

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

data/demo/gokuraku/layout/lay2.rb

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

data/demo/gokuraku/step/step0.rb

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

data/demo/gokuraku/step/step1.rb

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

data/demo/gokuraku/step/step2.rb

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

data/demo/gokuraku/u1d/u1d1.rb

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

data/demo/gokuraku/u1d/u1d2.rb

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

data/demo/gokuraku/u2d/u2d1.rb

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

data/demo/gokuraku/u2d/u2d2.rb

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

data/demo/gokuraku/u2d/u2d3.rb

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

data/demo/gokuraku/u2d/u2d4.rb

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

data/demo/grph1/scpack/scpkt2.rb

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

data/demo/grph1/scpack/scpkt3.rb

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

data/demo/grph1/scpack/scpkt6.rb

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

data/demo/grph1/scpack/scpkt7.rb

@@ -1,10 +1,9 @@
 #
 # scpkt7.rb
 #
-# $Id: scpkt7.rb,v 1.2 2011/02/23 15:21:41 koshiro Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph1/scpack/scpkt8.rb

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

data/demo/grph1/sgpack/sgfont.rb

@@ -1,10 +1,9 @@
 #
 # sgfont.rb
 #
-# $Id: sgfont.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -41,7 +40,7 @@ DCL::sgtxzv(0.5, 0.95, cttl, 0.03, 0, 0, 3)
 for i in 0..255
   ux=i/16+0.5
   uy=16-(i.divmod(16))[1]-0.5
-  DCL::sgtxzu(ux, uy, DCL::csgi(i), 0.035, 0, 0, 3)
+  DCL::sgtxzu(ux, uy, DCL::usgi(i), 0.035, 0, 0, 3)
   ux=ux+0.48
   uy=uy+0.38
   ch = format("%3d", i)

data/demo/grph1/sgpack/sgfonz.rb

@@ -1,10 +1,9 @@
 #
 # sgfonz.rb
 #
-# $Id: sgfonz.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -40,7 +39,7 @@ for n in 1..2
     ux=i/16+0.5
     uy=16-(i.divmod(16))[1]-0.5
     if (!(i == 30 || i == 31))
-      DCL::sgtxzu(ux, uy, DCL::csgi(i), 0.035, 0, 0, 3)
+      DCL::sgtxzu(ux, uy, DCL::usgi(i), 0.035, 0, 0, 3)
     end
     ux=ux+0.48
     uy=uy+0.38

data/demo/grph1/sgpack/sgksx1.rb

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

data/demo/grph1/sgpack/sgksx2.rb

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

data/demo/grph1/sgpack/sgksx3.rb

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

data/demo/grph1/sgpack/sglidx.rb

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

data/demo/grph1/sgpack/sgltyp.rb

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

data/demo/grph1/sgpack/sgpk01.rb

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

data/demo/grph1/sgpack/sgpk02.rb

@@ -1,10 +1,9 @@
 #
 # sgpk02.rb
 #
-# $Id: sgpk02.rb,v 1.2 2011/02/23 15:21:41 koshiro Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu

data/demo/grph1/sgpack/sgpk03.rb

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

data/demo/grph1/sgpack/sgpk04.rb

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

data/demo/grph1/sgpack/sgpk05.rb

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

data/demo/grph1/sgpack/sgpk06.rb

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

data/demo/grph1/sgpack/sgpk07.rb

@@ -1,10 +1,9 @@
 #
 # sgpk07.rb
 #
-# $Id: sgpk07.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -31,15 +30,17 @@ end
 DCL::sglnv(xc, 0.05, xc, 0.95)
 
 #----------------------- SUPER/SUB SCRIPT ------------------------------
-DCL::sgtxv(xc, y[0], 'SGTXV|SUP"RST_SUB"')
+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::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"')
+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)
 
 #------------------------ FONT SELECTION -------------------------------
 DCL::sgstxi(1)
@@ -53,13 +54,13 @@ 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
+greek1 = [152,153,154,155,156,157,158,159,160,161].collect{|i| DCL::usgi(i)}.join
+greek2 = [130,131,135,138,141,143,145,148,150,151].collect{|i| DCL::usgi(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
+symbol = [189,190,191,192,193,210,211,212,217,218].collect{|i| DCL::usgi(i)}.join
 DCL::sgtxv(xc, y[8], symbol)
 
 DCL::sgcls

data/demo/grph1/sgpack/sgpk08.rb

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

data/demo/grph1/sgpack/sgpk09.rb

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

data/demo/grph1/sgpack/sgpk10.rb

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

data/demo/grph1/sgpack/sgtclr.rb

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

data/demo/grph1/sgpack/sgtone.rb

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

data/demo/grph1/sgpack/sgtonz.rb

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

data/demo/grph1/slpack/slpk01.rb

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

data/demo/grph1/slpack/slpk02.rb

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

data/demo/grph1/slpack/slpk03.rb

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

data/demo/grph1/slpack/slpk04.rb

@@ -1,10 +1,9 @@
 #
 # slpk04.rb
 #
-# $Id: slpk04.rb,v 1.1.1.1 2011/02/23 07:21:27 horinout Exp $
+# $Id$
 #
 
-require "narray"
 require "numru/dcl"
 
 include NumRu
@@ -30,7 +29,7 @@ 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::sgtxzu(0.0, 0.0, "15cm #{DCL::usgi(194)} 15cm", 0.05, 0, 0, 3)
 
 DCL::sgcls
 

data/demo/grph2/grpack/grpk01.rb

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