when_exe 0.3.8 → 0.3.9

data/lib/when_exe/region/japanese/nihon_shoki.rb

@@ -13,10 +13,9 @@ class When::TM::CalendarEra
   NihonKoki = [self, [
     "locale:[=ja:, en=en:, alias]",
     "area:[日本]",
-    ["[皇紀]1",		"@A",	"-659-01-01^JapaneseTwin::平朔儀鳳暦"],
-    ["[皇紀]1113",	"@CR",	"0453-12-14^ChineseTwin::元嘉暦"],
-    ["[皇紀]1253",	"",	"0593-01-01^Japanese"],
-    ["[皇紀]2533",	"@CR",	"1873-01-01^Gregorian"]
+    ["[皇紀=ja:%%<神武天皇即位紀元>]1",		"@A",	"-659-01-01^JapaneseTwin::平朔儀鳳暦"],
+    ["[皇紀=ja:%%<神武天皇即位紀元>]1114",	"@CR",	"0454-01-01^Japanese"],
+    ["[皇紀=ja:%%<神武天皇即位紀元>]2533",	"@CR",	"1873-01-01^Gregorian"]
   ]]
 
   #
@@ -24,48 +23,48 @@ class When::TM::CalendarEra
   #
   NihonShoki = [self, [
     "locale:[=ja:, en=en:, alias]",
-    "period:[(日本書紀)=ja:%%<日本書紀>, (Nihon_Shoki)=en:Nihon_Shoki]",
-    ["[神武]1",	"@A",	"name=[神武];-659-01-01^JapaneseTwin::平朔儀鳳暦"],
-    ["[綏靖]1",	"@A",	"name=[綏靖];-580-01-08"],
-    ["[安寧]0",	"@A",	"name=[安寧];-548-07-03"],
-    ["[懿徳]1",	"@A",	"name=[懿徳];-509-02-04"],
-    ["[孝昭]1",	"@A",	"name=[孝昭];-474-01-09"],
-    ["[孝安]1",	"@A",	"name=[孝安];-391-01-07"],
-    ["[孝霊]1",	"@A",	"name=[孝霊];-289-01-12"],
-    ["[孝元]1",	"@A",	"name=[孝元];-213-01-14"],
-    ["[開化]0",	"@A",	"name=[開化];-157-11-12"],
-    ["[崇神]1",	"@A",	"name=[崇神];-096-01-13"],
-    ["[垂仁]1",	"@A",	"name=[垂仁];-028-01-02"],
-    ["[景行]1",	"@A",	"name=[景行];0071-07-11"],
-    ["[成務]1",	"@A",	"name=[成務];0131-01-05"],
-    ["[仲哀]1",	"@A",	"name=[仲哀];0192-01-11"],
-    ["[神功皇后]0","@A","name=[神功皇后];0200-02-07"],
-    ["[応神]1",	"@A",	"name=[応神];0270-01-01"],
-    ["[仁徳]1",	"@A",	"name=[仁徳];0313-01-03"],
-    ["[履中]1",	"@A",	"name=[履中];0400-02-01"],
-    ["[反正]1",	"@A",	"name=[反正];0406-01-02"],
-    ["[允恭]1",	"@A",	"name=[允恭];0412-12"],
-    ["[安康]0",	"@A",	"name=[安康];0453-12-14^ChineseTwin::元嘉暦"],
-    ["[雄略]0",	"@A",	"name=[雄略];0456-11-13"],
-    ["[清寧]1",	"@A",	"name=[清寧];0480-01-15"],
-    ["[顕宗]1",	"@A",	"name=[顕宗];0485-01-01"],
-    ["[仁賢]1",	"@A",	"name=[仁賢];0488-01-05"],
-    ["[武烈]0",	"@A",	"name=[武烈];0498-12"],
-    ["[継体]1",	"@A",	"name=[継体];0507-02-04"],
-    ["[安閑]1",	"@A",	"name=[安閑];0534"],
-    ["[宣化]0",	"@A",	"name=[宣化];0535-12"],
-    ["[欽明]0",	"@A",	"name=[欽明];0539-12-05"],
-    ["[敏達]1",	"@A",	"name=[敏達];0572-04-03"],
-    ["[用明]0",	"@A",	"name=[用明];0585-09-05"],
-    ["[崇峻]0",	"@A",	"name=[崇峻];0587-08-02"],
-    ["[推古]0",	"@A",	"name=[推古];0592-12-08"],
-    ["[舒明]1",	"@A",	"name=[舒明];0629-01-04"],
-    ["[皇極]1",	"@A",	"name=[皇極];0642-01-15"],
-    ["[大化]1",	"@A",	"name=[孝徳];0645-06-19"],
-    ["[白雉]1",	"@FE",	"	     0650-02-15"],
-    ["[斉明]1",	"@A",	"name=[斉明];0655-01-03"],
-    ["[天智]1",	"@A",	"name=[天智];0662-01-01"],
-    ["[天武]1",	"@A",	"name=[天武];0672-01-01"],
-    ["[朱鳥]1",	"",	"	     0686-07-20", "0687-01-01"]
+    "period:[日本(日本書紀)=ja:%%<日本書紀>, (Nihon_Shoki)=en:Nihon_Shoki]",
+    ["[<神武>=ja:%%<神武天皇>]1",	"@A",	"name=[神武=ja:%%<神武天皇>];-659-01-01^JapaneseTwin::平朔儀鳳暦"],
+    ["[<綏靖>=ja:%%<綏靖天皇>]1",	"@A",	"name=[綏靖=ja:%%<綏靖天皇>];-580-01-08"],
+    ["[<安寧>=ja:%%<安寧天皇>]0",	"@A",	"name=[安寧=ja:%%<安寧天皇>];-548-07-03"],
+    ["[<懿徳>=ja:%%<懿徳天皇>]1",	"@A",	"name=[懿徳=ja:%%<懿徳天皇>];-509-02-04"],
+    ["[<孝昭>=ja:%%<孝昭天皇>]1",	"@A",	"name=[孝昭=ja:%%<孝昭天皇>];-474-01-09"],
+    ["[<孝安>=ja:%%<孝安天皇>]1",	"@A",	"name=[孝安=ja:%%<孝安天皇>];-391-01-07"],
+    ["[<孝霊>=ja:%%<孝霊天皇>]1",	"@A",	"name=[孝霊=ja:%%<孝霊天皇>];-289-01-12"],
+    ["[<孝元>=ja:%%<孝元天皇>]1",	"@A",	"name=[孝元=ja:%%<孝元天皇>];-213-01-14"],
+    ["[<開化>=ja:%%<開化天皇>]0",	"@A",	"name=[開化=ja:%%<開化天皇>];-157-11-12"],
+    ["[<崇神>=ja:%%<崇神天皇>]1",	"@A",	"name=[崇神=ja:%%<崇神天皇>];-096-01-13"],
+    ["[<垂仁>=ja:%%<垂仁天皇>]1",	"@A",	"name=[垂仁=ja:%%<垂仁天皇>];-028-01-02"],
+    ["[<景行>=ja:%%<景行天皇>]1",	"@A",	"name=[景行=ja:%%<景行天皇>];0071-07-11"],
+    ["[<成務>=ja:%%<成務天皇>]1",	"@A",	"name=[成務=ja:%%<成務天皇>];0131-01-05"],
+    ["[<仲哀>=ja:%%<仲哀天皇>]1",	"@A",	"name=[仲哀=ja:%%<仲哀天皇>];0192-01-11"],
+    ["[<神功皇后>=ja:%%<神功皇后>]0",  "@A","name=[神功皇后=ja:%%<神功皇后>];0200-02-07"],
+    ["[<応神>=ja:%%<応神天皇>]1",	"@A",	"name=[応神=ja:%%<応神天皇>];0270-01-01"],
+    ["[<仁徳>=ja:%%<仁徳天皇>]1",	"@A",	"name=[仁徳=ja:%%<仁徳天皇>];0313-01-03"],
+    ["[<履中>=ja:%%<履中天皇>]1",	"@A",	"name=[履中=ja:%%<履中天皇>];0400-02-01"],
+    ["[<反正>=ja:%%<反正天皇>]1",	"@A",	"name=[反正=ja:%%<反正天皇>];0406-01-02"],
+    ["[<允恭>=ja:%%<允恭天皇>]1",	"@A",	"name=[允恭=ja:%%<允恭天皇>];0412-12"],
+    ["[<安康>=ja:%%<安康天皇>]0",	"@A",	"name=[安康=ja:%%<安康天皇>];0453-12-14^ChineseTwin::元嘉暦"],
+    ["[<雄略>=ja:%%<雄略天皇>]0",	"@A",	"name=[雄略=ja:%%<雄略天皇>];0456-11-13"],
+    ["[<清寧>=ja:%%<清寧天皇>]1",	"@A",	"name=[清寧=ja:%%<清寧天皇>];0480-01-15"],
+    ["[<顕宗>=ja:%%<顕宗天皇>]1",	"@A",	"name=[顕宗=ja:%%<顕宗天皇>];0485-01-01"],
+    ["[<仁賢>=ja:%%<仁賢天皇>]1",	"@A",	"name=[仁賢=ja:%%<仁賢天皇>];0488-01-05"],
+    ["[<武烈>=ja:%%<武烈天皇>]0",	"@A",	"name=[武烈=ja:%%<武烈天皇>];0498-12"],
+    ["[<継体>=ja:%%<継体天皇>]1",	"@A",	"name=[継体=ja:%%<継体天皇>];0507-02-04"],
+    ["[<安閑>=ja:%%<安閑天皇>]1",	"@A",	"name=[安閑=ja:%%<安閑天皇>];0534"],
+    ["[<宣化>=ja:%%<宣化天皇>]0",	"@A",	"name=[宣化=ja:%%<宣化天皇>];0535-12"],
+    ["[<欽明>=ja:%%<欽明天皇>]0",	"@A",	"name=[欽明=ja:%%<欽明天皇>];0539-12-05"],
+    ["[<敏達>=ja:%%<敏達天皇>]1",	"@A",	"name=[敏達=ja:%%<敏達天皇>];0572-04-03"],
+    ["[<用明>=ja:%%<用明天皇>]0",	"@A",	"name=[用明=ja:%%<用明天皇>];0585-09-05"],
+    ["[<崇峻>=ja:%%<崇峻天皇>]0",	"@A",	"name=[崇峻=ja:%%<崇峻天皇>];0587-08-02"],
+    ["[<推古>=ja:%%<推古天皇>]0",	"@A",	"name=[推古=ja:%%<推古天皇>];0592-12-08"],
+    ["[<舒明>=ja:%%<舒明天皇>]1",	"@A",	"name=[舒明=ja:%%<舒明天皇>];0629-01-04"],
+    ["[<皇極>=ja:%%<皇極天皇>]1",	"@A",	"name=[皇極=ja:%%<皇極天皇>];0642-01-15"],
+    ["[大化]1",				"@A",	"name=[孝徳=ja:%%<孝徳天皇>];0645-06-19"],
+    ["[白雉]1",				"@FE",			"	     0650-02-15"],
+    ["[<斉明>=ja:%%<皇極天皇>]1",	"@A",	"name=[斉明=ja:%%<皇極天皇>];0655-01-03"],
+    ["[<天智>=ja:%%<天智天皇>]1",	"@A",	"name=[天智=ja:%%<天智天皇>];0662-01-01"],
+    ["[<天武>=ja:%%<天武天皇>]1",	"@A",	"name=[天武=ja:%%<天武天皇>];0672-01-01"],
+    ["[朱鳥]1",			"",					    "0686-07-20", "0687-01-01"]
   ]]
 end

data/lib/when_exe/region/japanese/notes.rb

@@ -1,1482 +1,1482 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2012-2014 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
-
-require 'when_exe/ephemeris/notes'
-require 'when_exe/region/japanese/residues'
-
-class When::CalendarNote
-
-  #
-  # 日本暦注
-  #
-  class Japanese < self
-
-    autoload :Eclipse, 'when_exe/region/japanese/eclipses'
-
-    #
-    # 日本暦注が使用する暦法
-    #
-    # @private
-    class Cal4Note
-      def initialize(calendar, solar)
-        @calendar = calendar
-        @solar    = solar
-      end
-    end
-
-    #
-    # 日本暦注の要素
-    #
-    # @private
-    class Note < When::CalendarNote::NoteElement
-    end
-
-    #
-    # 日本暦注の要素
-    #
-    Notes = [When::BasicTypes::M17n, [
-      "locale:[=ja:, en=en:]",
-      "names:[日本暦注]",
-
-      # 年の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[年]",
-        [Note, 0xFFFF, "label:[干支]",       'position:共通'],                               #  0: 干支
-      # [Note, 0xFFFF, "label:[干=ja:%%<十干>]",
-      #                                   'position:共通'],                                  #     干
-      # [Note, 0xFFFF, "label:[支=ja:%%<十二支>]",
-      #                                   'position:共通'],                                  #     支
-        [Note, 0x3800, "label:[廿八宿=ja:%%<二十八宿>]",
-                                             'position:共通'],                               #  1: 廿八宿
-        [Note, 0x3FFC, "label:[大歳壇=]",    'position:暦序'],                               #  2: 干支
-        [Note, 0xC000, "label:[九星]",       'position:民間'],                               #  3: 九星
-        [Note, 0xFFFC, "label:[納音]",       'position:暦序',   'suffix:是'],                #  4: 干支
-        [Note, 0xFFFF, "label:[大歳=ja:%%<太歳神>]",
-                                             'position:暦序',   'suffix:在'],                #  5: 干支
-        [Note, 0xFFFF, "label:[大將軍=ja:%%<大将軍_(方位神)>]",
-                                             'position:暦序',   'suffix:在'],                #  6: 支
-        [Note, 0xFFFF, "label:[大陰=ja:%%<太陰神>]",
-                                             'position:暦序',   'suffix:在'],                #  7: 支
-        [Note, 0xFFFF, "label:[歳徳=ja:%%<歳徳神>]",
-                                             'position:暦序',   'suffix:在'],                #  8: 干
-        [Note, 0xFFFF, "label:[歳刑=ja:%%<歳刑神>]",
-                                             'position:暦序',   'suffix:在'],                #  9: 支
-        [Note, 0xFFFF, "label:[歳破=ja:%%<歳破神>]",
-                                             'position:暦序',   'suffix:在'],                # 10: 支
-        [Note, 0xFFFF, "label:[歳煞=ja:%%<歳煞神>]",
-                                             'position:暦序',   'suffix:在'],                # 11: 支
-        [Note, 0xFFFF, "label:[黄幡=ja:%%<黄幡神>]",
-                                             'position:暦序',   'suffix:在'],                # 12: 支
-        [Note, 0xFFFF, "label:[豹尾=ja:%%<豹尾神>]",
-                                             'position:暦序',   'suffix:在'],                # 13: 支
-        [Note, 0x0003, "label:[天道=]",      'position:暦序',   'suffix:-'],                 # 14: 支
-        [Note, 0x0003, "label:[人道=]",      'position:暦序',   'suffix:-'],                 # 15: 支
-        [Note, 0x3FFC, "label:[歳次=]",      'position:暦序',   'suffix:-'],                 # 16: 支
-        [Note, 0xF800, "label:[金神]",       'position:仮名暦', 'suffix:在'],                # 17: 干
-        [Note, 0xFFFF, "label:[大小]",       'position:暦序']                                # 18: 朔閏表
-      ],
-
-      # 月の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[月]",
-        [Note, 0xFFFF, "label:[月名=ja:%%<月_(暦)>#%.<日本の和風月名>, Month]",
-                                             'position:月建'],                               #  0: 月の和名
-      # [Note, 0xFFFF, "label:[干支]",       'position:共通'],                               #     干支
-      # [Note, 0xFFFF, "label:[干=ja:%%<十干>]",
-      #                                           'position:共通'],                          #     干
-      # [Note, 0xFFFF, "label:[支=ja:%%<十二支>]",
-      #                                           'position:共通'],                          #     支
-        [Note, 0xF800, "label:[廿八宿=ja:%%<二十八宿>]",
-                                             'position:共通'],                               #  1: 廿八宿
-        [Note, 0xFFFC, "label:[月建=]",      'position:月建',   'suffix:-' ],                #  2: 年の十干と暦月
-        [Note, 0xC000, "label:[九星]",       'position:民間'],                               #  3: 九星
-        [Note, 0x0003, "label:[天氣=]",      'position:月建',   'suffix:-' ],                #  4: 暦月
-        [Note, 0x3FFF, "label:[天道=]",      'position:月建',   'suffix:-' ],                #  5: 暦月
-        [Note, 0x0003, "label:[人道=]",      'position:月建',   'suffix:-' ],                #  6: 暦月
-        [Note, 0x0003, "label:[月破=]",      'position:月建',   'suffix:在'],                #  7: 暦月
-        [Note, 0x3FFC, "label:[天徳=]",      'position:月建',   'suffix:在'],                #  8: 暦月
-        [Note, 0x3FFF, "label:[月煞=]",      'position:月建',   'suffix:在'],                #  9: 暦月
-        [Note, 0x3FFF, "label:[用時=]",      'position:月建',   'suffix:-' ],                # 10: 暦月
-        [Note, 0x3FFF, "label:[月徳=]",      'position:月建',   'suffix:在'],                # 11: 暦月
-        [Note, 0x3FFC, "label:[月徳合=]",    'position:月建',   'suffix:在'],                # 12: 暦月
-        [Note, 0x3FFC, "label:[月空=]",      'position:月建',   'suffix:在'],                # 13: 暦月
-        [Note, 0x3FFF, "label:[三鏡=]",      'position:月建',   'suffix:-' ],                # 14: 暦月
-        [Note, 0x3FFF, "label:[土府=]",      'position:月建',   'suffix:在'],                # 15: 暦月
-        [Note, 0x3FFC, "label:[土公=ja:%%<土公神>]",
-                                             'position:月建',   'suffix:在'],                # 16: 暦月
-        [Note, 0xFFFF, "label:[大小]",       'position:月建']                                # 17: 朔閏表
-      ],
-
-      # 日の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[日]",
-        [Note, 0xFFFF, "label:[干支]",       'position:共通'],                               #  0: 干支
-      # [Note, 0x, "label:[干=ja:%%<十干>]",
-      #                                           'position:共通'],                          #     干
-      # [Note, 0x, "label:[支=ja:%%<十二支>]",
-      #                                           'position:共通'],                          #     支
-        [Note, 0x3FFF, "label:[納音]",       'position:共通',   'suffix:是'],                #  1: 干支
-        [Note, 0xFFFF, "label:[十二直]",     'position:共通'],                               #  2: 支 節月
-        [Note, 0xFFFF, "label:[七曜]",       'position:共通'],                               #  3: 七曜
-        [Note, 0xF800, "label:[廿八宿=ja:%%<二十八宿>]",
-                                             'position:共通'],                               #  4: 廿八宿
-        [Note, 0x07F8, "label:[廿七宿=ja:%%<二十八宿>]",
-                                             'position:共通'],                               #  5: 暦月 暦日
-        [Note, 0xC000, "label:[九星]",       'position:民間'],                               #  6: 九星
-        [Note, 0x8000, "label:[六曜]",       'position:民間'],                               #  7: 暦月 暦日
-        [Note, 0xE000, "label:[祝祭日]",     'position:祝祭日'],                             #  8: 暦月 暦日 (七曜)
-        [Note, 0xFFFF, "label:[廿四節気=ja:%%<二十四節気>]",
-                                             'position:時候'],                               #  9: 太陽黄経
-        [Note, 0xFFFF, "label:[節中=]",      'position:時候'],                               # 10: 太陽黄経
-        [Note, 0xFFFC, "label:[七十二候]",   'position:時候'],                               # 11: 太陽黄経
-        [Note, 0x3FFC, "label:[六十卦=]",    'position:時候'],                               # 12: 太陽黄経
-        [Note, 0xF800, "label:[節分]",       'position:雑節'],                               # 13: 立春からの日数
-        [Note, 0xF800, "label:[初午]",       'position:雑節'],                               # 14: 支 節月 or 暦月
-        [Note, 0xF800, "label:[八十八夜]",   'position:雑節'],                               # 15: 立春からの日数
-        [Note, 0xF800, "label:[入梅]",       'position:雑節'],                               # 16: 干 太陽黄経
-        [Note, 0xF800, "label:[半夏生]",     'position:雑節'],                               # 17: 干 太陽黄経
-        [Note, 0xF800, "label:[二百十日]",   'position:雑節'],                               # 18: 立春からの日数
-        [Note, 0xF800, "label:[二百廿日]",   'position:雑節'],                               # 19: 立春からの日数
-
-        [Note, 0x3FFC, "label:[大禍=ja:%%<暦注下段>#%.<大禍日>]",
-                                             'position:上段 上段 欄外 欄外', 'suffix:日'],   # 20: 支 節月
-        [Note, 0x3FFC, "label:[滅門=ja:%%<暦注下段>#%.<滅門日>]",
-                                             'position:上段 上段 欄外 欄外', 'suffix:日'],   # 21: 支 節月
-        [Note, 0x3FFC, "label:[狼藉=ja:%%<暦注下段>#%.<狼藉日>]",
-                                             'position:上段 上段 欄外 欄外', 'suffix:日'],   # 22: 支 節月
-
-        [Note, 0x07F8, "label:[甘露=]",      'position:上段 上段 上段 上段', 'suffix:日'],   # 23: 七曜 廿七宿
-        [Note, 0x07F8, "label:[金剛峯=]",    'position:上段 上段 上段 上段'],                # 24: 七曜 廿七宿
-        [Note, 0x07F8, "label:[羅刹=]",      'position:上段 上段 上段 上段'],                # 25: 七曜 廿七宿
-
-        [Note, 0x3FFC, "label:[大將軍=ja:%%<大将軍_(方位神)>]",
-                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 26: 干支 節年
-        [Note, 0xFFFC, "label:[天一=ja:%%<天一神>]",
-                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 27: 干支
-        [Note, 0x3FFC, "label:[土公=ja:%%<土公神>]",
-                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 28: 干支
-        [Note, 0x3FFC, "label:[歳下食=ja:%%<暦注下段>#%.<歳下食>]",
-                                             'position:上段 上段 上段 上段'],                # 29: 干支 節年
-        [Note, 0x3FFC, "label:[忌遠行=]",    'position:上段 上段 上段 上段'],                # 30: 支 節月
-        [Note, 0x3FFC, "label:[忌夜行=]",    'position:上段 上段 上段 上段'],                # 31: 支 節月
-        [Note, 0x3FFC, "label:[下食時=ja:%%<暦注下段>#%.<時下食>]",
-                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 32: 支 節月 貞享暦で一部廃止
-        [Note, 0x3FFC, "label:[天間=]",      'position:上段 上段 上段 中段上'],              # 33: 干支 節月
-        [Note, 0x3FFC, "label:[不視病=]",    'position:上段 上段 上段 上段'],                # 34: 干
-        [Note, 0x3FFC, "label:[不問疾=]",    'position:上段 上段 上段 上段'],                # 35: 干
-        [Note, 0x3FFC, "label:[不弔人=]",    'position:上段 上段 上段 上段'],                # 36: 支
-        [Note, 0xFFFC, "label:[彼岸]",       'position:仮名暦'],                             # 37: 太陽黄経
-        [Note, 0xFFFF, "label:[社=ja:%%<社日>]",
-                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 38: 干 太陽黄経
-        [Note, 0xFFFF, "label:[三伏]",       'position:中段 中段 中段 中段'],                # 39: 干 太陽黄経
-        [Note, 0x3FFC, "label:[除手足甲=]",  'position:中段 中段 中段 中段'],                # 40: 晦(除手足甲)、支(片方のみ), 没滅凶会日×
-        [Note, 0x3FFC, "label:[沐浴=]",      'position:中段 中段 中段 中段'],                # 41: 支 没滅凶会日×
-        [Note, 0x3FFD, "label:[臘=ja:%%<臘日>]",
-                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 42: 支 太陽黄経
-        [Note, 0x3FFC, "label:[伐=]",        'position:中段 中段 中段 中段上', 'suffix:日'], # 43: 干支
-        [Note, 0x3FFC, "label:[五墓=ja:%%<暦注下段>#%.<五墓日>]",
-                                             'position:中段 中段 中段 中段下', 'suffix:日'], # 44: 干支
-        [Note, 0x3FFC, "label:[六蛇=]",      'position:中段 中段 中段 中段上'],              # 45: 干支 節月
-        [Note, 0x3FFC, "label:[七鳥=]",      'position:中段 中段 中段 中段上'],              # 46: 干支 節月
-        [Note, 0x3FFC, "label:[八龍=]",      'position:中段 中段 中段 中段上'],              # 47: 干支 節月
-        [Note, 0x3FFC, "label:[九虎=]",      'position:中段 中段 中段 中段上'],              # 48: 干支 節月
-        [Note, 0x07FF, "label:[没=ja:%%<没日>]",
-                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 49: 太陽黄経
-        [Note, 0xFFF8, "label:[日食]",       'position:中段 中段 中段 中段'],                # 50: 日食表
-        [Note, 0x07FC, "label:[滅=ja:%%<滅日]",
-                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 51: 月の位相
-        [Note, 0xFFF8, "label:[月食]",       'position:中段 中段 中段 中段'],                # 52: 月食表
-        [Note, 0xC7FD, "label:[月相]",       'position:中段 中段 中段 中段'],                # 53: 月の位相
-        [Note, 0xFFFF, "label:[土用事=ja:%%<土用>]",
-                                             'position:中段 中段 中段 中段'],                # 54: 太陽黄経
-        [Note, 0x3FF0, "label:[伏龍=]",      'position:上段 上段 下段 下段', 'suffix:在'],   # 55: 太陽黄経
-
-        [Note, 0x3FFF, "label:[凶会=ja:%%<暦注下段>#%.<凶会日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 56: 干支 節月(宣明暦以前)/暦月(貞享暦以降)
-        [Note, 0x3FFF, "label:[大小歳=]",    'position:下段 下段 下段 下段'],                # 57: 干支 節月
-        [Note, 0x3FFC, "label:[歳徳=ja:%%<歳徳神>]",
-                                             'position:下段 下段 下段 下段'],                # 58: 干 節年 凶会日× ～合も
-        [Note, 0x0003, "label:[天倉=]",      'position:古注'],                               # 59: 干支 節月
-      # [Note, 0x0003, "label:[天李=]",      'position:古注'],                               #     干支 節月?
-        [Note, 0x37FF, "label:[天恩=ja:%%<暦注下段>#%.<天恩日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 60: 干支 節月 凶会日×
-        [Note, 0xFFFF, "label:[天赦=ja:%%<暦注下段>#%.<天赦日>]",
-                                             'position:下段 下段 下段 下段'],                # 61: 干支 節月
-        [Note, 0x37FF, "label:[母倉=ja:%%<暦注下段>#%.<母倉日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 62: 支 節月 凶会日×
-        [Note, 0x37FC, "label:[月徳=]",      'position:下段 下段 下段 下段'],                # 63: 干 節月 凶会日× ～合も
-        [Note, 0x3FFF, "label:[九坎=]",      'position:下段 下段 下段 下段'],                # 64: 支 節月
-        [Note, 0x3FFF, "label:[歸忌=ja:%%<暦注下段>#%.<帰忌日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 65: 支 節月
-        [Note, 0x3FFF, "label:[血忌=ja:%%<暦注下段>#%.<血忌日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 66: 支 節月
-        [Note, 0x3FFC, "label:[無翹=]",      'position:下段 下段 下段 下段'],                # 67: 支 節月
-        [Note, 0x3FFF, "label:[厭=]",        'position:下段 下段 下段 下段'],                # 68: 支 節月
-        [Note, 0x3FFC, "label:[重=ja:%%<暦注下段>#%.<重日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 69: 支
-        [Note, 0x3FFD, "label:[復=ja:%%<暦注下段>#%.<復日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 70: 干 節月
-        [Note, 0x3FFC, "label:[月煞=]",      'position:下段 下段 下段 下段'],                # 71: 支 節月
-        [Note, 0x3FFF, "label:[往亡=ja:%%<暦注下段>#%.<往亡日>]",
-                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 72: 太陽黄経
-        [Note, 0x3FFF, "label:[日遊=ja:%%<日遊神>]",
-                                             'position:最下段', 'suffix:在'],                # 73: 干支
-        [Note, 0x07FF, "label:[人神配当=]",  'position:最下段孟月', 'suffix:-'],             # 74: 暦日
-
-        [Note, 0x3E00, "label:[受死=ja:%%<暦注下段>#%.<受死日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 75: 支 節月
-        [Note, 0xFFF0, "label:[八專]",       'position:仮名暦'],                             # 76: 干支
-        [Note, 0x3E00, "label:[八專間日=ja:%%<八専>]",
-                                             'position:仮名暦'],                             # 77: 干支
-        [Note, 0xC000, "label:[金神間日=ja:%%<金神>#%.<金神の遊行・間日>]",
-                                             'position:仮名暦'],                             # 78: 支 節月
-        [Note, 0xC000, "label:[金神遊行=ja:%%<金神>#%.<金神の遊行・間日>]",
-                                             'position:仮名暦'],                             # 79: 支 節月
-        [Note, 0x3FF0, "label:[天火=ja:%%<暦注下段>#%.<天火日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 80: 支 節月
-        [Note, 0x3FF0, "label:[地火=ja:%%<暦注下段>#%.<地火日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 81: 支 節月
-        [Note, 0x3800, "label:[人火=]",      'position:仮名暦'],                             # 82: 支 節月
-        [Note, 0x3800, "label:[雷火=]",      'position:仮名暦'],                             # 83: 支 節月
-        [Note, 0x3FF0, "label:[赤舌=ja:%%<赤舌日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 84: 暦月 暦日
-        [Note, 0x3E00, "label:[十死=ja:%%<暦注下段>#%.<十死日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 85: 支 節月
-        [Note, 0x3E00, "label:[道虚=]",      'position:仮名暦', 'suffix:日'],                # 86: 暦日
-        [Note, 0x3E00, "label:[大明=ja:%%<暦注下段>#%.<大明日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 87: 干支
-        [Note, 0x0600, "label:[大赤=ja:%%<赤口日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 88: 暦月 暦日
-        [Note, 0xF800, "label:[甲子待=ja:%%<甲子>]",
-                                             'position:仮名暦'],                             # 89: 干支
-        [Note, 0xC000, "label:[己巳]",       'position:仮名暦'],                             # 90: 干支
-        [Note, 0xF800, "label:[庚申待]",     'position:仮名暦'],                             # 91: 干支
-        [Note, 0x3800, "label:[犯土]",       'position:仮名暦'],                             # 92: 干支
-        [Note, 0xF800, "label:[十方暮]",     'position:仮名暦'],                             # 93: 干支
-        [Note, 0xF800, "label:[一粒万倍=ja:%%<一粒万倍日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 94: 支 節月
-        [Note, 0x3800, "label:[天福=]",      'position:仮名暦'],                             # 95: 支 節月
-        [Note, 0x3800, "label:[地福=]",      'position:仮名暦'],                             # 96: 支 節月
-        [Note, 0x3800, "label:[地五福=]",    'position:仮名暦'],                             # 97: 支 節月
-        [Note, 0xB800, "label:[三隣亡]",     'position:仮名暦'],                             # 98: 支 節月
-        [Note, 0xF800, "label:[不成就=ja:%%<不成就日>]",
-                                             'position:仮名暦', 'suffix:日'],                # 99: 暦月 暦日/晦日
-        [Note, 0x3800, "label:[鬼宿]",       'position:仮名暦'],                             #100: 廿八宿
-        [Note, 0x3800, "label:[金性=]",      'position:仮名暦'],                             #101: 支 節月 支 節年
-        [Note, 0x3FFF, "label:[三寶吉=ja:%%<三宝吉>]",
-                                             'position:上段 上段 上段 上段'],                #102: 干支 節月
-        [Note, 0x3FFF, "label:[神吉=ja:%%<暦注下段>#%.<神吉日>]",
-                                             'position:上段 上段 中段 中段上', 'suffix:日'], #103: 干支 節月
-        [Note, 0x3FFF, "label:[雑事吉=]",    'position:雑事吉'],                             #104: 干支 節月
-        [Note, 0x3FFF, "label:[小字注=]",    'position:下段小字 下段小字 下段小字 下段小字'],#105: 干支 節月
-      ]
-    ]]
-
-    #
-    # 日本暦注の時代変遷
-    #
-    # @private
-    NoteTypes = (2...When::TM::CalendarEra::JapaneseSolar[2].size).to_a.map {|i|
-      calendars =
-        [When::TM::CalendarEra::JapaneseLuniSolar[2][i][2],
-         When::TM::CalendarEra::JapaneseSolar[2][i][2]].map {|epoch|
-          epoch =~ /\A(-?\d+)-(\d+)-(\d+)\^(.+)\z/
-          $4
-        }
-      [$2 == '01' ? $1.to_i : $1.to_i+1, Cal4Note.new(*calendars)]
-    }.reverse
-
-    # @private
-    NoteRange = [
-      # 開始 具注暦 七十二候        index mask
-      [-660,    0,      0], # ～ 696  0 : 0001
-      [ 697,    0,      0], # ～ 763  1 : 0002
-      [ 764,    0,      2], # ～ 800  2 : 0004
-      [ 801,    0,      2], # ～ 900  3 : 0008
-      [ 901,    0,      2], # ～1003  4 : 0010
-      [1004,    1,      2], # ～1047  5 : 0020
-      [1048,    1,      2], # ～1100  6 : 0040
-      [1101,    1,      2], # ～1184  7 : 0080
-      [1185,    2,      2], # ～1300  8 : 0100
-      [1301,    2,      2], # ～1337  9 : 0200
-      [1338,    3,      2], # ～1684 10 : 0400
-      [1685,    3,      3], # ～1754 11 : 0800
-      [1755,    3,      4], # ～1867 12 : 1000
-      [1868,    3,      4], # ～1872 13 : 2000
-      [1873,    3,      4], # ～1873 14 : 4000
-      [1874,    3,      5]  # ～     15 : 8000
-    ]
-
-    # @private
-    NoteFocused = (0...NoteRange.size).to_a.map {|range|
-      (2..4).to_a.map {|cord|
-        notes = Notes[1][cord]
-        (2...notes.size).to_a.inject([]) {|focused,note|
-          focused << notes[note][2][/\[.+?[=\]]/][1..-2] if notes[note][1][range] == 1
-          focused
-        }
-      }
-    }
-
-    #
-    # 月の大小
-    #
-    # @private
-    MonthPattern = {
-       29 => '小',
-       30 => '大',
-      -28 => '平',
-      -29 => '閏',
-      -30 => '小',
-      -31 => '大'
-    }
-
-    #
-    # 日本暦注に対応するインデックス(整数値)
-    #
-    # @private
-    module Index
-      # @private
-      [[2,'Y'], [3,'M'], [4,'D']].map {|cord|
-        index, initial = cord
-        notes = Notes[1][index]
-        (notes.size-2).times {|no|
-          name = initial + notes[no+2][2][/\[.+?[=\]]/][1..-2]
-          mask = 'M' + name
-          const_set(name, no)
-          const_set(mask, 1<<no)
-        }
-      }
-    end
-
-    #
-    # 日本暦注が使用する暦法
-    #
-    # @private
-    class Cal4Note
-      attr_reader :calendar, :solar
-
-      def l_calendar
-        @l_calendar ||= When.Calendar(@calendar.kind_of?(String) ? @calendar.sub(/#\{\?.+?\}/, '') : @calendar)
-      end
-
-      def s_calendar
-        @s_calendar ||= When.Calendar(@solar.kind_of?(String) ? @solar.sub(/#\{\?.+?\}/, '?Clock=THS') : @solar)
-      end
-
-      def l_phases
-        @l_phases   ||= Japanese::LunarPhases.new('formula'=>l_calendar.formula[-1])
-      end
-
-      def s_terms
-        @s_terms    ||= Japanese::SolarTerms.new('formula'=>s_calendar.formula[0])
-      end
-
-      def s_terms2
-        @s_terms2   ||= @l_calendar.iri =~ /JapaneseTwin(.*?)::天保暦/ ?
-          Japanese::SolarTermsRevised.new('formula'=>s_calendar.formula[0]) : s_terms
-      end
-
-      def doyo
-        @doyo       ||= (s_calendar.doyo ? s_calendar.doyo * 360.0 / s_calendar.year_length : 0)
-      end
-    end
-
-    #
-    #  日本暦注用の Notes の要素のための内部クラス
-    #
-    # @private
-    class Note
-
-      attr_reader :label, :position, :suffix
-
-      def to_note_hash(note, dates=nil)
-        {
-          :note      => self,
-          :value     => case @suffix
-                        when '是' ; [@label + '是-', note[/.\z/]]
-                        when '在' ; [@label + '在-', note]
-                        when '-'  ; [@label + '-',   note]
-                        else      ; note
-                        end,
-          :position => @position[@position.size == 1 ? 0 : dates.index_g]
-        }
-      end
-
-      private
-      # オブジェクトの正規化
-      #
-      def _normalize(args=[], options={})
-        @position = @position.split(/ /)
-      end
-    end
-
-    #
-    #  日本暦注計算に必要となる暦日や暦法をまとめた内部クラス
-    #
-    # @private
-    class Dates
-
-      attr_reader :year, :precision, :cal4note, :range, :index_g, :index_s, :o_date, :l_date, :m_date, :s_date
-
-      # 初期設定
-      def initialize(date, year=date.most_significant_coordinate, precision=date.precision, cal4note=nil)
-
-        # 暦注パターン
-        if cal4note
-          # 年代による判定
-          (1...NoteRange.size).to_a.reverse.each do |i|
-            if year >= NoteRange[i][0]
-              @range = i
-              break
-            end
-          end
-          @range ||= 0
-        else
-          # 暦法による判定
-          cal4note = Cal4Note.new(date.frame, date.frame.twin)
-          @range =
-            case cal4note.l_calendar.formula[-1]
-            when When::Ephemeris::ChineseTrueLunation::JujiMethods ; 11 # 江戸時代の暦
-            when When::Ephemeris::ChineseTrueLunation
-              date.frame.twin =~ /戊寅|麟徳/ ? 1 : 10 # 唐代定朔暦(儀鳳暦 or 宣明暦)
-            when When::Ephemeris::MeanLunation   ;  0 # 唐代以前平朔暦(元嘉暦)
-            else                                 ; 15 # 現代の旧暦
-            end
-        end
-
-        # 具注暦の配置
-        @index_g = NoteRange[@range][1]
-
-        # 七十二候
-        @index_s = NoteRange[@range][2]
-
-        # その他の属性
-        @year      = year
-        @precision = precision
-        @cal4note  = cal4note
-        @o_date    = date
-        @l_date    = @cal4note.l_calendar ^ date
-        @m_date    = date.frame.kind_of?(When::CalendarTypes::Christian) ? @l_date : @o_date
-        @s_date    = @cal4note.s_calendar ^ date
-      end
-    end
-
-    NoteMethods = [:year_notes, :month_notes, :day_notes]
-
-    # 暦注の計算
-    #
-    # @param [When::TM::TemporalPosition] date 暦注を計算する日時
-    #   (date が When::TM::TemporalPosition でない場合、When::TM::TemporalPosition に変換して使用する)
-    # @param [Hash] options
-    #   :indices, :notes およびその他のキー => {When::CalendarNote#notes} を参照
-    #
-    # @return [Hash]               :notes が String の場合
-    # @return [Array<Hash>]        上記に該当せず、:indices が Integer の場合
-    # @return [Array<Array<Hash>>] 上記のいずれにも該当しない場合
-    # @note return 値の [Hash] の要素は下記の通り
-    #   :note     => 暦注要素 (When::CalendarTypes::Japanese::Note)
-    #   :value    => 暦注の値 (String or When::BasicTypes::M17n または、その Array)
-    #   :position => 具注暦でのその暦注の配置場所(String)
-    #
-    def notes(date, options={})
-      dates, indices, notes, persistence, conditions, options = _parse_note(date, options)
-      NotesContainer.register(indices.map {|i|
-        next [] unless i <= dates.precision
-        send(NoteMethods[i-1], dates, notes[i-1], conditions)
-      }, persistence, date.to_i)
-    end
-
-    # 太陽の位置 => 日時
-    #
-    # @param [When::TM::TemporalPosition] date 探す基準とする日時
-    # @param [Array<Numeric>] parameter 太陽の位置の分子と分母( num, den)
-    #
-    #   num 分子 (デフォルト   0 : 基準日時直後の春分)
-    #
-    #   den 分母 (デフォルト 360 : 検索範囲の長さ)
-    #
-    # @param [String] parameter   太陽の位置の分子と分母("#{ num }/#{ den }" の形式, デフォルト 0(春分))
-    # @param [Integer] precision  取得したい時間位置の分解能(デフォルト date の分解能)
-    #
-    # @return [When::TM::CalDate] date またはその直後に太陽の位置が指定の値になる日時
-    #
-    def term(date, parameter=nil, precision=date.precision)
-      dates  = _to_date_for_note(date)
-      result = dates.cal4note.s_terms.term(date, parameter)
-      patch  = SolarTerms::Patch[result.to_i]
-      return result unless patch
-      num, den  = parameter.kind_of?(String) ? parameter.split('/', 2) : parameter
-      num  = (num ||   0).to_f
-      den  = (den || 360).to_f
-      diff = (num - patch[0] + 1) % den - 1
-      return result if diff == 0
-      patched = result + When::P1D * diff
-      result.cal_date[0..-2] = patched.cal_date[0..-2]
-      result.cal_date[-1]    = When::Coordinates::Pair.new(patched.cal_date[-1], -diff)
-      result
-    end
-
-    # 月の位相 => 日時
-    #
-    # @param [When::TM::TemporalPosition] date 探す基準とする日時
-    # @param [Array<Numeric>] parameter 月の位相の分子と分母( num, den)
-    #
-    #   num 分子 (デフォルト  0 : 基準日時直後の朔)
-    #
-    #   den 分母 (デフォルト 30 : 検索範囲の長さ)
-    #
-    # @param [String] parameter   月の位相の分子と分母("#{ num }/#{ den }" の形式, デフォルト 0(朔))
-    # @param [Integer] precision  取得したい時間位置の分解能(デフォルト date の分解能)
-    #
-    # @return [When::TM::CalDate] date またはその直後に月の位相が指定の値になる日時
-    #
-    def phase(date, parameter=nil, precision=date.precision)
-      dates  = _to_date_for_note(date)
-      note   = dates.cal4note.l_phases
-      result = note.phase(date, parameter)
-      return result if dates.o_date.frame.kind_of?(When::CalendarTypes::Christian)
-
-      time   = note.phase(date, parameter, When::SYSTEM)
-      cn     = note.formula.time_to_cn(time) % 1
-      case cn
-      when 0..0.0001, 0.9999..1 # 朔
-        return result if result.cal_date[-1] == 1
-        diff = result.cal_date[-1] < 15 ? -1 : +1
-      when 0.2..0.8             # 弦、望
-        return result unless note.formula.kind_of?(When::Ephemeris::ChineseTrueLunation)
-        return result if time.clk_time.universal_time >= When::TM::Duration::DAY/4 # 午前6時以降
-        diff = -1
-      else                      # その他
-        return result
-      end
-
-      patched = result + When::P1D * diff
-      result.cal_date[0..-2] = patched.cal_date[0..-2]
-      result.cal_date[-1]    = When::Coordinates::Pair.new(patched.cal_date[-1], -diff)
-      result
-    end
-
-    private
-
-    # オブジェクトの正規化
-    def _normalize(args=[], options={})
-      @prime ||= [%w(干支), %w(月名), %w(七曜 干支 六曜 廿四節気 祝祭日)]
-      super
-    end
-
-    # 年の暦注
-    def year_notes(dates, notes, conditions={})
-      _note_values(dates, notes, _all_keys[-3], _elements[-3]) do |dates, focused_notes, notes_hash|
-
-        focused_notes[0..-1] = focused_notes & NoteFocused[dates.range][-3]
-        root = When.Resource('_co:Common')
-
-        # 干支
-        residue = (dates.precision < When::DAY ? dates.o_date : dates.s_date).most_significant_coordinate - 4
-        notes_hash['干支']   = root['干支'][residue % 60]
-        notes_hash['干']     = root['干'  ][residue % 10]
-        notes_hash['支']     = root['支'  ][residue % 12]
-
-        # 廿八宿
-        notes_hash['廿八宿'] ||= root['宿'][(residue+18) % 28]
-
-        # 九星
-        notes_hash['九星'] ||= root['九星'][When::Coordinates::Kyusei.year(residue)]
-
-        # 大小
-        unless notes_hash['大小']
-          year  = dates.o_date.floor(When::YEAR)
-          month = year.floor(When::MONTH)
-          pattern = ''
-          while year == month
-            length   = month.length(When::MONTH)
-            length   = -length if dates.o_date.frame.kind_of?(When::CalendarTypes::Christian) # 太陽暦
-            pattern += '閏' if month[When::MONTH] * 0 == 1
-            pattern += MonthPattern[length] || '改'
-            month   += When::P1M
-          end
-          notes_hash['大小'] = "#{pattern}(#{year.length(When::YEAR)})"
-        end
-
-        # その他
-        [notes_hash['干支'], notes_hash['干'], notes_hash['支']].each do |note|
-          note._year_notes(notes_hash, dates, conditions)
-        end
-        notes_hash
-      end
-    end
-
-    # 月の暦注
-    def month_notes(dates, notes, conditions={})
-      _note_values(dates, notes, _all_keys[-2], _elements[-2]) do |dates, focused_notes, notes_hash|
-
-        focused_notes[0..-1] = focused_notes & NoteFocused[dates.range][-2]
-        root = When.Resource('_co:Common')
-
-        # 干支
-        residue = month_stem_branch(dates.precision < When::DAY ? dates.o_date : dates.m_date)
-        notes_hash['干支']   = root['干支'][residue % 60]
-        notes_hash['干']     = root['干'  ][residue % 10]
-        notes_hash['支']     = root['支'  ][residue % 12]
-
-        # 廿八宿
-        notes_hash['廿八宿'] ||= root['宿'][(residue+6) % 28]
-
-        # 九星
-        notes_hash['九星'] ||= root['九星'][When::Coordinates::Kyusei.month(
-                  month_stem_branch(dates.precision < When::DAY ? dates.o_date : dates.s_date))]
-
-        # 大小
-        unless notes_hash['大小']
-          length = dates.o_date.length(When::MONTH)
-          length = -length if dates.o_date.frame.kind_of?(When::CalendarTypes::Christian) # 太陽暦
-          notes_hash['大小'] = "#{dates.o_date[When::MONTH]*0==1 ? '閏' : ''}#{MonthPattern[length] || '改'}(#{length.abs})"
-        end
-
-        # その他
-        [notes_hash['干支'], notes_hash['干'], notes_hash['支'], JapaneseLuniSolarNote].each do |note|
-          note._month_notes(notes_hash, dates, conditions)
-        end
-        notes_hash
-      end
-    end
-
-    # 日の暦注
-    def day_notes(dates, notes, conditions={})
-      _note_values(dates, notes, _all_keys[-1], _elements[-1]) do |dates, focused_notes, notes_hash|
-
-        focused_notes[0..-1] = focused_notes & NoteFocused[dates.range][-1]
-        root = When.Resource('_co:Common')
-
-        # 干支
-        residue = dates.s_date.to_i-11
-        notes_hash['干支']     = root['干支'][residue % 60]
-        notes_hash['干']       = root['干'  ][residue % 10]
-        notes_hash['支']       = root['支'  ][residue % 12]
-
-        # その他
-        [SolarTerms, LunarPhases, notes_hash['干支'], notes_hash['干'], notes_hash['支'],
-         JapaneseLuniSolarNote, JapaneseSolarNote].each do |note|
-          note._day_notes(notes_hash, dates, conditions)
-        end
-
-        # 七曜
-        notes_hash['七曜']   ||= root['Week'][dates.s_date.to_i % 7]
-
-        # 廿七宿
-        notes_hash['廿七宿']   = _residue27(notes_hash['廿七宿'], root)
-
-        # 廿八宿 / 鬼宿
-        notes_hash['廿八宿'] ||= root['宿'][(dates.s_date.to_i+11) % 28]
-        notes_hash['鬼宿']   ||= /鬼/ =~ notes_hash['廿八宿'].to_s ? '鬼宿' : nil
-
-        # 九星
-        notes_hash['九星']   ||= root['九星'][When::Coordinates::Kyusei.day(dates.s_date, dates.cal4note.s_terms)]
-
-        notes_hash
-      end
-    end
-
-    #
-    # 日本暦日情報オブジェクトの生成
-    #
-    # @note 対となる太陽暦のある太陰太陽暦はそのまま(太陰太陽暦,太陽暦)の対
-    #       そうでなければ、採用する対を年代により選択する
-    #
-    def _to_date_for_note(date)
-      if date.frame.kind_of?(When::CalendarTypes::ChineseLuniSolar)
-        return Dates.new(date) if date.frame.twin
-        o_date = date
-      else
-        o_date = self.class._to_japanese_date(date)
-        return nil unless o_date
-      end
-      year = o_date.most_significant_coordinate
-      NoteTypes.each do |line|
-        return Dates.new(o_date, year, date.precision, line[1]) if year >= line[0]
-      end
-      nil
-    end
-
-    #
-    # 任意の暦を日本年号付暦日に変換
-    #
-    def self._to_japanese_date(date)
-      return date if date._attr[:query] && date._attr[:query]['area'].to_s =~ /日本/
-      (date^ When.era(:area=>'日本')).each do |list|
-        return list[0] if list[0]
-      end
-      nil
-    end
-
-    #
-    # 廿七宿を Resudue 化
-    #
-    def _residue27(index, root)
-      return index unless index.kind_of?(Integer)
-      root['宿'][index]
-    end
-
-    #
-    # 月の干支
-    #
-    def month_stem_branch(date)
-      date.most_significant_coordinate*12+(date.cal_date[1] * 1) +
-     (date.frame.kind_of?(When::CalendarTypes::Christian) ? 12 : 13)
-    end
-  end
-
-  #
-  # 太陽暦の暦注・祝祭日
-  #
-  class JapaneseSolarNote < self
-
-    #
-    # 祝祭日一覧
-    #
-    NotesList = {
-      [ 1, 1] => [[1868..1872, '元旦'], [1874..1948, '四方拝'], [1949..2100, '元日']],
-      [ 1, 3] => [[1874..1948, '元始祭']],
-      [ 1, 5] => [[1874..1948, '新年宴会']],
-      [ 1,-2] => [[2000..2100, '成人の日']],
-      [ 1,15] => [[1868..1872, '小正月'], [1949..1999, '成人の日']],
-      [ 1,29] => [[1873..1873, '神武天皇即位日']],
-      [ 1,30] => [[1874..1912, '孝明天皇祭']],
-      [ 2,11] => [[1874..1948, '紀元節'], [1967..2100, '建国記念の日']],
-      [ 2,24] => [[1989..1989, '昭和天皇の大喪の礼']],
-      [ 3, 3] => [[1868..1872, '弥生節句']],
-      [ 3, 0] => [[1879..1948, '春季皇霊祭'], [1949..2100, '春分の日']],
-      [ 4, 3] => [[1874..1948, '神武天皇祭']],
-      [ 4,10] => [[1959..1959, '皇太子明仁親王の結婚の儀']],
-      [ 4,29] => [[1927..1948, '天長節'], [1949..1988, '天皇誕生日'], [1989..2006, 'みどりの日'], [2007..2100, '昭和の日']],
-      [ 5, 3] => [[1949..2100, '憲法記念日']],
-      [ 5, 4] => [[2007..2100, 'みどりの日']],
-      [ 5, 5] => [[1868..1872, '端午節句'], [1949..2100, 'こどもの日']],
-      [ 6, 9] => [[1993..1993, '皇太子徳仁親王の結婚の儀']],
-      [ 7, 7] => [[1868..1872, '七夕節句']],
-      [ 7,15] => [[1868..1872, 'お盆']],
-      [ 7,20] => [[1996..2002, '海の日']],
-      [ 7,-3] => [[2003..2100, '海の日']],
-      [ 7,30] => [[1913..1926, '明治天皇祭']],
-      [ 8, 1] => [[1868..1872, '田実節句']],
-      [ 8,11] => [[2016..2100, '山の日']],
-      [ 8,31] => [[1913..1926, '天長節']],
-      [ 9, 9] => [[1868..1872, '重陽節句']],
-      [ 9,15] => [[1966..2002, '敬老の日']],
-      [ 9,-3] => [[2003..2100, '敬老の日']],
-      [ 9,17] => [[1874..1878, '神嘗祭']],
-      [ 9, 0] => [[1878..1947, '秋季皇霊祭'], [1948..2100, '秋分の日']],
-      [10,10] => [[1966..1999, '体育の日']],
-      [10,-2] => [[2000..2100, '体育の日']],
-      [10,17] => [[1879..1947, '神嘗祭']],
-      [10,31] => [[1913..1926, '天長節祝日']],
-      [11, 3] => [[1873..1911, '天長節'], [1927..1947, '明治節'], [1948..2100, '文化の日']],
-      [11,10] => [[1915..1915, '即位の礼'], [1928..1928, '即位の礼']],
-      [11,12] => [[1990..1990, '即位の礼正殿の儀']],
-      [11,14] => [[1915..1915, '大嘗祭'], [1928..1928, '大嘗祭']],
-      [11,16] => [[1915..1915, '大饗第1日'], [1928..1928, '大饗第1日']],
-      [11,23] => [[1873..1947, '新嘗祭'], [1948..2100, '勤労感謝の日']],
-      [12,23] => [[1989..2100, '天皇誕生日']],
-      [12,25] => [[1927..1947, '大正天皇祭']]
-    }
-
-    # @private
-    Long = {3=>0, 9=>180}
-
-    class << self
-
-      # 日の暦注 - 祝祭日の計算
-      # @private
-      def _day_notes(notes, dates, conditions={})
-        # 明治維新以降の実暦日のみ扱う
-        return notes if dates.o_date.frame.kind_of?(When::CalendarTypes::ChineseLuniSolar)
-        year = dates.o_date.most_significant_coordinate
-        return notes unless year >= 1868
-
-        # 春分の日と秋分の日を祝祭日に加える
-        long = Long[dates.o_date.cal_date[1]] if year >= 1878
-        if long
-          date = When.when?(dates.o_date.to_cal_date.to_s,
-                   {:frame=>dates.o_date.frame,
-                    :clock=>dates.s_date.frame.time_basis})
-          term = dates.cal4note.s_terms.term(date.floor(When::MONTH,
-                                                        When::DAY), [long,360]).cal_date[1..2]
-          list = NotesList.dup
-          list[term] = list[[term[0],0]]
-        else
-          list = NotesList
-        end
-
-        # 「国民の休日」制定以前
-        notes['祝祭日'] ||= _holiday(list, dates.o_date, '振替休日')
-        return notes if notes['祝祭日'] || year < 1988
-
-        # 「国民の休日」制定以後
-        duration = When.Duration('P1D')
-        [duration, -duration].each do |d|
-          return notes unless _holiday(list, dates.o_date + d)
-        end
-        notes['祝祭日'] = '国民の休日'
-        return notes
-      end
-
-      private
-
-      # 振替休日とハッピーマンデーを考慮した祝祭日
-      def _holiday(list, date, alternate=nil)
-        y    = date.most_significant_coordinate
-        m, d = date.cal_date[1..2]
-
-        # 「振替休日」制定以前
-        note = _note(list, y, m, d)
-        return note if note || y < 1973
-
-        # 「振替休日」制定以降
-        case date.to_i % 7
-        when 0 # 月曜
-          # 振替休日
-          note = _note(list, y, m, d-1)
-          return alternate if note
-          # ハッピーマンデー
-          note = _note(list, y, m, -((d-1)/7 + 1))
-          return note if note
-        when 1,2 # 火曜・水曜
-          # 振替休日
-          return alternate if y >= 2007 && m == 5 && d == 6
-        end
-      end
-
-      # 振替休日とハッピーマンデーを考慮しない祝祭日
-      def _note(list, year, month, day)
-        return nil if day == 0
-        year = [year, 2100].min
-        note = list[[month,day]]
-        return nil unless note
-        note.each do |range|
-          return range[1] if range[0].include?(year)
-        end
-        return nil
-      end
-    end
-  end
-
-  #
-  # 太陰太陽暦の暦注
-  #
-  class JapaneseLuniSolarNote < self
-
-    # 変換表 月日→27宿
-    StarMansions    = [                                 #              正  ２  ３  ４  ５  ６  ７  ８  ９  10  11  12  
-      [11, 13, 15, 17, 19, 21, 24,  0,  2,  4,  7,  9], # 0 : 本月本説 室12奎14胃16畢18參20鬼22張25角00氐02心04斗07虛10
-      [ 5,  3,  1, 25, 23, 21, 19, 16, 14, 11,  8,  7], # 1 : 本月異説 尾05房03亢01翼26星24鬼22參20昴17婁15室12女09斗07
-      [14, 16, 18, 20, 22, 24,  0,  3,  5,  7, 10, 12], # 2 : 閏月本説 婁15昴17觜19井21柳23張25角00房03尾05斗07危11壁13
-      [12, 14, 16, 18, 19, 21, 24,  0,  2,  5,  8, 10], # 3 : 閏月異説 壁13婁15昴17觜19參20鬼22張25角00氐02尾05女09危11
-      [14, 16, 18, 23, 22, 24,  0,  3,  5,  7,  8, 12]  # 4 : 閏月本説(元)        (星24)                      (女09)
-    ]
-
-    # 変換表 27宿→28宿
-    StarMansionIndex = (0..7).to_a + (9..27).to_a
-
-    # 七曜と27宿で決まる暦注
-    WeekDepended = {
-                 # 日  月  火  水  木  金  土
-      '甘露'   => [26, 17,  5, 22, 21,  3, 23],  # 軫27 畢18 尾05 柳23 鬼22 房03 星24
-      '金剛峯' => [ 5,  8, 12, 16, 20, 24,  1],  # 尾05 女09 壁13 昴17 井21 張25 亢01
-      '羅刹'   => [15, 21, 25, 19,  2, 13, 22]   # 胃16 鬼22 翼26 参20 氐02 奎14 柳23
-    }
-
-    # 人神配当
-    HumanBody = %w(足大指 外踝 股内 腰   口     手     内踝   腕   尻 腰背
-                   鼻柱   髪際 牙歯 胃管 遍身   胸     気街   股内 足 踝
-                   足小指 足踝及胸、目下 肝及足 手陽明 足陽明 胸   膝 陰   膝晊 足跌)
-
-    # 月の暦注
-    # @private
-    def self._month_notes(notes, dates, conditions={})
-      # 月名
-      notes['月名'] ||= dates.o_date.name('month')
-    end
-
-    # 日の暦注
-    # @private
-    def self._day_notes(notes, dates, conditions={})
-
-      # 廿七宿
-      m, l = [1,0].map {|f| dates.m_date.cal_date[1] * f}
-      d    = (StarMansions[l==1 ? (conditions[:i27]||0) :
-                                  (conditions[:n27]||0)][m-1] + dates.m_date.cal_date[2] - 1) % 27
-      notes['廿七宿'] ||= StarMansionIndex[d]
-
-      # 甘露 / 金剛峯 / 羅刹
-      w    = (dates.m_date.to_i + 1) % 7
-      ['甘露', '金剛峯', '羅刹'].each do |c|
-        notes[c] = c if d == WeekDepended[c][w]
-      end
-
-      # 三寶吉・神吉・雑事吉・小字注 (凶会日は表引きの時点で抑制済み)
-      notes['神吉']   = notes['雑事吉'] = notes['三寶吉'] = notes['小字注'] = nil if notes['没'] || notes['滅']
-      notes['神吉']   = notes['雑事吉'] = nil if notes['往亡']
-      notes['神吉']   = notes['三寶吉'] = nil if notes['月食']
-      notes['小字注'] = nil  if notes['日食'] || notes['月食']
-      notes['小字注'] = nil  if notes['九坎'] && dates.range==5 # 11世紀後半
-      notes['三寶吉'] = nil  if notes['羅刹']
-      notes['三寶吉'] = notes['甘露'] ? '三寶吉' : nil if /\+/ =~ notes['三寶吉'].to_s
-      notes['三寶吉'] = '三吉' if notes['三寶吉'] && dates.range >= 8 # 鎌倉以降
-
-      # 除手足甲 & 道虚・人神配当
-      y,m0,d0 = dates.m_date.cal_date
-      misoka  = m0 != (dates.m_date + When.Duration('P1D')).cal_date[1] if d0 == 29
-      notes['除手足甲'] = '除手足甲' if ([6,16,30].include?(d0) || misoka) && !(conditions[:kana] || notes['没'] || notes['滅'] || notes['凶会'])
-      notes['道虚']     = '道虚'     if d0 % 6 == 0 || misoka
-      notes['人神配当'] = HumanBody[d0-1]
-
-      # 仮名暦
-      notes['赤舌'  ] ||= d0 == (m * 5 - 3) % 6 + 1 ? '赤舌' : nil
-      notes['大赤'  ] ||= d0 % 8 == (m * 7 - 3) % 8 ? '大赤' : nil
-      notes['不成就'] ||= d0 % 8 == [6,3,2,1,4,5][m % 6] || (misoka && m % 6 == 0) ? '不成就' : nil # 『現代こよみ読み解き事典』 for 不成就日
-      notes['六曜'  ] ||= When::RokuyoWeek.rokuyo_value(m, d0)
-      notes
-    end
-  end
-
-  #
-  # 月の位相による暦注
-  #
-  class Japanese::LunarPhases < LunarPhases
-
-    # 日の暦注
-    # @private
-    def self._day_notes(notes, dates, conditions={})
-      date = When.when?(dates.o_date.to_cal_date.to_s,
-               {:frame=>dates.o_date.frame,
-                :clock=>dates.l_date.frame.time_basis})
-      phase, metsu = dates.cal4note.l_phases.position(date)
-
-      # 滅
-      notes['滅'] =  metsu == 2 && dates.range < 11 ? '滅' : nil
-
-      # 月相
-      unless notes['月相']
-        # イベントの判定
-        formula = dates.cal4note.l_phases.formula
-        clock   = formula.kind_of?(When::Ephemeris::ChineseTrueLunation) &&
-          (5..25).include?(dates.l_date.cal_date[2]) ?
-            When.Clock(-21600) :               # 唐代暦法の望弦は午前6時を日の境界とする
-            dates.l_date.frame._time_basis[-1] # その他(進朔も考慮した時刻)
-        odate   = When.when?(dates.o_date.to_cal_date.to_s, {:frame=>dates.o_date.frame, :clock=>clock})
-        phases  = formula.phase_range(odate)
-        thitis  = phases.map {|phase| (phase % 1) * 30.0}
-        note    = if thitis[0] >= thitis[1]
-          dates.o_date.frame.kind_of?(When::CalendarTypes::Christian) || conditions[:shoyo] ? '朔' : nil
-        else
-          range = thitis[0]...thitis[1]
-          range.include?( 7.5) ? '上弦' :
-          range.include?(15.0) ? '望'   :
-          range.include?(22.5) ? '下弦' : nil
-        end
-
-        # 結果の反映
-        if conditions[:shoyo]
-          # :shoyo が true ならイベント時刻も返す
-          notes['月相'] = if note
-            etime = formula._to_seed_type(formula.cn_to_time((phases[1] * 4).floor / 4.0), odate)
-            if formula.respond_to?(:lunation_length) && formula.lunation_length.kind_of?(Rational)
-              shoyo  =  etime.clk_time.universal_time
-              shoyo +=  When::TM::Duration::DAY if (0...clock.universal_time).include?(shoyo)
-              shoyo  = (shoyo  / When::TM::Duration::DAY * formula.denominator * 1000 + 0.5).floor / 1000.0
-              shoyo  =  shoyo.to_i if shoyo == shoyo.to_i
-              "#{note}(#{shoyo}/#{formula.denominator})"
-            else
-              etime.events = [note]
-              etime
-            end
-          else
-            nil
-          end
-        else
-          # :shoyo が false ならイベン名のみ返す
-          notes['月相'] = note
-        end
-      end
-
-      # 月食
-      unless notes['月食'] && notes['神吉'] && notes['三寶吉'] && notes['小字注']
-        level = (conditions[:lunar_eclipse]||0).to_i
-        if level == -1
-          note = nil
-        else
-          key  = dates.m_date.to_s[/\(.+\z/]
-          if key
-            note, = Japanese::Eclipse::Eclipses[key.gsub(/[()]/,'')]
-          elsif dates.o_date.location &&
-                dates.o_date.frame.kind_of?(When::CalendarTypes::Christian)
-            info  = dates.o_date.location.lunar_eclipse(date..date)
-            note  = '月' + Japanese::Eclipse.eclipse_summary(info[0]) unless info.empty?
-          end
-          if note
-            note.sub!(/\*.*\z/, '')
-            note  = nil unless /月/ =~ note
-            note  = nil if level[0] == 1 && /昼/  =~ note
-            note  = nil if level[1] == 1 && /^\(/ =~ note
-          end
-        end
-        notes['月食'] = note
-      end
-
-      notes
-    end
-  end
-
-  #
-  # 太陽黄経による暦注
-  #
-  class Japanese::SolarTerms < SolarTerms
-
-    Notes12 = %w(正月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月)
-
-    Notes10 = [
-      %w(初伏 初伏),
-      %w(仲伏 中伏),
-      %w(後伏 末伏)]
-
-    Notes60_A = [
-      #  +0      
-      '侯小過外', # 315 : 正月
-      '侯需外',   # 345 : 二月
-      '侯豫外',   #  15 : 三月
-      '侯旅外',   #  45 : 四月
-      '侯大有外', #  75 : 五月
-      '侯鼎外',   # 105 : 六月
-      '侯恆外',   # 135 : 七月
-      '侯巽外',   # 165 : 八月
-      '侯歸妹外', # 195 : 九月
-      '侯艮外',   # 225 : 十月
-      '侯未濟外', # 255 : 十一月
-      '侯屯外'    # 285 : 十二月
-    ]
-
-    Notes60_B = [
-      #  +3          +9       +15       +21       +27
-      '大夫蒙',   '卿益',   '公漸',   '辟泰',   '侯需内',   # 315 : 正月
-      '大夫随',   '卿晋',   '公解',   '辟大壯', '侯豫内',   # 345 : 二月
-      '大夫訟',   '卿蠱',   '公革',   '辟夬',   '侯旅内',   #  15 : 三月
-      '大夫師',   '卿比',   '公小畜', '辟乾',   '侯大有内', #  45 : 四月
-      '大夫家人', '卿井',   '公咸',   '辟姤',   '侯鼎内',   #  75 : 五月
-      '大夫豊',   '卿渙',   '公履',   '辟遯',   '侯恆内',   # 105 : 六月
-      '大夫節',   '卿同人', '公損',   '辟否',   '侯巽内',   # 135 : 七月
-      '大夫萃',   '卿大畜', '公賁',   '辟観',   '侯歸妹内', # 165 : 八月
-      '大夫無妄', '卿明夷', '公困',   '辟剥',   '侯艮内',   # 195 : 九月
-      '大夫既濟', '卿噬嗑', '公大過', '辟坤',   '侯未濟内', # 225 : 十月
-      '大不蹇',   '卿頤',   '公中孚', '辟復',   '侯屯内',   # 255 : 十一月
-      '大夫謙',   '卿睽',   '公升',   '辟臨',   '侯小過内'  # 285 : 十二月
-    ]
-
-    Notes72 = [
-      # 儀鳳暦         宣明暦(中国)       宣明暦            貞享暦   宝暦暦・寛政暦 略本暦
-      # 315 : 正月
-       %w(雞始乳       東風解凍          東風解凍          東風解凍     東風解凍   東風解凍),
-       %w(東風解凍     蟄始振            蟄虫始振          梅花乃芳     黄鶯睍睆   黄鶯睍睆),
-       %w(蟄蟲始振     魚上氷            魚上氷            魚上氷       魚上氷     魚上氷),
-       %w(魚上冰       獺祭魚            獺祭魚            土脈潤起     土脈潤起   土脉潤起),
-       %w(獺祭魚       鴻雁来            鴻雁来            霞彩碧空     霞始靆     霞始靆),
-       %w(鴻雁來       草木萌動          草木萌動          草木萌動     草木萌動   草木萌動),
-
-      # 345 : 二月
-       %w(始雨水       桃始華            桃始華            蟄虫啓戸     蟄虫啓戸   蟄虫啓戸),
-       %w(桃始花       倉庚鳴            倉庚鳴            寒雨間熟     桃始笑     桃始笑),
-       %w(倉庚鳴       鷹化爲鳩          鷹化爲鳩          菜虫化蝶     菜虫化蝶   菜虫化蝶),
-       %w(鷹化爲鳩     玄鳥至            玄鳥至            雀始巣       雀始巣     雀始巣),
-       %w(玄鳥至       雷乃發聲          雷乃發聲          雷乃発声     桜始開     桜始開),
-       %w(雷始發聲     始電              始電              桜始開桃始笑 雷乃発声   雷乃発声),
-
-      #  15 : 三月
-       %w(始雷         桐始華            桐始華            玄鳥至       玄鳥至     玄鳥至),
-       %w(蟄蟲咸動     田鼠化爲鴑        田鼠化爲鴑        鴻雁北       鴻雁北     鴻雁北),
-       %w(蟄蟲啓戸     虹始見            虹始見            虹始見       虹始見     虹始見),
-       %w(桐始華       萍始生            萍始生            葭始生       葭始生     葭始生),
-       %w(田鼠化爲鴑   鳴鳩拂其羽        鳴鳩拂其羽        牡丹華       霜止出苗   霜止出苗),
-       %w(虹始見       戴勝降于桑        戴勝降于桑        霜止出苗     牡丹華     牡丹華),
-
-      #  45 : 四月
-       %w(萍始生       螻蟈鳴            螻蟈鳴            鵑始鳴       鼃始鳴     鼃始鳴),
-       %w(戴勝降于桑   蚯蚓出            蚯蚓出            蚯蚓出       蚯蚓出     蚯蚓出),
-       %w(螻蟈鳴       王瓜生            王瓜生            竹笋生       竹笋生     竹笋生),
-       %w(蚯蚓出       苦菜秀            苦菜秀            蚕起食桑     蚕起食桑   蚕起食桑),
-       %w(王瓜生       靡草死            靡草死            紅花栄       紅花栄     紅花栄),
-       %w(苦菜秀       小暑至            小暑至            麦秋至       麦秋至     麦秋至),
-          
-      #  75 : 五月
-       %w(靡草死       螳蜋生            螳蜋生            螳螂生       螳螂生     螳螂生),
-       %w(小暑至       鵙始鳴            鵙始鳴            腐草為螢     腐草為螢   腐草為螢),
-       %w(螳螂生       反舌無聲          反舌無聲          梅始黄       梅子黄     梅子黄),
-       %w(鵙始鳴       鹿角解            鹿角解            乃東枯       乃東枯     乃東枯),
-       %w(反舌無聲     蜩始鳴            蜩始鳴            分龍雨       菖蒲華     菖蒲華),
-       %w(鹿角解       半夏生            半夏生            半夏生       半夏生     半夏生),
-
-      # 105 : 六月
-       %w(蟬始鳴       温風至            温風至            温風至       温風至     温風至),
-       %w(半夏生       蟋蟀居壁          蟋蟀居壁          蓮始華       蓮始華     蓮始開),
-       %w(木槿榮       鷹乃學習          鷹乃學習          鷹乃学習     鷹乃学習   鷹乃学習),
-       %w(温風至       腐草爲螢          腐草爲螢          桐始結花     桐始結花   桐始結花),
-       %w(蟋蟀居壁     土潤溽暑          土潤溽暑          土潤溽暑     土潤溽暑   土潤溽暑),
-       %w(鷹乃學習     大雨時行          大雨時行          大雨時行     大雨時行   大雨時行),
-
-      # 135 : 七月
-       %w(腐草爲螢     涼風至            涼風至            涼風至       涼風至     涼風至),
-       %w(土潤溽暑     白露降            白露降            山沢浮雲     寒蝉鳴     寒蝉鳴),
-       %w(涼風至       寒蟬鳴            寒蟬鳴            霧色已成     蒙霧升降   蒙霧升降),
-       %w(白露降       鷹乃祭鳥          鷹乃祭鳥          寒蝉鳴       綿柎開     綿柎開),
-       %w(寒蟬鳴       天地始肅          天地始肅          天地始粛     天地始粛   天地始粛),
-       %w(鷹祭鳥       禾乃登            禾乃登            禾乃登       禾乃登     禾乃登),
-
-      # 165 : 八月
-       %w(天地始肅     鴻雁来            鴻雁来            草露白       草露白     草露白),
-       %w(暴風至       玄鳥歸            玄鳥歸            鶺鴒鳴       鶺鴒鳴     鶺鴒鳴),
-       %w(鴻雁來       群鳥養羞          群鳥養羞          玄鳥去       玄鳥去     玄鳥去),
-       %w(玄鳥歸       雷乃收聲          雷乃收聲          鴻雁来       雷乃収声   雷乃収声),
-       %w(羣鳥養羞     蟄蟲坏戸          蟄蟲坏戸          蟄虫坏戸     蟄虫坏戸   蟄虫坏戸),
-       %w(雷始收聲     水始涸            水始涸            水始涸       水始涸     水始涸),
-
-      # 195 : 九月
-       %w(蟄蟲坏戸     鴻雁來賓          鴻雁來賓          棗栗零       鴻雁来     鴻雁来),
-       %w(陰氣方盛     雀入大水爲蛤      雀入大水爲蛤      蟋蟀在戸     菊花開     菊花開),
-       %w(陽氣始衰     菊有黄花          菊有黄花          菊花開       蟋蟀在戸   蟋蟀在戸),
-       %w(水始涸       豺乃祭獸          豺乃祭獸          霜始降       霜始降     霜始降),
-       %w(鴻雁來賓     草木黄落          草木黄落          蔦楓紅葉     霎時施     霎時施),
-       %w(雀入水爲蛤   蟄蟲咸俯          蟄蟲咸俯          鶯雛鳴       楓蔦黄     楓蔦黄),
-
-      # 225 : 十月
-       %w(菊有黄花     水始冰            水始冰            山茶始開     山茶始開   山茶始開),
-       %w(豺祭獣       地始凍            地始凍            地始凍       地始凍     地始凍),
-       %w(水始冰       野雞入大水爲蜃    野雞入大水爲蜃    霎乃降       金盞香     金盞香),
-       %w(地始凍       虹藏不見          虹藏不見          虹蔵不見     虹蔵不見   虹蔵不見),
-       %w(野雞入水爲蜃 天氣上騰地氣下降  天氣上騰地氣下降  樹葉咸落     朔風払葉   朔風払葉),
-       %w(虹藏不見     閉塞而成冬        閉塞而成冬        橘始黄       橘始黄     橘始黄),
-
-      # 255 : 十一月
-       %w(冰益壯       鶡鳥不鳴          鶡鳥不鳴          閉塞成冬     閉塞成冬   閉塞成冬),
-       %w(地始坼       虎始交            虎始交            熊蟄穴       熊蟄穴     熊蟄穴),
-       %w(鶡鳥不鳴     茘挺生            茘挺生            水仙開       鱖魚群     鱖魚群),
-       %w(虎始交       蚯蚓結            蚯蚓結            乃東生       乃東生     乃東生),
-       %w(芒始生       麋角解            麋角解            麋角解       麋角解     麋角解),
-       %w(茘挺生       水泉動            水泉動            雪下出麦     雪下出麦   雪下出麦),
-
-      # 285 : 十二月
-       %w(蚯蚓結       雁北郷            雁北郷            芹乃栄       芹乃栄     芹乃栄),
-       %w(麋角解       鵲始巣            鵲始巣            風気乃行     水泉動     水泉動),
-       %w(水泉動       野雞始鴝          野雞始鴝          雉始雊       雉始雊     雉始雊),
-       %w(雁北郷       雞始乳            雞始乳            款冬華       款冬華     款冬華),
-       %w(鵲始巣       鷙鳥厲疾          鷙鳥厲疾          水沢腹堅     水沢腹堅   水沢腹堅),
-       %w(雉始雊       水澤腹堅          水澤腹堅          鶏始乳       鶏始乳     鶏始乳)
-    ]
-
-    # 計算結果の修正
-    # @private
-    Patch = {
-      2039054 => [149.0, 1], # 貞観12(0870).07.17 [149.0, 0] 没
-      2039055 => [150.0, 0], # 貞観12(0870).07.18 [150.0, 1] 処暑
-
-      2107233 => [ 29.0, 1], # 天喜05(1057).03.10 [ 29.0, 0] 没
-      2107234 => [ 30.0, 0], # 天喜05(1057).03.11 [ 30.0, 1] 穀雨
-
-      2160437 => [269.0, 0], # 建仁02(1202).10=29 [270.0, 1] 冬至
-      2160438 => [270.0, 1], # 建仁02(1202).11.01 [271.0, 1]
-      2160439 => [271.0, 1], # 建仁02(1202).11.02 [272.0, 1]
-      2160440 => [272.0, 1], # 建仁02(1202).11.03 [272.0, 0] 没
-
-      2175412 => [269.0, 1], # 寛元01(1243).11.03 [269.0, 0] 没
-      2175413 => [270.0, 0], # 寛元01(1243).11.04 [270.0, 1] 冬至
-
-      2189200 => [179.0, 0], # 弘安04(1281).07=30 [180.0, 1] 秋分
-      2189201 => [180.0, 1], # 弘安04(1281).08.01 [181.0, 1]
-      2189202 => [181.0, 1], # 弘安04(1281).08.02 [181.0, 0] 没
-
-      2243577 => [136.0, 0], # 永享02(1430).07.11 [136.0, 1] (立秋の翌日)
-      2243578 => [136.0, 1], # 永享02(1430).07.12 [137.0, 1]
-      2243579 => [137.0, 1], # 永享02(1430).07.13 [138.0, 1]
-      2243580 => [138.0, 1], # 永享02(1430).07.14 [139.0, 1]
-      2243581 => [139.0, 1], # 永享02(1430).07.15 [140.0, 1]
-      2243582 => [140.0, 1], # 永享02(1430).07.16 [141.0, 1]
-      2243583 => [141.0, 1], # 永享02(1430).07.17 [142.0, 1]
-      2243584 => [142.0, 1], # 永享02(1430).07.18 [143.0, 1]
-      2243585 => [143.0, 1], # 永享02(1430).07.19 [144.0, 1]
-      2243586 => [144.0, 1], # 永享02(1430).07.20 [145.0, 1]
-      2243587 => [145.0, 1], # 永享02(1430).07.21 [146.0, 1]
-      2243588 => [146.0, 1], # 永享02(1430).07.22 [147.0, 1]
-      2243589 => [147.0, 1], # 永享02(1430).07.23 [148.0, 1]
-      2243590 => [148.0, 1], # 永享02(1430).07.24 [149.0, 1]
-      2243591 => [149.0, 1], # 永享02(1430).07.25 [149.0, 0] 没 (処暑の前日)
-
-      2311770 => [ 29.0, 1], # 元和03(1617).03.18 [ 29.0, 0] 没
-      2311771 => [ 30.0, 0], # 元和03(1617).03.19 [ 30.0, 1] 穀雨
-
-      2396062 => [314.0, 0], # 弘化04(1847).12.30 [315.0, 1] 立春 (計算誤差の補正)
-      2396063 => [315.0, 1], # 弘化05(1848).01.01 [315.0, 0] 没
-
-      2397583 => [ 15.0, 1], # 嘉永05(1852).02=15 [ 14.0, 0] 没
-      2397584 => [ 16.0, 0]  # 嘉永05(1852).02=16 [ 15.0, 1] 清明 (計算誤差の補正)
-    }
-
-    class << self
-      # テスト用の属性
-      attr_writer :patch
-      private :patch=
-
-      # 日の暦注
-      # @private
-      def _day_notes(notes, dates, conditions={})
-        date  = When.when?(dates.o_date.to_cal_date.to_s,
-                  {:frame=>dates.o_date.frame,
-                   :clock=>dates.s_date.frame._time_basis[0]})
-        patch = (@patch || Patch)[date.to_i] unless dates.o_date.frame.respond_to?(:twin) &&
-                                                    dates.o_date.frame.twin
-        longitude, motsu = patch ? patch : dates.cal4note.s_terms.position(date)
-
-        # 三伏 - 庚
-        #
-        # 初 : 夏至から 20..29
-        # 仲 : 夏至から 30..39
-        # 後 : 立秋から  0..9 
-        if !notes['三伏'] && notes['干'].remainder == 6 # 庚
-          index = dates.range >= 11 ? 1 : 0
-          if 109 <= longitude && longitude <= 129      # 夏至から
-            term = dates.cal4note.s_terms.term(date, [-270,360])
-            diff = dates.s_date.to_i - term.to_i
-            notes['三伏'] = Notes10[0][index] if 20 <= diff && diff <= 29
-            notes['三伏'] = Notes10[1][index] if 30 <= diff && diff <= 39
-          elsif longitude == 135                     # 立秋
-            notes['三伏'] = Notes10[2][index]
-          elsif 136 <= longitude && longitude <= 144 # 立秋から
-            term = dates.cal4note.s_terms.term(date, [-225,360])
-            diff = dates.s_date.to_i - term.to_i
-            notes['三伏'] = Notes10[2][index] if 0 < diff && diff <= 9
-          end
-        end
-
-        # 社 - 戊
-        #
-        # 春秋分から -5..4
-        if !notes['社'] && notes['干'].remainder == 4 # 戊
-          if (longitude + 5) % 180 < 10 # 春秋分の近傍
-            term = dates.cal4note.s_terms.term(date - When.Duration('P5D'), [0,180])
-            diff = dates.s_date.to_i - term.to_i
-            notes['社'] = '社' if -5 <= diff && diff <= 4
-          end
-        end
-
-        # 臘 - 辰
-        #
-        # 大寒から -6..5
-        if !notes['臘'] && notes['支'].remainder == 4 # 辰
-          if (longitude - 339) % 360 < 12 # 大寒の近傍
-            term = dates.cal4note.s_terms.term(date - When.Duration('P6D'), [345,360])
-            diff = dates.s_date.to_i - term.to_i
-            notes['臘'] = '臘' if -6 <= diff && diff <= 5
-          end
-        end
-
-        # 土用事
-        unless notes['土用事']
-          _longitude, _motsu = dates.cal4note.s_terms2.instance_of?(self) && dates.cal4note.doyo == 0 ? [longitude, motsu] :
-                               dates.cal4note.s_terms2.position(date, -dates.cal4note.doyo)
-          if _motsu != 0 && _longitude % 90 == 27
-            notes['土用事'] =
-              begin
-                event_name =
-                  case dates.range
-                  when 0     ; '土用'   # 元嘉暦以前
-                  when 1     ; '土王'   # 麟徳暦
-                  when 2..10 ; '土用事' # 大衍暦～宣明暦
-                  else       ; '土用入' # 貞享暦以降
-                  end
-                if conditions[:shoyo]
-                  dates.cal4note.s_terms2.event_time(date, event_name, [27-dates.cal4note.doyo, 90])
-                else
-                  event_name
-                end
-              end
-          end
-        end
-
-        # 入梅 - 壬
-        #
-        # 貞享2(1685)～ 芒種から 1..10 日の壬の日
-        # 元文5(1740)～ 芒種から 0..9  日の壬の日
-        # 明治9(1876)～ 太陽黄経80度
-        unless notes['入梅']
-          if dates.year >= 1876
-            notes['入梅'] = '入梅' if longitude == 80 && motsu == 1
-          elsif notes['干'].remainder == 8 # 壬
-            if (longitude - 75) % 360 <= 10 # 芒種の近傍
-              term  = dates.cal4note.s_terms.term(date - When.Duration('P11D'), [75,360])
-              diff  = dates.s_date.to_i - term.to_i
-              diff += 1 if dates.year >= 1740
-              notes['入梅'] = '入梅' if dates.range >= 11 && 1 <= diff && diff <= 10
-            end
-          end
-        end
-
-        # 半夏生
-        #
-        # 太陽黄経100度
-        notes['半夏生'] ||= '半夏生' if longitude == 100 && motsu == 1
-
-        # 立春を起算日とする雑節
-        #
-        unless notes['節分'] && notes['八十八夜'] && notes['二百十日'] && notes['二百廿日']
-          term = dates.cal4note.s_terms.term(date + When.Duration('P3D'), [-45,360])
-          case dates.s_date.to_i - term.to_i
-          when  -1 ; notes['節分']     ||= '節分'
-          when  87 ; notes['八十八夜'] ||= '八十八夜'
-          when 209 ; notes['二百十日'] ||= '二百十日'
-          when 219 ; notes['二百廿日'] ||= '二百廿日'
-          end
-        end
-
-        # 日食
-        unless notes['日食'] && notes['小字注']
-          level = (conditions[:solar_eclipse]||0).to_i
-          if level == -1
-            note = nil
-          else
-            key  = dates.m_date.to_s[/\(.+\z/]
-            if key
-              note, = Japanese::Eclipse::Eclipses[key.gsub(/[()]/,'')]
-            elsif dates.o_date.location &&
-                  dates.o_date.frame.kind_of?(When::CalendarTypes::Christian)
-              info  = dates.o_date.location.solar_eclipse(date..date)
-              note  = '日' + Japanese::Eclipse.eclipse_summary(info[0]) unless info.empty?
-            end
-            if note
-              note.sub!(/\*.*\z/, '')
-              note  = nil unless /日/ =~ note
-              note  = nil if level[0] == 1 && /夜/  =~ note
-              note  = nil if level[1] == 1 && /^\(/ =~ note
-            end
-          end
-          notes['日食'] = note
-        end
-
-        # 没
-        if motsu == 0
-          notes['没'] = dates.range < 11 ? '没' : nil
-          return notes unless patch
-        else
-          notes['没'] = nil
-        end
-
-        # 廿四節気
-        div, mod = longitude.divmod(15)
-        if mod == 0
-          note = (div - 21) % 24
-          div, mod = note.divmod(2)
-          notes['節中']     ||= Notes12[div] + %w(節 中)[mod]
-          notes['廿四節気'] ||= 
-            begin
-              residue = When.Resource(dates.range == 1 ? '_co:Common?V=0618' : '_co:Common')['二十四節気::*'][(note-3) % 24]
-              if conditions[:shoyo]
-                dates.cal4note.s_terms.event_time(date, residue.label, [0,15])
-              else
-                residue
-              end
-            end
-        end
-
-        # 七十二候
-        div, mod = longitude.divmod(5)
-        notes['七十二候'] ||= mod == 0  ? Notes72[(div - 63) % 72][dates.index_s]  : nil
-
-        # 往亡
-        unless notes['往亡'] && notes['神吉'] && notes['雑事吉']
-          month    = dates.s_date.cal_date[-2] - 1
-          day      = dates.s_date.cal_date[-1] - 1
-          div, mod = month.divmod(3)
-          deg      = (div+7)*(mod+1) + month * 30 + 314
-          notes['往亡'] = (dates.range < 11 ? (deg - longitude) % 360 == 0  :               # 没を含まない
-                                              (deg - 315      ) %  30 == day)? '往亡' : nil # 没を含む
-        end
-
-        # 伏龍
-        notes['伏龍']     ||= {
-          315 => '庭内去堂',  15 => '門内百日', 115 => '東垣六十日',
-          175 => '四隅百日', 275 => '竈内四十日'
-        }[longitude]
-
-        # 六十卦
-        div, mod = longitude.divmod(30)
-        notes['六十卦']   ||= mod == 15 ? Notes60_A[(div - 10) % 12] : nil
-        div, mod = longitude.divmod(6)
-        notes['六十卦']   ||= mod == 0  ? Notes60_B[(div - 53) % 60] : nil
-
-        # 彼岸
-        unless notes['彼岸']
-          if dates.range < 11
-            notes['彼岸'] = '彼岸' if longitude % 180 == 2 # 宣明暦以前(没を除いて３日後)
-          else
-            term = dates.cal4note.s_terms.term(date - When.Duration('P7D'), [0,180]) # 近傍の春秋分
-            case dates.s_date.to_i - term.to_i
-            when  2 ; notes['彼岸'] = '彼岸' if dates.range == 11 # 貞享暦(没を含めて３日後)
-            when -5 ; notes['彼岸'] = '彼岸' if longitude >  180 && (1755...1844).include?(dates.year) # 宝暦暦・寛政暦(春-６日前))
-            when -1 ; notes['彼岸'] = '彼岸' if longitude <= 180 && (1755...1844).include?(dates.year) # 宝暦暦・寛政暦(秋-２日前)
-            when -3 ; notes['彼岸'] = '彼岸' if dates.year >= 1844 # 天保暦以降(秋-４日前)
-            end
-          end
-          notes['彼岸'] = nil unless notes['彼岸'] == '彼岸'
-        end
-
-        notes
-      end
-    end
-  end
-
-  #
-  # 太陽黄経による暦注
-  #
-  class Japanese::SolarTermsRevised < Japanese::SolarTerms
-
-    # 土用策
-    DoyoShift = When::TM::PeriodDuration.new([0,0,12.1747411317])
-
-    # 日付に対応する座標
-    #
-    # @param [When::TM::TemporalPosition] date 日付
-    # @param [Numeric] delta 周期の補正(土用の時刻の補正に使用,デフォルト 0)
-    #
-    # @return [Array<Integer>] Array< Integer, 0 or 1 or 2 >
-    #
-    #   [Integer]     対応する座標
-    #
-    #   [0 or 1 or 2] 座標の進み(0 なら 没, 2 なら滅)
-    #
-    def position(date, delta=0)
-      return super if date.most_significant_coordinate >= 1869
-      date   = date.floor
-      p0, p1 = [date, date.succ].map {|d| (30.0 * @formula.time_to_cn(d-DoyoShift) - @margin + 12).floor}
-      [p1 % @den, p1 - p0]
-    end
-
-    #
-    # イベント日付(時刻付)
-    #
-    # @private
-    def event_time(date, event_name, event)
-      return super if date.most_significant_coordinate >= 1869
-      etime = term(date + When.Duration('P3D'), [-15,30], When::SYSTEM) + DoyoShift
-      if formula.respond_to?(:year_length) && formula.denominator && formula.denominator < 100000
-        fraction  =  etime.clk_time.local_time
-        fraction +=  When::TM::Duration::DAY * (etime.to_i - date.to_i)
-        fraction  = (fraction  / When::TM::Duration::DAY * formula.denominator * 1000 + 0.5).floor / 1000.0
-        fraction  =  fraction.to_i if fraction == fraction.to_i
-        event_name + "(#{fraction}/#{formula.denominator})"
-      else
-        etime.events = [event_name]
-        etime
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2014 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
+
+require 'when_exe/ephemeris/notes'
+require 'when_exe/region/japanese/residues'
+
+class When::CalendarNote
+
+  #
+  # 日本暦注
+  #
+  class Japanese < self
+
+    autoload :Eclipse, 'when_exe/region/japanese/eclipses'
+
+    #
+    # 日本暦注が使用する暦法
+    #
+    # @private
+    class Cal4Note
+      def initialize(calendar, solar)
+        @calendar = calendar
+        @solar    = solar
+      end
+    end
+
+    #
+    # 日本暦注の要素
+    #
+    # @private
+    class Note < When::CalendarNote::NoteElement
+    end
+
+    #
+    # 日本暦注の要素
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=ja:, en=en:]",
+      "names:[日本暦注=]",
+
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[年]",
+        [Note, 0xFFFF, "label:[干支]",       'position:共通'],                               #  0: 干支
+      # [Note, 0xFFFF, "label:[干=ja:%%<十干>]",
+      #                                   'position:共通'],                                  #     干
+      # [Note, 0xFFFF, "label:[支=ja:%%<十二支>]",
+      #                                   'position:共通'],                                  #     支
+        [Note, 0x3800, "label:[廿八宿=ja:%%<二十八宿>]",
+                                             'position:共通'],                               #  1: 廿八宿
+        [Note, 0x3FFC, "label:[大歳壇=]",    'position:暦序'],                               #  2: 干支
+        [Note, 0xC000, "label:[九星]",       'position:民間'],                               #  3: 九星
+        [Note, 0xFFFC, "label:[納音]",       'position:暦序',   'suffix:是'],                #  4: 干支
+        [Note, 0xFFFF, "label:[大歳=ja:%%<太歳神>]",
+                                             'position:暦序',   'suffix:在'],                #  5: 干支
+        [Note, 0xFFFF, "label:[大將軍=ja:%%<大将軍_(方位神)>]",
+                                             'position:暦序',   'suffix:在'],                #  6: 支
+        [Note, 0xFFFF, "label:[大陰=ja:%%<太陰神>]",
+                                             'position:暦序',   'suffix:在'],                #  7: 支
+        [Note, 0xFFFF, "label:[歳徳=ja:%%<歳徳神>]",
+                                             'position:暦序',   'suffix:在'],                #  8: 干
+        [Note, 0xFFFF, "label:[歳刑=ja:%%<歳刑神>]",
+                                             'position:暦序',   'suffix:在'],                #  9: 支
+        [Note, 0xFFFF, "label:[歳破=ja:%%<歳破神>]",
+                                             'position:暦序',   'suffix:在'],                # 10: 支
+        [Note, 0xFFFF, "label:[歳煞=ja:%%<歳殺神>]",
+                                             'position:暦序',   'suffix:在'],                # 11: 支
+        [Note, 0xFFFF, "label:[黄幡=ja:%%<黄幡神>]",
+                                             'position:暦序',   'suffix:在'],                # 12: 支
+        [Note, 0xFFFF, "label:[豹尾=ja:%%<豹尾神>]",
+                                             'position:暦序',   'suffix:在'],                # 13: 支
+        [Note, 0x0003, "label:[天道=]",      'position:暦序',   'suffix:-'],                 # 14: 支
+        [Note, 0x0003, "label:[人道=]",      'position:暦序',   'suffix:-'],                 # 15: 支
+        [Note, 0x3FFC, "label:[歳次=]",      'position:暦序',   'suffix:-'],                 # 16: 支
+        [Note, 0xF800, "label:[金神]",       'position:仮名暦', 'suffix:在'],                # 17: 干
+        [Note, 0xFFFF, "label:[大小]",       'position:暦序']                                # 18: 朔閏表
+      ],
+
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[月]",
+        [Note, 0xFFFF, "label:[月名=ja:%%<月_(暦)>#%.<日本の和風月名>, Month]",
+                                             'position:月建'],                               #  0: 月の和名
+      # [Note, 0xFFFF, "label:[干支]",       'position:共通'],                               #     干支
+      # [Note, 0xFFFF, "label:[干=ja:%%<十干>]",
+      #                                           'position:共通'],                          #     干
+      # [Note, 0xFFFF, "label:[支=ja:%%<十二支>]",
+      #                                           'position:共通'],                          #     支
+        [Note, 0xF800, "label:[廿八宿=ja:%%<二十八宿>]",
+                                             'position:共通'],                               #  1: 廿八宿
+        [Note, 0xFFFC, "label:[月建=]",      'position:月建',   'suffix:-' ],                #  2: 年の十干と暦月
+        [Note, 0xC000, "label:[九星]",       'position:民間'],                               #  3: 九星
+        [Note, 0x0003, "label:[天氣=]",      'position:月建',   'suffix:-' ],                #  4: 暦月
+        [Note, 0x3FFF, "label:[天道=]",      'position:月建',   'suffix:-' ],                #  5: 暦月
+        [Note, 0x0003, "label:[人道=]",      'position:月建',   'suffix:-' ],                #  6: 暦月
+        [Note, 0x0003, "label:[月破=]",      'position:月建',   'suffix:在'],                #  7: 暦月
+        [Note, 0x3FFC, "label:[天徳=]",      'position:月建',   'suffix:在'],                #  8: 暦月
+        [Note, 0x3FFF, "label:[月煞=]",      'position:月建',   'suffix:在'],                #  9: 暦月
+        [Note, 0x3FFF, "label:[用時=]",      'position:月建',   'suffix:-' ],                # 10: 暦月
+        [Note, 0x3FFF, "label:[月徳=]",      'position:月建',   'suffix:在'],                # 11: 暦月
+        [Note, 0x3FFC, "label:[月徳合=]",    'position:月建',   'suffix:在'],                # 12: 暦月
+        [Note, 0x3FFC, "label:[月空=]",      'position:月建',   'suffix:在'],                # 13: 暦月
+        [Note, 0x3FFF, "label:[三鏡=]",      'position:月建',   'suffix:-' ],                # 14: 暦月
+        [Note, 0x3FFF, "label:[土府=]",      'position:月建',   'suffix:在'],                # 15: 暦月
+        [Note, 0x3FFC, "label:[土公=ja:%%<土公神>]",
+                                             'position:月建',   'suffix:在'],                # 16: 暦月
+        [Note, 0xFFFF, "label:[大小]",       'position:月建']                                # 17: 朔閏表
+      ],
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[日]",
+        [Note, 0xFFFF, "label:[干支]",       'position:共通'],                               #  0: 干支
+      # [Note, 0x, "label:[干=ja:%%<十干>]",
+      #                                           'position:共通'],                          #     干
+      # [Note, 0x, "label:[支=ja:%%<十二支>]",
+      #                                           'position:共通'],                          #     支
+        [Note, 0x3FFF, "label:[納音]",       'position:共通',   'suffix:是'],                #  1: 干支
+        [Note, 0xFFFF, "label:[十二直]",     'position:共通'],                               #  2: 支 節月
+        [Note, 0xFFFF, "label:[七曜]",       'position:共通'],                               #  3: 七曜
+        [Note, 0xF800, "label:[廿八宿=ja:%%<二十八宿>]",
+                                             'position:共通'],                               #  4: 廿八宿
+        [Note, 0x07F8, "label:[廿七宿=ja:%%<二十八宿>]",
+                                             'position:共通'],                               #  5: 暦月 暦日
+        [Note, 0xC000, "label:[九星]",       'position:民間'],                               #  6: 九星
+        [Note, 0x8000, "label:[六曜]",       'position:民間'],                               #  7: 暦月 暦日
+        [Note, 0xE000, "label:[祝祭日]",     'position:祝祭日'],                             #  8: 暦月 暦日 (七曜)
+        [Note, 0xFFFF, "label:[廿四節気=ja:%%<二十四節気>]",
+                                             'position:時候'],                               #  9: 太陽黄経
+        [Note, 0xFFFF, "label:[節中=]",      'position:時候'],                               # 10: 太陽黄経
+        [Note, 0xFFFC, "label:[七十二候]",   'position:時候'],                               # 11: 太陽黄経
+        [Note, 0x3FFC, "label:[六十卦=]",    'position:時候'],                               # 12: 太陽黄経
+        [Note, 0xF800, "label:[節分]",       'position:雑節'],                               # 13: 立春からの日数
+        [Note, 0xF800, "label:[初午]",       'position:雑節'],                               # 14: 支 節月 or 暦月
+        [Note, 0xF800, "label:[八十八夜]",   'position:雑節'],                               # 15: 立春からの日数
+        [Note, 0xF800, "label:[入梅]",       'position:雑節'],                               # 16: 干 太陽黄経
+        [Note, 0xF800, "label:[半夏生]",     'position:雑節'],                               # 17: 干 太陽黄経
+        [Note, 0xF800, "label:[二百十日]",   'position:雑節'],                               # 18: 立春からの日数
+        [Note, 0xF800, "label:[二百廿日=ja:%%<二百二十日>]", 'position:雑節'],               # 19: 立春からの日数
+
+        [Note, 0x3FFC, "label:[大禍=ja:%%<暦注下段>#%.<大禍日>]",
+                                             'position:上段 上段 欄外 欄外', 'suffix:日'],   # 20: 支 節月
+        [Note, 0x3FFC, "label:[滅門=ja:%%<暦注下段>#%.<滅門日>]",
+                                             'position:上段 上段 欄外 欄外', 'suffix:日'],   # 21: 支 節月
+        [Note, 0x3FFC, "label:[狼藉=ja:%%<暦注下段>#%.<狼藉日>]",
+                                             'position:上段 上段 欄外 欄外', 'suffix:日'],   # 22: 支 節月
+
+        [Note, 0x07F8, "label:[甘露=]",      'position:上段 上段 上段 上段', 'suffix:日'],   # 23: 七曜 廿七宿
+        [Note, 0x07F8, "label:[金剛峯=]",    'position:上段 上段 上段 上段'],                # 24: 七曜 廿七宿
+        [Note, 0x07F8, "label:[羅刹=]",      'position:上段 上段 上段 上段'],                # 25: 七曜 廿七宿
+
+        [Note, 0x3FFC, "label:[大將軍=ja:%%<大将軍_(方位神)>]",
+                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 26: 干支 節年
+        [Note, 0xFFFC, "label:[天一=ja:%%<天一神>]",
+                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 27: 干支
+        [Note, 0x3FFC, "label:[土公=ja:%%<土公神>]",
+                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 28: 干支
+        [Note, 0x3FFC, "label:[歳下食=ja:%%<暦注下段>#%.<歳下食>]",
+                                             'position:上段 上段 上段 上段'],                # 29: 干支 節年
+        [Note, 0x3FFC, "label:[忌遠行=]",    'position:上段 上段 上段 上段'],                # 30: 支 節月
+        [Note, 0x3FFC, "label:[忌夜行=]",    'position:上段 上段 上段 上段'],                # 31: 支 節月
+        [Note, 0x3FFC, "label:[下食時=ja:%%<暦注下段>#%.<時下食>]",
+                                             'position:上段 上段 上段 上段',   'suffix:-'],  # 32: 支 節月 貞享暦で一部廃止
+        [Note, 0x3FFC, "label:[天間=]",      'position:上段 上段 上段 中段上'],              # 33: 干支 節月
+        [Note, 0x3FFC, "label:[不視病=]",    'position:上段 上段 上段 上段'],                # 34: 干
+        [Note, 0x3FFC, "label:[不問疾=]",    'position:上段 上段 上段 上段'],                # 35: 干
+        [Note, 0x3FFC, "label:[不弔人=]",    'position:上段 上段 上段 上段'],                # 36: 支
+        [Note, 0xFFFC, "label:[彼岸]",       'position:仮名暦'],                             # 37: 太陽黄経
+        [Note, 0xFFFF, "label:[社=ja:%%<社日>]",
+                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 38: 干 太陽黄経
+        [Note, 0xFFFF, "label:[三伏]",       'position:中段 中段 中段 中段'],                # 39: 干 太陽黄経
+        [Note, 0x3FFC, "label:[除手足甲=]",  'position:中段 中段 中段 中段'],                # 40: 晦(除手足甲)、支(片方のみ), 没滅凶会日×
+        [Note, 0x3FFC, "label:[沐浴=]",      'position:中段 中段 中段 中段'],                # 41: 支 没滅凶会日×
+        [Note, 0x3FFD, "label:[臘=ja:%%<臘日>]",
+                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 42: 支 太陽黄経
+        [Note, 0x3FFC, "label:[伐=]",        'position:中段 中段 中段 中段上', 'suffix:日'], # 43: 干支
+        [Note, 0x3FFC, "label:[五墓=ja:%%<暦注下段>#%.<五墓日>]",
+                                             'position:中段 中段 中段 中段下', 'suffix:日'], # 44: 干支
+        [Note, 0x3FFC, "label:[六蛇=]",      'position:中段 中段 中段 中段上'],              # 45: 干支 節月
+        [Note, 0x3FFC, "label:[七鳥=]",      'position:中段 中段 中段 中段上'],              # 46: 干支 節月
+        [Note, 0x3FFC, "label:[八龍=]",      'position:中段 中段 中段 中段上'],              # 47: 干支 節月
+        [Note, 0x3FFC, "label:[九虎=]",      'position:中段 中段 中段 中段上'],              # 48: 干支 節月
+        [Note, 0x07FF, "label:[没=ja:%%<没日>]",
+                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 49: 太陽黄経
+        [Note, 0xFFF8, "label:[日食]",       'position:中段 中段 中段 中段'],                # 50: 日食表
+        [Note, 0x07FC, "label:[滅=ja:%%<滅日>]",
+                                             'position:中段 中段 中段 中段', 'suffix:日'],   # 51: 月の位相
+        [Note, 0xFFF8, "label:[月食]",       'position:中段 中段 中段 中段'],                # 52: 月食表
+        [Note, 0xC7FD, "label:[月相]",       'position:中段 中段 中段 中段'],                # 53: 月の位相
+        [Note, 0xFFFF, "label:[土用事=ja:%%<土用>]",
+                                             'position:中段 中段 中段 中段'],                # 54: 太陽黄経
+        [Note, 0x3FF0, "label:[伏龍=]",      'position:上段 上段 下段 下段', 'suffix:在'],   # 55: 太陽黄経
+
+        [Note, 0x3FFF, "label:[凶会=ja:%%<暦注下段>#%.<凶会日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 56: 干支 節月(宣明暦以前)/暦月(貞享暦以降)
+        [Note, 0x3FFF, "label:[大小歳=]",    'position:下段 下段 下段 下段'],                # 57: 干支 節月
+        [Note, 0x3FFC, "label:[歳徳=ja:%%<歳徳神>]",
+                                             'position:下段 下段 下段 下段'],                # 58: 干 節年 凶会日× ～合も
+        [Note, 0x0003, "label:[天倉=]",      'position:古注'],                               # 59: 干支 節月
+      # [Note, 0x0003, "label:[天李=]",      'position:古注'],                               #     干支 節月?
+        [Note, 0x37FF, "label:[天恩=ja:%%<暦注下段>#%.<天恩日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 60: 干支 節月 凶会日×
+        [Note, 0xFFFF, "label:[天赦=ja:%%<暦注下段>#%.<天赦日>]",
+                                             'position:下段 下段 下段 下段'],                # 61: 干支 節月
+        [Note, 0x37FF, "label:[母倉=ja:%%<暦注下段>#%.<母倉日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 62: 支 節月 凶会日×
+        [Note, 0x37FC, "label:[月徳=]",      'position:下段 下段 下段 下段'],                # 63: 干 節月 凶会日× ～合も
+        [Note, 0x3FFF, "label:[九坎=]",      'position:下段 下段 下段 下段'],                # 64: 支 節月
+        [Note, 0x3FFF, "label:[歸忌=ja:%%<暦注下段>#%.<帰忌日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 65: 支 節月
+        [Note, 0x3FFF, "label:[血忌=ja:%%<暦注下段>#%.<血忌日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 66: 支 節月
+        [Note, 0x3FFC, "label:[無翹=]",      'position:下段 下段 下段 下段'],                # 67: 支 節月
+        [Note, 0x3FFF, "label:[厭=]",        'position:下段 下段 下段 下段'],                # 68: 支 節月
+        [Note, 0x3FFC, "label:[重=ja:%%<暦注下段>#%.<重日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 69: 支
+        [Note, 0x3FFD, "label:[復=ja:%%<暦注下段>#%.<復日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 70: 干 節月
+        [Note, 0x3FFC, "label:[月煞=]",      'position:下段 下段 下段 下段'],                # 71: 支 節月
+        [Note, 0x3FFF, "label:[往亡=ja:%%<暦注下段>#%.<往亡日>]",
+                                             'position:下段 下段 下段 下段', 'suffix:日'],   # 72: 太陽黄経
+        [Note, 0x3FFF, "label:[日遊=ja:%%<日遊神>]",
+                                             'position:最下段', 'suffix:在'],                # 73: 干支
+        [Note, 0x07FF, "label:[人神配当=]",  'position:最下段孟月', 'suffix:-'],             # 74: 暦日
+
+        [Note, 0x3E00, "label:[受死=ja:%%<暦注下段>#%.<受死日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 75: 支 節月
+        [Note, 0xFFF0, "label:[八專]",       'position:仮名暦'],                             # 76: 干支
+        [Note, 0x3E00, "label:[八專間日=ja:%%<八専>]",
+                                             'position:仮名暦'],                             # 77: 干支
+        [Note, 0xC000, "label:[金神間日=ja:%%<金神>#%.<金神の遊行・間日>]",
+                                             'position:仮名暦'],                             # 78: 支 節月
+        [Note, 0xC000, "label:[金神遊行=ja:%%<金神>#%.<金神の遊行・間日>]",
+                                             'position:仮名暦'],                             # 79: 支 節月
+        [Note, 0x3FF0, "label:[天火=ja:%%<暦注下段>#%.<天火日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 80: 支 節月
+        [Note, 0x3FF0, "label:[地火=ja:%%<暦注下段>#%.<地火日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 81: 支 節月
+        [Note, 0x3800, "label:[人火=]",      'position:仮名暦'],                             # 82: 支 節月
+        [Note, 0x3800, "label:[雷火=]",      'position:仮名暦'],                             # 83: 支 節月
+        [Note, 0x3FF0, "label:[赤舌=ja:%%<赤舌日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 84: 暦月 暦日
+        [Note, 0x3E00, "label:[十死=ja:%%<暦注下段>#%.<十死日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 85: 支 節月
+        [Note, 0x3E00, "label:[道虚=]",      'position:仮名暦', 'suffix:日'],                # 86: 暦日
+        [Note, 0x3E00, "label:[大明=ja:%%<暦注下段>#%.<大明日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 87: 干支
+        [Note, 0x0600, "label:[大赤=ja:%%<赤口日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 88: 暦月 暦日
+        [Note, 0xF800, "label:[甲子待=ja:%%<甲子>]",
+                                             'position:仮名暦'],                             # 89: 干支
+        [Note, 0xC000, "label:[己巳]",       'position:仮名暦'],                             # 90: 干支
+        [Note, 0xF800, "label:[庚申待]",     'position:仮名暦'],                             # 91: 干支
+        [Note, 0x3800, "label:[犯土]",       'position:仮名暦'],                             # 92: 干支
+        [Note, 0xF800, "label:[十方暮]",     'position:仮名暦'],                             # 93: 干支
+        [Note, 0xF800, "label:[一粒万倍=ja:%%<一粒万倍日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 94: 支 節月
+        [Note, 0x3800, "label:[天福=]",      'position:仮名暦'],                             # 95: 支 節月
+        [Note, 0x3800, "label:[地福=]",      'position:仮名暦'],                             # 96: 支 節月
+        [Note, 0x3800, "label:[地五福=]",    'position:仮名暦'],                             # 97: 支 節月
+        [Note, 0xB800, "label:[三隣亡]",     'position:仮名暦'],                             # 98: 支 節月
+        [Note, 0xF800, "label:[不成就=ja:%%<不成就日>]",
+                                             'position:仮名暦', 'suffix:日'],                # 99: 暦月 暦日/晦日
+        [Note, 0x3800, "label:[鬼宿]",       'position:仮名暦'],                             #100: 廿八宿
+        [Note, 0x3800, "label:[金性=]",      'position:仮名暦'],                             #101: 支 節月 支 節年
+        [Note, 0x3FFF, "label:[三寶吉=http://kotobank.jp/word/%%<三宝吉日>]",
+                                             'position:上段 上段 上段 上段'],                #102: 干支 節月
+        [Note, 0x3FFF, "label:[神吉=ja:%%<暦注下段>#%.<神吉日>]",
+                                             'position:上段 上段 中段 中段上', 'suffix:日'], #103: 干支 節月
+        [Note, 0x3FFF, "label:[雑事吉=]",    'position:雑事吉'],                             #104: 干支 節月
+        [Note, 0x3FFF, "label:[小字注=]",    'position:下段小字 下段小字 下段小字 下段小字'],#105: 干支 節月
+      ]
+    ]]
+
+    #
+    # 日本暦注の時代変遷
+    #
+    # @private
+    NoteTypes = (2...When::TM::CalendarEra::JapaneseSolar[2].size).to_a.map {|i|
+      calendars =
+        [When::TM::CalendarEra::JapaneseLuniSolar[2][i][2],
+         When::TM::CalendarEra::JapaneseSolar[2][i][2]].map {|epoch|
+          epoch =~ /\A(-?\d+)-(\d+)-(\d+)\^(.+)\z/
+          $4
+        }
+      [$2 == '01' ? $1.to_i : $1.to_i+1, Cal4Note.new(*calendars)]
+    }.reverse
+
+    # @private
+    NoteRange = [
+      # 開始 具注暦 七十二候        index mask
+      [-660,    0,      0], # ～ 696  0 : 0001
+      [ 697,    0,      0], # ～ 763  1 : 0002
+      [ 764,    0,      2], # ～ 800  2 : 0004
+      [ 801,    0,      2], # ～ 900  3 : 0008
+      [ 901,    0,      2], # ～1003  4 : 0010
+      [1004,    1,      2], # ～1047  5 : 0020
+      [1048,    1,      2], # ～1100  6 : 0040
+      [1101,    1,      2], # ～1184  7 : 0080
+      [1185,    2,      2], # ～1300  8 : 0100
+      [1301,    2,      2], # ～1337  9 : 0200
+      [1338,    3,      2], # ～1684 10 : 0400
+      [1685,    3,      3], # ～1754 11 : 0800
+      [1755,    3,      4], # ～1867 12 : 1000
+      [1868,    3,      4], # ～1872 13 : 2000
+      [1873,    3,      4], # ～1873 14 : 4000
+      [1874,    3,      5]  # ～     15 : 8000
+    ]
+
+    # @private
+    NoteFocused = (0...NoteRange.size).to_a.map {|range|
+      (2..4).to_a.map {|cord|
+        notes = Notes[1][cord]
+        (2...notes.size).to_a.inject([]) {|focused,note|
+          focused << notes[note][2][/\[.+?[=\]]/][1..-2] if notes[note][1][range] == 1
+          focused
+        }
+      }
+    }
+
+    #
+    # 月の大小
+    #
+    # @private
+    MonthPattern = {
+       29 => '小',
+       30 => '大',
+      -28 => '平',
+      -29 => '閏',
+      -30 => '小',
+      -31 => '大'
+    }
+
+    #
+    # 日本暦注に対応するインデックス(整数値)
+    #
+    # @private
+    module Index
+      # @private
+      [[2,'Y'], [3,'M'], [4,'D']].map {|cord|
+        index, initial = cord
+        notes = Notes[1][index]
+        (notes.size-2).times {|no|
+          name = initial + notes[no+2][2][/\[.+?[=\]]/][1..-2]
+          mask = 'M' + name
+          const_set(name, no)
+          const_set(mask, 1<<no)
+        }
+      }
+    end
+
+    #
+    # 日本暦注が使用する暦法
+    #
+    # @private
+    class Cal4Note
+      attr_reader :calendar, :solar
+
+      def l_calendar
+        @l_calendar ||= When.Calendar(@calendar.kind_of?(String) ? @calendar.sub(/#\{\?.+?\}/, '') : @calendar)
+      end
+
+      def s_calendar
+        @s_calendar ||= When.Calendar(@solar.kind_of?(String) ? @solar.sub(/#\{\?.+?\}/, '?Clock=THS') : @solar)
+      end
+
+      def l_phases
+        @l_phases   ||= Japanese::LunarPhases.new('formula'=>l_calendar.formula[-1])
+      end
+
+      def s_terms
+        @s_terms    ||= Japanese::SolarTerms.new('formula'=>s_calendar.formula[0])
+      end
+
+      def s_terms2
+        @s_terms2   ||= @l_calendar.iri =~ /JapaneseTwin(.*?)::天保暦/ ?
+          Japanese::SolarTermsRevised.new('formula'=>s_calendar.formula[0]) : s_terms
+      end
+
+      def doyo
+        @doyo       ||= (s_calendar.doyo ? s_calendar.doyo * 360.0 / s_calendar.formula[0].year_length : 0)
+      end
+    end
+
+    #
+    #  日本暦注用の Notes の要素のための内部クラス
+    #
+    # @private
+    class Note
+
+      attr_reader :label, :position, :suffix
+
+      def to_note_hash(note, dates=nil)
+        {
+          :note      => self,
+          :value     => case @suffix
+                        when '是' ; [@label + '是-', note[/.\z/]]
+                        when '在' ; [@label + '在-', note]
+                        when '-'  ; [@label + '-',   note]
+                        else      ; note
+                        end,
+          :position => @position[@position.size == 1 ? 0 : dates.index_g]
+        }
+      end
+
+      private
+      # オブジェクトの正規化
+      #
+      def _normalize(args=[], options={})
+        @position = @position.split(/ /)
+      end
+    end
+
+    #
+    #  日本暦注計算に必要となる暦日や暦法をまとめた内部クラス
+    #
+    # @private
+    class Dates
+
+      attr_reader :year, :precision, :cal4note, :range, :index_g, :index_s, :o_date, :l_date, :m_date, :s_date
+
+      # 初期設定
+      def initialize(date, year=date.most_significant_coordinate, precision=date.precision, cal4note=nil)
+
+        # 暦注パターン
+        if cal4note
+          # 年代による判定
+          (1...NoteRange.size).to_a.reverse.each do |i|
+            if year >= NoteRange[i][0]
+              @range = i
+              break
+            end
+          end
+          @range ||= 0
+        else
+          # 暦法による判定
+          cal4note = Cal4Note.new(date.frame, date.frame.twin)
+          @range =
+            case cal4note.l_calendar.formula[-1]
+            when When::Ephemeris::ChineseTrueLunation::JujiMethods ; 11 # 江戸時代の暦
+            when When::Ephemeris::ChineseTrueLunation
+              date.frame.twin =~ /戊寅|麟徳/ ? 1 : 10 # 唐代定朔暦(儀鳳暦 or 宣明暦)
+            when When::Ephemeris::MeanLunation   ;  0 # 唐代以前平朔暦(元嘉暦)
+            else                                 ; 15 # 現代の旧暦
+            end
+        end
+
+        # 具注暦の配置
+        @index_g = NoteRange[@range][1]
+
+        # 七十二候
+        @index_s = NoteRange[@range][2]
+
+        # その他の属性
+        @year      = year
+        @precision = precision
+        @cal4note  = cal4note
+        @o_date    = date
+        @l_date    = @cal4note.l_calendar ^ date
+        @m_date    = date.frame.kind_of?(When::CalendarTypes::Christian) ? @l_date : @o_date
+        @s_date    = @cal4note.s_calendar ^ date
+      end
+    end
+
+    NoteMethods = [:year_notes, :month_notes, :day_notes]
+
+    # 暦注の計算
+    #
+    # @param [When::TM::TemporalPosition] date 暦注を計算する日時
+    #   (date が When::TM::TemporalPosition でない場合、When::TM::TemporalPosition に変換して使用する)
+    # @param [Hash] options
+    #   :indices, :notes およびその他のキー => {When::CalendarNote#notes} を参照
+    #
+    # @return [Hash]               :notes が String の場合
+    # @return [Array<Hash>]        上記に該当せず、:indices が Integer の場合
+    # @return [Array<Array<Hash>>] 上記のいずれにも該当しない場合
+    # @note return 値の [Hash] の要素は下記の通り
+    #   :note     => 暦注要素 (When::CalendarTypes::Japanese::Note)
+    #   :value    => 暦注の値 (String or When::BasicTypes::M17n または、その Array)
+    #   :position => 具注暦でのその暦注の配置場所(String)
+    #
+    def notes(date, options={})
+      dates, indices, notes, persistence, conditions, options = _parse_note(date, options)
+      NotesContainer.register(indices.map {|i|
+        next [] unless i <= dates.precision
+        send(NoteMethods[i-1], dates, notes[i-1], conditions)
+      }, persistence, date.to_i)
+    end
+
+    # 太陽の位置 => 日時
+    #
+    # @param [When::TM::TemporalPosition] date 探す基準とする日時
+    # @param [Array<Numeric>] parameter 太陽の位置の分子と分母( num, den)
+    #
+    #   num 分子 (デフォルト   0 : 基準日時直後の春分)
+    #
+    #   den 分母 (デフォルト 360 : 検索範囲の長さ)
+    #
+    # @param [String] parameter   太陽の位置の分子と分母("#{ num }/#{ den }" の形式, デフォルト 0(春分))
+    # @param [Integer] precision  取得したい時間位置の分解能(デフォルト date の分解能)
+    #
+    # @return [When::TM::CalDate] date またはその直後に太陽の位置が指定の値になる日時
+    #
+    def term(date, parameter=nil, precision=date.precision)
+      dates  = _to_date_for_note(date)
+      result = dates.cal4note.s_terms.term(date, parameter)
+      patch  = SolarTerms::Patch[result.to_i]
+      return result unless patch
+      num, den  = parameter.kind_of?(String) ? parameter.split('/', 2) : parameter
+      num  = (num ||   0).to_f
+      den  = (den || 360).to_f
+      diff = (num - patch[0] + 1) % den - 1
+      return result if diff == 0
+      patched = result + When::P1D * diff
+      result.cal_date[0..-2] = patched.cal_date[0..-2]
+      result.cal_date[-1]    = When::Coordinates::Pair.new(patched.cal_date[-1], -diff)
+      result
+    end
+
+    # 月の位相 => 日時
+    #
+    # @param [When::TM::TemporalPosition] date 探す基準とする日時
+    # @param [Array<Numeric>] parameter 月の位相の分子と分母( num, den)
+    #
+    #   num 分子 (デフォルト  0 : 基準日時直後の朔)
+    #
+    #   den 分母 (デフォルト 30 : 検索範囲の長さ)
+    #
+    # @param [String] parameter   月の位相の分子と分母("#{ num }/#{ den }" の形式, デフォルト 0(朔))
+    # @param [Integer] precision  取得したい時間位置の分解能(デフォルト date の分解能)
+    #
+    # @return [When::TM::CalDate] date またはその直後に月の位相が指定の値になる日時
+    #
+    def phase(date, parameter=nil, precision=date.precision)
+      dates  = _to_date_for_note(date)
+      note   = dates.cal4note.l_phases
+      result = note.phase(date, parameter)
+      return result if dates.o_date.frame.kind_of?(When::CalendarTypes::Christian)
+
+      time   = note.phase(date, parameter, When::SYSTEM)
+      cn     = note.formula.time_to_cn(time) % 1
+      case cn
+      when 0..0.0001, 0.9999..1 # 朔
+        return result if result.cal_date[-1] == 1
+        diff = result.cal_date[-1] < 15 ? -1 : +1
+      when 0.2..0.8             # 弦、望
+        return result unless note.formula.kind_of?(When::Ephemeris::ChineseTrueLunation)
+        return result if time.clk_time.universal_time >= When::TM::Duration::DAY/4 # 午前6時以降
+        diff = -1
+      else                      # その他
+        return result
+      end
+
+      patched = result + When::P1D * diff
+      result.cal_date[0..-2] = patched.cal_date[0..-2]
+      result.cal_date[-1]    = When::Coordinates::Pair.new(patched.cal_date[-1], -diff)
+      result
+    end
+
+    private
+
+    # オブジェクトの正規化
+    def _normalize(args=[], options={})
+      @prime ||= [%w(干支), %w(月名), %w(七曜 干支 六曜 廿四節気 祝祭日)]
+      super
+    end
+
+    # 年の暦注
+    def year_notes(dates, notes, conditions={})
+      _note_values(dates, notes, _all_keys[-3], _elements[-3]) do |dates, focused_notes, notes_hash|
+
+        focused_notes[0..-1] = focused_notes & NoteFocused[dates.range][-3]
+        root = When.Resource('_co:Common')
+
+        # 干支
+        residue = (dates.precision < When::DAY ? dates.o_date : dates.s_date).most_significant_coordinate - 4
+        notes_hash['干支']   = root['干支'][residue % 60]
+        notes_hash['干']     = root['干'  ][residue % 10]
+        notes_hash['支']     = root['支'  ][residue % 12]
+
+        # 廿八宿
+        notes_hash['廿八宿'] ||= root['宿'][(residue+18) % 28]
+
+        # 九星
+        notes_hash['九星'] ||= root['九星'][When::Coordinates::Kyusei.year(residue)]
+
+        # 大小
+        unless notes_hash['大小']
+          year  = dates.o_date.floor(When::YEAR)
+          month = year.floor(When::MONTH)
+          pattern = ''
+          while year == month
+            length   = month.length(When::MONTH)
+            length   = -length if dates.o_date.frame.kind_of?(When::CalendarTypes::Christian) # 太陽暦
+            pattern += '閏' if month[When::MONTH] * 0 == 1
+            pattern += MonthPattern[length] || '改'
+            month   += When::P1M
+          end
+          notes_hash['大小'] = "#{pattern}(#{year.length(When::YEAR)})"
+        end
+
+        # その他
+        [notes_hash['干支'], notes_hash['干'], notes_hash['支']].each do |note|
+          note._year_notes(notes_hash, dates, conditions)
+        end
+        notes_hash
+      end
+    end
+
+    # 月の暦注
+    def month_notes(dates, notes, conditions={})
+      _note_values(dates, notes, _all_keys[-2], _elements[-2]) do |dates, focused_notes, notes_hash|
+
+        focused_notes[0..-1] = focused_notes & NoteFocused[dates.range][-2]
+        root = When.Resource('_co:Common')
+
+        # 干支
+        residue = month_stem_branch(dates.precision < When::DAY ? dates.o_date : dates.m_date)
+        notes_hash['干支']   = root['干支'][residue % 60]
+        notes_hash['干']     = root['干'  ][residue % 10]
+        notes_hash['支']     = root['支'  ][residue % 12]
+
+        # 廿八宿
+        notes_hash['廿八宿'] ||= root['宿'][(residue+6) % 28]
+
+        # 九星
+        notes_hash['九星'] ||= root['九星'][When::Coordinates::Kyusei.month(
+                  month_stem_branch(dates.precision < When::DAY ? dates.o_date : dates.s_date))]
+
+        # 大小
+        unless notes_hash['大小']
+          length = dates.o_date.length(When::MONTH)
+          length = -length if dates.o_date.frame.kind_of?(When::CalendarTypes::Christian) # 太陽暦
+          notes_hash['大小'] = "#{dates.o_date[When::MONTH]*0==1 ? '閏' : ''}#{MonthPattern[length] || '改'}(#{length.abs})"
+        end
+
+        # その他
+        [notes_hash['干支'], notes_hash['干'], notes_hash['支'], JapaneseLuniSolarNote].each do |note|
+          note._month_notes(notes_hash, dates, conditions)
+        end
+        notes_hash
+      end
+    end
+
+    # 日の暦注
+    def day_notes(dates, notes, conditions={})
+      _note_values(dates, notes, _all_keys[-1], _elements[-1]) do |dates, focused_notes, notes_hash|
+
+        focused_notes[0..-1] = focused_notes & NoteFocused[dates.range][-1]
+        root = When.Resource('_co:Common')
+
+        # 干支
+        residue = dates.s_date.to_i-11
+        notes_hash['干支']     = root['干支'][residue % 60]
+        notes_hash['干']       = root['干'  ][residue % 10]
+        notes_hash['支']       = root['支'  ][residue % 12]
+
+        # その他
+        [SolarTerms, LunarPhases, notes_hash['干支'], notes_hash['干'], notes_hash['支'],
+         JapaneseLuniSolarNote, JapaneseSolarNote].each do |note|
+          note._day_notes(notes_hash, dates, conditions)
+        end
+
+        # 七曜
+        notes_hash['七曜']   ||= root['Week'][dates.s_date.to_i % 7]
+
+        # 廿七宿
+        notes_hash['廿七宿']   = _residue27(notes_hash['廿七宿'], root)
+
+        # 廿八宿 / 鬼宿
+        notes_hash['廿八宿'] ||= root['宿'][(dates.s_date.to_i+11) % 28]
+        notes_hash['鬼宿']   ||= /鬼/ =~ notes_hash['廿八宿'].to_s ? '鬼宿' : nil
+
+        # 九星
+        notes_hash['九星']   ||= root['九星'][When::Coordinates::Kyusei.day(dates.s_date, dates.cal4note.s_terms)]
+
+        notes_hash
+      end
+    end
+
+    #
+    # 日本暦日情報オブジェクトの生成
+    #
+    # @note 対となる太陽暦のある太陰太陽暦はそのまま(太陰太陽暦,太陽暦)の対
+    #       そうでなければ、採用する対を年代により選択する
+    #
+    def _to_date_for_note(date)
+      if date.frame.kind_of?(When::CalendarTypes::ChineseLuniSolar)
+        return Dates.new(date) if date.frame.twin
+        o_date = date
+      else
+        o_date = self.class._to_japanese_date(date)
+        return nil unless o_date
+      end
+      year = o_date.most_significant_coordinate
+      NoteTypes.each do |line|
+        return Dates.new(o_date, year, date.precision, line[1]) if year >= line[0]
+      end
+      nil
+    end
+
+    #
+    # 任意の暦を日本年号付暦日に変換
+    #
+    def self._to_japanese_date(date)
+      return date if date._attr[:query] && date._attr[:query]['area'].to_s =~ /日本/
+      (date^ When.era(:area=>'日本')).each do |list|
+        return list[0] if list[0]
+      end
+      nil
+    end
+
+    #
+    # 廿七宿を Resudue 化
+    #
+    def _residue27(index, root)
+      return index unless index.kind_of?(Integer)
+      root['宿'][index]
+    end
+
+    #
+    # 月の干支
+    #
+    def month_stem_branch(date)
+      date.most_significant_coordinate*12+(date.cal_date[1] * 1) +
+     (date.frame.kind_of?(When::CalendarTypes::Christian) ? 12 : 13)
+    end
+  end
+
+  #
+  # 太陽暦の暦注・祝祭日
+  #
+  class JapaneseSolarNote < self
+
+    #
+    # 祝祭日一覧
+    #
+    NotesList = {
+      [ 1, 1] => [[1868..1872, '元旦'], [1874..1948, '四方拝'], [1949..2100, '元日']],
+      [ 1, 3] => [[1874..1948, '元始祭']],
+      [ 1, 5] => [[1874..1948, '新年宴会']],
+      [ 1,-2] => [[2000..2100, '成人の日']],
+      [ 1,15] => [[1868..1872, '小正月'], [1949..1999, '成人の日']],
+      [ 1,29] => [[1873..1873, '神武天皇即位日']],
+      [ 1,30] => [[1874..1912, '孝明天皇祭']],
+      [ 2,11] => [[1874..1948, '紀元節'], [1967..2100, '建国記念の日']],
+      [ 2,24] => [[1989..1989, '昭和天皇の大喪の礼']],
+      [ 3, 3] => [[1868..1872, '弥生節句']],
+      [ 3, 0] => [[1879..1948, '春季皇霊祭'], [1949..2100, '春分の日']],
+      [ 4, 3] => [[1874..1948, '神武天皇祭']],
+      [ 4,10] => [[1959..1959, '皇太子明仁親王の結婚の儀']],
+      [ 4,29] => [[1927..1948, '天長節'], [1949..1988, '天皇誕生日'], [1989..2006, 'みどりの日'], [2007..2100, '昭和の日']],
+      [ 5, 3] => [[1949..2100, '憲法記念日']],
+      [ 5, 4] => [[2007..2100, 'みどりの日']],
+      [ 5, 5] => [[1868..1872, '端午節句'], [1949..2100, 'こどもの日']],
+      [ 6, 9] => [[1993..1993, '皇太子徳仁親王の結婚の儀']],
+      [ 7, 7] => [[1868..1872, '七夕節句']],
+      [ 7,15] => [[1868..1872, 'お盆']],
+      [ 7,20] => [[1996..2002, '海の日']],
+      [ 7,-3] => [[2003..2100, '海の日']],
+      [ 7,30] => [[1913..1926, '明治天皇祭']],
+      [ 8, 1] => [[1868..1872, '田実節句']],
+      [ 8,11] => [[2016..2100, '山の日']],
+      [ 8,31] => [[1913..1926, '天長節']],
+      [ 9, 9] => [[1868..1872, '重陽節句']],
+      [ 9,15] => [[1966..2002, '敬老の日']],
+      [ 9,-3] => [[2003..2100, '敬老の日']],
+      [ 9,17] => [[1874..1878, '神嘗祭']],
+      [ 9, 0] => [[1878..1947, '秋季皇霊祭'], [1948..2100, '秋分の日']],
+      [10,10] => [[1966..1999, '体育の日']],
+      [10,-2] => [[2000..2100, '体育の日']],
+      [10,17] => [[1879..1947, '神嘗祭']],
+      [10,31] => [[1913..1926, '天長節祝日']],
+      [11, 3] => [[1873..1911, '天長節'], [1927..1947, '明治節'], [1948..2100, '文化の日']],
+      [11,10] => [[1915..1915, '即位の礼'], [1928..1928, '即位の礼']],
+      [11,12] => [[1990..1990, '即位の礼正殿の儀']],
+      [11,14] => [[1915..1915, '大嘗祭'], [1928..1928, '大嘗祭']],
+      [11,16] => [[1915..1915, '大饗第1日'], [1928..1928, '大饗第1日']],
+      [11,23] => [[1873..1947, '新嘗祭'], [1948..2100, '勤労感謝の日']],
+      [12,23] => [[1989..2100, '天皇誕生日']],
+      [12,25] => [[1927..1947, '大正天皇祭']]
+    }
+
+    # @private
+    Long = {3=>0, 9=>180}
+
+    class << self
+
+      # 日の暦注 - 祝祭日の計算
+      # @private
+      def _day_notes(notes, dates, conditions={})
+        # 明治維新以降の実暦日のみ扱う
+        return notes if dates.o_date.frame.kind_of?(When::CalendarTypes::ChineseLuniSolar)
+        year = dates.o_date.most_significant_coordinate
+        return notes unless year >= 1868
+
+        # 春分の日と秋分の日を祝祭日に加える
+        long = Long[dates.o_date.cal_date[1]] if year >= 1878
+        if long
+          date = When.when?(dates.o_date.to_cal_date.to_s,
+                   {:frame=>dates.o_date.frame,
+                    :clock=>dates.s_date.frame.time_basis})
+          term = dates.cal4note.s_terms.term(date.floor(When::MONTH,
+                                                        When::DAY), [long,360]).cal_date[1..2]
+          list = NotesList.dup
+          list[term] = list[[term[0],0]]
+        else
+          list = NotesList
+        end
+
+        # 「国民の休日」制定以前
+        notes['祝祭日'] ||= _holiday(list, dates.o_date, '振替休日')
+        return notes if notes['祝祭日'] || year < 1988
+
+        # 「国民の休日」制定以後
+        duration = When.Duration('P1D')
+        [duration, -duration].each do |d|
+          return notes unless _holiday(list, dates.o_date + d)
+        end
+        notes['祝祭日'] = '国民の休日'
+        return notes
+      end
+
+      private
+
+      # 振替休日とハッピーマンデーを考慮した祝祭日
+      def _holiday(list, date, alternate=nil)
+        y    = date.most_significant_coordinate
+        m, d = date.cal_date[1..2]
+
+        # 「振替休日」制定以前
+        note = _note(list, y, m, d)
+        return note if note || y < 1973
+
+        # 「振替休日」制定以降
+        case date.to_i % 7
+        when 0 # 月曜
+          # 振替休日
+          note = _note(list, y, m, d-1)
+          return alternate if note
+          # ハッピーマンデー
+          note = _note(list, y, m, -((d-1)/7 + 1))
+          return note if note
+        when 1,2 # 火曜・水曜
+          # 振替休日
+          return alternate if y >= 2007 && m == 5 && d == 6
+        end
+      end
+
+      # 振替休日とハッピーマンデーを考慮しない祝祭日
+      def _note(list, year, month, day)
+        return nil if day == 0
+        year = [year, 2100].min
+        note = list[[month,day]]
+        return nil unless note
+        note.each do |range|
+          return range[1] if range[0].include?(year)
+        end
+        return nil
+      end
+    end
+  end
+
+  #
+  # 太陰太陽暦の暦注
+  #
+  class JapaneseLuniSolarNote < self
+
+    # 変換表 月日→27宿
+    StarMansions    = [                                 #              正  ２  ３  ４  ５  ６  ７  ８  ９  10  11  12  
+      [11, 13, 15, 17, 19, 21, 24,  0,  2,  4,  7,  9], # 0 : 本月本説 室12奎14胃16畢18參20鬼22張25角00氐02心04斗07虛10
+      [ 5,  3,  1, 25, 23, 21, 19, 16, 14, 11,  8,  7], # 1 : 本月異説 尾05房03亢01翼26星24鬼22參20昴17婁15室12女09斗07
+      [14, 16, 18, 20, 22, 24,  0,  3,  5,  7, 10, 12], # 2 : 閏月本説 婁15昴17觜19井21柳23張25角00房03尾05斗07危11壁13
+      [12, 14, 16, 18, 19, 21, 24,  0,  2,  5,  8, 10], # 3 : 閏月異説 壁13婁15昴17觜19參20鬼22張25角00氐02尾05女09危11
+      [14, 16, 18, 23, 22, 24,  0,  3,  5,  7,  8, 12]  # 4 : 閏月本説(元)        (星24)                      (女09)
+    ]
+
+    # 変換表 27宿→28宿
+    StarMansionIndex = (0..7).to_a + (9..27).to_a
+
+    # 七曜と27宿で決まる暦注
+    WeekDepended = {
+                 # 日  月  火  水  木  金  土
+      '甘露'   => [26, 17,  5, 22, 21,  3, 23],  # 軫27 畢18 尾05 柳23 鬼22 房03 星24
+      '金剛峯' => [ 5,  8, 12, 16, 20, 24,  1],  # 尾05 女09 壁13 昴17 井21 張25 亢01
+      '羅刹'   => [15, 21, 25, 19,  2, 13, 22]   # 胃16 鬼22 翼26 参20 氐02 奎14 柳23
+    }
+
+    # 人神配当
+    HumanBody = %w(足大指 外踝 股内 腰   口     手     内踝   腕   尻 腰背
+                   鼻柱   髪際 牙歯 胃管 遍身   胸     気街   股内 足 踝
+                   足小指 足踝及胸、目下 肝及足 手陽明 足陽明 胸   膝 陰   膝晊 足跌)
+
+    # 月の暦注
+    # @private
+    def self._month_notes(notes, dates, conditions={})
+      # 月名
+      notes['月名'] ||= dates.o_date.name('month')
+    end
+
+    # 日の暦注
+    # @private
+    def self._day_notes(notes, dates, conditions={})
+
+      # 廿七宿
+      m, l = [1,0].map {|f| dates.m_date.cal_date[1] * f}
+      d    = (StarMansions[l==1 ? (conditions[:i27]||0) :
+                                  (conditions[:n27]||0)][m-1] + dates.m_date.cal_date[2] - 1) % 27
+      notes['廿七宿'] ||= StarMansionIndex[d]
+
+      # 甘露 / 金剛峯 / 羅刹
+      w    = (dates.m_date.to_i + 1) % 7
+      ['甘露', '金剛峯', '羅刹'].each do |c|
+        notes[c] = c if d == WeekDepended[c][w]
+      end
+
+      # 三寶吉・神吉・雑事吉・小字注 (凶会日は表引きの時点で抑制済み)
+      notes['神吉']   = notes['雑事吉'] = notes['三寶吉'] = notes['小字注'] = nil if notes['没'] || notes['滅']
+      notes['神吉']   = notes['雑事吉'] = nil if notes['往亡']
+      notes['神吉']   = notes['三寶吉'] = nil if notes['月食']
+      notes['小字注'] = nil  if notes['日食'] || notes['月食']
+      notes['小字注'] = nil  if notes['九坎'] && dates.range==5 # 11世紀後半
+      notes['三寶吉'] = nil  if notes['羅刹']
+      notes['三寶吉'] = notes['甘露'] ? '三寶吉' : nil if /\+/ =~ notes['三寶吉'].to_s
+      notes['三寶吉'] = '三吉' if notes['三寶吉'] && dates.range >= 8 # 鎌倉以降
+
+      # 除手足甲 & 道虚・人神配当
+      y,m0,d0 = dates.m_date.cal_date
+      misoka  = m0 != (dates.m_date + When.Duration('P1D')).cal_date[1] if d0 == 29
+      notes['除手足甲'] = '除手足甲' if ([6,16,30].include?(d0) || misoka) && !(conditions[:kana] || notes['没'] || notes['滅'] || notes['凶会'])
+      notes['道虚']     = '道虚'     if d0 % 6 == 0 || misoka
+      notes['人神配当'] = HumanBody[d0-1]
+
+      # 仮名暦
+      notes['赤舌'  ] ||= d0 == (m * 5 - 3) % 6 + 1 ? '赤舌' : nil
+      notes['大赤'  ] ||= d0 % 8 == (m * 7 - 3) % 8 ? '大赤' : nil
+      notes['不成就'] ||= d0 % 8 == [6,3,2,1,4,5][m % 6] || (misoka && m % 6 == 0) ? '不成就' : nil # 『現代こよみ読み解き事典』 for 不成就日
+      notes['六曜'  ] ||= When::RokuyoWeek.rokuyo_value(m, d0)
+      notes
+    end
+  end
+
+  #
+  # 月の位相による暦注
+  #
+  class Japanese::LunarPhases < LunarPhases
+
+    # 日の暦注
+    # @private
+    def self._day_notes(notes, dates, conditions={})
+      date = When.when?(dates.o_date.to_cal_date.to_s,
+               {:frame=>dates.o_date.frame,
+                :clock=>dates.l_date.frame.time_basis})
+      phase, metsu = dates.cal4note.l_phases.position(date)
+
+      # 滅
+      notes['滅'] =  metsu == 2 && dates.range < 11 ? '滅' : nil
+
+      # 月相
+      unless notes['月相']
+        # イベントの判定
+        formula = dates.cal4note.l_phases.formula
+        clock   = formula.kind_of?(When::Ephemeris::ChineseTrueLunation) &&
+          (5..25).include?(dates.l_date.cal_date[2]) ?
+            When.Clock(-21600) :               # 唐代暦法の望弦は午前6時を日の境界とする
+            dates.l_date.frame._time_basis[-1] # その他(進朔も考慮した時刻)
+        odate   = When.when?(dates.o_date.to_cal_date.to_s, {:frame=>dates.o_date.frame, :clock=>clock})
+        phases  = formula.phase_range(odate)
+        thitis  = phases.map {|phase| (phase % 1) * 30.0}
+        note    = if thitis[0] >= thitis[1]
+          dates.o_date.frame.kind_of?(When::CalendarTypes::Christian) || conditions[:shoyo] ? '朔' : nil
+        else
+          range = thitis[0]...thitis[1]
+          range.include?( 7.5) ? '上弦' :
+          range.include?(15.0) ? '望'   :
+          range.include?(22.5) ? '下弦' : nil
+        end
+
+        # 結果の反映
+        if conditions[:shoyo]
+          # :shoyo が true ならイベント時刻も返す
+          notes['月相'] = if note
+            etime = formula._to_seed_type(formula.cn_to_time((phases[1] * 4).floor / 4.0), odate)
+            if formula.respond_to?(:lunation_length) && formula.lunation_length.kind_of?(Rational)
+              shoyo  =  etime.clk_time.universal_time
+              shoyo +=  When::TM::Duration::DAY if (0...clock.universal_time).include?(shoyo)
+              shoyo  = (shoyo  / When::TM::Duration::DAY * formula.denominator * 1000 + 0.5).floor / 1000.0
+              shoyo  =  shoyo.to_i if shoyo == shoyo.to_i
+              "#{note}(#{shoyo}/#{formula.denominator})"
+            else
+              etime.events = [note]
+              etime
+            end
+          else
+            nil
+          end
+        else
+          # :shoyo が false ならイベン名のみ返す
+          notes['月相'] = note
+        end
+      end
+
+      # 月食
+      unless notes['月食'] && notes['神吉'] && notes['三寶吉'] && notes['小字注']
+        level = (conditions[:lunar_eclipse]||0).to_i
+        if level == -1
+          note = nil
+        else
+          key  = dates.m_date.to_s[/\(.+\z/]
+          if key
+            note, = Japanese::Eclipse::Eclipses[key.gsub(/[()]/,'')]
+          elsif dates.o_date.location &&
+                dates.o_date.frame.kind_of?(When::CalendarTypes::Christian)
+            info  = dates.o_date.location.lunar_eclipse(date..date)
+            note  = '月' + Japanese::Eclipse.eclipse_summary(info[0]) unless info.empty?
+          end
+          if note
+            note.sub!(/\*.*\z/, '')
+            note  = nil unless /月/ =~ note
+            note  = nil if level[0] == 1 && /昼/  =~ note
+            note  = nil if level[1] == 1 && /^\(/ =~ note
+          end
+        end
+        notes['月食'] = note
+      end
+
+      notes
+    end
+  end
+
+  #
+  # 太陽黄経による暦注
+  #
+  class Japanese::SolarTerms < SolarTerms
+
+    Notes12 = %w(正月 二月 三月 四月 五月 六月 七月 八月 九月 十月 十一月 十二月)
+
+    Notes10 = [
+      %w(初伏 初伏),
+      %w(仲伏 中伏),
+      %w(後伏 末伏)]
+
+    Notes60_A = [
+      #  +0      
+      '侯小過外', # 315 : 正月
+      '侯需外',   # 345 : 二月
+      '侯豫外',   #  15 : 三月
+      '侯旅外',   #  45 : 四月
+      '侯大有外', #  75 : 五月
+      '侯鼎外',   # 105 : 六月
+      '侯恆外',   # 135 : 七月
+      '侯巽外',   # 165 : 八月
+      '侯歸妹外', # 195 : 九月
+      '侯艮外',   # 225 : 十月
+      '侯未濟外', # 255 : 十一月
+      '侯屯外'    # 285 : 十二月
+    ]
+
+    Notes60_B = [
+      #  +3          +9       +15       +21       +27
+      '大夫蒙',   '卿益',   '公漸',   '辟泰',   '侯需内',   # 315 : 正月
+      '大夫随',   '卿晋',   '公解',   '辟大壯', '侯豫内',   # 345 : 二月
+      '大夫訟',   '卿蠱',   '公革',   '辟夬',   '侯旅内',   #  15 : 三月
+      '大夫師',   '卿比',   '公小畜', '辟乾',   '侯大有内', #  45 : 四月
+      '大夫家人', '卿井',   '公咸',   '辟姤',   '侯鼎内',   #  75 : 五月
+      '大夫豊',   '卿渙',   '公履',   '辟遯',   '侯恆内',   # 105 : 六月
+      '大夫節',   '卿同人', '公損',   '辟否',   '侯巽内',   # 135 : 七月
+      '大夫萃',   '卿大畜', '公賁',   '辟観',   '侯歸妹内', # 165 : 八月
+      '大夫無妄', '卿明夷', '公困',   '辟剥',   '侯艮内',   # 195 : 九月
+      '大夫既濟', '卿噬嗑', '公大過', '辟坤',   '侯未濟内', # 225 : 十月
+      '大不蹇',   '卿頤',   '公中孚', '辟復',   '侯屯内',   # 255 : 十一月
+      '大夫謙',   '卿睽',   '公升',   '辟臨',   '侯小過内'  # 285 : 十二月
+    ]
+
+    Notes72 = [
+      # 儀鳳暦         宣明暦(中国)       宣明暦            貞享暦   宝暦暦・寛政暦 略本暦
+      # 315 : 正月
+       %w(雞始乳       東風解凍          東風解凍          東風解凍     東風解凍   東風解凍),
+       %w(東風解凍     蟄始振            蟄虫始振          梅花乃芳     黄鶯睍睆   黄鶯睍睆),
+       %w(蟄蟲始振     魚上氷            魚上氷            魚上氷       魚上氷     魚上氷),
+       %w(魚上冰       獺祭魚            獺祭魚            土脈潤起     土脈潤起   土脉潤起),
+       %w(獺祭魚       鴻雁来            鴻雁来            霞彩碧空     霞始靆     霞始靆),
+       %w(鴻雁來       草木萌動          草木萌動          草木萌動     草木萌動   草木萌動),
+
+      # 345 : 二月
+       %w(始雨水       桃始華            桃始華            蟄虫啓戸     蟄虫啓戸   蟄虫啓戸),
+       %w(桃始花       倉庚鳴            倉庚鳴            寒雨間熟     桃始笑     桃始笑),
+       %w(倉庚鳴       鷹化爲鳩          鷹化爲鳩          菜虫化蝶     菜虫化蝶   菜虫化蝶),
+       %w(鷹化爲鳩     玄鳥至            玄鳥至            雀始巣       雀始巣     雀始巣),
+       %w(玄鳥至       雷乃發聲          雷乃發聲          雷乃発声     桜始開     桜始開),
+       %w(雷始發聲     始電              始電              桜始開桃始笑 雷乃発声   雷乃発声),
+
+      #  15 : 三月
+       %w(始雷         桐始華            桐始華            玄鳥至       玄鳥至     玄鳥至),
+       %w(蟄蟲咸動     田鼠化爲鴑        田鼠化爲鴑        鴻雁北       鴻雁北     鴻雁北),
+       %w(蟄蟲啓戸     虹始見            虹始見            虹始見       虹始見     虹始見),
+       %w(桐始華       萍始生            萍始生            葭始生       葭始生     葭始生),
+       %w(田鼠化爲鴑   鳴鳩拂其羽        鳴鳩拂其羽        牡丹華       霜止出苗   霜止出苗),
+       %w(虹始見       戴勝降于桑        戴勝降于桑        霜止出苗     牡丹華     牡丹華),
+
+      #  45 : 四月
+       %w(萍始生       螻蟈鳴            螻蟈鳴            鵑始鳴       鼃始鳴     鼃始鳴),
+       %w(戴勝降于桑   蚯蚓出            蚯蚓出            蚯蚓出       蚯蚓出     蚯蚓出),
+       %w(螻蟈鳴       王瓜生            王瓜生            竹笋生       竹笋生     竹笋生),
+       %w(蚯蚓出       苦菜秀            苦菜秀            蚕起食桑     蚕起食桑   蚕起食桑),
+       %w(王瓜生       靡草死            靡草死            紅花栄       紅花栄     紅花栄),
+       %w(苦菜秀       小暑至            小暑至            麦秋至       麦秋至     麦秋至),
+          
+      #  75 : 五月
+       %w(靡草死       螳蜋生            螳蜋生            螳螂生       螳螂生     螳螂生),
+       %w(小暑至       鵙始鳴            鵙始鳴            腐草為螢     腐草為螢   腐草為螢),
+       %w(螳螂生       反舌無聲          反舌無聲          梅始黄       梅子黄     梅子黄),
+       %w(鵙始鳴       鹿角解            鹿角解            乃東枯       乃東枯     乃東枯),
+       %w(反舌無聲     蜩始鳴            蜩始鳴            分龍雨       菖蒲華     菖蒲華),
+       %w(鹿角解       半夏生            半夏生            半夏生       半夏生     半夏生),
+
+      # 105 : 六月
+       %w(蟬始鳴       温風至            温風至            温風至       温風至     温風至),
+       %w(半夏生       蟋蟀居壁          蟋蟀居壁          蓮始華       蓮始華     蓮始開),
+       %w(木槿榮       鷹乃學習          鷹乃學習          鷹乃学習     鷹乃学習   鷹乃学習),
+       %w(温風至       腐草爲螢          腐草爲螢          桐始結花     桐始結花   桐始結花),
+       %w(蟋蟀居壁     土潤溽暑          土潤溽暑          土潤溽暑     土潤溽暑   土潤溽暑),
+       %w(鷹乃學習     大雨時行          大雨時行          大雨時行     大雨時行   大雨時行),
+
+      # 135 : 七月
+       %w(腐草爲螢     涼風至            涼風至            涼風至       涼風至     涼風至),
+       %w(土潤溽暑     白露降            白露降            山沢浮雲     寒蝉鳴     寒蝉鳴),
+       %w(涼風至       寒蟬鳴            寒蟬鳴            霧色已成     蒙霧升降   蒙霧升降),
+       %w(白露降       鷹乃祭鳥          鷹乃祭鳥          寒蝉鳴       綿柎開     綿柎開),
+       %w(寒蟬鳴       天地始肅          天地始肅          天地始粛     天地始粛   天地始粛),
+       %w(鷹祭鳥       禾乃登            禾乃登            禾乃登       禾乃登     禾乃登),
+
+      # 165 : 八月
+       %w(天地始肅     鴻雁来            鴻雁来            草露白       草露白     草露白),
+       %w(暴風至       玄鳥歸            玄鳥歸            鶺鴒鳴       鶺鴒鳴     鶺鴒鳴),
+       %w(鴻雁來       群鳥養羞          群鳥養羞          玄鳥去       玄鳥去     玄鳥去),
+       %w(玄鳥歸       雷乃收聲          雷乃收聲          鴻雁来       雷乃収声   雷乃収声),
+       %w(羣鳥養羞     蟄蟲坏戸          蟄蟲坏戸          蟄虫坏戸     蟄虫坏戸   蟄虫坏戸),
+       %w(雷始收聲     水始涸            水始涸            水始涸       水始涸     水始涸),
+
+      # 195 : 九月
+       %w(蟄蟲坏戸     鴻雁來賓          鴻雁來賓          棗栗零       鴻雁来     鴻雁来),
+       %w(陰氣方盛     雀入大水爲蛤      雀入大水爲蛤      蟋蟀在戸     菊花開     菊花開),
+       %w(陽氣始衰     菊有黄花          菊有黄花          菊花開       蟋蟀在戸   蟋蟀在戸),
+       %w(水始涸       豺乃祭獸          豺乃祭獸          霜始降       霜始降     霜始降),
+       %w(鴻雁來賓     草木黄落          草木黄落          蔦楓紅葉     霎時施     霎時施),
+       %w(雀入水爲蛤   蟄蟲咸俯          蟄蟲咸俯          鶯雛鳴       楓蔦黄     楓蔦黄),
+
+      # 225 : 十月
+       %w(菊有黄花     水始冰            水始冰            山茶始開     山茶始開   山茶始開),
+       %w(豺祭獣       地始凍            地始凍            地始凍       地始凍     地始凍),
+       %w(水始冰       野雞入大水爲蜃    野雞入大水爲蜃    霎乃降       金盞香     金盞香),
+       %w(地始凍       虹藏不見          虹藏不見          虹蔵不見     虹蔵不見   虹蔵不見),
+       %w(野雞入水爲蜃 天氣上騰地氣下降  天氣上騰地氣下降  樹葉咸落     朔風払葉   朔風払葉),
+       %w(虹藏不見     閉塞而成冬        閉塞而成冬        橘始黄       橘始黄     橘始黄),
+
+      # 255 : 十一月
+       %w(冰益壯       鶡鳥不鳴          鶡鳥不鳴          閉塞成冬     閉塞成冬   閉塞成冬),
+       %w(地始坼       虎始交            虎始交            熊蟄穴       熊蟄穴     熊蟄穴),
+       %w(鶡鳥不鳴     茘挺生            茘挺生            水仙開       鱖魚群     鱖魚群),
+       %w(虎始交       蚯蚓結            蚯蚓結            乃東生       乃東生     乃東生),
+       %w(芒始生       麋角解            麋角解            麋角解       麋角解     麋角解),
+       %w(茘挺生       水泉動            水泉動            雪下出麦     雪下出麦   雪下出麦),
+
+      # 285 : 十二月
+       %w(蚯蚓結       雁北郷            雁北郷            芹乃栄       芹乃栄     芹乃栄),
+       %w(麋角解       鵲始巣            鵲始巣            風気乃行     水泉動     水泉動),
+       %w(水泉動       野雞始鴝          野雞始鴝          雉始雊       雉始雊     雉始雊),
+       %w(雁北郷       雞始乳            雞始乳            款冬華       款冬華     款冬華),
+       %w(鵲始巣       鷙鳥厲疾          鷙鳥厲疾          水沢腹堅     水沢腹堅   水沢腹堅),
+       %w(雉始雊       水澤腹堅          水澤腹堅          鶏始乳       鶏始乳     鶏始乳)
+    ]
+
+    # 計算結果の修正
+    # @private
+    Patch = {
+      2039054 => [149.0, 1], # 貞観12(0870).07.17 [149.0, 0] 没
+      2039055 => [150.0, 0], # 貞観12(0870).07.18 [150.0, 1] 処暑
+
+      2107233 => [ 29.0, 1], # 天喜05(1057).03.10 [ 29.0, 0] 没
+      2107234 => [ 30.0, 0], # 天喜05(1057).03.11 [ 30.0, 1] 穀雨
+
+      2160437 => [269.0, 0], # 建仁02(1202).10=29 [270.0, 1] 冬至
+      2160438 => [270.0, 1], # 建仁02(1202).11.01 [271.0, 1]
+      2160439 => [271.0, 1], # 建仁02(1202).11.02 [272.0, 1]
+      2160440 => [272.0, 1], # 建仁02(1202).11.03 [272.0, 0] 没
+
+      2175412 => [269.0, 1], # 寛元01(1243).11.03 [269.0, 0] 没
+      2175413 => [270.0, 0], # 寛元01(1243).11.04 [270.0, 1] 冬至
+
+      2189200 => [179.0, 0], # 弘安04(1281).07=30 [180.0, 1] 秋分
+      2189201 => [180.0, 1], # 弘安04(1281).08.01 [181.0, 1]
+      2189202 => [181.0, 1], # 弘安04(1281).08.02 [181.0, 0] 没
+
+      2243577 => [136.0, 0], # 永享02(1430).07.11 [136.0, 1] (立秋の翌日)
+      2243578 => [136.0, 1], # 永享02(1430).07.12 [137.0, 1]
+      2243579 => [137.0, 1], # 永享02(1430).07.13 [138.0, 1]
+      2243580 => [138.0, 1], # 永享02(1430).07.14 [139.0, 1]
+      2243581 => [139.0, 1], # 永享02(1430).07.15 [140.0, 1]
+      2243582 => [140.0, 1], # 永享02(1430).07.16 [141.0, 1]
+      2243583 => [141.0, 1], # 永享02(1430).07.17 [142.0, 1]
+      2243584 => [142.0, 1], # 永享02(1430).07.18 [143.0, 1]
+      2243585 => [143.0, 1], # 永享02(1430).07.19 [144.0, 1]
+      2243586 => [144.0, 1], # 永享02(1430).07.20 [145.0, 1]
+      2243587 => [145.0, 1], # 永享02(1430).07.21 [146.0, 1]
+      2243588 => [146.0, 1], # 永享02(1430).07.22 [147.0, 1]
+      2243589 => [147.0, 1], # 永享02(1430).07.23 [148.0, 1]
+      2243590 => [148.0, 1], # 永享02(1430).07.24 [149.0, 1]
+      2243591 => [149.0, 1], # 永享02(1430).07.25 [149.0, 0] 没 (処暑の前日)
+
+      2311770 => [ 29.0, 1], # 元和03(1617).03.18 [ 29.0, 0] 没
+      2311771 => [ 30.0, 0], # 元和03(1617).03.19 [ 30.0, 1] 穀雨
+
+      2396062 => [314.0, 0], # 弘化04(1847).12.30 [315.0, 1] 立春 (計算誤差の補正)
+      2396063 => [315.0, 1], # 弘化05(1848).01.01 [315.0, 0] 没
+
+      2397583 => [ 15.0, 1], # 嘉永05(1852).02=15 [ 14.0, 0] 没
+      2397584 => [ 16.0, 0]  # 嘉永05(1852).02=16 [ 15.0, 1] 清明 (計算誤差の補正)
+    }
+
+    class << self
+      # テスト用の属性
+      attr_writer :patch
+      private :patch=
+
+      # 日の暦注
+      # @private
+      def _day_notes(notes, dates, conditions={})
+        date  = When.when?(dates.o_date.to_cal_date.to_s,
+                  {:frame=>dates.o_date.frame,
+                   :clock=>dates.s_date.frame._time_basis[0]})
+        patch = (@patch || Patch)[date.to_i] unless dates.o_date.frame.respond_to?(:twin) &&
+                                                    dates.o_date.frame.twin
+        longitude, motsu = patch ? patch : dates.cal4note.s_terms.position(date)
+
+        # 三伏 - 庚
+        #
+        # 初 : 夏至から 20..29
+        # 仲 : 夏至から 30..39
+        # 後 : 立秋から  0..9 
+        if !notes['三伏'] && notes['干'].remainder == 6 # 庚
+          index = dates.range >= 11 ? 1 : 0
+          if 109 <= longitude && longitude <= 129      # 夏至から
+            term = dates.cal4note.s_terms.term(date, [-270,360])
+            diff = dates.s_date.to_i - term.to_i
+            notes['三伏'] = Notes10[0][index] if 20 <= diff && diff <= 29
+            notes['三伏'] = Notes10[1][index] if 30 <= diff && diff <= 39
+          elsif longitude == 135                     # 立秋
+            notes['三伏'] = Notes10[2][index]
+          elsif 136 <= longitude && longitude <= 144 # 立秋から
+            term = dates.cal4note.s_terms.term(date, [-225,360])
+            diff = dates.s_date.to_i - term.to_i
+            notes['三伏'] = Notes10[2][index] if 0 < diff && diff <= 9
+          end
+        end
+
+        # 社 - 戊
+        #
+        # 春秋分から -5..4
+        if !notes['社'] && notes['干'].remainder == 4 # 戊
+          if (longitude + 5) % 180 < 10 # 春秋分の近傍
+            term = dates.cal4note.s_terms.term(date - When.Duration('P5D'), [0,180])
+            diff = dates.s_date.to_i - term.to_i
+            notes['社'] = '社' if -5 <= diff && diff <= 4
+          end
+        end
+
+        # 臘 - 辰
+        #
+        # 大寒から -6..5
+        if !notes['臘'] && notes['支'].remainder == 4 # 辰
+          if (longitude - 339) % 360 < 12 # 大寒の近傍
+            term = dates.cal4note.s_terms.term(date - When.Duration('P6D'), [345,360])
+            diff = dates.s_date.to_i - term.to_i
+            notes['臘'] = '臘' if -6 <= diff && diff <= 5
+          end
+        end
+
+        # 土用事
+        unless notes['土用事']
+          _longitude, _motsu = dates.cal4note.s_terms2.instance_of?(self) && dates.cal4note.doyo == 0 ? [longitude, motsu] :
+                               dates.cal4note.s_terms2.position(date, -dates.cal4note.doyo)
+          if _motsu != 0 && _longitude % 90 == 27
+            notes['土用事'] =
+              begin
+                event_name =
+                  case dates.range
+                  when 0     ; '土用'   # 元嘉暦以前
+                  when 1     ; '土王'   # 麟徳暦
+                  when 2..10 ; '土用事' # 大衍暦～宣明暦
+                  else       ; '土用入' # 貞享暦以降
+                  end
+                if conditions[:shoyo]
+                  dates.cal4note.s_terms2.event_time(date, event_name, [27-dates.cal4note.doyo, 90])
+                else
+                  event_name
+                end
+              end
+          end
+        end
+
+        # 入梅 - 壬
+        #
+        # 貞享2(1685)～ 芒種から 1..10 日の壬の日
+        # 元文5(1740)～ 芒種から 0..9  日の壬の日
+        # 明治9(1876)～ 太陽黄経80度
+        unless notes['入梅']
+          if dates.year >= 1876
+            notes['入梅'] = '入梅' if longitude == 80 && motsu == 1
+          elsif notes['干'].remainder == 8 # 壬
+            if (longitude - 75) % 360 <= 10 # 芒種の近傍
+              term  = dates.cal4note.s_terms.term(date - When.Duration('P11D'), [75,360])
+              diff  = dates.s_date.to_i - term.to_i
+              diff += 1 if dates.year >= 1740
+              notes['入梅'] = '入梅' if dates.range >= 11 && 1 <= diff && diff <= 10
+            end
+          end
+        end
+
+        # 半夏生
+        #
+        # 太陽黄経100度
+        notes['半夏生'] ||= '半夏生' if longitude == 100 && motsu == 1
+
+        # 立春を起算日とする雑節
+        #
+        unless notes['節分'] && notes['八十八夜'] && notes['二百十日'] && notes['二百廿日']
+          term = dates.cal4note.s_terms.term(date + When.Duration('P3D'), [-45,360])
+          case dates.s_date.to_i - term.to_i
+          when  -1 ; notes['節分']     ||= '節分'
+          when  87 ; notes['八十八夜'] ||= '八十八夜'
+          when 209 ; notes['二百十日'] ||= '二百十日'
+          when 219 ; notes['二百廿日'] ||= '二百廿日'
+          end
+        end
+
+        # 日食
+        unless notes['日食'] && notes['小字注']
+          level = (conditions[:solar_eclipse]||0).to_i
+          if level == -1
+            note = nil
+          else
+            key  = dates.m_date.to_s[/\(.+\z/]
+            if key
+              note, = Japanese::Eclipse::Eclipses[key.gsub(/[()]/,'')]
+            elsif dates.o_date.location &&
+                  dates.o_date.frame.kind_of?(When::CalendarTypes::Christian)
+              info  = dates.o_date.location.solar_eclipse(date..date)
+              note  = '日' + Japanese::Eclipse.eclipse_summary(info[0]) unless info.empty?
+            end
+            if note
+              note.sub!(/\*.*\z/, '')
+              note  = nil unless /日/ =~ note
+              note  = nil if level[0] == 1 && /夜/  =~ note
+              note  = nil if level[1] == 1 && /^\(/ =~ note
+            end
+          end
+          notes['日食'] = note
+        end
+
+        # 没
+        if motsu == 0
+          notes['没'] = dates.range < 11 ? '没' : nil
+          return notes unless patch
+        else
+          notes['没'] = nil
+        end
+
+        # 廿四節気
+        div, mod = longitude.divmod(15)
+        if mod == 0
+          note = (div - 21) % 24
+          div, mod = note.divmod(2)
+          notes['節中']     ||= Notes12[div] + %w(節 中)[mod]
+          notes['廿四節気'] ||= 
+            begin
+              residue = When.Resource(dates.range == 1 ? '_co:Common?V=0618' : '_co:Common')['二十四節気::*'][(note-3) % 24]
+              if conditions[:shoyo]
+                dates.cal4note.s_terms.event_time(date, residue.label, [0,15])
+              else
+                residue
+              end
+            end
+        end
+
+        # 七十二候
+        div, mod = longitude.divmod(5)
+        notes['七十二候'] ||= mod == 0  ? Notes72[(div - 63) % 72][dates.index_s]  : nil
+
+        # 往亡
+        unless notes['往亡'] && notes['神吉'] && notes['雑事吉']
+          month    = dates.s_date.cal_date[-2] - 1
+          day      = dates.s_date.cal_date[-1] - 1
+          div, mod = month.divmod(3)
+          deg      = (div+7)*(mod+1) + month * 30 + 314
+          notes['往亡'] = (dates.range < 11 ? (deg - longitude) % 360 == 0  :               # 没を含まない
+                                              (deg - 315      ) %  30 == day)? '往亡' : nil # 没を含む
+        end
+
+        # 伏龍
+        notes['伏龍']     ||= {
+          315 => '庭内去堂',  15 => '門内百日', 115 => '東垣六十日',
+          175 => '四隅百日', 275 => '竈内四十日'
+        }[longitude]
+
+        # 六十卦
+        div, mod = longitude.divmod(30)
+        notes['六十卦']   ||= mod == 15 ? Notes60_A[(div - 10) % 12] : nil
+        div, mod = longitude.divmod(6)
+        notes['六十卦']   ||= mod == 0  ? Notes60_B[(div - 53) % 60] : nil
+
+        # 彼岸
+        unless notes['彼岸']
+          if dates.range < 11
+            notes['彼岸'] = '彼岸' if longitude % 180 == 2 # 宣明暦以前(没を除いて３日後)
+          else
+            term = dates.cal4note.s_terms.term(date - When.Duration('P7D'), [0,180]) # 近傍の春秋分
+            case dates.s_date.to_i - term.to_i
+            when  2 ; notes['彼岸'] = '彼岸' if dates.range == 11 # 貞享暦(没を含めて３日後)
+            when -5 ; notes['彼岸'] = '彼岸' if longitude >  180 && (1755...1844).include?(dates.year) # 宝暦暦・寛政暦(春-６日前))
+            when -1 ; notes['彼岸'] = '彼岸' if longitude <= 180 && (1755...1844).include?(dates.year) # 宝暦暦・寛政暦(秋-２日前)
+            when -3 ; notes['彼岸'] = '彼岸' if dates.year >= 1844 # 天保暦以降(秋-４日前)
+            end
+          end
+          notes['彼岸'] = nil unless notes['彼岸'] == '彼岸'
+        end
+
+        notes
+      end
+    end
+  end
+
+  #
+  # 太陽黄経による暦注
+  #
+  class Japanese::SolarTermsRevised < Japanese::SolarTerms
+
+    # 土用策
+    DoyoShift = When::TM::PeriodDuration.new([0,0,12.1747411317])
+
+    # 日付に対応する座標
+    #
+    # @param [When::TM::TemporalPosition] date 日付
+    # @param [Numeric] delta 周期の補正(土用の時刻の補正に使用,デフォルト 0)
+    #
+    # @return [Array<Integer>] Array< Integer, 0 or 1 or 2 >
+    #
+    #   [Integer]     対応する座標
+    #
+    #   [0 or 1 or 2] 座標の進み(0 なら 没, 2 なら滅)
+    #
+    def position(date, delta=0)
+      return super if date.most_significant_coordinate >= 1869
+      date   = date.floor
+      p0, p1 = [date, date.succ].map {|d| (30.0 * @formula.time_to_cn(d-DoyoShift) - @margin + 12).floor}
+      [p1 % @den, p1 - p0]
+    end
+
+    #
+    # イベント日付(時刻付)
+    #
+    # @private
+    def event_time(date, event_name, event)
+      return super if date.most_significant_coordinate >= 1869
+      etime = term(date + When.Duration('P3D'), [-15,30], When::SYSTEM) + DoyoShift
+      if formula.respond_to?(:year_length) && formula.denominator && formula.denominator < 100000
+        fraction  =  etime.clk_time.local_time
+        fraction +=  When::TM::Duration::DAY * (etime.to_i - date.to_i)
+        fraction  = (fraction  / When::TM::Duration::DAY * formula.denominator * 1000 + 0.5).floor / 1000.0
+        fraction  =  fraction.to_i if fraction == fraction.to_i
+        event_name + "(#{fraction}/#{formula.denominator})"
+      else
+        etime.events = [event_name]
+        etime
+      end
+    end
+  end
+end