when_exe 0.4.2 → 0.5.0

data/lib/when_exe/basictypes.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2015 Takashi SUGA
+  Copyright (C) 2011-2021 Takashi SUGA
 
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
@@ -29,7 +29,7 @@ module When
         # @option options [Integer] :extra_year_digits ISO8601拡大表記のための年の構成要素拡大桁数(省略時 1桁)
         # @option options [Integer] :ordinal_date_digits ISO8601拡大表記の年内通日の桁数(省略時 3桁)
         #
-        # @return [Array] format, date, time, clock, era
+        # @return [Array] format, date, time, clock, era, r
         #
         #   format (Symbol, nil)
         #     nil      通常形式
@@ -45,11 +45,14 @@ module When
         #
         #   era   (String, Array<String, Integer>) 年号(Integerは0年に対応する通年)
         #
+        #   r     (Hash<Integer=>When::Coordinates::Residue or String>) 剰余類などの指定
+        #
         def _to_array(date_time, options={})
           raise TypeError, "Argument is not ISO 8601 String" unless date_time.kind_of?(String)
           if options[:abbr].kind_of?(When::TimeValue)
             options[:abbr] = ((options[:frame]||When::Gregorian) ^ options[:abbr]).cal_date
           end
+          date_time = _parse(date_time, options.delete(:parse), options[:abbr]||[]) if options[:parse]
           date_time = date_time.gsub(/[_\s]+([\d])/, '\1')
           begin
             return _to_array_basic(date_time, options)
@@ -106,7 +109,6 @@ module When
           # extended date & time format (JIS X0301)
           when  /\A((.+::)?(\[[^\]]+\]|[^-+\d{]+))(([-+*&%@!>=<?\dW.\(\)]|\{.+?\})+)?(?:(T([:*=.,\d]+)?)([A-Z]+(\?.+)?|[-+][:\d]+)?)?\z/
             era, parent, child, d, v, t, time, clock = $~[1..8]
-            d0 = d
             d, r = _split_residue(d, options[:abbr]) if d =~ /\{/
             format, date, era = Date._to_array_extended_X0301(d, era, options)
             era ||= options[:era_name] if d =~ /\./
@@ -126,19 +128,48 @@ module When
 
         # 剰余類の指定を置き換える
         def _split_residue(d, abbr)
-          abbr,    = abbr
-          residue = {}
+          abbr,   = abbr
+          options = {}
           count   = 0
           sign, d = d =~ /^-/ ? ['-', d[1..-1]] : ['', d]
           [sign + d.gsub(/[-+*&%@!>=<?.]|(\d)?\{(.+?)\}/) {|s|
             if $2
-              residue[count] = $2
-              count == 0 ? ($1 || abbr || 1) : $1
+              digit     = $1
+              operation = $2.strip
+              residue   = When.Residue(operation) unless operation =~ /[#,]|[^:][-+]/
+              options[count] = residue && residue.shifted ? residue : operation
+              count == 0 ? (digit || abbr || 1) : digit
             else
               count += 1
               s
             end
-          }, residue]
+          }, options]
+        end
+
+        # 日付文字列を事前に変換する
+        def _parse(date_time, parse, abbr)
+          format, locale = parse
+          case format
+          when String, Hash
+            h = When::Locale._to_date_time_hash(date_time, format, locale)
+            date_time  = (h[:wday] ? "%4d-%02d-01{%d&%s}" : "%4d-%02d-%02d") % [
+              h[:year] || abbr[0] ||    ::Date.today.year,
+              h[:mon]  || abbr[1] ||    1,
+              h[:mday] || abbr[2] ||    1,
+              When::V::Event::DayOfWeek[h[:wday]||0]]
+            date_time << "T%02d:%02d:%02d" % [
+              h[:hour] || abbr[3] ||    0,
+              h[:min]  || abbr[4] ||    0,
+              h[:sec]  || abbr[5] ||    0] if h[:hour]
+            date_time << When::TM::Clock.to_hms(h[:offset]) if h[:offset]
+          when Array
+            parse.each do |item|
+              item[2] ? date_time.gsub!(item[0], item[1]) :
+              item[1] ? date_time.sub!( item[0], item[1]) :
+                        date_time.gsub!(When::Locale.const_get(item[0])) {|digit| When::Locale.k2a_digits(digit, true)}
+            end unless date_time =~ /\{/
+          end
+          date_time
         end
       end
     end
@@ -354,12 +385,12 @@ module When
           else
             tt = [0]
           end
-          while time =~ /\A(\d{2}(?:\.\d+)?|-)([:*=])(.+)/
+          while time =~ /\A(\d{1,2}(?:\.\d+)?|-)([:*=])(.+)/
             time = $3
             tt << Coordinates::Pair._en_pair($1=='-' ? abbr.shift : $1, $2)
           end
           case time
-          when /\A(\d{2}(\.\d+)?)\z/
+          when /\A(\d{1,2}(\.\d+)?)\z/
             tt << Coordinates::Pair._en_number($1, nil)
           when ''
           else
@@ -588,14 +619,14 @@ module When
       #       prefix: - namespace 引数の指定により URI に展開する
       #
       # @example
-      #   M17n.new(['3月', 'fr:Mars=http://fr.wikipedia.org/wiki/Mars_(mois)', 'March'],
-      #            {'en_wikipedia'=>'http://en.wikipedia.org/wiki/',
-      #             'ja_wikipedia'=>'http://ja.wikipedia.org/wiki/'},
+      #   M17n.new(['3月', 'fr:Mars=https://fr.wikipedia.org/wiki/Mars_(mois)', 'March'],
+      #            {'en_wikipedia'=>'https://en.wikipedia.org/wiki/',
+      #             'ja_wikipedia'=>'https://ja.wikipedia.org/wiki/'},
       #            ['=ja_wikipedia:', '*en=en_wikipedia:']) を行うと、生成された M17n では、
       #   @names     = {''  =>'3月', 'fr'=>'Mars', 'en'=>'March'}
-      #   @namespace = {''  =>'http://ja.wikipedia.org/wiki/3%E6%9C%88',
-      #                 'fr'=>'http://fr.wikipedia.org/wiki/Mars_(mois)',
-      #                 'en'=>'http://en.wikipedia.org/wiki/March'}
+      #   @namespace = {''  =>'https://ja.wikipedia.org/wiki/3%E6%9C%88',
+      #                 'fr'=>'https://fr.wikipedia.org/wiki/Mars_(mois)',
+      #                 'en'=>'https://en.wikipedia.org/wiki/March'}
       #   となり、通常の String として振舞う場合は 'March' として振舞う
       #
       def initialize(*args)

data/lib/when_exe/calendarnote.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2015 Takashi SUGA
+  Copyright (C) 2011-2021 Takashi SUGA
 
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
@@ -35,19 +35,9 @@ module When
     end
 
     #
-    # 暦注要素のひな形クラス
+    # 暦注要素であることを示す
     #
-    # @private
-    class NoteElement < When::BasicTypes::Object
-      #
-      # _m17n_form のための要素生成
-      #
-      # @param [Hash] options 下記のとおり
-      # @option options [Symbol] :method :to_m17n なら label を返す、その他は When::Parts::Resource#to_h 参照
-      #
-      def _to_hash_value(options={})
-        options[:method] == :to_m17n ? label : super
-      end
+    module NoteElement
     end
 
     #
@@ -118,7 +108,7 @@ module When
       #
       # @return [Array] ハッシュ要素からなる配列(元の構造が配列であった場合)
       #
-      # @note 引数 symbol が Integer の場合は添え字とみなして元の配列の要素を取り出す
+      # @note 引数 symbol が Symbol でも String でもない場合は添え字とみなして元の配列の要素を取り出す
       #
       def value(compact=true, symbol=:value)
         if kind_of?(Hash) && !key?(:note)
@@ -129,8 +119,12 @@ module When
           end
         else
           # Non-Persistent NotesContainer
-          return _bless(slice(symbol)) if symbol.kind_of?(Integer)
-          sliced = _dig(self) {|target| target.fetch(symbol, nil)}
+          case symbol
+          when Symbol, String
+            sliced = _dig(self) {|target| target.fetch(symbol, nil)}
+          else 
+            return _bless(slice(symbol))
+          end
         end
         sliced = _bless(sliced)
         compact ? sliced.simplify : sliced
@@ -335,7 +329,7 @@ module When
     def notes(date, options={})
       dates, indices, notes, persistence, conditions, options = _parse_note(date, options)
       retrieved = NotesContainer.retrieve(persistence, date.to_i)
-      return retrieved unless retrieved == false
+      return retrieved if retrieved
       NotesContainer.register(indices.map {|i|
         next [] unless i <= date.precision
         _note_values(dates, notes[i-1], _all_keys[i-1], _elements[i-1]) do |dates, focused_notes, notes_hash|
@@ -441,7 +435,7 @@ module When
         nobj = note_objects[note]
         case notes[note]
         when nil, false ; {}
-        when Hash       ; {:note=>nobj.label}.merge(notes[note])
+        when Hash       ; {:note=>nobj}.merge(notes[note])
         else
           if nobj.respond_to?(:to_note_hash)
             nobj.to_note_hash(notes[note], dates)
@@ -476,6 +470,7 @@ module When
           arg, method = $1, $2 if (arg =~ /\A(.+)#([_A-Z0-9]+)\z/i)
           obj = When.Resource(arg, prefix)
           obj = obj.copy(method) if method
+          obj.extend NoteElement
           obj
         when Array
           _to_iri(arg, prefix)
@@ -608,6 +603,20 @@ module When
       root.send(When::Coordinates::PRECISION_NAME[index].downcase, dates)
     end
 
+    #
+    # イベントの標準的な間隔を返す
+    #
+    # @param [String] parameter 座標の分子と分母("#{ num }/#{ den }" の形式)
+    #
+    # @return [When::TM::IntervalLength]
+    #
+    # @private
+    def event_delta(parameter=nil)
+      return @delta unless parameter
+      num, den = parameter.kind_of?(String) ? parameter.split(/\//, 2) : parameter
+      When::TM::IntervalLength.new([(den || @den).to_f,1].max*0.9, 'day')
+    end
+
     #
     # イベントを取得する Enumerator
     #

data/lib/when_exe/calendartypes.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2015 Takashi SUGA
+  Copyright (C) 2011-2021 Takashi SUGA
 
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
@@ -73,33 +73,6 @@ module When::CalendarTypes
   #
   class LocalTime < UTC
 
-    # 128秒単位の実数による参照事象の時刻
-    #
-    # Fraction time of the reference event
-    #
-    # @param [Integer] sdn 参照事象の通し番号
-    #
-    # @return [Numeric]
-    #
-    #   T00:00:00Z からの参照事象の経過時間 / 128秒
-    #
-    def universal_time(sdn=nil)
-      return super - @time_standard.localtime_difference unless sdn
-      time = When::TM::JulianDate._d_to_t(sdn-0.5)
-      @time_standard.to_dynamical_time(time) - When::TimeStandard.to_dynamical_time(time)
-    end
-
-    # この時法の時刻を128秒単位の実数に変換する
-    #
-    # @param [Array<Numeric>] clk_time
-    # @param [Integer] sdn 参照事象の通し番号(ダミー)
-    #
-    # @return [Numeric]
-    #
-    def to_local_time(clk_time, sdn=nil)
-      super - universal_time(sdn)
-    end
-
     #
     # Zone 名
     #
@@ -108,14 +81,6 @@ module When::CalendarTypes
     def zone
       iri.split('/')[-1]
     end
-
-    private
-
-    # オブジェクトの正規化
-    def _normalize(args=[], options={})
-      @origin_of_LSC = - @time_standard.localtime_difference / When::TM::Duration::SECOND
-      super
-    end
   end
 
   #
@@ -419,7 +384,7 @@ module When::CalendarTypes
     #
     def _length(date)
       y, m = date
-      if (m)
+      if m
         #  指定した月に含まれる日の数を返します。
         return @unit[2] if @unit[2]
         rule = _rule(_key([y]))
@@ -443,7 +408,7 @@ module When::CalendarTypes
       # rule_table
       # @rule_table = @rule_table.dup
       @rule_table = {'T' => {'Rule' => @rule_table }} if @rule_table.kind_of?(Array)
-      @_m_cash_          = {}
+      @_m_cash_          = Hash.new {|hash,key| hash[key]={}}
       @_m_cash_["_rule"] = @rule_table
 
       # unit length
@@ -454,7 +419,7 @@ module When::CalendarTypes
 
       # mean month length
       if @entry_key
-        ::Rational
+        Rational
         @mean_month = Rational(@rule_table[@entry_key]['Days'], @rule_table[@entry_key]['Months'])
         @mean_year  = Rational(@rule_table[@entry_key]['Days'], @rule_table[@entry_key]['Years' ])
       end
@@ -497,8 +462,6 @@ module When::CalendarTypes
       n_sdn = (@_m_cash_["_sdn"][n_key] ||= _sdn_(n_date))
       key   = (n_sdn - c_sdn).to_i
       rule  = (@_m_cash_["_rule"][key]  ||= _rule_(key))
-      @_m_cash_["_key"]        ||= {}
-      @_m_cash_["_ids"]        ||= {}
       @_m_cash_["_key"][c_key] ||= key
       @_m_cash_["_ids"][c_key] ||= rule['IDs']
       return c_sdn
@@ -646,7 +609,7 @@ module When::CalendarTypes
         difference.each_pair do |year, pattern|
           offset = year - hash['origin_of_MSC']
           hash['rule_table'][offset] =
-           if pattern.kind_of?(Hash)
+            if pattern.kind_of?(Hash)
               rule = hash['rule_table'][offset].dup
               pattern.each_pair do |key,value|
                 raise ArgumentError, "Can't patch \"#{rule}\" by {#{key}=>#{value}} at #{year}" unless rule.sub!(key,value)
@@ -772,8 +735,6 @@ module When::CalendarTypes
       count, year = c_date[0].divmod(root_rule['Years'])
       key, dd, mm = root_rule['Rule'][year]
       rule = (@_m_cash_["_rule"][key] ||= _rule_(key))
-      @_m_cash_["_key"]        ||= {}
-      @_m_cash_["_ids"]        ||= {}
       @_m_cash_["_key"][c_key] ||= key
       @_m_cash_["_ids"][c_key] ||= rule['IDs']
       @_m_cash_["_sdn"][c_key] ||= @origin_of_LSC + dd + count * root_rule['Days']
@@ -1027,8 +988,6 @@ module When::CalendarTypes
       sdn, y, key  = _read_period(@entry_key,
                    'Years', value,
                    'Days',  @origin_of_LSC + count * root_rule['Days'])
-      @_m_cash_["_key"]        ||= {}
-      @_m_cash_["_ids"]        ||= {}
       @_m_cash_["_key"][c_key] ||= key
       @_m_cash_["_ids"][c_key] ||= @_m_cash_["_rule"][key]['IDs']
       @_m_cash_["_sdn"][c_key] ||= sdn
@@ -1331,10 +1290,11 @@ module When::CalendarTypes
     #
     def _normalize(args=[], options={})
       @cycle_offset   ||= -1.5
-      @formula        ||= "Formula?formula=#{@months_in_year||12}S"
+      @formula        ||= (When::CalendarNote::LuniSolarPositions.table_off ?
+                            "Formula?formula=#{@months_in_year||12}S" : 'SolarFormulaWithTable')
       super
     end
- end
+  end
 
   # 月日の配当が月の位相によって決定される純太陰暦
   #
@@ -1424,7 +1384,7 @@ module When::CalendarTypes
       if m
         #  指定した月に含まれる日の数を返します。
         m += _new_year_month(+y)
-        _new_month(m+1) - _new_month(m)
+        _new_month(+m+1) - _new_month(+m)
       else
         #  指定した年に含まれる月の数を返します。
         _ids([y]).length
@@ -1478,7 +1438,9 @@ module When::CalendarTypes
     # notes        = to_a でデフォルトとして用いる暦注
     #
     def _normalize(args=[], options={})
-      @formula ||= ['Formula?formula=12S', 'Formula?formula=1L']
+      @formula ||= (When::CalendarNote::LuniSolarPositions.table_off ?
+                     ['Formula?formula=12S',  'Formula?formula=1L'] :
+                     ['SolarFormulaWithTable','LunarFormulaWithTable'])
       super
     end
   end

data/lib/when_exe/coordinates.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2015 Takashi SUGA
+  Copyright (C) 2011-2021 Takashi SUGA
 
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
@@ -26,14 +26,15 @@ module When::Coordinates
   #
   # @param [String]   src 60進法で表した方向付きの数値
   # @param [String]   dir 方向 ('NS' または 'EW')
+  # @param [Numeric]  degree 角度の単位 (1 => 1度, 225=> 1/225 度)
   #
   # @return [Numeric] 10進変換した数値 (src が nil なら0.0を、Numeric なら 225*src を返す)
   #
-  def self.to_deg_225(src, dir)
+  def self.to_deg_225(src, dir, degree=Spatial::DEGREE)
     case src
     when String
       src = src.gsub(/_+/,'').gsub(/@/, '.')
-      return src.to_r * Spatial::DEGREE if (src =~ /E[-+]/ || src !~ MATCH[dir])
+      return src.to_r * degree if (src =~ /E[-+]/ || src !~ MATCH[dir])
       sign  = ($1 == dir[1..1]) ? -1 : +1
       value = src.gsub(MATCH[dir], '').strip
       if ((value + "00000") =~ /\A(\d+)\.(\d{2})(\d{2})(\d+)\z/)
@@ -42,13 +43,13 @@ module When::Coordinates
       else
         deg, min, sec = value.split(/[^\d.]+/)
       end
-      return sign * (deg.to_i *  Spatial::DEGREE +
-                (min||0).to_f * (Spatial::DEGREE/60.0) +
-                (sec||0).to_f * (Spatial::DEGREE/3600.0))
+      return sign * (deg.to_i *  degree +
+                (min||0).to_f * (degree/60.0) +
+                (sec||0).to_f * (degree/3600.0))
     when NilClass
       0.0
     when Numeric
-      src * Spatial::DEGREE
+      src * degree
     else
       raise TypeError, "Invalid Location Type"
     end
@@ -121,13 +122,14 @@ module When::Coordinates
         else            ; return nil
         end
 
-        day, shift = day.split(':', 2)
+        day, shift = day =~ /\A([-+\d]+)(.+)/ ? [$2, $1] : day.split(':', 2)
         residue = day.split('&').inject(nil) {|res,d|
           r = _day_of_week(d.strip, dow)
           return nil unless r
           res ? res & r : r
         }
         return residue unless shift
+        shift << '1' unless shift =~ /\d/
         shift  = shift.to_i
         shift -= 1 if shift > 0
         residue >> shift
@@ -238,6 +240,13 @@ module When::Coordinates
     attr_accessor :carry
     protected :carry=
 
+    # 周期分の補正の有無
+    #
+    # @return [Boolean]
+    #
+    attr_accessor :shifted
+    protected :shifted=
+
     # 単位
     #
     # @return [Hash] { String=>Numeric }
@@ -346,7 +355,9 @@ module When::Coordinates
     # @return [When::Coordinates::Residue]
     #
     def >>(other)
-      return self.class.new(@remainder, @divisor, @carry+other, @units)
+      result = self.class.new(@remainder, @divisor, @carry+other, @units)
+      result.shifted = true
+      result
     end
 
     # carryの減算
@@ -356,7 +367,9 @@ module When::Coordinates
     # @return [When::Coordinates::Residue]
     #
     def <<(other)
-      return self.class.new(@remainder, @divisor, @carry-other, @units)
+      result = self.class.new(@remainder, @divisor, @carry-other, @units)
+      result.shifted = true
+      result
     end
 
     # 剰余類の共通集合
@@ -488,6 +501,7 @@ module When::Coordinates
       raise RangeError, "Divisor shoud be Positive Numeric" if (@divisor <= 0)
       carry, @remainder = @remainder.divmod(@divisor)
       @carry += carry
+      @shifted   = @carry != 0
     end
 
     private
@@ -919,8 +933,8 @@ module When::Coordinates
           when nil
             form  += c
           else
-            suffix = DL2[m17ns[i ? i.to_i : index]*0]  || s if s
-            form  += t + ({nil=>'', '%'=>'%%'}[suffix] || suffix)
+            suffix = DL2[m17ns[i ? i.to_i : index] * 0]  || s if s
+            form  += t + ({nil=>'', '%'=>'%%'}[suffix]   || suffix)
             index += t.length - t.gsub(/\*/,'').length + 1
           end
           form
@@ -933,14 +947,14 @@ module When::Coordinates
     #
     # @return [Numeric] 年番号,月番号,日番号など暦要素の幹となる部分
     #
-    attr_accessor :trunk
+    attr_reader :trunk
 
     #
     # 暦要素の枝
     #
     # @return [Numeric] 暦要素のうち(閏であるかなど)幹で表現しきれない枝の部分
     #
-    attr_accessor :branch
+    attr_reader :branch
 
     #
     # 暦要素の幹と枝の和
@@ -1096,6 +1110,15 @@ module When::Coordinates
       return @trunk.to_s + (@branch==0 ? zero : DL2[@branch])
     end
 
+    # 整数化
+    #   Array の index 値を提供する場合に呼ばれる
+    #
+    # @return [Integer]
+    #
+    def to_i
+      @sum.to_i
+    end
+
     # 強制型変換
     # @private
     def coerce(other)
@@ -1123,19 +1146,6 @@ module When::Coordinates
         @sum   += @branch      if (@trunk)
       end
     end
-
-    # その他のメソッド
-    #   When::Coordinates:Pair で定義されていないメソッドは
-    #   処理を @sum (type:Numeric) に委譲する
-    #
-    def method_missing(name, *args, &block)
-      self.class.module_eval %Q{
-        def #{name}(*args, &block)
-          @sum.send("#{name}", *args, &block)
-        end
-      } unless When::Parts::MethodCash.escape(name)
-      @sum.send(name, *args, &block)
-    end
   end
 
   # 暦座標値
@@ -1243,370 +1253,6 @@ module When::Coordinates
     end
   end
 
-  #
-  # 空間位置
-  #
-  class Spatial < When::BasicTypes::Object
-
-    LabelProperty = 'label'
-
-    include When::Ephemeris
-
-    require 'when_exe/ephemeris/eclipse'
-
-    class << self
-      # When::Coordinates::Spatial のグローバルな設定を行う
-      #
-      # @param [When::Coordinates::Spatial, String] location デフォルトの空間位置を使用する場合、指定する
-      #
-      # @return [void]
-      #
-      # @note
-      #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
-      #   このため、本メソッド自体はスレッドセーフでない。
-      #
-      def _setup_(location=nil)
-        @_lock_ = Mutex.new if When.multi_thread
-        @_pool  = {}
-        @default_location = location
-      end
-
-      # デフォルトの空間位置
-      #
-      # @param [When::Coordinates::Spatial, String] local デフォルトの空間位置
-      #
-      # @return [When::Coordinates::Spatial, String]
-      #
-      # @note
-      #   @default_locationは、原則、ライブラリ立ち上げ時に _setup_ で初期化する。
-      #   以降、@default_locationに代入を行っても、すでに生成した When::TM::TemporalPosition 等には反映されない。
-      #
-      def default_location=(local)
-        if @_pool
-          @default_location = local
-        else
-          _setup_(local)
-        end
-      end
-
-      # 設定情報を取得する
-      #
-      # @return [Hash] 設定情報
-      #
-      def _setup_info
-        {:location => @default_location}
-      end
-
-      # デフォルトの空間位置を読みだす
-      #
-      # @return [When::Coordinates::Spatial]
-      #
-      def default_location
-        _default_location[1]
-      end
-
-      # デフォルトの空間位置が When::TM::Clock のローカルタイムから生成されたか?
-      #
-      # @return [true, false]
-      #
-      def is_default_location_derived?
-        location = _default_location
-        location[0] && location[1]
-      end
-
-      private
-
-      # 共通処理
-      def _default_location
-        case @default_location
-        when nil    ;
-        when Array  ; return  @default_location unless @default_location[0]
-        when String ; return (@default_location = [false, When.Resource(@default_location)])
-        else        ; return (@default_location = [false, @default_location])
-        end
-        timezone = When::TM::Clock.local_time
-        location = timezone.location if timezone.kind_of?(When::Parts::Timezone)
-        return [true, location]
-      end
-    end
-
-    # @private
-    HashProperty = [:label, :longitude, :latitude, [:altitude, 0.0], [:datum, When::Ephemeris::Earth], :ref]
-
-    # Degree / Internal Location Unit(16")
-    #
-    #   (3600 を 2 の因数で割りつくした値を単位とする)
-    DEGREE     = 225
-
-    # 黄道座標 (ecliptic coordinate  system)
-    ECLIPTIC   = 0
-
-    # 赤道座標 (equatorial coordinate system)
-    EQUATORIAL = 1
-
-    # 赤道座標[時角] (equatorial coordinate system with hour angle)
-    EQUATORIAL_HA = 2
-
-    # 地平座標 (horizontal coordinate system)
-    HORIZONTAL = 3
-
-    # 惑星中心の高度
-    CENTER = :center
-
-    # 北緯を正とする緯度 / 16秒
-    #
-    # @return [Numeric]
-    #
-    attr_reader :lat
-
-    # 東経を正とする経度 / 16秒
-    #
-    # @return [Numeric]
-    #
-    attr_reader :long
-
-    # 高度 / m
-    #
-    # @return [Numeric]
-    # @return [:Center] 天体の中心の場合
-    #
-    attr_reader :alt
-    alias :altitude :alt
-
-    # 座標系
-    #
-    # @return [When::Ephemeris::Datum]
-    #
-    attr_reader :datum
-
-    # 参照
-    #
-    # @return [String] URI
-    #
-    attr_reader :ref
-
-    # 時間帯(オプショナル)
-    #
-    # @return [TZInfo::CountryTimezone]
-    #
-    #    TZInfoライブラリから経緯度を取得して使用する
-    #
-    attr_reader :tz
-
-    # 緯度文字列
-    #
-    # @param [Integer] round 秒の小数点以下最大桁数
-    #
-    # @return [String] 緯度文字列(DD.MMSSsss[NS])
-    #
-    def lat_s
-      When::Coordinates.to_dms(lat / When::Coordinates::Spatial::DEGREE, 'NS', round=6)
-    end
-    alias :latitude :lat_s
-
-    # 経度文字列
-    #
-    # @param [Integer] round 秒の小数点以下最大桁数
-    #
-    # @return [String] 経度文字列(DDD.MMSSsss[EW])
-    #
-    def long_s
-      When::Coordinates.to_dms(long / When::Coordinates::Spatial::DEGREE, 'EW', round=6)
-    end
-    alias :longitude :long_s
-
-    # 高度 / m
-    #
-    # @return [Numeric]
-    # @return [:Center] 天体の中心の場合
-    #
-    attr_reader :alt
-
-    # 観測地の地心距離 / kmを返します。
-    #
-    # @return [Numeric]
-    #
-    def obserber_distance
-      l = PI / (90 * DEGREE) * @lat
-      @datum.surface_radius * (@datum.shape[0]+@datum.shape[1]*cos(l)+@datum.shape[2]*cos(2*l))
-    end
-
-    # 観測地での‘大地’の視半径
-    #
-    # @return [Numeric]
-    #
-    def horizon
-      # 地面以下なら 90度とみなす
-      return 0.25 if @alt == :Center || @alt <= 0
-
-      # 観測地の地心距離 / m
-      r = obserber_distance * 1000.0
-
-      # 大気効果
-      air_effect = @datum.air[1] * @alt / (@datum.air[2] * @alt + r)
-
-      # ‘大地’の視半径
-      asin((1.0+air_effect) * r / (r+@alt)) / CIRCLE
-    end
-
-    #  観測地の地方恒星時 / 時を返します。
-    #
-    # @param [Numeric] t ユリウス日(Terrestrial Time)
-    # @param [When::TM::TemporalPosition] t
-    #
-    # @return [Numeric]
-    #
-    def local_sidereal_time(t)
-      t = +t
-      c = julian_century_from_2000(t)
-      result  = @datum.sid[0] + c * (@datum.sid[1] + c * @datum.sid[2]) + @long / (15.0 * DEGREE)
-      result += (cosc(obl(c)) * delta_p(c) +
-                 (t-When::TimeStandard.delta_t_observed(t)/86400+0.5) % 1) * 24 if @datum.kind_of?(Earth)
-      result
-    end
-
-    # 観測地の日心三次元座標(黄道座標)
-    #
-    # @param [Numeric] t ユリウス日(Terrestrial Time)
-    # @param [When::TM::TemporalPosition] t
-    #
-    # @return [Numeric]
-    #
-    def _coords(t)
-      t   = +t
-      @datum._coords(t) + _coords_diff(t)
-    end
-
-    private
-
-    # 要素の正規化
-    def _normalize(args=[], options={})
-
-      # 同一視
-      @long ||= @longitude
-      @lat  ||= @latitude
-      @alt  ||= @altitude
-
-      # 時間帯による指定
-      @tz = When::Parts::Timezone.tz_info[@tz] if @tz.kind_of?(String)
-      if @tz
-        @label ||= When.m17n(@tz.identifier)
-        @long  ||= @tz.longitude
-        @lat   ||= @tz.latitude
-      end
-
-      # データの整形
-      @label = When::BasicTypes::M17n.new(@label)        if @label.kind_of?(Hash)
-      @long  = When::Coordinates.to_deg_225(@long, 'EW') if @long
-      @lat   = When::Coordinates.to_deg_225(@lat,  'NS') if @lat
-      @datum = When.Resource(@datum || 'Earth', '_ep:')
-      @long ||= 0.0
-      @lat  ||= 0.0
-      @alt    =
-        case @alt
-        when String  ; @alt.gsub(/@/, '.').to_f
-        when Numeric ; @alt.to_f
-        when Symbol  ; @alt
-        else         ; 0.0
-        end
-
-      # 日月食用作業変数
-      @mean = When.Resource(@mean || '_ep:Formula?formula=1L')
-      @ecls = {}
-    end
-
-    # 観測地の惑星中心を原点とする三次元座標
-    #
-    # @param [Numeric] t ユリウス日(Terrestrial Time)
-    # @param [When::TM::TemporalPosition] t
-    # @param [Integer] system : 座標系
-    #   [ ECLIPTIC      = 黄道座標 ]
-    #   [ EQUATORIAL    = 赤道座標 ]
-    #   [ EQUATORIAL_HA = 赤道座標[時角] ]
-    #   [ HORIZONTAL    = 地平座標 ]
-    #
-    def _coords_diff(t, system=ECLIPTIC)
-      return Coords.polar(0,0,0) if alt == :Center
-      t   = +t
-      lat = @lat.to_f / DEGREE
-      coords = Coords.polar(
-                        local_sidereal_time(t) /  24.0,
-         (lat + @datum.shape[3] * sind(2*lat)) / 360.0,
-             (obserber_distance + @alt/1000.0) /   AU)
-      case system
-      when ECLIPTIC      ; coords.r_to_y(t, @datum)
-      when EQUATORIAL    ; coords
-      when EQUATORIAL_HA ; coords.r_to_rh(t, self)
-      when HORIZONTAL    ; coords.r_to_h(t, self)
-      end
-    end
-
-    # その他のメソッド
-    #   When::Coordinates::Spatial で定義されていないメソッドは
-    #   処理を @datum (type: When::Ephemeris::Datum) に委譲する
-    #
-    def method_missing(name, *args, &block)
-      self.class.module_eval %Q{
-        def #{name}(*args, &block)
-          @datum.send("#{name}", *args, &block)
-        end
-      } unless When::Parts::MethodCash.escape(name)
-      @datum.send(name, *args, &block)
-    end
-
-    # @private
-    module Normalize
-
-      private
-
-      # 位置情報
-      #
-      # @return [When::Coordinates::Spatial]
-      #
-      #attr_reader :location
-
-      # 日時要素の境界オブジェクト
-      #
-      # @return [When::Coordinates::Border]
-      #
-      #attr_reader :border
-
-      # 境界計算用の計算オブジェクト
-      #
-      # @return [When::Ephemeris::Formula]
-      #
-      #attr_reader :formula
-
-      #
-      # Temporal Module の Spatial Parts の初期化
-      #
-      def _normalize_spatial
-
-        # Location
-        if (@location||@long||@lat||@alt).kind_of?(String)
-          @location ||= "_l:long=#{@long||0}&lat=#{@lat||0}&alt=#{@alt||0}"
-          @location   = When.Resource(@location)
-        end
-        @location   ||= @tz_prop.location if @tz_prop
-
-        # Border
-        @border = When.Border(@border) if @border.kind_of?(String)
-
-        # Formula
-        instance_eval('class << self; attr_reader :formula; end') if @location && @border
-        if respond_to?(:formula)
-          extend When::Ephemeris::Formula::ForwardedFormula
-          unless @formula
-            options  = {:formula => kind_of?(When::CalendarTypes::SolarYearTableBased) ? '1S' : '1L'}
-            options[:location] = @location if @location
-            @formula = When::Ephemeris::Formula.new(options)
-          end
-          @formula   = When.Resource(Array(@formula), '_ep:')
-        end
-      end
-    end
-  end
-
   #
   # 暦座標を扱う処理をまとめたモジュール
   #