panchanga 0.1.1

package/dist/elements.js

@@ -0,0 +1,603 @@
+/**
+ * src/elements.ts — calendar-elements core: tithi, nakshatra, karaṇa/Bhadra,
+ * new moons, solar ingress (saṅkrānti), and amānta/pūrṇimānta lunar months.
+ *
+ * SOURCING (the two fiddly conventions are pinned to authorities, not guessed):
+ *
+ * • KARAṆA SEQUENCE — Wikipedia "Karaṇa (pañcāṅga)"
+ *   https://en.wikipedia.org/wiki/Karana_(pancanga)
+ *   A karaṇa is half a tithi: the span over which Moon−Sun elongation grows 6°.
+ *   A lunar month (0°…360° elongation) has 60 half-tithis, indexed h = 0..59:
+ *     h = 0                          → Kiṁstughna   (fixed)
+ *     h = 1..56                      → the 7 movable karaṇas cycling with
+ *                                      ((h−1) mod 7) over
+ *                                      [Bava, Bālava, Kaulava, Taitila, Gara,
+ *                                       Vaṇij, Viṣṭi]   (8 full cycles = 56)
+ *     h = 57 → Śakuni, 58 → Catuṣpāda, 59 → Nāga   (fixed)
+ *   Viṣṭi ≡ Bhadra. The Mukha/Pucchā subdivision + Vāsa is `bhadraSplit`;
+ *   `bhadraIntervals` returns the whole Viṣṭi span it operates on.
+ *
+ * • LUNAR-MONTH NAMING / ADHIKA / KṢAYA — Wikipedia "Hindu calendar" &
+ *   "Adhika-masa" (https://en.wikipedia.org/wiki/Adhika-masa,
+ *   https://en.wikipedia.org/wiki/Hindu_calendar), consistent with
+ *   drikpanchang's adhika-masa definition.
+ *   An amānta lunation (new moon → next new moon) is named after the rāśi the
+ *   Sun ENTERS (the saṅkrānti) DURING that lunation:
+ *     Mesha saṅkrānti → Chaitra, Vṛṣabha → Vaiśākha, Mithuna → Jyeṣṭha, …
+ *     i.e. month-name-index (0=Chaitra) = entered-rāśi-index (0=Mesha).
+ *   • A lunation with NO saṅkrānti is **adhika** (leap): it takes the name of
+ *     the FOLLOWING lunation's saṅkrānti, prefixed "Adhika"; the following
+ *     lunation is then "Nija/Śuddha".  (Algorithmically: an adhika lunation
+ *     inherits the next lunation's month name.)
+ *   • A lunation with TWO saṅkrāntis is **kṣaya** (lost month, ~1/140 yr).
+ *
+ * • PŪRṆIMĀNTA label — derived from the amānta result. A pūrṇimānta month runs
+ *   full-moon → full-moon, so its kṛṣṇa-pakṣa (waning) half belongs to the
+ *   amānta month one NAME EARLIER. Concretely: in the kṛṣṇa pakṣa the
+ *   pūrṇimānta name = next amānta name; in the śukla pakṣa they coincide.
+ *   Dates do not change — only the label.
+ *
+ * ASTRONOMY PRIMITIVES
+ *   • Elongation = geocentric Moon−Sun ecliptic-longitude difference in [0,360):
+ *     Astronomy.PairLongitude(Body.Moon, Body.Sun, date) (== MoonPhase(date)).
+ *   • Tithi / karaṇa / new-moon boundaries via Astronomy.SearchMoonPhase(target,
+ *     start, limitDays) — robust against intra-day non-monotonicity.
+ *   • Nakshatra & saṅkrānti use the SIDEREAL longitudes from ayanamsha.ts
+ *     (siderealLongitude / siderealSunRashi), kept consistent with Drik Panchang.
+ */
+import { Body, PairLongitude, SearchMoonPhase, MakeTime, } from "astronomy-engine";
+import { siderealLongitude, siderealSunRashi, normalize360 } from "./ayanamsha.js";
+// ───────────────────────────────────────────────────────────────────────────
+// Constants
+// ───────────────────────────────────────────────────────────────────────────
+/** Degrees of elongation per tithi (one of 30 in a lunation). */
+const DEG_PER_TITHI = 12;
+/** Degrees of elongation per karaṇa (half-tithi; 60 in a lunation). */
+const DEG_PER_KARANA = 6;
+/** Number of nakshatras; arc each spans = 360/27 = 13°20′. */
+const NAKSHATRA_COUNT = 27;
+const DEG_PER_NAKSHATRA = 360 / NAKSHATRA_COUNT;
+/** Mean synodic month, days — used only to size search windows. */
+const SYNODIC_MONTH_DAYS = 29.530588853;
+/** The 30 tithi names (1-based: index 0 = tithi 1 = Pratipadā). */
+export const TITHI_NAMES = [
+    "Pratipada", "Dvitiya", "Tritiya", "Chaturthi", "Panchami", "Shashthi",
+    "Saptami", "Ashtami", "Navami", "Dashami", "Ekadashi", "Dvadashi",
+    "Trayodashi", "Chaturdashi", "Purnima",
+    "Pratipada", "Dvitiya", "Tritiya", "Chaturthi", "Panchami", "Shashthi",
+    "Saptami", "Ashtami", "Navami", "Dashami", "Ekadashi", "Dvadashi",
+    "Trayodashi", "Chaturdashi", "Amavasya",
+];
+/** The 27 nakshatra names (index 0 = Ashwini; Rohini = 3). */
+export const NAKSHATRA_NAMES = [
+    "Ashwini", "Bharani", "Krittika", "Rohini", "Mrigashira", "Ardra",
+    "Punarvasu", "Pushya", "Ashlesha", "Magha", "Purva Phalguni",
+    "Uttara Phalguni", "Hasta", "Chitra", "Swati", "Vishakha", "Anuradha",
+    "Jyeshtha", "Mula", "Purva Ashadha", "Uttara Ashadha", "Shravana",
+    "Dhanishta", "Shatabhisha", "Purva Bhadrapada", "Uttara Bhadrapada", "Revati",
+];
+/** The 7 movable (cara) karaṇas, in cyclic order. Viṣṭi (index 6) ≡ Bhadra. */
+export const MOVABLE_KARANAS = [
+    "Bava", "Balava", "Kaulava", "Taitila", "Gara", "Vanij", "Vishti",
+];
+/** Karaṇa name for a half-tithi index h ∈ 0..59 (see file header for sourcing). */
+export function karanaName(h) {
+    if (h === 0)
+        return "Kimstughna";
+    if (h === 57)
+        return "Shakuni";
+    if (h === 58)
+        return "Chatushpada";
+    if (h === 59)
+        return "Naga";
+    // h = 1..56 → movable cycle
+    return MOVABLE_KARANAS[(h - 1) % 7];
+}
+/**
+ * The 12 amānta lunar-month names, indexed by the rāśi the Sun enters:
+ * index 0 = Mesha → Chaitra, … index 11 = Mīna → Phalguna.
+ */
+export const LUNAR_MONTH_NAMES = [
+    "Chaitra", "Vaishakha", "Jyeshtha", "Ashadha", "Shravana", "Bhadrapada",
+    "Ashwina", "Kartika", "Margashirsha", "Pausha", "Magha", "Phalguna",
+];
+// ───────────────────────────────────────────────────────────────────────────
+// Generic root-finding helper (monotone longitude crossing, bisection)
+// ───────────────────────────────────────────────────────────────────────────
+/**
+ * Root-find the instant in (lo, hi] at which `f` (an angle in degrees, assumed
+ * to increase monotonically mod 360 across the bracket) crosses `target`.
+ *
+ * `lo` and `hi` are millisecond epochs bracketing exactly one crossing.
+ * `f(ms)` returns the angle in [0,360). We measure the signed forward gap from
+ * `target` (how far the angle has advanced past `target`, in [0,360)) and
+ * bisect on the sign change. Converges to ~sub-second.
+ */
+function bisectLongitudeCrossing(f, target, lo, hi) {
+    // forward distance the angle has travelled past `target`, in [0,360)
+    const past = (ms) => normalize360(f(ms) - target);
+    // At lo the angle is just BEFORE target → past(lo) is near 360 (large).
+    // At hi the angle is just AFTER target → past(hi) is near 0 (small).
+    // We look for the step where past jumps from ~360 down to ~0; the crossing
+    // is where forward distance from the lo-side equals the bracket.
+    // Reframe as: g(ms) = angularDelta(f(ms), target) signed so it is negative
+    // before the crossing and non-negative after.
+    const signed = (ms) => {
+        const d = normalize360(f(ms) - target); // [0,360)
+        return d > 180 ? d - 360 : d; // (−180,180]
+    };
+    let a = lo;
+    let b = hi;
+    let fa = signed(a);
+    // Guard: ensure a sign change exists; if not, return the closest endpoint.
+    for (let i = 0; i < 100; i++) {
+        const m = (a + b) / 2;
+        const fm = signed(m);
+        if (Math.abs(b - a) < 50)
+            break; // < 50 ms
+        if ((fa < 0 && fm < 0) || (fa >= 0 && fm >= 0)) {
+            a = m;
+            fa = fm;
+        }
+        else {
+            b = m;
+        }
+    }
+    return new Date((a + b) / 2);
+}
+// ───────────────────────────────────────────────────────────────────────────
+// 1. Elongation & tithi
+// ───────────────────────────────────────────────────────────────────────────
+/**
+ * Geocentric Moon−Sun ecliptic-longitude elongation in [0,360).
+ * 0 = new moon (conjunction), 180 = full moon.
+ */
+export function elongation(date) {
+    return PairLongitude(Body.Moon, Body.Sun, date);
+}
+/**
+ * Tithi number 1..30 containing `date`.
+ * Tithi n spans elongation [(n−1)·12°, n·12°). 1 = Śukla Pratipadā … 30 = Amāvāsyā.
+ */
+export function tithiAt(date) {
+    return Math.floor(elongation(date) / DEG_PER_TITHI) + 1;
+}
+/**
+ * Boundaries of the tithi containing `around`.
+ *
+ * Tithi n occupies elongation [(n−1)·12°, n·12°). We locate the start by
+ * searching backward for the (n−1)·12° phase and the end by searching forward
+ * for the n·12° phase (mod 360). The new-moon wrap is handled because phase
+ * 0° ≡ 360°: tithi 30 ends at phase 0 (the next new moon) and tithi 1 starts
+ * at phase 0 (the same new moon), so the SearchMoonPhase target is taken mod
+ * 360 and the wrap is seamless.
+ */
+export function tithiBoundaries(around) {
+    const t = MakeTime(around);
+    const n = tithiAt(around);
+    const startTarget = ((n - 1) * DEG_PER_TITHI) % 360; // 0..348
+    const endTarget = (n * DEG_PER_TITHI) % 360; // 12..360→0
+    // Start: most recent time phase reached startTarget at or before `around`.
+    // Search backward up to ~2 tithis (a tithi is ~0.9–1.1 days; 3 d is safe).
+    const start = SearchMoonPhase(startTarget, t, -3);
+    // End: next time phase reaches endTarget after `around`.
+    const end = SearchMoonPhase(endTarget, t, +3);
+    if (!start || !end) {
+        throw new Error(`tithiBoundaries: SearchMoonPhase failed for tithi ${n} near ${new Date(t.date.getTime()).toISOString()}`);
+    }
+    return { number: n, start: start.date, end: end.date };
+}
+// ───────────────────────────────────────────────────────────────────────────
+// 2. Nakshatra (sidereal Moon longitude)
+// ───────────────────────────────────────────────────────────────────────────
+/**
+ * Nakshatra index 0..26 of the Moon at `date` (0 = Ashwini; Rohini = 3).
+ * Each nakshatra spans 360/27 = 13°20′ of the Moon's sidereal longitude.
+ */
+export function nakshatraAt(date) {
+    return Math.floor(siderealLongitude(date, Body.Moon) / DEG_PER_NAKSHATRA);
+}
+/**
+ * Boundaries of the nakshatra the Moon occupies at `around`.
+ *
+ * The Moon's sidereal longitude advances ~13.2°/day and is monotonic within a
+ * nakshatra, so each 13°20′ boundary is a clean single crossing. We bracket
+ * the start-edge by stepping back ~1.5 days and the end-edge forward ~1.5 days
+ * (a nakshatra lasts ~24 h) and bisect each crossing.
+ */
+export function nakshatraBoundaries(around) {
+    const t = MakeTime(around);
+    const centerMs = t.date.getTime();
+    const idx = nakshatraAt(around);
+    const startEdge = idx * DEG_PER_NAKSHATRA; // lower boundary, deg
+    const endEdge = ((idx + 1) % NAKSHATRA_COUNT) * DEG_PER_NAKSHATRA; // upper
+    const moonSid = (ms) => siderealLongitude(new Date(ms), Body.Moon);
+    const DAY = 86_400_000;
+    // A nakshatra is ~24 h; ±2 days brackets the adjacent boundaries safely.
+    const start = bisectLongitudeCrossing(moonSid, startEdge, centerMs - 2 * DAY, centerMs);
+    const end = bisectLongitudeCrossing(moonSid, endEdge, centerMs, centerMs + 2 * DAY);
+    return { index: idx, start, end };
+}
+// ───────────────────────────────────────────────────────────────────────────
+// 2b. Yoga (sidereal Sun + Moon longitude)
+// ───────────────────────────────────────────────────────────────────────────
+/** Number of nitya-yogas; arc each spans = 360/27 = 13°20′. */
+const YOGA_COUNT = 27;
+const DEG_PER_YOGA = 360 / YOGA_COUNT;
+/** The 27 nitya-yoga names (index 0 = Vishkambha … 26 = Vaidhriti). */
+export const YOGA_NAMES = [
+    "Vishkambha", "Priti", "Ayushman", "Saubhagya", "Shobhana", "Atiganda",
+    "Sukarman", "Dhriti", "Shula", "Ganda", "Vriddhi", "Dhruva",
+    "Vyaghata", "Harshana", "Vajra", "Siddhi", "Vyatipata", "Variyan",
+    "Parigha", "Shiva", "Siddha", "Sadhya", "Shubha", "Shukla",
+    "Brahma", "Indra", "Vaidhriti",
+];
+/**
+ * The yoga "angle" at `date`: the SUM of the sidereal ecliptic longitudes of
+ * the Sun and Moon, reduced to [0,360). Contrast tithi/karaṇa (the Moon−Sun
+ * *difference*) and nakshatra (the Moon *alone*). The sum advances ~14.2°/day
+ * (Moon ~13.2 + Sun ~1) and is monotone, so each 13°20′ boundary is a clean
+ * single crossing.
+ */
+function yogaAngle(date) {
+    return normalize360(siderealLongitude(date, Body.Sun) + siderealLongitude(date, Body.Moon));
+}
+/**
+ * Yoga index 0..26 at `date` (0 = Vishkambha; 26 = Vaidhriti).
+ * Each nitya-yoga spans 360/27 = 13°20′ of (Sun + Moon) sidereal longitude.
+ */
+export function yogaAt(date) {
+    return Math.floor(yogaAngle(date) / DEG_PER_YOGA);
+}
+/**
+ * Boundaries of the yoga at `around`. The (Sun+Moon) sidereal sum advances
+ * monotonically (~14.2°/day), so a yoga lasts ~22–25 h; ±2 days brackets the
+ * adjacent boundaries safely and we bisect each crossing (the 360°→0° wrap for
+ * Vaidhriti→Vishkambha is handled by `bisectLongitudeCrossing`, exactly as for
+ * the Revati→Ashwini nakshatra wrap).
+ */
+export function yogaBoundaries(around) {
+    const t = MakeTime(around);
+    const centerMs = t.date.getTime();
+    const idx = yogaAt(around);
+    const startEdge = idx * DEG_PER_YOGA;
+    const endEdge = ((idx + 1) % YOGA_COUNT) * DEG_PER_YOGA;
+    const angle = (ms) => yogaAngle(new Date(ms));
+    const DAY = 86_400_000;
+    const start = bisectLongitudeCrossing(angle, startEdge, centerMs - 2 * DAY, centerMs);
+    const end = bisectLongitudeCrossing(angle, endEdge, centerMs, centerMs + 2 * DAY);
+    return { index: idx, start, end };
+}
+// ───────────────────────────────────────────────────────────────────────────
+// 3. Karaṇa & Bhadra (Viṣṭi)
+// ───────────────────────────────────────────────────────────────────────────
+/**
+ * Half-tithi index h ∈ 0..59 at `date` (h = floor(elongation/6°)), i.e. the
+ * karaṇa slot within the current lunation.
+ */
+export function karanaIndexAt(date) {
+    return Math.floor(elongation(date) / DEG_PER_KARANA);
+}
+/** Karaṇa name at `date` (see karanaName / file header for the sequence). */
+export function karanaAt(date) {
+    return karanaName(karanaIndexAt(date));
+}
+/**
+ * Boundaries of the karaṇa (half-tithi) containing `around`. Mirrors
+ * `tithiBoundaries` on a 6° grid: a karaṇa spans elongation [h·6°, (h+1)·6°),
+ * so we locate the start at h·6° (backward) and the end at (h+1)·6° (forward).
+ * The new-moon wrap (h=59 ends at phase 0°) is seamless because the target is
+ * taken mod 360.
+ */
+export function karanaBoundaries(around) {
+    const t = MakeTime(around);
+    const h = karanaIndexAt(around);
+    const startTarget = (h * DEG_PER_KARANA) % 360;
+    const endTarget = ((h + 1) * DEG_PER_KARANA) % 360;
+    const start = SearchMoonPhase(startTarget, t, -3);
+    const end = SearchMoonPhase(endTarget, t, +3);
+    if (!start || !end) {
+        throw new Error(`karanaBoundaries: SearchMoonPhase failed for karaṇa ${h} near ${new Date(t.date.getTime()).toISOString()}`);
+    }
+    return { index: h, name: karanaName(h), start: start.date, end: end.date };
+}
+/**
+ * Viṣṭi (Bhadra) karaṇa interval(s) near `around`.
+ *
+ * Viṣṭi is the 7th movable karaṇa, so it falls at half-tithi indices h where
+ * ((h−1) mod 7) === 6 and h ∈ 1..56, i.e. h ∈ {7, 14, 21, 28, 35, 42, 49, 56}.
+ * Each such karaṇa is the elongation span [h·6°, (h+1)·6°). Within a lunar
+ * month Bhadra therefore occurs once per pakṣa-ish (8 times across a lunation).
+ *
+ * This scans a window of ±SYNODIC_MONTH_DAYS around `around`, locates every
+ * Viṣṭi slot via SearchMoonPhase on the 6° multiples, and returns each
+ * {start,end} (UTC) that overlaps the window. Adjacent to a date this yields
+ * the Bhadra window(s) on/near that date.
+ *
+ * NOTE: this returns the whole Viṣṭi karaṇa span. The Mukha/Pucchā "face/tail"
+ * subdivision and the Vāsa (loka) used for Holikā Dahan muhūrta are computed by
+ * `bhadraSplit`, which takes one of these intervals.
+ */
+export function bhadraIntervals(around) {
+    const t = MakeTime(around);
+    const centerMs = t.date.getTime();
+    const DAY = 86_400_000;
+    const windowMs = SYNODIC_MONTH_DAYS * DAY;
+    const loMs = centerMs - windowMs;
+    const hiMs = centerMs + windowMs;
+    const result = [];
+    // Viṣṭi half-tithi indices within a lunation.
+    const vishtiSlots = [7, 14, 21, 28, 35, 42, 49, 56];
+    // We don't know which lunation we're in for absolute h, but SearchMoonPhase
+    // targets are absolute phase degrees in [0,360). Each Viṣṭi slot h maps to a
+    // phase target startDeg = h·6°; the karaṇa ends at (h+1)·6°. Search across a
+    // few lunations covering the window.
+    for (const h of vishtiSlots) {
+        const startDeg = h * DEG_PER_KARANA; // 42,84,…,336
+        const endDeg = (h + 1) * DEG_PER_KARANA;
+        // Walk lunation by lunation across the window. Anchor the search at loMs
+        // and step forward by ~1 synodic month until past hiMs.
+        let cursor = loMs;
+        while (cursor <= hiMs) {
+            const s = SearchMoonPhase(startDeg % 360, new Date(cursor), SYNODIC_MONTH_DAYS + 1);
+            if (!s)
+                break;
+            if (s.date.getTime() > hiMs)
+                break;
+            const e = SearchMoonPhase(endDeg % 360, s.date, 2);
+            if (!e)
+                break;
+            // Keep intervals overlapping the window.
+            if (e.date.getTime() >= loMs && s.date.getTime() <= hiMs) {
+                result.push({ start: s.date, end: e.date });
+            }
+            // Advance just past this start to the next lunation's same slot.
+            cursor = s.date.getTime() + SYNODIC_MONTH_DAYS * DAY * 0.5;
+        }
+    }
+    // De-duplicate (different cursors can re-find the same interval) and sort.
+    const uniq = new Map();
+    for (const iv of result) {
+        const key = Math.round(iv.start.getTime() / 1000); // 1-second bucket
+        if (!uniq.has(key))
+            uniq.set(key, iv);
+    }
+    return [...uniq.values()].sort((a, b) => a.start.getTime() - b.start.getTime());
+}
+/** Vāsa loka by rāśi index 0..11 (see the sourcing note above). */
+const BHADRA_VASA_BY_RASHI = [
+    "svarga", // 0  Mesha
+    "svarga", // 1  Vrishabha
+    "svarga", // 2  Mithuna
+    "prithvi", // 3  Karka
+    "prithvi", // 4  Simha
+    "patala", // 5  Kanya
+    "patala", // 6  Tula
+    "svarga", // 7  Vrishchika
+    "patala", // 8  Dhanu
+    "patala", // 9  Makara
+    "prithvi", // 10 Kumbha
+    "prithvi", // 11 Meena
+];
+/**
+ * Split a Bhadra (Viṣṭi karaṇa) `interval` into its Mukha (face) and Pucchā
+ * (tail) sub-windows and resolve its Vāsa from the Moon's rāśi at Bhadra's
+ * start. See the sourcing note above. PURE w.r.t. its argument + ephemeris.
+ */
+export function bhadraSplit(interval) {
+    const startMs = interval.start.getTime();
+    const endMs = interval.end.getTime();
+    const span = endMs - startMs;
+    // Sample the Moon's rāśi at the Bhadra MIDPOINT — the representative instant
+    // for "during Bhadra" (a single endpoint can misclassify the rare case where
+    // the Moon crosses a rāśi boundary within the span).
+    const midpoint = new Date(startMs + span / 2);
+    const moonRashi = Math.floor(siderealLongitude(midpoint, Body.Moon) / 30) % 12;
+    return {
+        vasa: BHADRA_VASA_BY_RASHI[moonRashi],
+        moonRashi,
+        mukha: { start: new Date(startMs), end: new Date(startMs + span / 6) },
+        puccha: { start: new Date(endMs - span / 10), end: new Date(endMs) },
+    };
+}
+// ───────────────────────────────────────────────────────────────────────────
+// 4. New moons & solar ingress (saṅkrānti)
+// ───────────────────────────────────────────────────────────────────────────
+/**
+ * All new-moon instants (elongation = 0°) whose UTC time falls within calendar
+ * year `year` (UTC), in increasing order. Uses SearchMoonPhase(0).
+ */
+// Memoized by year: newMoons(year) is pure and location-independent, yet it is
+// called once per tithi-bearing rule (~146× in a full computeFestivals). The
+// returned array is treated read-only by all callers; the cache makes every
+// call after the first O(1). (See also solarIngress below.)
+const _newMoonsByYear = new Map();
+export function newMoons(year) {
+    const cached = _newMoonsByYear.get(year);
+    if (cached)
+        return cached;
+    const out = [];
+    const yearEnd = Date.UTC(year + 1, 0, 1);
+    // Start a little before Jan 1 so we catch a new moon early in January.
+    let cursor = new Date(Date.UTC(year - 1, 11, 25));
+    for (let i = 0; i < 20; i++) {
+        const nm = SearchMoonPhase(0, cursor, 40);
+        if (!nm)
+            break;
+        const ms = nm.date.getTime();
+        if (ms >= yearEnd)
+            break;
+        if (ms >= Date.UTC(year, 0, 1))
+            out.push(nm.date);
+        // Advance past this new moon to find the next.
+        cursor = new Date(ms + SYNODIC_MONTH_DAYS * 86_400_000 * 0.5);
+    }
+    _newMoonsByYear.set(year, out);
+    return out;
+}
+/**
+ * The instant in calendar year `year` (UTC) at which the Sun's **sidereal**
+ * (Lahiri) longitude crosses `rashi`·30° — the saṅkrānti into that rāśi.
+ * rashi 0 = Mesha … 9 = Makara (Makara Saṅkrānti) … 11 = Mīna.
+ *
+ * Root-found on siderealLongitude(Sun): the Sun advances ~1°/day and is
+ * monotonic, so each 30° boundary is crossed once per year. We scan month by
+ * month for the rāśi change, then bisect.
+ */
+// Memoized by (year, rashi): a 366-day sidereal scan re-run per solar rule.
+const _solarIngressByKey = new Map();
+export function solarIngress(year, rashi) {
+    const key = year * 12 + rashi;
+    const cached = _solarIngressByKey.get(key);
+    if (cached)
+        return cached;
+    const targetDeg = normalize360(rashi * 30);
+    const sunSid = (ms) => siderealLongitude(new Date(ms), Body.Sun);
+    // Find the day-bracket where siderealSunRashi steps into `rashi`.
+    // Scan the whole year at 1-day resolution.
+    const startMs = Date.UTC(year, 0, 1);
+    const DAY = 86_400_000;
+    let prevMs = startMs;
+    let prevRashi = siderealSunRashi(new Date(prevMs));
+    for (let d = 1; d <= 366; d++) {
+        const ms = startMs + d * DAY;
+        const r = siderealSunRashi(new Date(ms));
+        if (r !== prevRashi && r === rashi) {
+            // Crossing into `rashi` lies in (prevMs, ms]. Bisect the 30° boundary.
+            const result = bisectLongitudeCrossing(sunSid, targetDeg, prevMs, ms);
+            _solarIngressByKey.set(key, result);
+            return result;
+        }
+        prevMs = ms;
+        prevRashi = r;
+    }
+    throw new Error(`solarIngress: rashi ${rashi} not entered during ${year}`);
+}
+/** Find the new moon at or immediately before `ms` (UTC ms). */
+function newMoonAtOrBefore(ms) {
+    const nm = SearchMoonPhase(0, new Date(ms), -(SYNODIC_MONTH_DAYS + 2));
+    if (!nm)
+        throw new Error("newMoonAtOrBefore: SearchMoonPhase failed");
+    return nm.date;
+}
+/** Find the first new moon strictly after `ms` (UTC ms). */
+function newMoonAfter(ms) {
+    // Step a hair forward to avoid re-finding the same instant.
+    const nm = SearchMoonPhase(0, new Date(ms + 1000), SYNODIC_MONTH_DAYS + 2);
+    if (!nm)
+        throw new Error("newMoonAfter: SearchMoonPhase failed");
+    return nm.date;
+}
+/**
+ * Count saṅkrāntis (solar rāśi entries) strictly inside the open lunation
+ * (nmStart, nmEnd) and return the rāśi index entered for each, in order.
+ *
+ * A saṅkrānti is a step in siderealSunRashi. We sample at the two new-moon
+ * endpoints and detect rāśi changes by scanning at 12-hour resolution (the Sun
+ * never crosses two boundaries within 12 h), then refine is unnecessary — we
+ * only need the COUNT and the entered rāśi index(es).
+ */
+function sankrantisInLunation(nmStartMs, nmEndMs) {
+    const entered = [];
+    const STEP = 12 * 3_600_000; // 12 h
+    let prevRashi = siderealSunRashi(new Date(nmStartMs));
+    for (let ms = nmStartMs + STEP; ms < nmEndMs; ms += STEP) {
+        const r = siderealSunRashi(new Date(ms));
+        if (r !== prevRashi) {
+            entered.push(r);
+            prevRashi = r;
+        }
+    }
+    // Also check the final endpoint approach (last step may overshoot nmEnd).
+    const rEnd = siderealSunRashi(new Date(nmEndMs - 1));
+    if (rEnd !== prevRashi) {
+        entered.push(rEnd);
+    }
+    return entered;
+}
+/**
+ * Classify the amānta lunation containing `at` and return amānta + pūrṇimānta
+ * labels, paksha, and adhika/kṣaya flags.
+ *
+ * Algorithm (see file header for sourcing):
+ *  1. Bracket the current amānta lunation: nmStart = new moon at/before `at`,
+ *     nmEnd = next new moon. Paksha = śukla if elongation(at) < 180 else kṛṣṇa.
+ *  2. Count saṅkrāntis inside (nmStart, nmEnd):
+ *       • exactly 1  → ordinary month, name = entered-rāśi index (0=Chaitra).
+ *       • 0          → ADHIKA: name = the FOLLOWING lunation's saṅkrānti rāśi
+ *                      (look ahead to the next new moon and its saṅkrānti).
+ *       • 2          → KṢAYA: month is lost; name = the FIRST entered rāśi
+ *                      (the kṣaya month carries the earlier name; the later
+ *                      one is dropped). Flagged kshaya:true.
+ *  3. Pūrṇimānta label: in the kṛṣṇa pakṣa it rolls forward to the next month
+ *     name; in the śukla pakṣa it equals the amānta name. (Adhika/Nija prefix
+ *     carries through unchanged.)
+ */
+// Memoized by (instant, system): lunarMonth is pure and is queried ~2000× per
+// computeFestivals (once per lunation per tithi rule), almost all for the same
+// ~14 lunations. The label depends only on which lunation+pakṣa the instant
+// falls in, so identical instants recur heavily across rules.
+const _lunarMonthCache = new Map();
+export function lunarMonth(at, options = {}) {
+    const system = options.system ?? "amanta";
+    const key = `${MakeTime(at).date.getTime()}:${system}`;
+    const cached = _lunarMonthCache.get(key);
+    if (cached)
+        return cached;
+    const result = lunarMonthUncached(at, system);
+    if (_lunarMonthCache.size < 50_000)
+        _lunarMonthCache.set(key, result); // bound memory
+    return result;
+}
+function lunarMonthUncached(at, system) {
+    const t = MakeTime(at);
+    const atMs = t.date.getTime();
+    const nmStart = newMoonAtOrBefore(atMs);
+    const nmEnd = newMoonAfter(nmStart.getTime());
+    const nmStartMs = nmStart.getTime();
+    const nmEndMs = nmEnd.getTime();
+    const elong = elongation(at);
+    const paksha = elong < 180 ? "shukla" : "krishna";
+    const sankrantis = sankrantisInLunation(nmStartMs, nmEndMs);
+    let amantaMonth;
+    let adhika = false;
+    let kshaya = false;
+    if (sankrantis.length === 1) {
+        amantaMonth = sankrantis[0];
+    }
+    else if (sankrantis.length === 0) {
+        // Adhika: inherit the following lunation's saṅkrānti name.
+        adhika = true;
+        const nmNextEnd = newMoonAfter(nmEndMs);
+        const nextSankrantis = sankrantisInLunation(nmEndMs, nmNextEnd.getTime());
+        // The following lunation should contain exactly one saṅkrānti; use its rāśi.
+        amantaMonth = nextSankrantis.length > 0 ? nextSankrantis[0]
+            // Degenerate fallback: name after the Sun's rāśi at nmEnd.
+            : siderealSunRashi(new Date(nmEndMs));
+    }
+    else {
+        // Two (or more) saṅkrāntis: kṣaya. Carry the first entered rāśi name.
+        kshaya = true;
+        amantaMonth = sankrantis[0];
+    }
+    const amantaName = LUNAR_MONTH_NAMES[amantaMonth];
+    const prefix = adhika ? "Adhika " : "";
+    const amantaLabel = `${prefix}${amantaName}`;
+    // Pūrṇimānta: kṛṣṇa pakṣa belongs to the NEXT month's name.
+    const purnimantaMonth = paksha === "krishna" ? (amantaMonth + 1) % 12 : amantaMonth;
+    const purnimantaName = LUNAR_MONTH_NAMES[purnimantaMonth];
+    const purnimantaLabel = `${prefix}${purnimantaName}`;
+    const month = system === "purnimanta" ? purnimantaMonth : amantaMonth;
+    const monthName = system === "purnimanta" ? purnimantaLabel : amantaLabel;
+    return {
+        month,
+        monthName,
+        paksha,
+        adhika,
+        kshaya,
+        amantaMonth,
+        amantaLabel,
+        purnimantaLabel,
+    };
+}
+//# sourceMappingURL=elements.js.map

package/dist/elements.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"elements.js","sourceRoot":"","sources":["../src/elements.ts"],"names":[],"mappings":"AAAA;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;GA8CG;AAEH,OAAO,EACL,IAAI,EACJ,aAAa,EACb,eAAe,EACf,QAAQ,GAET,MAAM,kBAAkB,CAAC;AAE1B,OAAO,EAAE,iBAAiB,EAAE,gBAAgB,EAAE,YAAY,EAAE,MAAM,gBAAgB,CAAC;AAEnF,8EAA8E;AAC9E,YAAY;AACZ,8EAA8E;AAE9E,iEAAiE;AACjE,MAAM,aAAa,GAAG,EAAE,CAAC;AACzB,uEAAuE;AACvE,MAAM,cAAc,GAAG,CAAC,CAAC;AACzB,8DAA8D;AAC9D,MAAM,eAAe,GAAG,EAAE,CAAC;AAC3B,MAAM,iBAAiB,GAAG,GAAG,GAAG,eAAe,CAAC;AAChD,mEAAmE;AACnE,MAAM,kBAAkB,GAAG,YAAY,CAAC;AAExC,mEAAmE;AACnE,MAAM,CAAC,MAAM,WAAW,GAAG;IACzB,WAAW,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,EAAE,UAAU,EAAE,UAAU;IACtE,SAAS,EAAE,SAAS,EAAE,QAAQ,EAAE,SAAS,EAAE,UAAU,EAAE,UAAU;IACjE,YAAY,EAAE,aAAa,EAAE,SAAS;IACtC,WAAW,EAAE,SAAS,EAAE,SAAS,EAAE,WAAW,EAAE,UAAU,EAAE,UAAU;IACtE,SAAS,EAAE,SAAS,EAAE,QAAQ,EAAE,SAAS,EAAE,UAAU,EAAE,UAAU;IACjE,YAAY,EAAE,aAAa,EAAE,UAAU;CAC/B,CAAC;AAEX,8DAA8D;AAC9D,MAAM,CAAC,MAAM,eAAe,GAAG;IAC7B,SAAS,EAAE,SAAS,EAAE,UAAU,EAAE,QAAQ,EAAE,YAAY,EAAE,OAAO;IACjE,WAAW,EAAE,QAAQ,EAAE,UAAU,EAAE,OAAO,EAAE,gBAAgB;IAC5D,iBAAiB,EAAE,OAAO,EAAE,QAAQ,EAAE,OAAO,EAAE,UAAU,EAAE,UAAU;IACrE,UAAU,EAAE,MAAM,EAAE,eAAe,EAAE,gBAAgB,EAAE,UAAU;IACjE,WAAW,EAAE,aAAa,EAAE,kBAAkB,EAAE,mBAAmB,EAAE,QAAQ;CACrE,CAAC;AAEX,+EAA+E;AAC/E,MAAM,CAAC,MAAM,eAAe,GAAG;IAC7B,MAAM,EAAE,QAAQ,EAAE,SAAS,EAAE,SAAS,EAAE,MAAM,EAAE,OAAO,EAAE,QAAQ;CACzD,CAAC;AAEX,mFAAmF;AACnF,MAAM,UAAU,UAAU,CAAC,CAAS;IAClC,IAAI,CAAC,KAAK,CAAC;QAAE,OAAO,YAAY,CAAC;IACjC,IAAI,CAAC,KAAK,EAAE;QAAE,OAAO,SAAS,CAAC;IAC/B,IAAI,CAAC,KAAK,EAAE;QAAE,OAAO,aAAa,CAAC;IACnC,IAAI,CAAC,KAAK,EAAE;QAAE,OAAO,MAAM,CAAC;IAC5B,4BAA4B;IAC5B,OAAO,eAAe,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;AACtC,CAAC;AAED;;;GAGG;AACH,MAAM,CAAC,MAAM,iBAAiB,GAAG;IAC/B,SAAS,EAAE,WAAW,EAAE,UAAU,EAAE,SAAS,EAAE,UAAU,EAAE,YAAY;IACvE,SAAS,EAAE,SAAS,EAAE,cAAc,EAAE,QAAQ,EAAE,OAAO,EAAE,UAAU;CAC3D,CAAC;AAEX,8EAA8E;AAC9E,uEAAuE;AACvE,8EAA8E;AAE9E;;;;;;;;GAQG;AACH,SAAS,uBAAuB,CAC9B,CAAyB,EACzB,MAAc,EACd,EAAU,EACV,EAAU;IAEV,qEAAqE;IACrE,MAAM,IAAI,GAAG,CAAC,EAAU,EAAU,EAAE,CAAC,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,GAAG,MAAM,CAAC,CAAC;IAClE,wEAAwE;IACxE,qEAAqE;IACrE,2EAA2E;IAC3E,iEAAiE;IACjE,2EAA2E;IAC3E,8CAA8C;IAC9C,MAAM,MAAM,GAAG,CAAC,EAAU,EAAU,EAAE;QACpC,MAAM,CAAC,GAAG,YAAY,CAAC,CAAC,CAAC,EAAE,CAAC,GAAG,MAAM,CAAC,CAAC,CAAC,UAAU;QAClD,OAAO,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,CAAC,CAAC,CAAC,CAAC,aAAa;IAC7C,CAAC,CAAC;IACF,IAAI,CAAC,GAAG,EAAE,CAAC;IACX,IAAI,CAAC,GAAG,EAAE,CAAC;IACX,IAAI,EAAE,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;IACnB,2EAA2E;IAC3E,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QAC7B,MAAM,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC;QACtB,MAAM,EAAE,GAAG,MAAM,CAAC,CAAC,CAAC,CAAC;QACrB,IAAI,IAAI,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,EAAE;YAAE,MAAM,CAAC,UAAU;QAC3C,IAAI,CAAC,EAAE,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC,IAAI,CAAC,EAAE,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,CAAC,EAAE,CAAC;YAC/C,CAAC,GAAG,CAAC,CAAC;YACN,EAAE,GAAG,EAAE,CAAC;QACV,CAAC;aAAM,CAAC;YACN,CAAC,GAAG,CAAC,CAAC;QACR,CAAC;IACH,CAAC;IACD,OAAO,IAAI,IAAI,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,CAAC;AAC/B,CAAC;AAED,8EAA8E;AAC9E,wBAAwB;AACxB,8EAA8E;AAE9E;;;GAGG;AACH,MAAM,UAAU,UAAU,CAAC,IAAsB;IAC/C,OAAO,aAAa,CAAC,IAAI,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,EAAE,IAAI,CAAC,CAAC;AAClD,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,OAAO,CAAC,IAAsB;IAC5C,OAAO,IAAI,CAAC,KAAK,CAAC,UAAU,CAAC,IAAI,CAAC,GAAG,aAAa,CAAC,GAAG,CAAC,CAAC;AAC1D,CAAC;AAWD;;;;;;;;;GASG;AACH,MAAM,UAAU,eAAe,CAAC,MAAwB;IACtD,MAAM,CAAC,GAAG,QAAQ,CAAC,MAAM,CAAC,CAAC;IAC3B,MAAM,CAAC,GAAG,OAAO,CAAC,MAAM,CAAC,CAAC;IAC1B,MAAM,WAAW,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,aAAa,CAAC,GAAG,GAAG,CAAC,CAAC,SAAS;IAC9D,MAAM,SAAS,GAAG,CAAC,CAAC,GAAG,aAAa,CAAC,GAAG,GAAG,CAAC,CAAC,YAAY;IAEzD,2EAA2E;IAC3E,2EAA2E;IAC3E,MAAM,KAAK,GAAG,eAAe,CAAC,WAAW,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAClD,yDAAyD;IACzD,MAAM,GAAG,GAAG,eAAe,CAAC,SAAS,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC9C,IAAI,CAAC,KAAK,IAAI,CAAC,GAAG,EAAE,CAAC;QACnB,MAAM,IAAI,KAAK,CACb,qDAAqD,CAAC,SAAS,IAAI,IAAI,CACrE,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CACjB,CAAC,WAAW,EAAE,EAAE,CAClB,CAAC;IACJ,CAAC;IACD,OAAO,EAAE,MAAM,EAAE,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,IAAI,EAAE,CAAC;AACzD,CAAC;AAED,8EAA8E;AAC9E,yCAAyC;AACzC,8EAA8E;AAE9E;;;GAGG;AACH,MAAM,UAAU,WAAW,CAAC,IAAsB;IAChD,OAAO,IAAI,CAAC,KAAK,CAAC,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,GAAG,iBAAiB,CAAC,CAAC;AAC5E,CAAC;AAWD;;;;;;;GAOG;AACH,MAAM,UAAU,mBAAmB,CAAC,MAAwB;IAC1D,MAAM,CAAC,GAAG,QAAQ,CAAC,MAAM,CAAC,CAAC;IAC3B,MAAM,QAAQ,GAAG,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;IAClC,MAAM,GAAG,GAAG,WAAW,CAAC,MAAM,CAAC,CAAC;IAChC,MAAM,SAAS,GAAG,GAAG,GAAG,iBAAiB,CAAC,CAAC,sBAAsB;IACjE,MAAM,OAAO,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,GAAG,eAAe,CAAC,GAAG,iBAAiB,CAAC,CAAC,QAAQ;IAE3E,MAAM,OAAO,GAAG,CAAC,EAAU,EAAU,EAAE,CACrC,iBAAiB,CAAC,IAAI,IAAI,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,IAAI,CAAC,CAAC;IAE7C,MAAM,GAAG,GAAG,UAAU,CAAC;IACvB,yEAAyE;IACzE,MAAM,KAAK,GAAG,uBAAuB,CAAC,OAAO,EAAE,SAAS,EAAE,QAAQ,GAAG,CAAC,GAAG,GAAG,EAAE,QAAQ,CAAC,CAAC;IACxF,MAAM,GAAG,GAAG,uBAAuB,CAAC,OAAO,EAAE,OAAO,EAAE,QAAQ,EAAE,QAAQ,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC;IACpF,OAAO,EAAE,KAAK,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC;AACpC,CAAC;AAED,8EAA8E;AAC9E,2CAA2C;AAC3C,8EAA8E;AAE9E,+DAA+D;AAC/D,MAAM,UAAU,GAAG,EAAE,CAAC;AACtB,MAAM,YAAY,GAAG,GAAG,GAAG,UAAU,CAAC;AAEtC,uEAAuE;AACvE,MAAM,CAAC,MAAM,UAAU,GAAG;IACxB,YAAY,EAAE,OAAO,EAAE,UAAU,EAAE,WAAW,EAAE,UAAU,EAAE,UAAU;IACtE,UAAU,EAAE,QAAQ,EAAE,OAAO,EAAE,OAAO,EAAE,SAAS,EAAE,QAAQ;IAC3D,UAAU,EAAE,UAAU,EAAE,OAAO,EAAE,QAAQ,EAAE,WAAW,EAAE,SAAS;IACjE,SAAS,EAAE,OAAO,EAAE,QAAQ,EAAE,QAAQ,EAAE,QAAQ,EAAE,QAAQ;IAC1D,QAAQ,EAAE,OAAO,EAAE,WAAW;CACtB,CAAC;AAEX;;;;;;GAMG;AACH,SAAS,SAAS,CAAC,IAAsB;IACvC,OAAO,YAAY,CACjB,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,GAAG,CAAC,GAAG,iBAAiB,CAAC,IAAI,EAAE,IAAI,CAAC,IAAI,CAAC,CACvE,CAAC;AACJ,CAAC;AAED;;;GAGG;AACH,MAAM,UAAU,MAAM,CAAC,IAAsB;IAC3C,OAAO,IAAI,CAAC,KAAK,CAAC,SAAS,CAAC,IAAI,CAAC,GAAG,YAAY,CAAC,CAAC;AACpD,CAAC;AAWD;;;;;;GAMG;AACH,MAAM,UAAU,cAAc,CAAC,MAAwB;IACrD,MAAM,CAAC,GAAG,QAAQ,CAAC,MAAM,CAAC,CAAC;IAC3B,MAAM,QAAQ,GAAG,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;IAClC,MAAM,GAAG,GAAG,MAAM,CAAC,MAAM,CAAC,CAAC;IAC3B,MAAM,SAAS,GAAG,GAAG,GAAG,YAAY,CAAC;IACrC,MAAM,OAAO,GAAG,CAAC,CAAC,GAAG,GAAG,CAAC,CAAC,GAAG,UAAU,CAAC,GAAG,YAAY,CAAC;IAExD,MAAM,KAAK,GAAG,CAAC,EAAU,EAAU,EAAE,CAAC,SAAS,CAAC,IAAI,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC;IAE9D,MAAM,GAAG,GAAG,UAAU,CAAC;IACvB,MAAM,KAAK,GAAG,uBAAuB,CAAC,KAAK,EAAE,SAAS,EAAE,QAAQ,GAAG,CAAC,GAAG,GAAG,EAAE,QAAQ,CAAC,CAAC;IACtF,MAAM,GAAG,GAAG,uBAAuB,CAAC,KAAK,EAAE,OAAO,EAAE,QAAQ,EAAE,QAAQ,GAAG,CAAC,GAAG,GAAG,CAAC,CAAC;IAClF,OAAO,EAAE,KAAK,EAAE,GAAG,EAAE,KAAK,EAAE,GAAG,EAAE,CAAC;AACpC,CAAC;AAED,8EAA8E;AAC9E,6BAA6B;AAC7B,8EAA8E;AAE9E;;;GAGG;AACH,MAAM,UAAU,aAAa,CAAC,IAAsB;IAClD,OAAO,IAAI,CAAC,KAAK,CAAC,UAAU,CAAC,IAAI,CAAC,GAAG,cAAc,CAAC,CAAC;AACvD,CAAC;AAED,6EAA6E;AAC7E,MAAM,UAAU,QAAQ,CAAC,IAAsB;IAC7C,OAAO,UAAU,CAAC,aAAa,CAAC,IAAI,CAAC,CAAC,CAAC;AACzC,CAAC;AAaD;;;;;;GAMG;AACH,MAAM,UAAU,gBAAgB,CAAC,MAAwB;IACvD,MAAM,CAAC,GAAG,QAAQ,CAAC,MAAM,CAAC,CAAC;IAC3B,MAAM,CAAC,GAAG,aAAa,CAAC,MAAM,CAAC,CAAC;IAChC,MAAM,WAAW,GAAG,CAAC,CAAC,GAAG,cAAc,CAAC,GAAG,GAAG,CAAC;IAC/C,MAAM,SAAS,GAAG,CAAC,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,cAAc,CAAC,GAAG,GAAG,CAAC;IACnD,MAAM,KAAK,GAAG,eAAe,CAAC,WAAW,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAClD,MAAM,GAAG,GAAG,eAAe,CAAC,SAAS,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC,CAAC;IAC9C,IAAI,CAAC,KAAK,IAAI,CAAC,GAAG,EAAE,CAAC;QACnB,MAAM,IAAI,KAAK,CACb,uDAAuD,CAAC,SAAS,IAAI,IAAI,CACvE,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CACjB,CAAC,WAAW,EAAE,EAAE,CAClB,CAAC;IACJ,CAAC;IACD,OAAO,EAAE,KAAK,EAAE,CAAC,EAAE,IAAI,EAAE,UAAU,CAAC,CAAC,CAAC,EAAE,KAAK,EAAE,KAAK,CAAC,IAAI,EAAE,GAAG,EAAE,GAAG,CAAC,IAAI,EAAE,CAAC;AAC7E,CAAC;AAOD;;;;;;;;;;;;;;;;GAgBG;AACH,MAAM,UAAU,eAAe,CAAC,MAAwB;IACtD,MAAM,CAAC,GAAG,QAAQ,CAAC,MAAM,CAAC,CAAC;IAC3B,MAAM,QAAQ,GAAG,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;IAClC,MAAM,GAAG,GAAG,UAAU,CAAC;IACvB,MAAM,QAAQ,GAAG,kBAAkB,GAAG,GAAG,CAAC;IAC1C,MAAM,IAAI,GAAG,QAAQ,GAAG,QAAQ,CAAC;IACjC,MAAM,IAAI,GAAG,QAAQ,GAAG,QAAQ,CAAC;IAEjC,MAAM,MAAM,GAAqB,EAAE,CAAC;IACpC,8CAA8C;IAC9C,MAAM,WAAW,GAAG,CAAC,CAAC,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC;IAEpD,4EAA4E;IAC5E,6EAA6E;IAC7E,6EAA6E;IAC7E,qCAAqC;IACrC,KAAK,MAAM,CAAC,IAAI,WAAW,EAAE,CAAC;QAC5B,MAAM,QAAQ,GAAG,CAAC,GAAG,cAAc,CAAC,CAAC,cAAc;QACnD,MAAM,MAAM,GAAG,CAAC,CAAC,GAAG,CAAC,CAAC,GAAG,cAAc,CAAC;QAExC,yEAAyE;QACzE,wDAAwD;QACxD,IAAI,MAAM,GAAG,IAAI,CAAC;QAClB,OAAO,MAAM,IAAI,IAAI,EAAE,CAAC;YACtB,MAAM,CAAC,GAAG,eAAe,CAAC,QAAQ,GAAG,GAAG,EAAE,IAAI,IAAI,CAAC,MAAM,CAAC,EAAE,kBAAkB,GAAG,CAAC,CAAC,CAAC;YACpF,IAAI,CAAC,CAAC;gBAAE,MAAM;YACd,IAAI,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,GAAG,IAAI;gBAAE,MAAM;YACnC,MAAM,CAAC,GAAG,eAAe,CAAC,MAAM,GAAG,GAAG,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC,CAAC;YACnD,IAAI,CAAC,CAAC;gBAAE,MAAM;YACd,yCAAyC;YACzC,IAAI,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,IAAI,IAAI,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,IAAI,EAAE,CAAC;gBACzD,MAAM,CAAC,IAAI,CAAC,EAAE,KAAK,EAAE,CAAC,CAAC,IAAI,EAAE,GAAG,EAAE,CAAC,CAAC,IAAI,EAAE,CAAC,CAAC;YAC9C,CAAC;YACD,iEAAiE;YACjE,MAAM,GAAG,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,GAAG,kBAAkB,GAAG,GAAG,GAAG,GAAG,CAAC;QAC7D,CAAC;IACH,CAAC;IACD,2EAA2E;IAC3E,MAAM,IAAI,GAAG,IAAI,GAAG,EAA0B,CAAC;IAC/C,KAAK,MAAM,EAAE,IAAI,MAAM,EAAE,CAAC;QACxB,MAAM,GAAG,GAAG,IAAI,CAAC,KAAK,CAAC,EAAE,CAAC,KAAK,CAAC,OAAO,EAAE,GAAG,IAAI,CAAC,CAAC,CAAC,kBAAkB;QACrE,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,GAAG,CAAC;YAAE,IAAI,CAAC,GAAG,CAAC,GAAG,EAAE,EAAE,CAAC,CAAC;IACxC,CAAC;IACD,OAAO,CAAC,GAAG,IAAI,CAAC,MAAM,EAAE,CAAC,CAAC,IAAI,CAAC,CAAC,CAAC,EAAE,CAAC,EAAE,EAAE,CAAC,CAAC,CAAC,KAAK,CAAC,OAAO,EAAE,GAAG,CAAC,CAAC,KAAK,CAAC,OAAO,EAAE,CAAC,CAAC;AAClF,CAAC;AA4CD,mEAAmE;AACnE,MAAM,oBAAoB,GAA0B;IAClD,QAAQ,EAAG,WAAW;IACtB,QAAQ,EAAG,eAAe;IAC1B,QAAQ,EAAG,aAAa;IACxB,SAAS,EAAE,WAAW;IACtB,SAAS,EAAE,WAAW;IACtB,QAAQ,EAAG,WAAW;IACtB,QAAQ,EAAG,UAAU;IACrB,QAAQ,EAAG,gBAAgB;IAC3B,QAAQ,EAAG,WAAW;IACtB,QAAQ,EAAG,YAAY;IACvB,SAAS,EAAE,YAAY;IACvB,SAAS,EAAE,WAAW;CACvB,CAAC;AAEF;;;;GAIG;AACH,MAAM,UAAU,WAAW,CAAC,QAAwB;IAClD,MAAM,OAAO,GAAG,QAAQ,CAAC,KAAK,CAAC,OAAO,EAAE,CAAC;IACzC,MAAM,KAAK,GAAG,QAAQ,CAAC,GAAG,CAAC,OAAO,EAAE,CAAC;IACrC,MAAM,IAAI,GAAG,KAAK,GAAG,OAAO,CAAC;IAC7B,6EAA6E;IAC7E,6EAA6E;IAC7E,qDAAqD;IACrD,MAAM,QAAQ,GAAG,IAAI,IAAI,CAAC,OAAO,GAAG,IAAI,GAAG,CAAC,CAAC,CAAC;IAC9C,MAAM,SAAS,GAAG,IAAI,CAAC,KAAK,CAAC,iBAAiB,CAAC,QAAQ,EAAE,IAAI,CAAC,IAAI,CAAC,GAAG,EAAE,CAAC,GAAG,EAAE,CAAC;IAC/E,OAAO;QACL,IAAI,EAAE,oBAAoB,CAAC,SAAS,CAAC;QACrC,SAAS;QACT,KAAK,EAAE,EAAE,KAAK,EAAE,IAAI,IAAI,CAAC,OAAO,CAAC,EAAE,GAAG,EAAE,IAAI,IAAI,CAAC,OAAO,GAAG,IAAI,GAAG,CAAC,CAAC,EAAE;QACtE,MAAM,EAAE,EAAE,KAAK,EAAE,IAAI,IAAI,CAAC,KAAK,GAAG,IAAI,GAAG,EAAE,CAAC,EAAE,GAAG,EAAE,IAAI,IAAI,CAAC,KAAK,CAAC,EAAE;KACrE,CAAC;AACJ,CAAC;AAED,8EAA8E;AAC9E,2CAA2C;AAC3C,8EAA8E;AAE9E;;;GAGG;AACH,+EAA+E;AAC/E,6EAA6E;AAC7E,4EAA4E;AAC5E,4DAA4D;AAC5D,MAAM,eAAe,GAAG,IAAI,GAAG,EAAkB,CAAC;AAElD,MAAM,UAAU,QAAQ,CAAC,IAAY;IACnC,MAAM,MAAM,GAAG,eAAe,CAAC,GAAG,CAAC,IAAI,CAAC,CAAC;IACzC,IAAI,MAAM;QAAE,OAAO,MAAM,CAAC;IAC1B,MAAM,GAAG,GAAW,EAAE,CAAC;IACvB,MAAM,OAAO,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IACzC,uEAAuE;IACvE,IAAI,MAAM,GAAG,IAAI,IAAI,CAAC,IAAI,CAAC,GAAG,CAAC,IAAI,GAAG,CAAC,EAAE,EAAE,EAAE,EAAE,CAAC,CAAC,CAAC;IAClD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,GAAG,EAAE,EAAE,CAAC,EAAE,EAAE,CAAC;QAC5B,MAAM,EAAE,GAAG,eAAe,CAAC,CAAC,EAAE,MAAM,EAAE,EAAE,CAAC,CAAC;QAC1C,IAAI,CAAC,EAAE;YAAE,MAAM;QACf,MAAM,EAAE,GAAG,EAAE,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;QAC7B,IAAI,EAAE,IAAI,OAAO;YAAE,MAAM;QACzB,IAAI,EAAE,IAAI,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC;YAAE,GAAG,CAAC,IAAI,CAAC,EAAE,CAAC,IAAI,CAAC,CAAC;QAClD,+CAA+C;QAC/C,MAAM,GAAG,IAAI,IAAI,CAAC,EAAE,GAAG,kBAAkB,GAAG,UAAU,GAAG,GAAG,CAAC,CAAC;IAChE,CAAC;IACD,eAAe,CAAC,GAAG,CAAC,IAAI,EAAE,GAAG,CAAC,CAAC;IAC/B,OAAO,GAAG,CAAC;AACb,CAAC;AAED;;;;;;;;GAQG;AACH,4EAA4E;AAC5E,MAAM,kBAAkB,GAAG,IAAI,GAAG,EAAgB,CAAC;AAEnD,MAAM,UAAU,YAAY,CAAC,IAAY,EAAE,KAAa;IACtD,MAAM,GAAG,GAAG,IAAI,GAAG,EAAE,GAAG,KAAK,CAAC;IAC9B,MAAM,MAAM,GAAG,kBAAkB,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;IAC3C,IAAI,MAAM;QAAE,OAAO,MAAM,CAAC;IAC1B,MAAM,SAAS,GAAG,YAAY,CAAC,KAAK,GAAG,EAAE,CAAC,CAAC;IAC3C,MAAM,MAAM,GAAG,CAAC,EAAU,EAAU,EAAE,CAAC,iBAAiB,CAAC,IAAI,IAAI,CAAC,EAAE,CAAC,EAAE,IAAI,CAAC,GAAG,CAAC,CAAC;IAEjF,kEAAkE;IAClE,2CAA2C;IAC3C,MAAM,OAAO,GAAG,IAAI,CAAC,GAAG,CAAC,IAAI,EAAE,CAAC,EAAE,CAAC,CAAC,CAAC;IACrC,MAAM,GAAG,GAAG,UAAU,CAAC;IACvB,IAAI,MAAM,GAAG,OAAO,CAAC;IACrB,IAAI,SAAS,GAAG,gBAAgB,CAAC,IAAI,IAAI,CAAC,MAAM,CAAC,CAAC,CAAC;IACnD,KAAK,IAAI,CAAC,GAAG,CAAC,EAAE,CAAC,IAAI,GAAG,EAAE,CAAC,EAAE,EAAE,CAAC;QAC9B,MAAM,EAAE,GAAG,OAAO,GAAG,CAAC,GAAG,GAAG,CAAC;QAC7B,MAAM,CAAC,GAAG,gBAAgB,CAAC,IAAI,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC;QACzC,IAAI,CAAC,KAAK,SAAS,IAAI,CAAC,KAAK,KAAK,EAAE,CAAC;YACnC,uEAAuE;YACvE,MAAM,MAAM,GAAG,uBAAuB,CAAC,MAAM,EAAE,SAAS,EAAE,MAAM,EAAE,EAAE,CAAC,CAAC;YACtE,kBAAkB,CAAC,GAAG,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC;YACpC,OAAO,MAAM,CAAC;QAChB,CAAC;QACD,MAAM,GAAG,EAAE,CAAC;QACZ,SAAS,GAAG,CAAC,CAAC;IAChB,CAAC;IACD,MAAM,IAAI,KAAK,CAAC,uBAAuB,KAAK,uBAAuB,IAAI,EAAE,CAAC,CAAC;AAC7E,CAAC;AA2BD,gEAAgE;AAChE,SAAS,iBAAiB,CAAC,EAAU;IACnC,MAAM,EAAE,GAAG,eAAe,CAAC,CAAC,EAAE,IAAI,IAAI,CAAC,EAAE,CAAC,EAAE,CAAC,CAAC,kBAAkB,GAAG,CAAC,CAAC,CAAC,CAAC;IACvE,IAAI,CAAC,EAAE;QAAE,MAAM,IAAI,KAAK,CAAC,2CAA2C,CAAC,CAAC;IACtE,OAAO,EAAE,CAAC,IAAI,CAAC;AACjB,CAAC;AAED,4DAA4D;AAC5D,SAAS,YAAY,CAAC,EAAU;IAC9B,4DAA4D;IAC5D,MAAM,EAAE,GAAG,eAAe,CAAC,CAAC,EAAE,IAAI,IAAI,CAAC,EAAE,GAAG,IAAI,CAAC,EAAE,kBAAkB,GAAG,CAAC,CAAC,CAAC;IAC3E,IAAI,CAAC,EAAE;QAAE,MAAM,IAAI,KAAK,CAAC,sCAAsC,CAAC,CAAC;IACjE,OAAO,EAAE,CAAC,IAAI,CAAC;AACjB,CAAC;AAED;;;;;;;;GAQG;AACH,SAAS,oBAAoB,CAAC,SAAiB,EAAE,OAAe;IAC9D,MAAM,OAAO,GAAa,EAAE,CAAC;IAC7B,MAAM,IAAI,GAAG,EAAE,GAAG,SAAS,CAAC,CAAC,OAAO;IACpC,IAAI,SAAS,GAAG,gBAAgB,CAAC,IAAI,IAAI,CAAC,SAAS,CAAC,CAAC,CAAC;IACtD,KAAK,IAAI,EAAE,GAAG,SAAS,GAAG,IAAI,EAAE,EAAE,GAAG,OAAO,EAAE,EAAE,IAAI,IAAI,EAAE,CAAC;QACzD,MAAM,CAAC,GAAG,gBAAgB,CAAC,IAAI,IAAI,CAAC,EAAE,CAAC,CAAC,CAAC;QACzC,IAAI,CAAC,KAAK,SAAS,EAAE,CAAC;YACpB,OAAO,CAAC,IAAI,CAAC,CAAC,CAAC,CAAC;YAChB,SAAS,GAAG,CAAC,CAAC;QAChB,CAAC;IACH,CAAC;IACD,0EAA0E;IAC1E,MAAM,IAAI,GAAG,gBAAgB,CAAC,IAAI,IAAI,CAAC,OAAO,GAAG,CAAC,CAAC,CAAC,CAAC;IACrD,IAAI,IAAI,KAAK,SAAS,EAAE,CAAC;QACvB,OAAO,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC;IACrB,CAAC;IACD,OAAO,OAAO,CAAC;AACjB,CAAC;AAED;;;;;;;;;;;;;;;;;GAiBG;AACH,8EAA8E;AAC9E,+EAA+E;AAC/E,4EAA4E;AAC5E,8DAA8D;AAC9D,MAAM,gBAAgB,GAAG,IAAI,GAAG,EAAsB,CAAC;AAEvD,MAAM,UAAU,UAAU,CACxB,EAAoB,EACpB,UAAoC,EAAE;IAEtC,MAAM,MAAM,GAAG,OAAO,CAAC,MAAM,IAAI,QAAQ,CAAC;IAC1C,MAAM,GAAG,GAAG,GAAG,QAAQ,CAAC,EAAE,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,IAAI,MAAM,EAAE,CAAC;IACvD,MAAM,MAAM,GAAG,gBAAgB,CAAC,GAAG,CAAC,GAAG,CAAC,CAAC;IACzC,IAAI,MAAM;QAAE,OAAO,MAAM,CAAC;IAC1B,MAAM,MAAM,GAAG,kBAAkB,CAAC,EAAE,EAAE,MAAM,CAAC,CAAC;IAC9C,IAAI,gBAAgB,CAAC,IAAI,GAAG,MAAM;QAAE,gBAAgB,CAAC,GAAG,CAAC,GAAG,EAAE,MAAM,CAAC,CAAC,CAAC,eAAe;IACtF,OAAO,MAAM,CAAC;AAChB,CAAC;AAED,SAAS,kBAAkB,CAAC,EAAoB,EAAE,MAAmB;IACnE,MAAM,CAAC,GAAG,QAAQ,CAAC,EAAE,CAAC,CAAC;IACvB,MAAM,IAAI,GAAG,CAAC,CAAC,IAAI,CAAC,OAAO,EAAE,CAAC;IAE9B,MAAM,OAAO,GAAG,iBAAiB,CAAC,IAAI,CAAC,CAAC;IACxC,MAAM,KAAK,GAAG,YAAY,CAAC,OAAO,CAAC,OAAO,EAAE,CAAC,CAAC;IAC9C,MAAM,SAAS,GAAG,OAAO,CAAC,OAAO,EAAE,CAAC;IACpC,MAAM,OAAO,GAAG,KAAK,CAAC,OAAO,EAAE,CAAC;IAEhC,MAAM,KAAK,GAAG,UAAU,CAAC,EAAE,CAAC,CAAC;IAC7B,MAAM,MAAM,GAAyB,KAAK,GAAG,GAAG,CAAC,CAAC,CAAC,QAAQ,CAAC,CAAC,CAAC,SAAS,CAAC;IAExE,MAAM,UAAU,GAAG,oBAAoB,CAAC,SAAS,EAAE,OAAO,CAAC,CAAC;IAE5D,IAAI,WAAmB,CAAC;IACxB,IAAI,MAAM,GAAG,KAAK,CAAC;IACnB,IAAI,MAAM,GAAG,KAAK,CAAC;IAEnB,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QAC5B,WAAW,GAAG,UAAU,CAAC,CAAC,CAAC,CAAC;IAC9B,CAAC;SAAM,IAAI,UAAU,CAAC,MAAM,KAAK,CAAC,EAAE,CAAC;QACnC,2DAA2D;QAC3D,MAAM,GAAG,IAAI,CAAC;QACd,MAAM,SAAS,GAAG,YAAY,CAAC,OAAO,CAAC,CAAC;QACxC,MAAM,cAAc,GAAG,oBAAoB,CAAC,OAAO,EAAE,SAAS,CAAC,OAAO,EAAE,CAAC,CAAC;QAC1E,6EAA6E;QAC7E,WAAW,GAAG,cAAc,CAAC,MAAM,GAAG,CAAC,CAAC,CAAC,CAAC,cAAc,CAAC,CAAC,CAAC;YACzD,2DAA2D;YAC3D,CAAC,CAAC,gBAAgB,CAAC,IAAI,IAAI,CAAC,OAAO,CAAC,CAAC,CAAC;IAC1C,CAAC;SAAM,CAAC;QACN,sEAAsE;QACtE,MAAM,GAAG,IAAI,CAAC;QACd,WAAW,GAAG,UAAU,CAAC,CAAC,CAAC,CAAC;IAC9B,CAAC;IAED,MAAM,UAAU,GAAG,iBAAiB,CAAC,WAAW,CAAC,CAAC;IAClD,MAAM,MAAM,GAAG,MAAM,CAAC,CAAC,CAAC,SAAS,CAAC,CAAC,CAAC,EAAE,CAAC;IACvC,MAAM,WAAW,GAAG,GAAG,MAAM,GAAG,UAAU,EAAE,CAAC;IAE7C,4DAA4D;IAC5D,MAAM,eAAe,GACnB,MAAM,KAAK,SAAS,CAAC,CAAC,CAAC,CAAC,WAAW,GAAG,CAAC,CAAC,GAAG,EAAE,CAAC,CAAC,CAAC,WAAW,CAAC;IAC9D,MAAM,cAAc,GAAG,iBAAiB,CAAC,eAAe,CAAC,CAAC;IAC1D,MAAM,eAAe,GAAG,GAAG,MAAM,GAAG,cAAc,EAAE,CAAC;IAErD,MAAM,KAAK,GAAG,MAAM,KAAK,YAAY,CAAC,CAAC,CAAC,eAAe,CAAC,CAAC,CAAC,WAAW,CAAC;IACtE,MAAM,SAAS,GAAG,MAAM,KAAK,YAAY,CAAC,CAAC,CAAC,eAAe,CAAC,CAAC,CAAC,WAAW,CAAC;IAE1E,OAAO;QACL,KAAK;QACL,SAAS;QACT,MAAM;QACN,MAAM;QACN,MAAM;QACN,WAAW;QACX,WAAW;QACX,eAAe;KAChB,CAAC;AACJ,CAAC"}