hgg-core 0.1.0.0 → 0.2.0.0

raw patch · 39 files changed

+14362/−7144 lines, 39 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +15/−0
• hgg-core.cabal +2/−2
• src/Graphics/Hgg/Color.hs +46/−13
• src/Graphics/Hgg/Color/Named.hs +11/−2
• src/Graphics/Hgg/DAG.hs +249/−100
• src/Graphics/Hgg/DAG/Internal/Sugiyama.hs +634/−227
• src/Graphics/Hgg/Easy.hs +35/−14
• src/Graphics/Hgg/Layout.hs +2379/−1306
• src/Graphics/Hgg/Layout/Grid.hs +73/−30
• src/Graphics/Hgg/Layout/RangeOf.hs +200/−147
• src/Graphics/Hgg/Math/Griddata.hs +87/−37
• src/Graphics/Hgg/Math/Special.hs +46/−18
• src/Graphics/Hgg/Palette.hs +61/−21
• src/Graphics/Hgg/Primitive.hs +68/−23
• src/Graphics/Hgg/Render.hs +30/−15
• src/Graphics/Hgg/Render/Basic.hs +140/−70
• src/Graphics/Hgg/Render/Common.hs +754/−199
• src/Graphics/Hgg/Render/Distribution.hs +208/−212
• src/Graphics/Hgg/Render/EdgeRoute.hs +490/−181
• src/Graphics/Hgg/Render/Layer.hs +584/−230
• src/Graphics/Hgg/Render/MCMC.hs +137/−107
• src/Graphics/Hgg/Render/Special.hs +301/−112
• src/Graphics/Hgg/Render/Statistical.hs +221/−83
• src/Graphics/Hgg/Spec.hs +59/−13
• src/Graphics/Hgg/Spec/Axis.hs +110/−44
• src/Graphics/Hgg/Spec/Bake.hs +23/−8
• src/Graphics/Hgg/Spec/Column.hs +70/−23
• src/Graphics/Hgg/Spec/Concat.hs +35/−10
• src/Graphics/Hgg/Spec/Constructors.hs +721/−231
• src/Graphics/Hgg/Spec/CustomMark.hs +64/−27
• src/Graphics/Hgg/Spec/Decoration.hs +40/−24
• src/Graphics/Hgg/Spec/Layer.hs +157/−77
• src/Graphics/Hgg/Spec/Mark.hs +295/−76
• src/Graphics/Hgg/Spec/Setters.hs +1338/−639
• src/Graphics/Hgg/Spec/Theme.hs +282/−44
• src/Graphics/Hgg/Spec/Visual.hs +114/−34
• src/Graphics/Hgg/Unit.hs +103/−39
• src/Graphics/Hgg/Validate.hs +248/−42
• test/Spec.hs +3932/−2664

@@ -1,5 +1,20 @@ # Changelog for `hgg-core` +## 0.2.0.0 — 2026-08-13++- **Breaking**: theme constructors `ThemeCanvas` / `ThemeCanvasDark` renamed+  to `ThemeParchment` / `ThemeParchmentDark`.+- Generalized coordinate systems: ternary coordinates (`ternaryScatter` /+  `ternaryLine` marks, `encZ` channel), polar start angle / direction /+  rotation, polygon clipping; crossbar renders through the projection layer+  (correct in polar coordinates).+- Theme extensions (cowplot parity): base-size scaling, font family, plot+  margins, subplot relative widths and tags, three new presets; grid and+  axis line widths are now theme-controlled.+- Fixes: facets now split inline (non-DataFrame) layer data; boxplot+  outliers are included in the axis domain.+- Bilingual (English / Japanese) haddock across the public API.+ ## 0.1.0.0 — 2026-07-18  First public release on Hackage.

@@ -1,6 +1,6 @@ cabal-version:      3.0 name:               hgg-core-version:            0.1.0.0+version:            0.2.0.0 extra-doc-files:    CHANGELOG.md synopsis:           Core of hgg: VisualSpec / PlotData / Layout / Render primitives description:@@ -8,7 +8,7 @@   VisualSpec ADT, PlotData (Vector-based columns), pure-function layout   computation, and a Renderer abstraction that emits a list of drawing   Primitives.-  .+   Dependencies are kept to base / vector / text / containers only;   backends (SVG / PDF / Rasterific / LaTeX / ...) live in separate   packages.

@@ -1,16 +1,26 @@ -- | -- Module      : Graphics.Hgg.Color--- Description : 型安全な固定色 (RGB 全色を単一構成子で内包、Phase 30)+-- Description : Type-safe named colors, with the full RGB space in one constructor -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause -----   RGB 全色 (256³ = 16,777,216) を単一構成子 @Color@ で連続的に内包し、+--   [日本語]: RGB 全色 (256³ = 16,777,216) を単一構成子 @Color@ で連続的に内包し、 --   固定色のタイポをコンパイルエラーに落とす。 名前付き 657 色は --   @Graphics.Hgg.Color.Named@ にトップレベル束縛として隔離する。 -- --   ★ワイヤ形式は従来通り Text: @ColorEnc@ の @ColorStatic !Text@ は据置で、 --     固定色 combinator が入口で 'toCss' 変換して格納する。 → Render / PS --     canvas / JSON は無改修 (PS は Color 型を知らず解決済み Text のみ見る)。+--   [English]: The full RGB space (256³ = 16,777,216 colors) is covered+--   continuously by the single constructor @Color@, turning typos in named+--   colors into compile errors. The 657 named colors are isolated as+--   top-level bindings in @Graphics.Hgg.Color.Named@.+--+--   The wire format is Text as before: @ColorEnc@'s @ColorStatic !Text@ is+--   kept unchanged, and named-color combinators convert via 'toCss' at the+--   entry point and store the result. Render / the PureScript canvas / JSON+--   therefore need no changes (PureScript does not know the Color type and+--   only ever sees the already-resolved Text). {-# LANGUAGE DeriveGeneric     #-} {-# LANGUAGE OverloadedStrings #-} @@ -36,7 +46,9 @@ -- 型 -- =========================================================================== --- | 固定色。 単一構成子で RGB 全色を張る (各成分 0–255・Word8 で範囲保証)。+-- | [日本語]: 固定色。 単一構成子で RGB 全色を張る (各成分 0–255・Word8 で範囲保証)。+--   [English]: A named/fixed color. A single constructor spans the full RGB+--   space (each component ranges 0–255, guaranteed by Word8). data Color = Color !Word8 !Word8 !Word8   deriving (Show, Eq, Ord, Generic) @@ -44,12 +56,18 @@ -- 構築 / 変換 -- =========================================================================== --- | RGB 成分から構築 ('Color' と同義の読みやすい別名)。+-- | [日本語]: RGB 成分から構築 ('Color' と同義の読みやすい別名)。+--   [English]: Constructs a color from its RGB components (a readable alias+--   synonymous with 'Color'). rgb :: Word8 -> Word8 -> Word8 -> Color rgb = Color --- | @"#rrggbb"@ / @"#rgb"@ (先頭 @#@ は省略可) を解釈。 不正は 'Nothing'。---   3 桁省略形は各桁を 2 倍展開 (CSS 同様 @#f80@ → @#ff8800@)。 total 版。+-- | [日本語]: @"#rrggbb"@ / @"#rgb"@ (先頭 @#@ は省略可) を解釈。 不正は+--   'Nothing'。 3 桁省略形は各桁を 2 倍展開 (CSS 同様 @#f80@ → @#ff8800@)。+--   total 版。+--   [English]: Parses @"#rrggbb"@ / @"#rgb"@ (the leading @#@ is optional).+--   Invalid input yields 'Nothing'. The 3-digit shorthand expands each digit+--   twice, as in CSS (@#f80@ becomes @#ff8800@). A total function. fromHexMaybe :: Text -> Maybe Color fromHexMaybe raw =   case map toLower (T.unpack (T.dropWhile (== '#') (T.strip raw))) of@@ -63,15 +81,26 @@     byte hi lo = fromIntegral (digitToInt hi * 16 + digitToInt lo)     dup c      = byte c c --- | 'fromHexMaybe' の partial 版。 不正入力で 'error' (リテラル用途で簡潔)。+-- | [日本語]: 'fromHexMaybe' の partial 版。 不正入力で 'error' (リテラル用途で簡潔)。+--   [English]: The partial version of 'fromHexMaybe'. Invalid input causes+--   an 'error' (kept concise for literal use). fromHex :: Text -> Color fromHex t = fromMaybe err (fromHexMaybe t)   where err = error ("Graphics.Hgg.Color.fromHex: invalid hex color " ++ show t) --- | @"#rrggbbaa"@ / @"#rgba"@ (RGBA・先頭 @#@ 省略可) を (色, 不透明度 0–1) に分解。---   不透明度は @aa/255@ (CSS 8 桁 hex / 4 桁省略形)。 alpha を持たない 6/3 桁は---   alpha = 1.0 で素通し ('fromHexMaybe' に委譲)。 不正は 'Nothing'。 total 版。---   ★'Color' は RGB のみゆえ alpha を分離して返す ('colorRGBA' が @color c <> alpha a@ に展開)。+-- | [日本語]: @"#rrggbbaa"@ / @"#rgba"@ (RGBA・先頭 @#@ 省略可) を (色, 不透明度+--   0–1) に分解。 不透明度は @aa/255@ (CSS 8 桁 hex / 4 桁省略形)。 alpha を+--   持たない 6/3 桁は alpha = 1.0 で素通し ('fromHexMaybe' に委譲)。 不正は+--   'Nothing'。 total 版。+--   ★'Color' は RGB のみゆえ alpha を分離して返す (@colorRGBA@ が @color c <>+--   alpha a@ に展開)。+--   [English]: Splits @"#rrggbbaa"@ / @"#rgba"@ (RGBA, leading @#@ optional)+--   into (color, opacity 0–1). Opacity is @aa/255@ (CSS 8-digit hex or the+--   4-digit shorthand). The 6/3-digit forms without alpha pass through with+--   alpha = 1.0 (delegated to 'fromHexMaybe'). Invalid input yields+--   'Nothing'. A total function.+--   Since 'Color' is RGB-only, alpha is returned separately (@colorRGBA@+--   expands it to @color c <> alpha a@). fromHexAMaybe :: Text -> Maybe (Color, Double) fromHexAMaybe raw =   case map toLower (T.unpack (T.dropWhile (== '#') (T.strip raw))) of@@ -87,12 +116,16 @@     dup c      = byte c c     alphaOf w  = fromIntegral w / 255 --- | 'fromHexAMaybe' の partial 版。 不正入力で 'error' (リテラル用途で簡潔)。+-- | [日本語]: 'fromHexAMaybe' の partial 版。 不正入力で 'error' (リテラル用途で簡潔)。+--   [English]: The partial version of 'fromHexAMaybe'. Invalid input causes+--   an 'error' (kept concise for literal use). fromHexA :: Text -> (Color, Double) fromHexA t = fromMaybe err (fromHexAMaybe t)   where err = error ("Graphics.Hgg.Color.fromHexA: invalid hex color " ++ show t) --- | CSS 文字列 @"#rrggbb"@ に整形 (各成分 2 桁・小文字 hex)。+-- | [日本語]: CSS 文字列 @"#rrggbb"@ に整形 (各成分 2 桁・小文字 hex)。+--   [English]: Formats as the CSS string @"#rrggbb"@ (each component as 2+--   lowercase hex digits). toCss :: Color -> Text toCss (Color r g b) = T.pack ('#' : pad r ++ pad g ++ pad b)   where

@@ -1,15 +1,24 @@ -- | -- Module      : Graphics.Hgg.Color.Named--- Description : R colors() の 657 名前付き色 (機械生成、Phase 30)+-- Description : The 657 named colors from R's colors() (machine-generated) -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause -----   ★このファイルは機械生成物 (scripts/gen-named-colors.py)。 手で編集しない。+--   [日本語]: ★このファイルは機械生成物 (scripts/gen-named-colors.py)。 手で編集しない。 --   一次ソース = R src/library/grDevices/src/colors.c の ColorDataBase[] --   (= R colors() の実体・657 色)。 値は捏造せず colors.c の hex から導出。 -- --   タイポは文字列ルックアップでなくトップレベル束縛ゆえコンパイルエラーで防げる。 --   grey/gray の両綴り・連番 (grey0..grey100 等) も R に倣って保持。+--   [English]: This file is machine-generated (scripts/gen-named-colors.py).+--   Do not edit it by hand. The primary source is R's+--   src/library/grDevices/src/colors.c, specifically ColorDataBase[] (the+--   backing data for R's colors(), 657 colors). Values are derived from the+--   hex codes in colors.c, never invented.+--+--   Because these are top-level bindings rather than a string lookup, typos+--   are caught as compile errors. Both the grey/gray spellings and the+--   numbered series (grey0..grey100, etc.) are kept, following R. {-# LANGUAGE OverloadedStrings #-}  module Graphics.Hgg.Color.Named where

@@ -1,20 +1,39 @@ -- | -- Module      : Graphics.Hgg.DAG--- Description : algebraic-graphs 流 DAG builder + layout (Phase 26 §E-6)+-- Description : algebraic-graphs-style DAG builder and layout -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- DAG (directed graph) を **polymorphic な Graph a + 代数演算** で構築し、--- Graphics.Hgg.Spec.DAGSpec に変換して描画 layer を作る。 algebraic-graphs--- (Mokhov) と同じ思想:+-- [日本語]: DAG (directed graph) を __polymorphic な Graph a + 代数演算__ で構築し、+--   Graphics.Hgg.Spec.DAGSpec に変換して描画 layer を作る。 algebraic-graphs+--   (Mokhov) と同じ思想: -----   * 'overlay' / '(<>)' ─ graph を並置 (= 和集合)---   * 'connect' / '(~>)' ─ 全 edge を貼る---   * 'vertex'           ─ 単一 node---   * 'empty'            ─ 何も無い+--     * 'overlay' / '(<>)' ─ graph を並置 (= 和集合)+--     * 'connect' / '(~>)' ─ 全 edge を貼る+--     * 'vertex'           ─ 単一 node+--     * 'empty'            ─ 何も無い ----- 例:+--   node 属性 (= label / kind) は 'ToDAGNode' 型クラスで抽出。 'Text' は全 latent+--   default、 record や tuple で明示も可。 幽霊型 module (= 将来+--   @Graphics.Hgg.DAG.Typed@) も instance 追加だけで対応。 --+-- [English]: Builds a DAG (directed graph) using a __polymorphic Graph a__+--   plus algebraic operations, and converts it to a+--   Graphics.Hgg.Spec.DAGSpec to produce a rendering layer. Follows the+--   same philosophy as algebraic-graphs (Mokhov):+--+--     * 'overlay' / '(<>)' — juxtaposes graphs (union)+--     * 'connect' / '(~>)' — connects every pair with an edge+--     * 'vertex'           — a single node+--     * 'empty'            — the empty graph+--+--   Node attributes (label / kind) are extracted through the 'ToDAGNode'+--   typeclass. 'Text' defaults to fully latent nodes; records or tuples can+--   spell them out explicitly. A phantom-typed module (a possible future+--   @Graphics.Hgg.DAG.Typed@) can be supported by adding just an instance.+--+-- Example:+-- -- > hbmModel :: Graph Text -- > hbmModel -- >   =  "alpha" ~> "sigma" ~> "y"@@ -26,10 +45,6 @@ -- > spec = purePlot -- >   <> dagPlot hbmModel -- >   <> title "HBM model"------ node 属性 (= label / kind) は 'ToDAGNode' 型クラスで抽出。 'Text' は全 latent--- default、 record や tuple で明示も可。 幽霊型 module (= 将来--- @Graphics.Hgg.DAG.Typed@) も instance 追加だけで対応。 {-# LANGUAGE DeriveFunctor #-} {-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE OverloadedStrings #-}@@ -79,13 +94,21 @@ -- Graph algebra (= algebraic-graphs / Mokhov) -- =========================================================================== --- | 代数的 DAG。 'a' は vertex の identity (任意型)。+-- | [日本語]: 代数的 DAG。 @a@ は vertex の identity (任意型)。 -----   * 'Empty'   ─ 空---   * 'Vertex'  ─ 単一 node---   * 'Overlay' ─ 2 graph を並置 (= 和集合、 edges もそのまま)---   * 'Connect' ─ 2 graph の全ペアに edge を張る (= 第 1 の全 vertex から---                 第 2 の全 vertex へ)+--     * 'Empty'   ─ 空+--     * 'Vertex'  ─ 単一 node+--     * 'Overlay' ─ 2 graph を並置 (= 和集合、 edges もそのまま)+--     * 'Connect' ─ 2 graph の全ペアに edge を張る (= 第 1 の全 vertex から+--                   第 2 の全 vertex へ)+--+--   [English]: An algebraic DAG. @a@ is the vertex identity (any type).+--+--     * 'Empty'   — empty+--     * 'Vertex'  — a single node+--     * 'Overlay' — juxtaposes two graphs (union; edges are kept as-is)+--     * 'Connect' — connects every pair between two graphs (an edge from+--                   every vertex of the first to every vertex of the second) data Graph a   = Empty   | Vertex   !a@@ -108,17 +131,23 @@ connect :: Graph a -> Graph a -> Graph a connect = Connect --- | edge を貼る軽量 operator。 `<>` (infixr 6) より tight に binding (= 7) して--- `a ~> b <> c ~> d` が `(a ~> b) <> (c ~> d)` と parse される。+-- | [日本語]: edge を貼る軽量 operator。 `<>` (infixr 6) より tight に binding (= 7) して+--   `a ~> b <> c ~> d` が `(a ~> b) <> (c ~> d)` と parse される。+--   [English]: A lightweight operator for adding an edge. Binds tighter (= 7)+--   than `<>` (infixr 6), so `a ~> b <> c ~> d` parses as+--   `(a ~> b) <> (c ~> d)`. infix 7 ~> (~>) :: a -> a -> Graph a a ~> b = Connect (Vertex a) (Vertex b) --- | edge リストから graph を作る (= 補助 helper、 既存パターンの移行用)。+-- | [日本語]: edge リストから graph を作る (= 補助 helper、 既存パターンの移行用)。+--   [English]: Builds a graph from a list of edges (a helper for migrating+--   from an existing edge-list pattern). edges :: [(a, a)] -> Graph a edges es = foldl' Overlay Empty [ Connect (Vertex f) (Vertex t) | (f, t) <- es ] --- | vertex 群を overlay。+-- | [日本語]: vertex 群を overlay。+--   [English]: Overlays a list of vertices. vertices :: [a] -> Graph a vertices = foldl' Overlay Empty . map Vertex @@ -126,20 +155,28 @@ -- ToDAGNode (= attribute 抽出 type class) -- =========================================================================== --- | Graph の vertex 型 'a' から (id, label, kind) を取り出す。--- ユーザ独自 newtype / 幽霊型でも instance 追加するだけで dagPlot に渡せる。+-- | [日本語]: Graph の vertex 型 @a@ から (id, label, kind) を取り出す。+--   ユーザ独自 newtype / 幽霊型でも instance 追加するだけで dagPlot に渡せる。+--   [English]: Extracts (id, label, kind) from a Graph's vertex type @a@. A+--   user's own newtype or phantom type can be passed to dagPlot just by+--   adding an instance. class Ord a => ToDAGNode a where   toDAGNode :: a -> (Text, Text, DAGNodeKind) --- | 最小 case: Text を id 兼 label、 kind = NodeLatent (default)。+-- | [日本語]: 最小 case: Text を id 兼 label、 kind = NodeLatent (default)。+--   [English]: The minimal case: 'Text' serves as both id and label, with+--   kind defaulting to NodeLatent. instance ToDAGNode Text where   toDAGNode t = (t, t, NodeLatent) --- | (id, label, kind) tuple をそのまま。+-- | [日本語]: (id, label, kind) tuple をそのまま。+--   [English]: An (id, label, kind) tuple, used as-is. instance ToDAGNode (Text, Text, DAGNodeKind) where   toDAGNode = id --- | DAGNode を直接 vertex として渡す場合 (= 位置情報含む、 LayoutManual 用)。+-- | [日本語]: DAGNode を直接 vertex として渡す場合 (= 位置情報含む、 LayoutManual 用)。+--   [English]: For passing a DAGNode directly as a vertex (carries position+--   information, used with LayoutManual). instance ToDAGNode DAGNode where   toDAGNode n = (dnId n, dnLabel n, dnKind n) @@ -147,13 +184,16 @@ -- Graph → Layer 変換 (= dagPlot) -- =========================================================================== --- | algebraic graph を VisualSpec の Layer に。 layout は階層 (= 推奨 default)。+-- | [日本語]: algebraic graph を VisualSpec の Layer に。 layout は階層 (= 推奨 default)。+--   [English]: Converts an algebraic graph into a VisualSpec Layer. The+--   layout is hierarchical (the recommended default). -- -- > dagPlot ("a" ~> "b" ~> "c" <> "a" ~> "c") dagPlot :: ToDAGNode a => Graph a -> Layer dagPlot g = dagPlotWith LayoutHierarchical g --- | layout algorithm を明示指定。+-- | [日本語]: layout algorithm を明示指定。+--   [English]: Explicitly specifies the layout algorithm. dagPlotWith :: ToDAGNode a => DAGLayoutAlgorithm -> Graph a -> Layer dagPlotWith algo g =   let vs = toVertices g@@ -169,9 +209,13 @@         LayoutHierarchical -> layoutHierarchicalFull nodeList edgeList   in dagFromLists positioned routedEdges algo --- | Phase 1 A6: plate (= cluster) を伴う Graph DSL 用 helper。--- LayoutHierarchical で plate-aware ordering (= 同 plate メンバが rank 内で--- contiguous) を適用する。 plates 順は外側 → 内側 (= nested plate 用)。+-- | [日本語]: plate (= cluster) を伴う Graph DSL 用 helper。+--   LayoutHierarchical で plate-aware ordering (= 同 plate メンバが rank 内で+--   contiguous) を適用する。 plates 順は外側 → 内側 (= nested plate 用)。+--   [English]: A Graph DSL helper carrying plates (clusters). Applies+--   plate-aware ordering under LayoutHierarchical, keeping members of the+--   same plate contiguous within a rank. The plates order runs outermost to+--   innermost (for nested plates). dagPlotWithPlates :: ToDAGNode a => Graph a -> [DAGPlate] -> Layer dagPlotWithPlates g plates =   let vs = toVertices g@@ -184,10 +228,16 @@         layoutHierarchicalFullWithPlates nodeList edgeList plates   in dagFromListsWithPlates positioned routedEdges LayoutHierarchical plates --- | Phase 53 A3: rank group (= graphviz @rank=same@) を伴う Graph DSL 用 helper。--- 各 group の member id は同一 rank に置かれ、 group 内の edge は flat edge--- (= 同 rank edge) として P3e 順序制約 (左→右) + P7b 水平/迂回 spline で描画される。--- rank group は layout 制約であり出力 DAGSpec には載らない (= 計画 md A3-1)。+-- | [日本語]: rank group (= graphviz @rank=same@) を伴う Graph DSL 用 helper。+--   各 group の member id は同一 rank に置かれ、 group 内の edge は flat edge+--   (= 同 rank edge) として順序制約 (左→右) + 水平/迂回 spline で描画される。+--   rank group は layout 制約であり出力 DAGSpec には載らない。+--   [English]: A Graph DSL helper carrying rank groups (graphviz's+--   @rank=same@). Every member id of a group is placed on the same rank, and+--   an edge within a group is drawn as a flat edge (a same-rank edge) using+--   an ordering constraint (left to right) plus a horizontal / detour+--   spline. Rank groups are a layout-time constraint and are not carried+--   into the output DAGSpec. -- -- > dagPlotWithRankGroups ("a" ~> "b" <> "a" ~> "c") [["b", "c"]] dagPlotWithRankGroups :: ToDAGNode a => Graph a -> [[Text]] -> Layer@@ -202,7 +252,9 @@         layoutHierarchicalFullWithConstraints nodeList edgeList [] rankGroups   in dagFromLists positioned routedEdges LayoutHierarchical --- | Graph 構造から vertex 列を抽出 (= 重複あり、 順序保持)。+-- | [日本語]: Graph 構造から vertex 列を抽出 (= 重複あり、 順序保持)。+--   [English]: Extracts the list of vertices from the Graph structure+--   (duplicates allowed, order preserved). toVertices :: Graph a -> [a] toVertices g = go g []   where@@ -211,7 +263,9 @@     go (Overlay x y)    acc = go x (go y acc)     go (Connect x y)    acc = go x (go y acc) --- | Graph 構造から edge 列を抽出 (= Connect が出すクロス積)。+-- | [日本語]: Graph 構造から edge 列を抽出 (= Connect が出すクロス積)。+--   [English]: Extracts the list of edges from the Graph structure (the+--   cross product produced by Connect). toEdges :: Graph a -> [(a, a)] toEdges g = go g   where@@ -227,25 +281,47 @@ -- Layout: 階層 (Sugiyama 簡易版) -- =========================================================================== --- | 階層 layout (= Sugiyama framework、 Phase 1 で network simplex rank assignment に置換)。+-- | [日本語]: 階層 layout (= Sugiyama framework、 network simplex rank assignment に置換済)。 -----   1. Step 2 'assignRanks' (= network simplex framework、 内部 'longestPathRanking' で初期解、 一様 δ=ω=1 では即時最適) で各 node の rank を決定---   2. (Phase 1 未実装) Step 3 Order assignment、 Step 4 Coordinate assignment は今は alphabetical 等間隔 (= A3/A4 で置換予定)---   3. y は rank に比例 (= 上から下)+--     1. Step 2 'Graphics.Hgg.DAG.Internal.Sugiyama.assignRanks' (= network simplex framework、 内部 'Graphics.Hgg.DAG.Internal.Sugiyama.longestPathRanking' で初期解、 一様 δ=ω=1 では即時最適) で各 node の rank を決定+--     2. (未実装) Step 3 Order assignment、 Step 4 Coordinate assignment は今は alphabetical 等間隔 (= 将来置換予定)+--     3. y は rank に比例 (= 上から下) ----- domain 座標で返す (= 0..1 正規化)。 Render 側で scale 適用。+--   domain 座標で返す (= 0..1 正規化)。 Render 側で scale 適用。+--+--   [English]: Hierarchical layout (Sugiyama framework; rank assignment has+--   been replaced with network simplex).+--+--     1. Step 2 'Graphics.Hgg.DAG.Internal.Sugiyama.assignRanks' (the network simplex framework; internally+--        'Graphics.Hgg.DAG.Internal.Sugiyama.longestPathRanking' provides the initial solution, which is+--        already optimal for the uniform case δ=ω=1) determines each node's+--        rank+--     2. (not yet implemented) Step 3 Order assignment and Step 4+--        Coordinate assignment currently use alphabetical, evenly-spaced+--        placement (planned to be replaced later)+--     3. y is proportional to rank (top to bottom)+--+--   Returns domain coordinates (normalized to 0..1); scale is applied on the+--   Render side. layoutHierarchical :: [DAGNode] -> [DAGEdge] -> [DAGNode] layoutHierarchical nodes es = fst (layoutHierarchicalFull nodes es) --- | 階層 layout の full 版 (= plate 無し)。 'layoutHierarchicalFullWithPlates' の薄 wrapper。+-- | [日本語]: 階層 layout の full 版 (= plate 無し)。 'layoutHierarchicalFullWithPlates' の薄 wrapper。+--   [English]: The full version of the hierarchical layout (no plates); a+--   thin wrapper over 'layoutHierarchicalFullWithPlates'. layoutHierarchicalFull   :: [DAGNode] -> [DAGEdge] -> ([DAGNode], [DAGEdge]) layoutHierarchicalFull nodes es =   layoutHierarchicalFullWithPlates nodes es [] --- | Phase 53 A3: rank group (= graphviz @rank=same@) も受ける full 版。--- rank group は**入力時 layout 制約**で出力 spec には載せない (layout は builder--- 時のみ実行され、 JSON 復元後の再 layout 経路が無いことを実測済 = 計画 md A3-1)。+-- | [日本語]: rank group (= graphviz @rank=same@) も受ける full 版。+--   rank group は __入力時 layout 制約__ で出力 spec には載せない (layout は builder+--   時のみ実行され、 JSON 復元後の再 layout 経路が無いことを実測済)。+--   [English]: The full version that also accepts rank groups (graphviz's+--   @rank=same@). A rank group is an __input-time layout constraint__ and is+--   not carried into the output spec (layout only runs at builder time, and+--   there is no re-layout path after JSON restoration — verified by+--   measurement). layoutHierarchicalFullWithConstraints   :: [DAGNode] -> [DAGEdge] -> [DAGPlate] -> [[Text]] -> ([DAGNode], [DAGEdge]) layoutHierarchicalFullWithConstraints nodes es plates rankGroups =@@ -254,40 +330,63 @@           StageRaw nodes es plates rankGroups   in (ns, es') --- | Phase 1 A6 plate-aware: node の (x, y) 配置 + edge の 'dePath' を同時計算。--- 'plates' が空でなければ post-process で同 plate メンバを rank 内 contiguous に。--- 渡された plates 順を尊重 (= nested 用、 外側 → 内側)。+-- | [日本語]: plate-aware: node の (x, y) 配置 + edge の 'dePath' を同時計算。+--   @plates@ が空でなければ post-process で同 plate メンバを rank 内 contiguous に。+--   渡された plates 順を尊重 (= nested 用、 外側 → 内側)。 ----- Phase 39 B1: 旧一枚岩 'let' を rank → order → coord → route の段階関数に分離。--- 各段の中身 (assignRanks 等の呼出) は不変、 段間は record の包み直しのみ--- (= 出力ビット不変、 golden 回帰で担保)。 段階型 (= 'StageRaw' 〜 'StageRouted')--- が「どの段で何が産出されるか」 (chainMap = order 段, coordMap = coord 段) を--- 型に明示し、 B2 (routing module 独立) の入力契約の土台にする。+--   旧一枚岩 'let' を rank → order → coord → route の段階関数に分離。+--   各段の中身 (assignRanks 等の呼出) は不変、 段間は record の包み直しのみ+--   (= 出力ビット不変、 golden 回帰で担保)。 段階型 (= 'StageRaw' 〜 'StageRouted')+--   が「どの段で何が産出されるか」 (chainMap = order 段, coordMap = coord 段) を+--   型に明示し、 将来 routing module を独立させる際の入力契約の土台にする。+--+--   [English]: plate-aware: computes a node's (x, y) placement and an edge's+--   'dePath' together. When @plates@ is non-empty, a post-process step keeps+--   members of the same plate contiguous within a rank. The given plates+--   order is respected (outermost to innermost, for nesting).+--+--   The old monolithic 'let' was split into stage functions:+--   rank → order → coord → route. The content of each stage (calls such as+--   assignRanks) is unchanged; only the record is re-wrapped between stages+--   (output is bit-identical, guarded by golden regression tests). The stage+--   types ('StageRaw' through 'StageRouted') make explicit in the type+--   system which stage produces what (chainMap at the order stage, coordMap+--   at the coord stage), laying the groundwork for the input contract of a+--   future independent routing module. layoutHierarchicalFullWithPlates   :: [DAGNode] -> [DAGEdge] -> [DAGPlate] -> ([DAGNode], [DAGEdge]) layoutHierarchicalFullWithPlates nodes es plates =   layoutHierarchicalFullWithConstraints nodes es plates []  -- ===========================================================================--- Phase 39 B1: layout pipeline の段階型と段階関数+-- layout pipeline の段階型と段階関数 -- =========================================================================== --- | 段階0: 入力そのまま (rank 前)。 後段で nodes (= 最終配置) / es (= routedE・--- recenter) / plates (= banding・extent) を参照するため全段で保持する。+-- | [日本語]: 段階0: 入力そのまま (rank 前)。 後段で nodes (= 最終配置) / es (= routedE・+--   recenter) / plates (= banding・extent) を参照するため全段で保持する。+--   [English]: Stage 0: the input, unchanged (before ranking). Kept through+--   every stage because later stages reference nodes (final placement), es+--   (routedE / recenter), and plates (banding / extent). data StageRaw = StageRaw   { srNodes      :: [DAGNode]   , srEdges      :: [DAGEdge]   , srPlates     :: [DAGPlate]-  , srRankGroups :: [[Text]]   -- ^ Phase 53 A3: graphviz rank=same 相当の同 rank group+  , srRankGroups :: [[Text]]+    -- ^ [日本語]: graphviz rank=same 相当の同 rank group。+    --   [English]: A same-rank group, equivalent to graphviz's rank=same.   } --- | 段階1: rank 割当済 (tightenSourceRanks 反映済) LayoutGraph。+-- | [日本語]: 段階1: rank 割当済 (tightenSourceRanks 反映済) LayoutGraph。+--   [English]: Stage 1: the LayoutGraph after rank assignment (with+--   tightenSourceRanks applied). data StageRanked = StageRanked   { rkInput :: StageRaw   , rkGraph :: LayoutGraph   } --- | 段階2: order 確定 + 元 edge → chain map (= skip edge routing 用) が産出される段。+-- | [日本語]: 段階2: order 確定 + 元 edge → chain map (= skip edge routing 用) が産出される段。+--   [English]: Stage 2: the stage that finalizes order and produces the+--   original-edge-to-chain map (used for skip-edge routing). data StageOrdered = StageOrdered   { odInput :: StageRaw   , odGraph :: LayoutGraph@@ -295,7 +394,9 @@   , odChain :: Map.Map (Text, Text) [Text]   } --- | 段階3: x 座標確定 (route 前)。 coordMap (= banding + recenter 反映済) が産出される段。+-- | [日本語]: 段階3: x 座標確定 (route 前)。 coordMap (= banding + recenter 反映済) が産出される段。+--   [English]: Stage 3: x coordinates finalized (before routing). The stage+--   that produces coordMap (with banding and recentering applied). data StagePositioned = StagePositioned   { psInput  :: StageRaw   , psChain  :: Map.Map (Text, Text) [Text]@@ -303,18 +404,29 @@   , psCoord  :: Map.Map Text Double   } --- | 段階4: 最終 (配置済 node + dePath 埋め edge)。+-- | [日本語]: 段階4: 最終 (配置済 node + dePath 埋め edge)。+--   [English]: Stage 4: the final stage (positioned nodes plus dePath-filled+--   edges). data StageRouted = StageRouted   { rtNodes :: [DAGNode]   , rtEdges :: [DAGEdge]   } --- | rank 段: longest-path / network simplex で rank 割当 → source 引き締め。+-- | [日本語]: rank 段: longest-path / network simplex で rank 割当 → source 引き締め。 ----- Phase 53 A3-2: 旧 breakCycles → assignRanks → tightenSourceRanks の直列は--- 'assignRanksGrouped' に集約 (rank group 無しではビット一致、 test 担保)。--- rank group 有りでは group を代表 node に併合して rank 割当し、 group 内 edge が--- flat edge (= 同 rank edge) として下流へ流れる。+--   旧 breakCycles → assignRanks → tightenSourceRanks の直列は+--   'assignRanksGrouped' に集約 (rank group 無しではビット一致、 test 担保)。+--   rank group 有りでは group を代表 node に併合して rank 割当し、 group 内 edge が+--   flat edge (= 同 rank edge) として下流へ流れる。+--+--   [English]: The rank stage: assigns ranks via longest-path / network+--   simplex, then tightens sources.+--+--   The old sequence breakCycles → assignRanks → tightenSourceRanks has been+--   consolidated into 'assignRanksGrouped' (bit-identical when there are no+--   rank groups, guarded by tests). When rank groups are present, each+--   group is merged into a representative node for rank assignment, and+--   edges within a group flow downstream as flat edges (same-rank edges). rankStage :: StageRaw -> StageRanked rankStage raw =   let nodes = srNodes raw; es = srEdges raw; plates = srPlates raw@@ -323,27 +435,41 @@                ids [ (deFrom e, deTo e) | e <- es ]   in StageRanked raw lg0' --- | order 段: dummy 挿入 + median heuristic + transpose、 元 edge → chain map 取得、--- plate 制約 post-process。+-- | [日本語]: order 段: dummy 挿入 + median heuristic + transpose、 元 edge → chain map 取得、+--   plate 制約 post-process。+--   [English]: The order stage: dummy insertion, median heuristic, and+--   transpose, plus obtaining the original-edge-to-chain map and applying+--   the plate-constraint post-process. orderStage :: StageRanked -> StageOrdered orderStage (StageRanked raw lg0') =-  let -- A3: dummy 挿入 + median heuristic + transpose、 元 edge → chain map も取得+  let -- dummy 挿入 + median heuristic + transpose、 元 edge → chain map も取得       (lgFinal, orderMap0, chainMap) = assignOrderFull lg0'-      -- A6: plate 制約 post-process (= 同 plate メンバを rank 内 contiguous に)+      -- plate 制約 post-process (= 同 plate メンバを rank 内 contiguous に)       orderMap = applyPlateConstraints (map dpNodeIds (srPlates raw)) orderMap0   in StageOrdered raw lgFinal orderMap chainMap --- | coord 段: P4a aux-graph network simplex で x 座標を解く。+-- | [日本語]: coord 段: aux-graph network simplex で x 座標を解く。 ----- Phase 39 Step8 (P8) A2: plate メンバ id を P4a simplex に渡し、 cluster border--- 制約 (contain/keepout, graphviz @pos_clusters@・A1 実装) を x 座標へ直接反映する。--- これで box 分離が simplex 由来になったため、 従来の cosmetic post-process--- ('applyPlateBands' = 帯分離 / 'recenterNonPlateRows' = 帯後の重心緩和) を**撤去**--- した ([[feedback-remove-stopgaps-when-real-algo-lands]])。+--   plate メンバ id を aux-graph simplex に渡し、 cluster border+--   制約 (contain/keepout、 graphviz @pos_clusters@ 実装) を x 座標へ直接反映する。+--   これで box 分離が simplex 由来になったため、 従来の cosmetic post-process+--   (@applyPlateBands@ = 帯分離 / @recenterNonPlateRows@ = 帯後の重心緩和) を __撤去__+--   した ([[feedback-remove-stopgaps-when-real-algo-lands]])。+--+--   [English]: The coord stage: solves x coordinates via the aux-graph+--   network simplex.+--+--   Plate member ids are passed to the aux-graph simplex, so cluster border+--   constraints (contain/keepout, per graphviz's @pos_clusters@) are+--   reflected directly in the x coordinates. Since box separation is now a+--   consequence of the simplex, the old cosmetic post-process steps+--   (@applyPlateBands@ for band separation, @recenterNonPlateRows@ for+--   post-band centroid relaxation) have been __removed__+--   ([[feedback-remove-stopgaps-when-real-algo-lands]]). coordStage :: StageOrdered -> StagePositioned coordStage (StageOrdered raw lgFinal orderMap chainMap) =   let plates = srPlates raw-      -- ★ A4-3 EXPERIMENT (完全忠実): real-width simplex の **raw point 座標**を+      -- 完全忠実: real-width simplex の raw point 座標を       -- 正規化せず直接使う (= graphviz の point 一貫 pipeline)。 wpt rescale を介さない。       hwMap = Map.fromList         [ (dnId n, round (dagNodeBaseHalfWidth n) :: Int) | n <- srNodes raw ]@@ -351,25 +477,48 @@       rankOf = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lgFinal ]   in StagePositioned raw chainMap rankOf coordMap --- | route 段: node 最終配置 (rank→y) + edge dePath (chain waypoint)。+-- | [日本語]: route 段: node 最終配置 (rank→y) + edge dePath (chain waypoint)。 ----- Phase 39 Step8 (P8) A3: plate 箱迂回の応急処置 'routeLongEdgeDummies' (RLED) を--- **撤去**した ([[feedback-remove-stopgaps-when-real-algo-lands]])。 撤去の根拠は--- 二段構えの本実装が landing したこと:+--   plate 箱迂回の応急処置 @routeLongEdgeDummies@ (RLED) を+--   __撤去__した ([[feedback-remove-stopgaps-when-real-algo-lands]])。 撤去の根拠は+--   二段構えの本実装が landing したこと: -----   1. layout 層 = A1 cluster border 制約 (@keepout_othernodes@) が plate 非メンバ---      (long-edge dummy 含む) を simplex で箱外へ押し出す。 → guide 自体が箱外。---   2. render 層 = 'Render.EdgeRoute.routeEdge' の box-channel + funnel が plate box---      を障害物に取り、 guide を箱の外で taut spline へ整える。 → 幾何的に貫通しない。+--     1. layout 層 = cluster border 制約 (@keepout_othernodes@) が plate 非メンバ+--        (long-edge dummy 含む) を simplex で箱外へ押し出す。 → guide 自体が箱外。+--     2. render 層 = 'Render.EdgeRoute.routeEdge' の box-channel + funnel が plate box+--        を障害物に取り、 guide を箱の外で taut spline へ整える。 → 幾何的に貫通しない。 ----- 実測 (RLED 撤去 vs 存置): 実 HBM DAG (hbm-after) は **ビット不変**、 box を直線--- 貫通する合成ケース (plate-through/plate-cross) は RLED の「箱辺に張り付く」 bend--- より funnel の方が箱から余裕を持って外迂回し改善。 RLED は箱辺密着の cosmetic--- でしかなかったことが裏付けられた。+--   実測 (RLED 撤去 vs 存置): 実 HBM DAG (hbm-after) は __ビット不変__、 box を直線+--   貫通する合成ケース (plate-through/plate-cross) は RLED の「箱辺に張り付く」 bend+--   より funnel の方が箱から余裕を持って外迂回し改善。 RLED は箱辺密着の cosmetic+--   でしかなかったことが裏付けられた。+--+--   [English]: The route stage: final node placement (rank → y) plus edge+--   dePath (chain waypoints).+--+--   The stopgap fix for plate-box detours, @routeLongEdgeDummies@ (RLED),+--   has been __removed__ ([[feedback-remove-stopgaps-when-real-algo-lands]]).+--   The removal is justified because the proper two-part implementation has+--   since landed:+--+--     1. layout layer — the cluster border constraint+--        (@keepout_othernodes@) pushes non-plate-member nodes (including+--        long-edge dummies) outside the box via the simplex, so the guide+--        itself already sits outside the box.+--     2. render layer — the box-channel plus funnel of+--        'Render.EdgeRoute.routeEdge' treat the plate box as an obstacle and+--        shape the guide into a taut spline outside the box, so it cannot+--        geometrically pass through it.+--+--   Measurement (RLED removed vs. kept): the real HBM DAG (hbm-after) is+--   __bit-identical__; for synthetic cases where a straight line pierces a+--   box (plate-through/plate-cross), the funnel routes further clear of the+--   box than RLED's "hugs the box edge" bend, an improvement. This confirmed+--   that RLED was nothing more than a box-edge-hugging cosmetic fix. routeStage :: StagePositioned -> StageRouted routeStage (StagePositioned raw chainMap rankOf coordMap) =   let nodes = srNodes raw; es = srEdges raw-      -- ★ A4-3 (完全忠実 point pipeline): y は **rank index** をそのまま返す。+      -- 完全忠実 point pipeline: y は rank index をそのまま返す。       -- point 化 (× rankPitch = maxNodeH+ranksep) は radius が既知の render 側で行う       -- (x は simplex の raw point ゆえ layout で確定・y だけ render で pitch を被せる)。       yOf r = fromIntegral r@@ -380,13 +529,13 @@       positionedN = [ n { dnX = x, dnY = y }                     | n <- nodes                     , let (x, y) = posOf (dnId n) ]-      -- A5: 元 edge の chain から control 点列を埋める。 長 edge は rank 単位 dummy+      -- 元 edge の chain から control 点列を埋める。 長 edge は rank 単位 dummy       -- 経由 chain を返すのみ (= rank-level waypoint)。 plate box 回避の幾何 routing は       -- 障害物が pt で確定する Render 側 (pt 空間 routesplines・Phase 39 A2-8) に移譲。       --       -- P7b 最小 (Phase 53 A3-4): flat edge (= 同 rank edge、 rank group 由来)。       -- 間に他 real node が無ければ dePath 無し = 水平直線 (side port 同士)。-      -- 間に node があれば rank の**上側 gap** (= r - 0.5、 graphviz make_flat_edge が+      -- 間に node があれば rank の上側 gap (= r - 0.5、 graphviz make_flat_edge が       -- rank 上の空間へ逃がすのと同層) に waypoint を 1 点置き、 render 側の       -- box-channel / funnel / proutespline に迂回 spline を作らせる。       flatPath e =@@ -407,7 +556,7 @@                  else Nothing           _ -> Nothing       routedE = [ e { dePath = maybe (chainToPath e) Just (flatPath e) } | e <- es ]-      -- P2a: layout で back-edge が反転されている場合 chainMap の key は (to,from)。+      -- layout で back-edge が反転されている場合 chainMap の key は (to,from)。       -- 直接 key が無ければ反転 key を引き、 chain を反転して原方向 (from→to) に戻す。       -- acyclic 入力では常に直接 key がヒットする (= 非破壊)。       chainToPath e = case Map.lookup (deFrom e, deTo e) chainMap of@@ -418,12 +567,12 @@   in StageRouted positionedN routedE  -- ===========================================================================--- Phase 1 A2 以前の 'computeDepths' (= longest path 直接実装) は削除済。+-- かつての 'computeDepths' (= longest path 直接実装) は削除済。 -- 同等処理は 'Graphics.Hgg.DAG.Internal.Sugiyama.longestPathRanking' に移動、--- 'assignRanks' (= network simplex framework) 経由で呼ばれる。+-- 'Graphics.Hgg.DAG.Internal.Sugiyama.assignRanks' (= network simplex framework) 経由で呼ばれる。 -- =========================================================================== --- Phase 39 Step8 (P8) A3: long-edge dummy を plate 箱外へ bend する応急処置--- 'routeLongEdgeDummies' (RLED) は撤去した。 plate 箱迂回は A1 cluster border 制約+-- long-edge dummy を plate 箱外へ bend する応急処置+-- @routeLongEdgeDummies@ (RLED) は撤去した。 plate 箱迂回は cluster border 制約 -- (layout) + 'Render.EdgeRoute' box-channel/funnel (render) の二段で本実装済。 -- 経緯と実測根拠は 'routeStage' の haddock を参照。

@@ -1,31 +1,56 @@ -- | -- Module      : Graphics.Hgg.DAG.Internal.Sugiyama--- Description : Sugiyama framework 中間表現 + Step 2 Rank + Step 3 Order (Phase 1 A2-A3)+-- Description : Sugiyama-framework internals: rank, order, coordinate assignment -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- Graphics.Hgg.DAG 内部で使う Sugiyama framework の中間表現と各 step 実装。--- 外向け Graph a / DAGSpec には漏らさない (= spec §10.3 dummy node 規律)。+-- [日本語]: Graphics.Hgg.DAG 内部で使う Sugiyama framework の中間表現と各 step 実装。+--   外向け Graph a / DAGSpec には漏らさない (= spec §10.3 dummy node 規律)。+--   [English]: The intermediate representation and per-step implementations of+--   the Sugiyama framework used internally by Graphics.Hgg.DAG. Never leaked+--   to the public Graph a / DAGSpec (per spec §10.3's dummy-node discipline). ----- 現状 (Phase 1 A2):+-- [日本語]: 現状: -- --   * LNode / LEdge / LayoutGraph 中間型 --   * Step 2 Rank assignment: network simplex (Gansner-Koutsofios-North-Vo 1993 §2.3) --   * 全 edge の minimum length δ = 1、 weight ω = 1 が default --     (= 現状 DAG.Graph の edge は属性無し、 将来 weight 拡張余地) ----- 設計判断: 一様 δ=1 / ω=1 の場合、 longest-path ranking が既に Σ edge length--- 最適解 (= 証明: edge 数固定で各 edge の最小 rank diff = 1)。 そのため network--- simplex の **反復改善 phase は実質 no-op** になる。 ただし将来 weight / 異δ--- 拡張に備えて framework として実装し、 初期解 = longest-path、 反復 = 負 cut--- value 探索 (= 該当無し → 即終了) という構造で書く。+--   [English]: Current state: ----- 計算量:+--   * The LNode / LEdge / LayoutGraph intermediate types+--   * Step 2 rank assignment: network simplex (Gansner-Koutsofios-North-Vo 1993 §2.3)+--   * Every edge defaults to minimum length δ = 1 and weight ω = 1 (DAG.Graph+--     edges currently carry no attributes; room to extend with weights later)+--+-- [日本語]: 設計判断: 一様 δ=1 / ω=1 の場合、 longest-path ranking が既に Σ edge length+--   最適解 (= 証明: edge 数固定で各 edge の最小 rank diff = 1)。 そのため network+--   simplex の __反復改善 phase は実質 no-op__ になる。 ただし将来 weight / 異δ+--   拡張に備えて framework として実装し、 初期解 = longest-path、 反復 = 負 cut+--   value 探索 (= 該当無し → 即終了) という構造で書く。+--+--   [English]: Design rationale: with uniform δ=1 / ω=1, longest-path ranking+--   is already the Σ edge-length optimum (proof: with the edge count fixed,+--   the minimum rank diff per edge is 1). So the network simplex's+--   __iterative-improvement phase is effectively a no-op__. It is nonetheless+--   implemented as a full framework, in preparation for future weight and+--   non-uniform-δ extensions, structured as: initial solution = longest-path,+--   iteration = search for a negative cut value (none found here, so it+--   terminates immediately).+--+-- [日本語]: 計算量: --   * 初期 longest-path: O(V + E) --   * tight tree 構築: O(V + E) --   * cut value 計算: O(V × E) (= 各 tree edge について非 tree edge を走査) --   * 反復: 一様 ω では 0 回、 一般には worst O(V × E) per iteration × V iterations --+--   [English]: Complexity:+--   * Initial longest-path: O(V + E)+--   * Tight-tree construction: O(V + E)+--   * Cut-value computation: O(V × E) (scans the non-tree edges for each tree edge)+--   * Iteration: 0 for uniform ω; worst case O(V × E) per iteration × V iterations in general+-- {-# LANGUAGE OverloadedStrings #-} module Graphics.Hgg.DAG.Internal.Sugiyama   ( -- * 中間表現@@ -33,7 +58,7 @@   , LEdge (..)   , LayoutGraph (..)   , buildLayoutGraph-    -- * Step 2-0 (P2a): acyclic 化+    -- * Step 2-0: acyclic 化   , breakCycles     -- * Step 2: Rank assignment   , assignRanks@@ -41,7 +66,7 @@   , longestPathRanking   , tightTreeEdges   , tightenSourceRanks-    -- * 汎用 network simplex (= P4a x 座標で使う共通ソルバ)+    -- * 汎用 network simplex (= x 座標割当で使う共通ソルバ)   , networkSimplex   , networkSimplexBalanced     -- * Step 3: Order assignment (= median heuristic + transpose)@@ -56,13 +81,13 @@   , assignOrderFull   , countCrossings   , bilayerCrossings-    -- * Step 4: Coordinate assignment (= P4a aux graph network simplex)+    -- * Step 4: Coordinate assignment (= aux graph network simplex)   , assignCoords   , assignCoordsW   , auxSimplexCoords   , auxSimplexCoordsW   , computeOneDir-    -- * Step 5 (Phase 1 A6): Plate (= cluster) 制約+    -- * Step 5: Plate (= cluster) 制約   , applyPlateConstraints     -- * Inspection (= test 用)   , edgeLengthSum@@ -78,36 +103,57 @@ import qualified Data.Text       as T  -- ===========================================================================--- 中間表現+-- [日本語]: 中間表現+-- [English]: Intermediate representation -- =========================================================================== --- | 内部 node。 元の DAGNode から id を保持し、 rank を埋める。--- dummy node (= A3 で長 edge 中継用) は 'lnDummy' で区別。+-- | [日本語]: 内部 node。 元の DAGNode から id を保持し、 rank を埋める。+--   dummy node (= 長 edge 中継用) は 'lnDummy' で区別。+--   [English]: An internal node. Retains the id from the original DAGNode and+--   gets its rank filled in. A dummy node (used to relay a long edge) is+--   distinguished by 'lnDummy'. data LNode = LNode-  { lnId    :: !Text   -- ^ 元 node id (dummy なら "__dummy_<n>")-  , lnRank  :: !Int    -- ^ Step 2 で割当てる rank-  , lnDummy :: !Bool   -- ^ A3 で長 edge を分割するために追加した dummy か+  { lnId    :: !Text+    -- ^ [日本語]: 元 node id (dummy なら "\_\_dummy_\<n\>")+    --   [English]: The original node id (or "\_\_dummy_\<n\>" for a dummy)+  , lnRank  :: !Int+    -- ^ [日本語]: Step 2 で割当てる rank+    --   [English]: The rank assigned during Step 2+  , lnDummy :: !Bool+    -- ^ [日本語]: 長 edge を分割するために追加した dummy か+    --   [English]: Whether this is a dummy added to split a long edge   } deriving (Eq, Show) --- | 内部 edge。 weight / minimum length δ を持つ。--- Phase 1 A2 では全 edge weight=1, delta=1 だが将来拡張余地。+-- | [日本語]: 内部 edge。 weight / minimum length δ を持つ。+--   全 edge weight=1, delta=1 が default だが将来拡張余地。+--   [English]: An internal edge, carrying a weight and a minimum length δ.+--   All edges currently default to weight=1, delta=1, with room to extend+--   this later. data LEdge = LEdge   { leFrom   :: !Text   , leTo     :: !Text-  , leDelta  :: !Int      -- ^ 最小 rank 差 (= δ)、 default 1-  , leWeight :: !Double   -- ^ edge weight (= ω)、 default 1.0+  , leDelta  :: !Int+    -- ^ [日本語]: 最小 rank 差 (= δ)、 default 1+    --   [English]: The minimum rank difference (δ), default 1+  , leWeight :: !Double+    -- ^ [日本語]: edge weight (= ω)、 default 1.0+    --   [English]: The edge weight (ω), default 1.0   } deriving (Eq, Show) --- | Sugiyama framework の中間 graph。+-- | [日本語]: Sugiyama framework の中間 graph。+--   [English]: The intermediate graph used by the Sugiyama framework. data LayoutGraph = LayoutGraph   { lgNodes :: ![LNode]   , lgEdges :: ![LEdge]   } deriving (Eq, Show) --- | 元 (id, parents) ペア群から LayoutGraph を組み立てる。--- すべての edge は δ=1 / ω=1 で初期化。 rank は未割当 (= 0)。+-- | [日本語]: 元 (id, parents) ペア群から LayoutGraph を組み立てる。+--   すべての edge は δ=1 / ω=1 で初期化。 rank は未割当 (= 0)。+--   [English]: Builds a 'LayoutGraph' from the original (id, parents) pairs.+--   Every edge is initialized with δ=1 / ω=1; ranks are unassigned (0). buildLayoutGraph-  :: [Text]            -- ^ 全 node id (順序保持、 stable iteration 用)+  :: [Text]            -- ^ [日本語]: 全 node id (順序保持、 stable iteration 用)+                        --   [English]: All node ids (order-preserving, for stable iteration)   -> [(Text, Text)]    -- ^ edge list (from, to)   -> LayoutGraph buildLayoutGraph ids es =@@ -117,23 +163,42 @@     }  -- ===========================================================================--- Step 2-0 (P2a): acyclic 化 (= graphviz acyclic.c 相当)+-- [日本語]: Step 2-0: acyclic 化 (= graphviz acyclic.c 相当)+-- [English]: Step 2-0: making the graph acyclic (corresponds to graphviz's acyclic.c) -- =========================================================================== --- | DFS で back-edge を検出して反転し、 self-loop は rank 制約に寄与しないので--- 除去する。 rank/order 用の acyclic edge 列を返す。+-- | [日本語]: DFS で back-edge を検出して反転し、 self-loop は rank 制約に寄与しないので+--   除去する。 rank/order 用の acyclic edge 列を返す。+--   [English]: Detects back-edges via DFS and reverses them; self-loops+--   contribute nothing to the rank constraints, so they are removed. Returns+--   an acyclic edge list for use by ranking/ordering. ----- graphviz の 'acyclic.c' (decompose + break_cycles) と同じく「閉路を一時的に--- 反転して DAG 化 → layout → 描画時に向きを戻す」 戦略の前半。 描画方向は呼出側--- (DAG.hs) が原 edge で保持し、 chain lookup は反転 key fallback で吸収する。+-- [日本語]: graphviz の 'acyclic.c' (decompose + break_cycles) と同じく「閉路を一時的に+--   反転して DAG 化 → layout → 描画時に向きを戻す」 戦略の前半。 描画方向は呼出側+--   (DAG.hs) が原 edge で保持し、 chain lookup は反転 key fallback で吸収する。+--   [English]: This is the first half of the same strategy as graphviz's+--   'acyclic.c' (decompose + break_cycles): "temporarily reverse cycles to+--   make the graph a DAG, lay it out, then restore the original direction at+--   draw time". The draw direction is kept by the caller (DAG.hs) using the+--   original edges, and chain lookups fall back to the reversed key. ----- **非破壊性**: 入力が既に DAG なら back-edge は存在せず、 self-loop も無ければ--- edge は順序保持で不変。 = 現行の acyclic テストケース (large/medium/small/--- isolated) には影響しない。 閉路入力でのみ rank が正しくなる--- (従来は 'longestPathRanking' の「0 仮置き」 で誤った rank になっていた)。+-- [日本語]: __非破壊性__: 入力が既に DAG なら back-edge は存在せず、 self-loop も無ければ+--   edge は順序保持で不変。 = 現行の acyclic テストケース (large/medium/small/+--   isolated) には影響しない。 閉路入力でのみ rank が正しくなる+--   (従来は 'longestPathRanking' の「0 仮置き」 で誤った rank になっていた)。+--   [English]: __Non-destructiveness__: if the input is already a DAG, no+--   back-edges exist, and absent self-loops the edges are unchanged+--   (order-preserving) — so the existing acyclic test cases (large/medium/+--   small/isolated) are unaffected. Only cyclic input gets a corrected rank+--   (previously, the "placeholder 0" used by 'longestPathRanking' produced an+--   incorrect rank). ----- DFS 着色: gray = 現在の stack 上、 black = 探索完了。 (u→v) で v が gray なら--- back-edge。 起点は @ids@ 順に全 node を走査するので非連結成分も網羅する。+-- [日本語]: DFS 着色: gray = 現在の stack 上、 black = 探索完了。 (u→v) で v が gray なら+--   back-edge。 起点は @ids@ 順に全 node を走査するので非連結成分も網羅する。+--   [English]: DFS coloring: gray means "currently on the stack", black means+--   "search complete". For (u→v), if v is gray it is a back-edge. Since+--   traversal starts from every node in @ids@ order, disconnected components+--   are covered too. breakCycles :: [Text] -> [(Text, Text)] -> [(Text, Text)] breakCycles ids es =   let adj = Map.fromListWith (flip (++))@@ -158,20 +223,32 @@   in [ e | Just e <- map orient es ]  -- ===========================================================================--- Step 2: Rank assignment (= network simplex)+-- [日本語]: Step 2: Rank assignment (= network simplex)+-- [English]: Step 2: Rank assignment (network simplex) -- =========================================================================== --- | LayoutGraph の lnRank を埋める。 Phase 1 A2 採用 = network simplex。+-- | [日本語]: LayoutGraph の lnRank を埋める。 採用アルゴリズムは network simplex。+--   [English]: Fills in the lnRank of a LayoutGraph, using network simplex. ----- 流れ (Gansner 1993 §2.3):+-- [日本語]: 流れ (Gansner 1993 §2.3): -- --   1. 'longestPathRanking' で初期 feasible ranking---   2. 'buildTightTree' で tight edge から spanning tree---   3. 'cutValues' で各 tree edge の cut value+--   2. @buildTightTree@ で tight edge から spanning tree+--   3. @cutValues@ で各 tree edge の cut value --   4. 負 cut value の tree edge があれば置換 (= 'pivotOnce')、 無ければ最適 --   5. 反復終了後 rank を 0-base に正規化 ----- 一様 δ=1 / ω=1 では step 1 で最適解。 反復は no-op になる。+--   [English]: Flow (Gansner 1993 §2.3):+--+--   1. 'longestPathRanking' produces an initial feasible ranking+--   2. @buildTightTree@ grows a spanning tree from tight edges+--   3. @cutValues@ computes the cut value for each tree edge+--   4. If any tree edge has a negative cut value, replace it ('pivotOnce'); otherwise it is optimal+--   5. After iteration finishes, normalize ranks to be 0-based+--+-- [日本語]: 一様 δ=1 / ω=1 では step 1 で最適解。 反復は no-op になる。+--   [English]: With uniform δ=1 / ω=1, step 1 is already optimal, so the+--   iteration is a no-op. assignRanks :: LayoutGraph -> LayoutGraph assignRanks lg0 =   let lg1 = longestPathRanking lg0@@ -179,8 +256,11 @@       lg3 = normalizeRanks lg2   in lg3 --- | Step 2-1: longest-path ranking (= 各 node に「source からの最長 path 長」 を割当)。--- 一様 δ=1 / ω=1 では Σ edge length 最適解。+-- | [日本語]: Step 2-1: longest-path ranking (= 各 node に「source からの最長 path 長」 を割当)。+--   一様 δ=1 / ω=1 では Σ edge length 最適解。+--   [English]: Step 2-1: longest-path ranking, assigning each node "the+--   longest path length from a source". With uniform δ=1 / ω=1 this is the+--   Σ edge-length optimum. longestPathRanking :: LayoutGraph -> LayoutGraph longestPathRanking lg =   let parents = Map.fromListWith (<>)@@ -205,8 +285,11 @@                  | n <- lgNodes lg ]   in lg { lgNodes = newNodes } --- | Step 2-2〜5: simplex 反復。 上限 iteration 内で負 cut value が無くなるまで pivot。--- 一様 δ=1 / ω=1 では即時終了 (= 負 cut value 無し)。+-- | [日本語]: Step 2-2〜5: simplex 反復。 上限 iteration 内で負 cut value が無くなるまで pivot。+--   一様 δ=1 / ω=1 では即時終了 (= 負 cut value 無し)。+--   [English]: Steps 2-2 through 2-5: the simplex iteration. Pivots until no+--   negative cut value remains, within an iteration budget. With uniform+--   δ=1 / ω=1 it terminates immediately (no negative cut value exists). iterateSimplex :: LayoutGraph -> Int -> LayoutGraph iterateSimplex lg 0       = lg iterateSimplex lg budget =@@ -214,30 +297,53 @@     Nothing  -> lg  -- 最適解到達     Just lg' -> iterateSimplex lg' (budget - 1) --- | 1 回の pivot: 負 cut value の tree edge を非 tree edge と置換。--- 該当無しなら 'Nothing'。+-- | [日本語]: 1 回の pivot: 負 cut value の tree edge を非 tree edge と置換。+--   該当無しなら 'Nothing'。+--   [English]: A single pivot: replaces a negative-cut-value tree edge with a+--   non-tree edge. Returns 'Nothing' if there is none. ----- **設計判断 (= Phase 1 A2 honest stub)**:+-- [日本語]: __設計判断 (honest stub)__: ----- 一様 δ=1 / ω=1 の場合、 longest-path ranking が既に Σ edge length 最適解--- (= 各 edge の length が ≥ δ=1 の制約下で全 edge 合計を最小化、 longest-path--- は各 node を最深位置に置くので「圧縮余地ゼロ」)。 したがって全 tree edge の--- cut value は ≥ 0 になることが保証され、 pivot は発生しない。+--   一様 δ=1 / ω=1 の場合、 longest-path ranking が既に Σ edge length 最適解+--   (= 各 edge の length が ≥ δ=1 の制約下で全 edge 合計を最小化、 longest-path+--   は各 node を最深位置に置くので「圧縮余地ゼロ」)。 したがって全 tree edge の+--   cut value は ≥ 0 になることが保証され、 pivot は発生しない。 ----- 本関数は **将来 weight / 異 δ 拡張に備えた framework hook**。 現状は常に--- 'Nothing' を返し、 'iterateSimplex' は初期解で即終了する。+--   [English]: __Design rationale (honest stub)__: ----- 拡張時の実装方針 (TODO Phase 1+):+--   With uniform δ=1 / ω=1, longest-path ranking is already the Σ+--   edge-length optimum (proof: it minimizes the total under the constraint+--   that each edge's length is ≥ δ=1, since longest-path places every node+--   at its deepest possible position, leaving "zero room to compress"). This+--   guarantees every tree edge's cut value is ≥ 0, so no pivot ever occurs. --+-- [日本語]: 本関数は __将来 weight / 異 δ 拡張に備えた framework hook__。 現状は常に+--   'Nothing' を返し、 'iterateSimplex' は初期解で即終了する。+--   [English]: This function is a __framework hook in preparation for future weight / non-uniform-δ extensions__.+--   It currently always returns 'Nothing', so 'iterateSimplex' terminates at+--   the initial solution.+--+-- [日本語]: 拡張時の実装方針 (TODO):+-- --   1. 'tightTreeEdges' で tight edge から spanning tree 抽出 --   2. 各 tree edge を切ったときの head/tail 側 partition を BFS で求め --   3. 非 tree edge weight 差から cut value 計算 --   4. 最小 cut value < 0 なら非 tree edge の min slack で置換+--+--   [English]: Implementation plan for when this is extended (TODO):+--+--   1. Extract a spanning tree from tight edges via 'tightTreeEdges'+--   2. For each tree edge, find the head/tail-side partition it induces by cutting it, via BFS+--   3. Compute the cut value from the non-tree edge weight differences+--   4. If the minimum cut value is < 0, replace it with the min-slack non-tree edge pivotOnce :: LayoutGraph -> Maybe LayoutGraph pivotOnce _ = Nothing --- | tight tree edge (= rank(v) - rank(u) = δ(u,v) を満たす edge) を列挙。--- pivot 実装時の前段として用意。 現状未使用。+-- | [日本語]: tight tree edge (= rank(v) - rank(u) = δ(u,v) を満たす edge) を列挙。+--   pivot 実装時の前段として用意。 現状未使用。+--   [English]: Enumerates tight tree edges (edges satisfying rank(v) -+--   rank(u) = δ(u,v)). Prepared as a building block for when pivoting is+--   implemented; currently unused. tightTreeEdges :: LayoutGraph -> [LEdge] tightTreeEdges lg =   let rankOf = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -246,7 +352,8 @@         _                  -> False   in filter isTight (lgEdges lg) --- | rank を 0-base に正規化 (= 最小 rank を 0 に shift)。+-- | [日本語]: rank を 0-base に正規化 (= 最小 rank を 0 に shift)。+--   [English]: Normalizes ranks to be 0-based (shifts so the minimum rank is 0). normalizeRanks :: LayoutGraph -> LayoutGraph normalizeRanks lg =   case lgNodes lg of@@ -256,20 +363,39 @@           newNodes = [ n { lnRank = lnRank n - rmin } | n <- ns ]       in lg { lgNodes = newNodes } --- | Phase 19 A4: rank 引き締め ('assignRanks' の後処理)。+-- | [日本語]: rank 引き締め ('assignRanks' の後処理)。 ----- ① **source 引き下げ**: in-edge 無し・out-edge 有りの node を---    @min(rank(succ) − δ)@ へ。 longest-path ranking は source を rank 0 に---    固定するため、 深い消費者しか持たない source (data slot / sigma 等) の---    edge が図を縦断し、 plate bbox (= メンバの bounding box) が縦に伸びる---    (Σ edge length も非最適。 graphviz は source を消費者の直前 rank に置く)。---    全 out-edge の rank 差 ≥ δ は min の取り方により維持される。--- ② **エッジ無し plate メンバの引き寄せ**: edge を一切持たない node が---    plate メンバなら、 同 plate の (edge を持つ) メンバの最小 rank へ---    (フローティング解消・analyze の DataIx データノードで顕在化)。+--   ① __source 引き下げ__: in-edge 無し・out-edge 有りの node を+--      @min(rank(succ) − δ)@ へ。 longest-path ranking は source を rank 0 に+--      固定するため、 深い消費者しか持たない source (data slot / sigma 等) の+--      edge が図を縦断し、 plate bbox (= メンバの bounding box) が縦に伸びる+--      (Σ edge length も非最適。 graphviz は source を消費者の直前 rank に置く)。+--      全 out-edge の rank 差 ≥ δ は min の取り方により維持される。+--   ② __エッジ無し plate メンバの引き寄せ__: edge を一切持たない node が+--      plate メンバなら、 同 plate の (edge を持つ) メンバの最小 rank へ+--      (フローティング解消・analyze の DataIx データノードで顕在化)。 ----- 最後に 0-base へ再正規化する。 plate 無し・深い source 無しのグラフでは--- no-op (= 既存図はビット不変)。+--   最後に 0-base へ再正規化する。 plate 無し・深い source 無しのグラフでは+--   no-op (= 既存図はビット不変)。+--+--   [English]: Tightens ranks (post-processing after 'assignRanks').+--+--   ① __Pull sources down__: a node with no in-edges and at least one+--      out-edge is moved to @min(rank(succ) − δ)@. Because longest-path+--      ranking pins sources to rank 0, a source with only deep consumers+--      (a data slot, sigma, etc.) has its edge span the whole figure,+--      stretching the plate bbox (the bounding box over its members)+--      vertically, and the Σ edge length is no longer optimal (graphviz+--      places sources at the rank right before their consumer). The+--      constraint rank difference ≥ δ over all out-edges is preserved by+--      how the min is taken.+--   ② __Pull in edgeless plate members__: a node with no edges at all that+--      is a plate member is moved to the minimum rank among the (edged)+--      members of the same plate (resolves "floating" members, seen with+--      analyze's DataIx data nodes).+--+--   Finally re-normalizes to 0-based. This is a no-op for graphs with no+--   plates and no deep sources (existing figures are bit-identical). tightenSourceRanks :: [[Text]] -> LayoutGraph -> LayoutGraph tightenSourceRanks plateMembers lg =   let nodes   = lgNodes lg@@ -307,29 +433,55 @@   in normalizeRanks lg { lgNodes = newNodes }  -- ===========================================================================--- Step 2-1 (P3e 前提・Phase 53 A3-2): rank=same 制約付き rank 割当+-- [日本語]: Step 2-1 (rank=same 制約の前提): rank=same 制約付き rank 割当+-- [English]: Step 2-1 (a prerequisite for rank=same constraints): rank assignment with rank=same constraints -- =========================================================================== --- | graphviz @rank=same@ 相当: 同 rank group を代表 node に併合して rank 割当--- (= graphviz cluster collapse / @UF_union@) し、 member へ rank を展開する。+-- | [日本語]: graphviz @rank=same@ 相当: 同 rank group を代表 node に併合して rank 割当+--   (= graphviz cluster collapse / @UF_union@) し、 member へ rank を展開する。+--   [English]: The equivalent of graphviz's @rank=same@: merges each+--   same-rank group into a representative node for rank assignment+--   (analogous to graphviz's cluster collapse / @UF_union@), then propagates+--   the resulting rank back out to the members. ----- 戻り値の edge は rank 向きに正規化済:+-- [日本語]: 戻り値の edge は rank 向きに正規化済: -- --   * rank(from) < rank(to) はそのまま、 逆なら反転 (= 'breakCycles' の back-edge --     反転と同値。 呼出側の chain lookup は既存の反転 key fallback で吸収)---   * rank(from) == rank(to) (= **flat edge**、 group 内 edge のみで発生) は+--   * rank(from) == rank(to) (= __flat edge__、 group 内 edge のみで発生) は --     原方向のまま保持。 ranking 制約には寄与しない (併合で self-loop 化し除外) --   * self-loop は除去 ('breakCycles' と同じ) ----- @groups = []@ では rep = id で全経路が既存と一致し、 出力 LayoutGraph は--- 従来の breakCycles → assignRanks → tightenSourceRanks とビット一致する--- (orient は「back-edge 反転後の rank 差 ≥ 1」 の不変量により DFS 反転と同値。--- test で担保)。+--   [English]: The returned edges are already normalized to point in the+--   rank direction:+--+--   * rank(from) < rank(to) is kept as-is; the reverse case is flipped (this+--     is equivalent to the back-edge reversal done by 'breakCycles' — the+--     caller's chain lookup absorbs it via the existing reversed-key fallback)+--   * rank(from) == rank(to) (a __flat edge__, which only arises from+--     within-group edges) keeps its original direction. It contributes+--     nothing to the ranking constraints (it becomes a self-loop after+--     merging and is excluded)+--   * self-loops are removed (as in 'breakCycles')+--+-- [日本語]: @groups = []@ では rep = id で全経路が既存と一致し、 出力 LayoutGraph は+--   従来の breakCycles → assignRanks → tightenSourceRanks とビット一致する+--   (orient は「back-edge 反転後の rank 差 ≥ 1」 の不変量により DFS 反転と同値。+--   test で担保)。+--   [English]: With @groups = []@, rep is the identity on every path, so the+--   output 'LayoutGraph' is bit-identical to the previous+--   breakCycles → assignRanks → tightenSourceRanks pipeline (orient is+--   equivalent to the DFS reversal by the invariant "rank difference ≥ 1+--   after back-edge reversal"; guaranteed by tests). assignRanksGrouped-  :: [[Text]]          -- ^ 同 rank group 群 (member 共有 group は併合される)-  -> [[Text]]          -- ^ plate member 群 (= 'tightenSourceRanks' 用)-  -> [Text]            -- ^ 全 node id (順序保持)-  -> [(Text, Text)]    -- ^ 原 edge 列 (向き任意、 self-loop 可)+  :: [[Text]]          -- ^ [日本語]: 同 rank group 群 (member 共有 group は併合される)+                        --   [English]: The same-rank groups (groups sharing a member are merged)+  -> [[Text]]          -- ^ [日本語]: plate member 群 (= 'tightenSourceRanks' 用)+                        --   [English]: The plate member groups (for 'tightenSourceRanks')+  -> [Text]            -- ^ [日本語]: 全 node id (順序保持)+                        --   [English]: All node ids (order-preserving)+  -> [(Text, Text)]    -- ^ [日本語]: 原 edge 列 (向き任意、 self-loop 可)+                        --   [English]: The original edge list (any direction, self-loops allowed)   -> LayoutGraph assignRanksGrouped groups plateIds ids es =   let -- group の併合 (member 共有 = 同値類)。 rep = ids 中で最初に現れる member@@ -365,7 +517,8 @@       edges = [ LEdge f t 1 1.0 | Just (f, t) <- map orient es ]   in LayoutGraph nodes edges --- | 順序保持の重複除去 (= 最初の出現のみ残す)。+-- | [日本語]: 順序保持の重複除去 (= 最初の出現のみ残す)。+--   [English]: Order-preserving deduplication (keeps only the first occurrence). dedupStable :: [Text] -> [Text] dedupStable = go Set.empty   where@@ -375,11 +528,14 @@       | otherwise         = x : go (Set.insert x seen) xs  -- ===========================================================================--- Inspection (= test 用)+-- [日本語]: Inspection (= test 用)+-- [English]: Inspection helpers (for tests) -- =========================================================================== --- | Σ ω(u,v) × (rank(v) - rank(u)) を返す (= rank assignment の目的関数)。--- longest-path / network simplex の検算用。+-- | [日本語]: Σ ω(u,v) × (rank(v) - rank(u)) を返す (= rank assignment の目的関数)。+--   longest-path / network simplex の検算用。+--   [English]: Returns Σ ω(u,v) × (rank(v) - rank(u)) (the objective function+--   of rank assignment). Used to check longest-path / network simplex results. edgeLengthSum :: LayoutGraph -> Double edgeLengthSum lg =   let rankOf = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -388,7 +544,8 @@         _                  -> 0   in sum (map contrib (lgEdges lg)) --- | feasibility check: 全 edge で rank(v) - rank(u) ≥ δ(u,v)。+-- | [日本語]: feasibility check: 全 edge で rank(v) - rank(u) ≥ δ(u,v)。+--   [English]: Feasibility check: every edge satisfies rank(v) - rank(u) ≥ δ(u,v). isFeasible :: LayoutGraph -> Bool isFeasible lg =   let rankOf = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -398,7 +555,7 @@   in all check (lgEdges lg)  -- ===========================================================================--- 汎用 network simplex (Gansner-Koutsofios-North-Vo 1993 §2.3)+-- [日本語]: 汎用 network simplex (Gansner-Koutsofios-North-Vo 1993 §2.3) --   = graphviz の network simplex に相当する共通ソルバ。 node 集合と --   (tail, head, δ, ω) edge 群を受け、 各 node に整数座標 r を割当て --     Σ ω · (r_head − r_tail)@@ -407,7 +564,7 @@ --   graphviz では rank.c (rank 割当) と position.c (x 座標 = aux graph 上の --   同 simplex) の両方がこれを使う。 本実装では ranking は一様 δ=ω=1 で --   longest-path が既に最適なため 'assignRanks' はそのまま据え置き、 本関数は---   主に P4a x 座標割当 (= Ω 1:2:8 + nodesep の非一様 aux graph) で使う。+--   主に x 座標割当 (= Ω 1:2:8 + nodesep の非一様 aux graph) で使う。 -- --   流れ: --     1. initRankNS      : longest-path で feasible 初期解 (入力は DAG 前提)@@ -419,16 +576,49 @@ --     5. normalizeNS     : 最小 r を 0 に -- --   非連結 graph は弱連結成分ごとに独立フレームで解く。+--+-- [English]: General-purpose network simplex (Gansner-Koutsofios-North-Vo+--   1993 §2.3) — the shared solver corresponding to graphviz's network+--   simplex. Given a node set and (tail, head, δ, ω) edges, it assigns an+--   integer coordinate r to each node, minimizing+--     Σ ω · (r_head − r_tail)+--   subject to r_head − r_tail ≥ δ.+--+--   In graphviz, both rank.c (rank assignment) and position.c (x-coordinate+--   assignment — the same simplex, on the aux graph) use this. Here, ranking+--   uses uniform δ=ω=1 where longest-path is already optimal, so 'assignRanks'+--   is left as-is; this function is used mainly for x-coordinate assignment+--   (the non-uniform aux graph with the Ω 1:2:8 weighting plus nodesep).+--+--   Flow:+--     1. initRankNS      : a feasible initial solution via longest-path (input assumed a DAG)+--     2. feasibleTreeNS  : grows a spanning tree from tight edges (adjusted via min-slack)+--     3. tightRanksTree  : the unique assignment that makes the tree all-tight (the+--                          global shift freedom is fixed by root=0)+--     4. optimize        : swaps a negative-cut-value tree edge for the min-slack+--                          non-tree edge crossing the cut in the opposite direction,+--                          then re-assigns with the new tree+--     5. normalizeNS     : shifts the minimum r to 0+--+--   Disconnected graphs are solved independently per weakly-connected component. -- =========================================================================== --- | 汎用 network simplex。 戻り値は全 node の整数座標 (= rank / x)。--- balance は行わない (= ranking 用・最適頂点を 1 つ返す)。+-- | [日本語]: 汎用 network simplex。 戻り値は全 node の整数座標 (= rank / x)。+--   balance は行わない (= ranking 用・最適頂点を 1 つ返す)。+--   [English]: The general-purpose network simplex. Returns an integer+--   coordinate (rank / x) for every node. Performs no balancing — this is+--   for ranking, returning one optimal vertex. networkSimplex :: [Text] -> [(Text, Text, Int, Double)] -> Map Text Int networkSimplex = networkSimplexWith False --- | LR balance 付き network simplex (= graphviz position.c の @rank(g, 2)@ 相当)。--- 最適到達後、 cut value 0 の tree edge を slack の中央へ寄せて対称化する--- (= x 座標割当 P4a 用。 free node を隣接の重心へ寄せ左右対称にする)。+-- | [日本語]: LR balance 付き network simplex (= graphviz position.c の @rank(g, 2)@ 相当)。+--   最適到達後、 cut value 0 の tree edge を slack の中央へ寄せて対称化する+--   (= x 座標割当用。 free node を隣接の重心へ寄せ左右対称にする)。+--   [English]: Network simplex with LR balancing (corresponds to graphviz+--   position.c's @rank(g, 2)@). After reaching the optimum, tree edges with+--   cut value 0 are moved to the middle of their slack to symmetrize the+--   layout (used for x-coordinate assignment, pulling free nodes toward+--   their neighbors' centroid for left-right symmetry). networkSimplexBalanced :: [Text] -> [(Text, Text, Int, Double)] -> Map Text Int networkSimplexBalanced = networkSimplexWith True @@ -437,7 +627,9 @@ networkSimplexWith balance nodes edges =   Map.unions [ solveComponent balance cn ce | (cn, ce) <- weakComponents nodes edges ] --- | 弱連結成分に分解 (edge を無向視)。 edge を持たない孤立 node も 1 成分。+-- | [日本語]: 弱連結成分に分解 (edge を無向視)。 edge を持たない孤立 node も 1 成分。+--   [English]: Decomposes into weakly-connected components (treating edges as+--   undirected). An isolated node with no edges is also its own component. weakComponents   :: [Text] -> [(Text, Text, Int, Double)]   -> [([Text], [(Text, Text, Int, Double)])]@@ -460,7 +652,9 @@       (_, comps) = foldl' go (Set.empty, []) nodes   in comps --- | 連結成分 1 個を解く。 @balance@ なら最後に LR balance を掛ける。+-- | [日本語]: 連結成分 1 個を解く。 @balance@ なら最後に LR balance を掛ける。+--   [English]: Solves a single connected component. Applies LR balancing at+--   the end if @balance@ is set. solveComponent   :: Bool -> [Text] -> [(Text, Text, Int, Double)] -> Map Text Int solveComponent balance cnodes cedges@@ -475,7 +669,9 @@           rB           = if balance then balanceLR cnodes cedges treeF rF else rF       in normalizeNS rB --- | longest-path feasible 初期 rank (各 node = source からの δ 重み最長 path)。+-- | [日本語]: longest-path feasible 初期 rank (各 node = source からの δ 重み最長 path)。+--   [English]: A feasible initial rank via longest-path (each node gets the+--   δ-weighted longest path from a source). initRankNS :: [Text] -> [(Text, Text, Int, Double)] -> Map Text Int initRankNS cnodes cedges =   let parents = Map.fromListWith (<>)@@ -493,14 +689,19 @@       finalMemo = foldl' (\m v -> snd (go m v)) Map.empty cnodes   in Map.fromList [ (v, Map.findWithDefault 0 v finalMemo) | v <- cnodes ] --- | edge の slack = r_head − r_tail − δ (≥ 0 が feasible)。+-- | [日本語]: edge の slack = r_head − r_tail − δ (≥ 0 が feasible)。+--   [English]: An edge's slack, r_head − r_tail − δ (feasible when ≥ 0). slackNS :: Map Text Int -> (Text, Text, Int, Double) -> Int slackNS r (t, h, d, _) =   Map.findWithDefault 0 h r - Map.findWithDefault 0 t r - d --- | tight edge で spanning tree を成長させ tree edge index 集合を返す。--- spanning に満たない間は min-slack の incident 非 tree edge を選び tree を--- 平行移動して tight 化し、 再成長する (Gansner93 feasible_tree)。+-- | [日本語]: tight edge で spanning tree を成長させ tree edge index 集合を返す。+--   spanning に満たない間は min-slack の incident 非 tree edge を選び tree を+--   平行移動して tight 化し、 再成長する (Gansner93 feasible_tree)。+--   [English]: Grows a spanning tree from tight edges and returns the set of+--   tree edge indices. While the tree does not yet span, it picks the+--   min-slack incident non-tree edge, shifts the tree to make it tight, and+--   grows it again (Gansner93's feasible_tree). feasibleTreeNS   :: [Text] -> [(Text, Text, Int, Double)] -> Map Text Int -> Set.Set Int feasibleTreeNS cnodes cedges r0 =@@ -540,7 +741,9 @@                       in loop r'   in loop r0 --- | spanning tree を全 edge tight にする一意 rank (root=start を 0 に固定)。+-- | [日本語]: spanning tree を全 edge tight にする一意 rank (root=start を 0 に固定)。+--   [English]: The unique rank that makes every edge of a spanning tree+--   tight (fixes root=start to 0). tightRanksTree   :: [Text] -> [(Text, Text, Int, Double)] -> Set.Set Int -> Map Text Int tightRanksTree cnodes cedges tree =@@ -563,8 +766,10 @@       ranked = bfs (Set.singleton start) (Map.singleton start 0) [start]   in Map.fromList [ (v, Map.findWithDefault 0 v ranked) | v <- cnodes ] --- | negative cut value の tree edge を解消するまで pivot。--- 戻り値 = (最終 spanning tree, rank)。 tree は balance で再利用する。+-- | [日本語]: negative cut value の tree edge を解消するまで pivot。+--   戻り値 = (最終 spanning tree, rank)。 tree は balance で再利用する。+--   [English]: Pivots until no tree edge has a negative cut value. Returns+--   (the final spanning tree, the rank); the tree is reused for balancing. optimizeNS   :: Int -> [Text] -> [(Text, Text, Int, Double)]   -> Set.Set Int -> Map Text Int -> (Set.Set Int, Map Text Int)@@ -614,10 +819,16 @@                         rank'   = tightRanksTree cnodes cedges tree'                     in optimizeNS (budget - 1) cnodes cedges tree' rank' --- | LR balance (graphviz ns.c @balance@, mode 2)。 cut value 0 の tree edge を--- 列挙し、 その edge を逆向きに跨ぐ非 tree edge の slack δ (= 動かせる余地) の--- 半分だけ tail 側成分を中央へ寄せる。 cost は不変 (cut=0 = 微分 0) なので最適性--- を保ったまま free node を対称化する。 single pass (graphviz と同様)。+-- | [日本語]: LR balance (graphviz ns.c @balance@, mode 2)。 cut value 0 の tree edge を+--   列挙し、 その edge を逆向きに跨ぐ非 tree edge の slack δ (= 動かせる余地) の+--   半分だけ tail 側成分を中央へ寄せる。 cost は不変 (cut=0 = 微分 0) なので最適性+--   を保ったまま free node を対称化する。 single pass (graphviz と同様)。+--   [English]: LR balancing (graphviz ns.c's @balance@, mode 2). Enumerates+--   tree edges with cut value 0, and for each, shifts its tail-side+--   component toward the center by half the slack δ (the room to move) of+--   the non-tree edge crossing it in the opposite direction. The cost is+--   unchanged (cut=0 means the derivative is 0), so this symmetrizes free+--   nodes while preserving optimality. A single pass, as in graphviz. balanceLR   :: [Text] -> [(Text, Text, Int, Double)]   -> Set.Set Int -> Map Text Int -> Map Text Int@@ -661,31 +872,47 @@       -- tail 側を持つ tree edge のみ対象 (LR/straightening 両方含む)   in foldl' step rank0 (Set.toList tree) --- | 最小座標を 0 に正規化。+-- | [日本語]: 最小座標を 0 に正規化。+--   [English]: Normalizes the minimum coordinate to 0. normalizeNS :: Map Text Int -> Map Text Int normalizeNS m   | Map.null m = m   | otherwise  = let mn = minimum (Map.elems m) in Map.map (subtract mn) m  -- ===========================================================================--- Step 3: Order assignment (Phase 1 A3)+-- [日本語]: Step 3: Order assignment --   Gansner-Koutsofios-North-Vo 1993 §3、 dot default 24 iteration の --   median heuristic + transpose で同 rank 内の node 順を最適化。 --   長 edge (rank 差 > 1) は dummy node 経由の short edge 列に展開する。+-- [English]: Step 3: Order assignment. Optimizes node order within each rank+--   using the median heuristic + transpose over dot's default 24 iterations+--   (Gansner-Koutsofios-North-Vo 1993 §3). A long edge (rank difference > 1)+--   is expanded into a chain of short edges routed through dummy nodes. -- =========================================================================== --- | 各 rank の node 順 (= rank → 左から右の id 列)。+-- | [日本語]: 各 rank の node 順 (= rank → 左から右の id 列)。+--   [English]: The node order within each rank (rank to a left-to-right id list). type OrderMap = Map Int [Text] --- | 長 edge (= rank 差 > 1) を中間 rank の dummy node 経由の短 edge 列に展開。--- dummy node は 'lnDummy = True' で区別、 id は @"__dummy_<n>"@。--- 元 edge は削除され、 同 weight の短 edge 列に置換される。+-- | [日本語]: 長 edge (= rank 差 > 1) を中間 rank の dummy node 経由の短 edge 列に展開。+--   dummy node は 'lnDummy = True' で区別、 id は @"\_\_dummy_\<n\>"@。+--   元 edge は削除され、 同 weight の短 edge 列に置換される。+--   [English]: Expands a long edge (rank difference > 1) into a chain of+--   short edges routed through dummy nodes at the intermediate ranks. Dummy+--   nodes are distinguished by 'lnDummy = True', with ids of the form+--   @"\_\_dummy_\<n\>"@. The original edge is removed and replaced by a chain of+--   short edges carrying the same weight. insertDummies :: LayoutGraph -> LayoutGraph insertDummies lg = fst (insertDummiesWithChains lg) --- | 'insertDummies' + 元 edge → 経由 chain (= 始点と終点を含む id 列) を返す。--- 短 edge (rank 差 1) も map に含まれ、 chain = [from, to] (= 2 要素)。--- Phase 1 A5 edge routing で、 元 edge を chain 経由の control 点列で描画するために使う。+-- | [日本語]: 'insertDummies' + 元 edge → 経由 chain (= 始点と終点を含む id 列) を返す。+--   短 edge (rank 差 1) も map に含まれ、 chain = [from, to] (= 2 要素)。+--   edge routing で、 元 edge を chain 経由の control 点列で描画するために使う。+--   [English]: 'insertDummies' plus a map from the original edge to the chain+--   it is routed through (an id list including both endpoints). Short edges+--   (rank difference 1) are included too, as chain = [from, to] (2+--   elements). Used by edge routing to draw the original edge through the+--   chain's control points. insertDummiesWithChains   :: LayoutGraph -> (LayoutGraph, Map (Text, Text) [Text]) insertDummiesWithChains lg =@@ -714,15 +941,19 @@   in ( lg { lgNodes = lgNodes lg ++ extra, lgEdges = newEdges }      , chainMap ) --- | rank ごとの初期順序 (= ID 辞書順、 決定論性のため)。+-- | [日本語]: rank ごとの初期順序 (= ID 辞書順、 決定論性のため)。+--   [English]: The initial order within each rank (lexicographic by id, for determinism). initialOrder :: LayoutGraph -> OrderMap initialOrder lg =   let grouped = Map.fromListWith (<>)                   [ (lnRank n, [lnId n]) | n <- lgNodes lg ]   in Map.map sort grouped --- | 2 隣接 rank 間の交差数 (naive O(E^2))。--- 'edges' は (u, v) ペア、 u は upper の id、 v は lower の id。+-- | [日本語]: 2 隣接 rank 間の交差数 (naive O(E^2))。+--   @edges@ は (u, v) ペア、 u は upper の id、 v は lower の id。+--   [English]: The number of crossings between two adjacent ranks (naive+--   O(E^2)). @edges@ is a list of (u, v) pairs, where u is the upper rank's+--   id and v is the lower rank's id. bilayerCrossings :: [(Text, Text)] -> [Text] -> [Text] -> Int bilayerCrossings edges upper lower =   let posU = Map.fromList (zip upper [0 :: Int ..])@@ -739,7 +970,8 @@         in c + go rest   in go pairs --- | 全 rank pair の交差数合計。+-- | [日本語]: 全 rank pair の交差数合計。+--   [English]: The total crossing count summed over all rank pairs. countCrossings :: LayoutGraph -> OrderMap -> Int countCrossings lg om =   let rankMap = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -755,7 +987,9 @@              (Map.findWithDefault [] (r + 1) om)          | r <- [0 .. maxR - 1] ] --- | median: 偶数個なら 2 中央値の平均、 奇数個なら中央。+-- | [日本語]: median: 偶数個なら 2 中央値の平均、 奇数個なら中央。+--   [English]: The median: the average of the two middle values for an even+--   count, or the middle value for an odd count. medianOf :: [Double] -> Maybe Double medianOf [] = Nothing medianOf xs =@@ -766,8 +1000,11 @@             then s !! mid             else (s !! (mid - 1) + s !! mid) / 2 --- | 1 回 sweep (= median heuristic 1 pass)。--- 'topDown' True = rank 増加方向、 False = 減少方向。+-- | [日本語]: 1 回 sweep (= median heuristic 1 pass)。+--   @topDown@ True = rank 増加方向、 False = 減少方向。+--   [English]: A single sweep (one pass of the median heuristic). @topDown@+--   True sweeps in the direction of increasing rank, False the decreasing+--   direction. medianSweep :: LayoutGraph -> Bool -> OrderMap -> OrderMap medianSweep lg topDown om0 =   let ranks = sort (Map.keys om0)@@ -795,8 +1032,11 @@         in Map.insert r [ v | (_, v, _) <- sorted ] om'   in foldl' (flip sweepOne) om0 sweepDir --- | transpose: 同 rank 内の隣接 pair を試し交換、 交差数が下がるなら採用。--- 上下 rank の edge を両方見て判定。+-- | [日本語]: transpose: 同 rank 内の隣接 pair を試し交換、 交差数が下がるなら採用。+--   上下 rank の edge を両方見て判定。+--   [English]: Transpose: tries swapping adjacent pairs within a rank and+--   keeps the swap if it reduces the crossing count, judged by looking at+--   edges to both the rank above and below. transposeOrder :: LayoutGraph -> OrderMap -> OrderMap transposeOrder lg om0 =   let rankMap = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -830,12 +1070,20 @@       ranks = sort (Map.keys om0)   in foldl' (flip tryRank) om0 ranks --- | P3e (Phase 53 A3-3): flat edge (= 同 rank edge) の順序制約。--- graphviz @mincross.c@ の @flat_breakcycles@ + @flat_reorder@ 相当:--- 各 rank 内で flat edge が左→右を向くよう、 現在順序への影響を最小にした--- 安定 topological sort で並べ替える。 flat edge の閉路は 'breakCycles'--- (現在順序で DFS) で決定論的に破る。 flat edge の無い rank は不変--- (= flat edge 無しの graph では全体が恒等、 既存図ビット不変)。+-- | [日本語]: flat edge (= 同 rank edge) の順序制約。+--   graphviz @mincross.c@ の @flat_breakcycles@ + @flat_reorder@ 相当:+--   各 rank 内で flat edge が左→右を向くよう、 現在順序への影響を最小にした+--   安定 topological sort で並べ替える。 flat edge の閉路は 'breakCycles'+--   (現在順序で DFS) で決定論的に破る。 flat edge の無い rank は不変+--   (= flat edge 無しの graph では全体が恒等、 既存図ビット不変)。+--   [English]: The ordering constraint for flat edges (same-rank edges).+--   Corresponds to graphviz @mincross.c@'s @flat_breakcycles@ ++--   @flat_reorder@: within each rank, reorders via a stable topological sort+--   that minimizes disturbance to the current order, so that flat edges+--   point left-to-right. Cycles among flat edges are broken deterministically+--   by 'breakCycles' (DFS over the current order). Ranks with no flat edges+--   are unchanged (identity when the graph has no flat edges at all,+--   preserving existing figures bit-for-bit). flatReorder :: LayoutGraph -> OrderMap -> OrderMap flatReorder lg om0 =   let rankMap = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -872,18 +1120,31 @@           in Map.insert r (kahn indeg0 []) om'   in foldl' (flip tryRank) om0 (sort (Map.keys om0)) --- | Step 3 メイン: dummy 挿入 + 24 iteration median sweep + transpose。--- 戻り値 = (拡張済 LayoutGraph、 OrderMap)。 OrderMap は dummy も含む。+-- | [日本語]: Step 3 メイン: dummy 挿入 + 24 iteration median sweep + transpose。+--   戻り値 = (拡張済 LayoutGraph、 OrderMap)。 OrderMap は dummy も含む。+--   [English]: The Step 3 main entry point: dummy insertion, then 24+--   iterations of the median sweep plus transpose. Returns (the expanded+--   LayoutGraph, the OrderMap); the OrderMap includes dummies too. assignOrder :: LayoutGraph -> (LayoutGraph, OrderMap) assignOrder lg0 = let (a, b, _) = assignOrderFull lg0 in (a, b) --- | 'assignOrder' + 元 edge → chain map (= A5 edge routing 用)。+-- | [日本語]: 'assignOrder' + 元 edge → chain map (= edge routing 用) を返す。+--   [English]: 'assignOrder' plus a map from the original edge to its chain+--   (used for edge routing). ----- P3e (Phase 53 A3-3): flat edge があれば初期順序と各 iteration 後に--- 'flatReorder' を適用する (medianSweep / transpose は inter-rank edge しか--- 見ないため、 flat 制約は都度回復させる)。 flat edge 交差は countCrossings の--- 目的関数に**含めない** (graphviz は flat も ncross に数えるが、 現用途の flat は--- group 内の少数 edge で左→右向きの保証が主目的。 差分は correspondence doc に記載)。+-- [日本語]: flat edge があれば初期順序と各 iteration 後に+--   'flatReorder' を適用する (medianSweep / transpose は inter-rank edge しか+--   見ないため、 flat 制約は都度回復させる)。 flat edge 交差は countCrossings の+--   目的関数に__含めない__ (graphviz は flat も ncross に数えるが、 現用途の flat は+--   group 内の少数 edge で左→右向きの保証が主目的。 差分は correspondence doc に記載)。+--   [English]: If flat edges are present, 'flatReorder' is applied both to+--   the initial order and after each iteration (since medianSweep /+--   transpose only look at inter-rank edges, the flat constraint has to be+--   restored every time). Flat-edge crossings are __not included__ in+--   countCrossings's objective function (graphviz does count flat edges in+--   ncross, but here flat edges are typically a small number of within-group+--   edges whose main purpose is guaranteeing left-to-right orientation; the+--   difference is documented in the correspondence doc). assignOrderFull   :: LayoutGraph   -> (LayoutGraph, OrderMap, Map (Text, Text) [Text])@@ -905,33 +1166,60 @@   in (lg, final, chainMap)  -- ===========================================================================--- Step 4: Coordinate assignment---   Phase 39 Step3 (P4a) で Brandes-Köpf 4-candidate から graphviz position.c---   忠実の aux graph network simplex ('auxSimplexCoordsW') に置換済。---   旧 BK 実装 (brandesKopf / runBK / markType1 / verticalAlign / horizCompact /---   bk 定数) は呼び出し元ゼロのまま残っていたため Phase 53 A4 で物理削除---   (実装は git 履歴参照)。+-- [日本語]: Step 4: Coordinate assignment+--   Brandes-Köpf 4-candidate から graphviz position.c 忠実の aux graph network+--   simplex ('auxSimplexCoordsW') に置換済。 旧 BK 実装 (brandesKopf / runBK /+--   markType1 / verticalAlign / horizCompact / bk 定数) は呼び出し元ゼロのまま+--   残っていたため物理削除 (実装は git 履歴参照)。+-- [English]: Step 4: Coordinate assignment. Replaced the Brandes-Köpf+--   4-candidate approach with an aux-graph network simplex+--   ('auxSimplexCoordsW') that faithfully follows graphviz's position.c. The+--   old BK implementation (brandesKopf / runBK / markType1 / verticalAlign /+--   horizCompact / the bk constants) had zero remaining callers and was+--   physically deleted (see git history for the old implementation). -- =========================================================================== --- | Step 4 メイン: x 座標を割当て [0,1] 正規化。--- 結果は OrderMap に含まれる全 node id (= dummy 含む) → x ∈ [0,1]。+-- | [日本語]: Step 4 メイン: x 座標を割当て [0,1] 正規化。+--   結果は OrderMap に含まれる全 node id (= dummy 含む) → x ∈ [0,1]。+--   [English]: The Step 4 main entry point: assigns x coordinates, normalized+--   to [0,1]. The result maps every node id in the OrderMap (dummies+--   included) to x ∈ [0,1]. ----- Phase 39 Step3 (P4a): graphviz position.c に倣い Brandes-Köpf から--- **aux graph network simplex** ('auxSimplexCoords') へ置換。 BK には無かった--- 「dummy chain 直線化重み (Ω 1:2:8)」 と 「隣接対 nodesep 強制」 を simplex の--- 目的関数/制約として同時最適化するため、 長 edge の dummy 列が並走 node 列の--- 外へ独立縦列として分離する (= large の funnel collapse の layout 層 主因を根治)。--- Phase 39 Step8 (P8): 'plates' (= cluster メンバ id 群) を P4a simplex に渡し、--- cluster border 制約 ('clusterAuxEdges') を反映した x を解く。 plate 無し ([]) は--- 従来と完全同一。--- | 後方互換 wrapper (= 半幅情報なし = 全 real node 一律 'auxNodeHalfW')。--- test 群はこちらを使い構造的不変条件 (collinear / keepout / gap≥) を検証する。+-- [日本語]: graphviz position.c に倣い Brandes-Köpf から+--   __aux graph network simplex__ ('auxSimplexCoords') へ置換。 BK には無かった+--   「dummy chain 直線化重み (Ω 1:2:8)」 と 「隣接対 nodesep 強制」 を simplex の+--   目的関数/制約として同時最適化するため、 長 edge の dummy 列が並走 node 列の+--   外へ独立縦列として分離する (= large の funnel collapse の layout 層 主因を根治)。+--   @plates@ (= cluster メンバ id 群) を aux graph simplex に渡し、+--   cluster border 制約 ('clusterAuxEdges') を反映した x を解く。 plate 無し ([]) は+--   従来と完全同一。+--   [English]: Following graphviz's position.c, replaces Brandes-Köpf with an+--   __aux graph network simplex__ ('auxSimplexCoords'). It jointly optimizes,+--   as part of the simplex's objective/constraints, two things BK lacked — a+--   "dummy-chain straightening weight" (Ω 1:2:8) and "enforced nodesep+--   between adjacent pairs" — which separates a long edge's dummy chain into+--   an independent column outside the parallel node column (fixing the root+--   cause of the "large" example's funnel collapse at the layout level).+--   @plates@ (cluster member id groups) are passed into the aux-graph+--   simplex, which solves for x while honoring cluster-border constraints+--   ('clusterAuxEdges'). With no plates ([]), the result is unchanged.+--+-- | [日本語]: 後方互換 wrapper (= 半幅情報なし = 全 real node 一律 'auxNodeHalfW')。+--   test 群はこちらを使い構造的不変条件 (collinear / keepout / gap≥) を検証する。+--   [English]: A backward-compatible wrapper (no per-node half-width info —+--   uses 'auxNodeHalfW' uniformly for every real node). Test suites use this+--   to check structural invariants (collinearity / keepout / gap≥). assignCoords :: [[Text]] -> LayoutGraph -> OrderMap -> Map Text Double assignCoords = assignCoordsW Map.empty --- | Phase 39 P8 A4-2: size-aware 版。 @hwMap@ = real node id → 横半幅 (px, 整数)--- ('dagNodeBaseHalfWidth' を round したもの・DAG.coordStage が供給)。 simplex の--- node 間隔/cluster border 制約を実 node 幅で解く (= 兄弟 plate の box 重なり根治)。+-- | [日本語]: size-aware 版。 @hwMap@ = real node id → 横半幅 (px, 整数)+--   ('Graphics.Hgg.Layout.dagNodeBaseHalfWidth' を round したもの・DAG.coordStage が供給)。 simplex の+--   node 間隔/cluster border 制約を実 node 幅で解く (= 兄弟 plate の box 重なり根治)。+--   [English]: The size-aware variant. @hwMap@ maps a real node id to its+--   horizontal half-width in px (an integer, the rounded+--   'Graphics.Hgg.Layout.dagNodeBaseHalfWidth', supplied by DAG.coordStage). Solves the simplex's+--   node-spacing / cluster-border constraints using actual node widths+--   (fixing the root cause of sibling plate boxes overlapping). assignCoordsW :: Map Text Int -> [[Text]] -> LayoutGraph -> OrderMap -> Map Text Double assignCoordsW hwMap plates lg om =   let raw  = auxSimplexCoordsW hwMap plates lg om@@ -943,7 +1231,7 @@   in Map.map norm raw  -- ===========================================================================--- Step 4 (Phase 39 Step3 = P4a): aux graph network simplex で x 座標+-- [日本語]: Step 4 (aux graph network simplex で x 座標) --   graphviz position.c の @dot_position@ = --     create_aux_edges → rank(aux, 2 = LR balance) → remove_aux_edges --   を移植。 補助グラフは@@ -956,52 +1244,105 @@ --        (= 順序保持 + 最小間隔強制)。 dummy 絡みは間隔を詰める。 --   この aux graph 上で 'networkSimplexBalanced' を解くと、 並走する実 node 列と --   long-edge dummy 列が nodesep 以上離れた独立縦列になる。+-- [English]: Step 4 (x-coordinate assignment via aux-graph network simplex).+--   Ports graphviz position.c's @dot_position@ =+--     create_aux_edges → rank(aux, 2 = LR balance) → remove_aux_edges.+--   The auxiliary graph consists of:+--     ① straightening: each layout edge (u,v) is turned into an aux node+--        a_e plus two minlen-0 edges a_e→u, a_e→v (weight Ω). a_e floats to+--        min(x_u,x_v), and cost = Ω·|x_u − x_v| (straightening). Ω depends+--        on the endpoint kinds:+--          real-real 1 : real-virtual 2 : virtual-virtual 8+--        (dot's default ratio, keeping dummy chains straighter the longer they are).+--     ② LR constraint: an edge l→r for each same-rank adjacent pair (l,r),+--        with minlen = nodesep and weight 0 (preserves order and enforces+--        minimum spacing). Dummy-involved pairs get tighter spacing.+--   Solving 'networkSimplexBalanced' on this aux graph makes the parallel+--   real-node column and the long-edge dummy column separate into+--   independent columns at least nodesep apart. -- =========================================================================== --- | LR 制約の最小間隔 = graphviz make_LR_constraints の+-- | [日本語]: LR 制約の最小間隔 = graphviz make_LR_constraints の --   @width = ND_rw(left) + ND_lw(right) + nodesep@ を移植。--- 各 node の **半幅** + nodesep の和を隣接間隔とする。 これにより--- real node の隣に来る dummy は real の半幅ぶん外へ押し出され、 real node の--- body 内側に潜り込まない (= long-edge dummy 列が並走 chain の node body の外に--- 出る = funnel collapse の layout 層 主因を根治)。+--   各 node の __半幅__ + nodesep の和を隣接間隔とする。 これにより+--   real node の隣に来る dummy は real の半幅ぶん外へ押し出され、 real node の+--   body 内側に潜り込まない (= long-edge dummy 列が並走 chain の node body の外に+--   出る = funnel collapse の layout 層 主因を根治)。+--   [English]: The minimum LR-constraint spacing, ported from graphviz+--   make_LR_constraints's @width = ND_rw(left) + ND_lw(right) + nodesep@. The+--   spacing between neighbors is the sum of each node's __half-width__ plus+--   nodesep. This pushes a dummy sitting next to a real node outward by the+--   real node's half-width, so it never sinks inside the real node's body+--   (fixing the root cause of the funnel collapse at the layout level, where+--   a long edge's dummy column used to poke into the body of a parallel+--   node chain). ----- 旧実装は dummy 絡みを一律に小間隔 (= 旧 BK bkDummySpacing 0.4) にしており、--- dummy が real node body の内側に入っていた (= 並走 chain を貫通) のが large の--- 主因だった。+-- [日本語]: 旧実装は dummy 絡みを一律に小間隔 (= 旧 BK bkDummySpacing 0.4) にしており、+--   dummy が real node body の内側に入っていた (= 並走 chain を貫通) のが large の+--   主因だった。+--   [English]: The old implementation used a uniform small spacing for+--   anything involving a dummy (the old BK's bkDummySpacing 0.4), which let+--   dummies sit inside a real node's body (piercing a parallel chain) — the+--   main cause of the problem in the "large" example. ----- 値は **偶数**にする: 全 minlen 偶数 → 全 rank 偶数和 → LR balance の--- @delta `div` 2@ が丸め無しで厳密中央化される。+-- [日本語]: 値は __偶数__にする: 全 minlen 偶数 → 全 rank 偶数和 → LR balance の+--   @delta `div` 2@ が丸め無しで厳密中央化される。+--   [English]: The value is kept __even__: all-even minlens give an+--   all-even rank sum, so LR balancing's @delta `div` 2@ centers exactly,+--   with no rounding. ----- Phase 39 P8 A4-2 (改訂): 半幅は **一様** ('auxNodeHalfW') に戻した。 size-aware--- (per-node 幅) は非兄弟グラフの位置を動かし long-edge routing を折る回帰を生んだ--- (実測 2026-06-24)。 兄弟 plate box の重なりは separate_subclust (normalized gap)--- + render binding-pair (実幅は radius 既知の render で考慮) で解く。+-- [日本語]: 半幅は __一様__ ('auxNodeHalfW') に戻した。 size-aware+--   (per-node 幅) は非兄弟グラフの位置を動かし long-edge routing を折る回帰を生んだ+--   (実測 2026-06-24)。 兄弟 plate box の重なりは separate_subclust (normalized gap)+--   + render binding-pair (実幅は radius 既知の render で考慮) で解く。+--   [English]: Half-widths were reverted to __uniform__ ('auxNodeHalfW').+--   Making them size-aware (per-node width) moved unrelated (non-sibling)+--   graph positions and caused a regression that broke long-edge routing+--   (measured 2026-06-24). Overlap between sibling plate boxes is instead+--   resolved by separate_subclust (a normalized gap) plus the render-side+--   binding-pair step (which accounts for the actual width, known at render+--   time via the radius). auxNodeHalfW, auxDummyHalfW, auxNodeSep :: Int auxNodeHalfW  = 4   -- real node の半幅 (hwMap 欠落時 fallback) auxDummyHalfW = 0   -- dummy (virtual) node の半幅 (graphviz でも極小)-auxNodeSep    = 18  -- ★ A4-3 EXPERIMENT: graphviz nodesep 既定 18pt (point 一貫)+auxNodeSep    = 18  -- EXPERIMENT: graphviz nodesep 既定 18pt (point 一貫) --- | Phase 39 Step8 (P8): cluster (= plate) box の margin。 graphviz @CL_OFFSET@=8pt。+-- | [日本語]: cluster (= plate) box の margin。 graphviz @CL_OFFSET@=8pt。+--   [English]: The cluster (plate) box margin. graphviz's @CL_OFFSET@ = 8pt. auxPlateMargin :: Int auxPlateMargin = 8 --- | node a と b (= 同 rank で a が左・b が右隣) の最小間隔。--- @hwOf@ = 各 node の半幅 (px・dummy/欠落は内部 fallback 済)。+-- | [日本語]: node a と b (= 同 rank で a が左・b が右隣) の最小間隔。+--   @hwOf@ = 各 node の半幅 (px・dummy/欠落は内部 fallback 済)。+--   [English]: The minimum spacing between nodes a and b (same rank, a on+--   the left, b on the right). @hwOf@ gives each node's half-width in px+--   (dummies / missing entries already fall back internally). auxSepOf :: (Text -> Int) -> Text -> Text -> Int auxSepOf hwOf a b = hwOf a + hwOf b + auxNodeSep --- | P4a 本体: aux graph を構築し simplex で x (整数) を解いて Double で返す。--- 戻り値 = 実 node (dummy 含む・aux 除く) の raw x。 正規化は 'assignCoords' 側。+-- | [日本語]: aux graph を構築し simplex で x (整数) を解いて Double で返す。+--   戻り値 = 実 node (dummy 含む・aux 除く) の raw x。 正規化は 'assignCoords' 側。+--   [English]: Builds the aux graph, solves for integer x via simplex, and+--   returns it as a Double. The result is the raw x of real nodes (dummies+--   included, aux nodes excluded); normalization happens in 'assignCoords'. ----- Phase 39 Step8 (P8): 'plates' (= cluster メンバ id リスト群) があれば--- 'clusterAuxEdges' で graphviz position.c @pos_clusters@ 相当の cluster x 制約--- (border node + contain/keepout edge) を aux graph に追加する。 plate 無しは--- 従来と完全同一 (= 図ビット不変)。+-- [日本語]: @plates@ (= cluster メンバ id リスト群) があれば+--   'clusterAuxEdges' で graphviz position.c @pos_clusters@ 相当の cluster x 制約+--   (border node + contain/keepout edge) を aux graph に追加する。 plate 無しは+--   従来と完全同一 (= 図ビット不変)。+--   [English]: When @plates@ (cluster member id list groups) are given,+--   'clusterAuxEdges' adds cluster x-constraints equivalent to graphviz+--   position.c's @pos_clusters@ (border nodes plus contain/keepout edges) to+--   the aux graph. With no plates, the result is unchanged (figures are+--   bit-identical). auxSimplexCoords :: [[Text]] -> LayoutGraph -> OrderMap -> Map Text Double auxSimplexCoords = auxSimplexCoordsW Map.empty --- | Phase 39 P8 A4-2: size-aware 版。 @hwMap@ = real node id → 横半幅 (px)。--- @hwOf@ は dummy を 'auxDummyHalfW'、 hwMap 欠落を 'auxNodeHalfW' へ fallback。+-- | [日本語]: size-aware 版。 @hwMap@ = real node id → 横半幅 (px)。+--   @hwOf@ は dummy を 'auxDummyHalfW'、 hwMap 欠落を 'auxNodeHalfW' へ fallback。+--   [English]: The size-aware variant. @hwMap@ maps a real node id to its+--   horizontal half-width (px). @hwOf@ falls back to 'auxDummyHalfW' for+--   dummies and 'auxNodeHalfW' when missing from hwMap. auxSimplexCoordsW   :: Map Text Int -> [[Text]] -> LayoutGraph -> OrderMap -> Map Text Double auxSimplexCoordsW hwMap plates lg om =@@ -1014,7 +1355,7 @@         | isDum u || isDum v = 2         | otherwise          = 1       -- ① straightening: edge ごとに aux node + 2 本の minlen-0 edge。-      -- P3e (Phase 53 A3): flat edge (= 同 rank) は除外 — graphviz make_edge_pairs+      -- flat edge (= 同 rank) は除外 — graphviz make_edge_pairs       -- も rank 差のある edge のみ対象で、 flat を入れると x(u)=x(v) への引き寄せが       -- 同 rank の LR 分離 (②) と拮抗する。       rankOfL = Map.fromList [ (lnId n, lnRank n) | n <- lgNodes lg ]@@ -1031,7 +1372,7 @@       lrEdges =         [ (l, r, auxSepOf hwOf l r, 0)         | (_, layer) <- Map.toAscList om, (l, r) <- zip layer (drop 1 layer) ]-      -- ③ P8 cluster 制約: border node + contain/keepout/separate (graphviz pos_clusters)+      -- ③ cluster 制約: border node + contain/keepout/separate (graphviz pos_clusters)       (clustNodes, clustEdges) = clusterAuxEdges hwOf om plates       auxNodes = [ auxId i | (i, _) <- zip [0 ..] rankedEdges ]       realKeys = [ lnId n | n <- lgNodes lg ]@@ -1041,40 +1382,86 @@   in Map.fromList        [ (v, fromIntegral (Map.findWithDefault 0 v xInt)) | v <- realKeys ] --- | Phase 39 Step8 (P8): graphviz @lib/dotgen/position.c@ の @pos_clusters@--- (= @create_aux_edges@ 内) が張る cluster x 制約を、 我々の aux graph network--- simplex 用 edge として生成する。 一次ソースに忠実 (CL_OFFSET=8pt → 'auxPlateMargin'、--- border label 無し → border.x=0、 nested は A4 で別途)。+-- | [日本語]: graphviz @lib/dotgen/position.c@ の @pos_clusters@+--   (= @create_aux_edges@ 内) が張る cluster x 制約を、 我々の aux graph network+--   simplex 用 edge として生成する。 一次ソースに忠実 (CL_OFFSET=8pt → 'auxPlateMargin'、+--   border label 無し → border.x=0、 nested は別途)。+--   [English]: Generates, as edges for our aux-graph network simplex, the+--   cluster x-constraints that graphviz @lib/dotgen/position.c@'s+--   @pos_clusters@ (inside @create_aux_edges@) sets up. Faithful to the+--   primary source (CL_OFFSET=8pt maps to 'auxPlateMargin'; no border label,+--   so border.x=0; nesting is handled separately). ----- 各 plate p に左右 border virtual node @ln_p@ / @rn_p@ を立て (graphviz--- @make_lrvn@ = SLACKNODE)、 以下を張る:+-- [日本語]: 各 plate p に左右 border virtual node @ln_p@ / @rn_p@ を立て (graphviz+--   @make_lrvn@ = SLACKNODE)、 以下を張る: -- --   * @contain_nodes@: 各 rank の最左 member へ @ln_p → 最左@ (minlen = --     半幅 + margin)、 最右 member から @最右 → rn_p@ (同)。 = 箱の左右端確定。 --   * @contain_clustnodes@: @ln_p → rn_p@ (minlen 1, weight 128)。 = 箱を tight --     に圧縮 (member を詰める強い重み)。---   * @keepout_othernodes@: 各 rank で member ブロックの外側最近接 **非メンバ** u に+--   * @keepout_othernodes@: 各 rank で member ブロックの外側最近接 __非メンバ__ u に --     @u → ln_p@ / @rn_p → u@ (minlen = margin + 半幅)。 = 非メンバを箱外へ排除。---   * @separate_subclust@: 同一 rank に並ぶ **兄弟** plate (= 互いに包含関係に無い)+--   * @separate_subclust@: 同一 rank に並ぶ __兄弟__ plate (= 互いに包含関係に無い) --     の隣接 border 間に @rn_left → ln_right@ (minlen = CL_OFFSET)。 = 隣接箱の---     margin ぶんの隙間を x 解に確保 (= P8 A4-2・兄弟 plate box 重なりの根治)。+--     margin ぶんの隙間を x 解に確保 (= 兄弟 plate box 重なりの根治)。 ----- ★ Phase 44.3: graphviz @pos_clusters@ にはもう一つ @contain_subclust@--- (nested 親子 plate に @ln_p → ln_c@ / @rn_c → rn_p@・minlen CL_OFFSET・weight 128 を--- 直接の子へ張り、 親箱が子箱を margin ぶん外側で囲む) があるが、 **意図的に未実装**。--- 理由 (実測): 我々の plate box は 'plateBoxPt' が「直接 member glyph box ∪ **子 plate box--- (再帰)** + 固定 margin」で描くため、 入れ子の clearance は **箱モデル側で既に保証**される。--- contain_subclust を試作して nested/deep/tri 図を再生成しても幾何変化はゼロ (末尾桁 FP--- ノイズのみ・PNG はバイト一致) で、 border 制約は box 描画へ伝播しなかった。 = graphviz には--- 在るが **我々の描画経路では非寄与**ゆえ採用しない (図再生成 FP ノイズの実コストだけが残る)。--- 将来 box を border node 由来へ変える場合はその文脈で再導入する。--- ([[feedback-graphviz-only-faithful-algos]] / 2026-06-26 実測)。+--   [English]: For each plate p, sets up left/right border virtual nodes+--   @ln_p@ / @rn_p@ (graphviz @make_lrvn@ = SLACKNODE), and connects: ----- これにより plate が box として x 分離し、 cosmetic な 'applyPlateBands' /--- 'recenterNonPlateRows' (帯分離) が不要になる (= Step8 で撤去済)。+--   * @contain_nodes@: for each rank, @ln_p → leftmost member@ (minlen =+--     half-width + margin), and @rightmost member → rn_p@ (same). Fixes the+--     box's left and right edges.+--   * @contain_clustnodes@: @ln_p → rn_p@ (minlen 1, weight 128). Compresses+--     the box tight (a strong weight that packs the members together).+--   * @keepout_othernodes@: for each rank, the __non-member__ u nearest to+--     the outside of the member block gets @u → ln_p@ / @rn_p → u@ (minlen =+--     margin + half-width). Pushes non-members out of the box.+--   * @separate_subclust@: for __sibling__ plates (not in a containment+--     relation with each other) adjacent within the same rank, connects+--     @rn_left → ln_right@ between their borders (minlen = CL_OFFSET).+--     Reserves a margin-sized gap in the x solution between adjacent boxes+--     (fixing sibling plate box overlap). ----- Phase 39 P8 A4-2: 半幅は固定 'auxNodeHalfW' でなく @hwOf@ (= 'auxSimplexCoordsW'--- が hwMap から作る per-node 実半幅) を使う。 dummy/欠落の fallback は hwOf 内で済。+-- [日本語]: graphviz @pos_clusters@ にはもう一つ @contain_subclust@+--   (nested 親子 plate に @ln_p → ln_c@ / @rn_c → rn_p@・minlen CL_OFFSET・weight 128 を+--   直接の子へ張り、 親箱が子箱を margin ぶん外側で囲む) があるが、 __意図的に未実装__。+--   理由 (実測): 我々の plate box は 'Graphics.Hgg.Render.EdgeRoute.plateBoxPt' が「直接 member glyph box ∪+--   子 plate box (再帰) + 固定 margin」で描くため、 入れ子の clearance は+--   __箱モデル側で既に保証__される。 contain_subclust を試作して nested/deep/tri+--   図を再生成しても幾何変化はゼロ (末尾桁 FP ノイズのみ・PNG はバイト一致) で、+--   border 制約は box 描画へ伝播しなかった。 = graphviz には在るが+--   __我々の描画経路では非寄与__ゆえ採用しない (図再生成 FP ノイズの実コストだけが残る)。+--   将来 box を border node 由来へ変える場合はその文脈で再導入する。+--   ([[feedback-graphviz-only-faithful-algos]] / 2026-06-26 実測)。+--+--   [English]: graphviz's @pos_clusters@ has one more edge kind,+--   @contain_subclust@ (for a nested parent/child plate, connects @ln_p →+--   ln_c@ / @rn_c → rn_p@ directly to each child — minlen CL_OFFSET, weight+--   128 — so the parent box encloses the child box by a margin), but it is+--   __deliberately not implemented__ here. Reason (measured): our plate box+--   is drawn by 'Graphics.Hgg.Render.EdgeRoute.plateBoxPt' as "the union of direct member glyph boxes and+--   (recursively) child plate boxes, plus a fixed margin", so nested+--   clearance is __already guaranteed by the box model itself__. A prototype+--   of contain_subclust, tested by regenerating the nested/deep/tri figures,+--   produced zero geometric change (only trailing floating-point noise; the+--   PNGs were byte-identical) — the border constraint never propagated to box+--   drawing. So while graphviz has it, it is __inert along our render path__+--   and is not adopted (it would only add real cost from figure-regeneration+--   floating-point noise). Reconsider it if the box model is ever switched to+--   derive from border nodes.+--   ([[feedback-graphviz-only-faithful-algos]], measured 2026-06-26).+--+-- [日本語]: これにより plate が box として x 分離し、 cosmetic な @applyPlateBands@ /+--   @recenterNonPlateRows@ (帯分離) が不要になる (= 撤去済)。+--   [English]: As a result, plates separate along x as boxes, making the+--   cosmetic @applyPlateBands@ / @recenterNonPlateRows@ (band separation)+--   unnecessary (already removed).+--+-- [日本語]: 半幅は固定 'auxNodeHalfW' でなく @hwOf@ (= 'auxSimplexCoordsW'+--   が hwMap から作る per-node 実半幅) を使う。 dummy/欠落の fallback は hwOf 内で済。+--   [English]: Uses @hwOf@ (the per-node actual half-width built from hwMap+--   by 'auxSimplexCoordsW') rather than the fixed 'auxNodeHalfW'. The+--   dummy / missing-entry fallback is already handled inside hwOf. clusterAuxEdges   :: (Text -> Int) -> OrderMap -> [[Text]]   -> ([Text], [(Text, Text, Int, Double)])@@ -1135,19 +1522,33 @@   in (concatMap fst perResults, concatMap snd perResults ++ sepEdges)  -- ===========================================================================--- Step 5 (Phase 1 A6): Plate (= cluster) 制約+-- [日本語]: Step 5: Plate (= cluster) 制約 --   median sweep 後の OrderMap を post-process し、 同 plate に属する node が --   同 rank 内で連続するように再並べ替える。 各 plate の median 位置を維持して --   並べ替えるため、 crossing 増加を最小化する。 -----   nested plate: 渡された 'plates' 順を尊重し、 外側 → 内側 の順で適用する+--   nested plate: 渡された @plates@ 順を尊重し、 外側 → 内側 の順で適用する --   (= 最初に外側が contiguous 化、 次に内側がさらに細かく contiguous 化)。 --   多重所属 (= 1 node が 2 plate に属する) は spec §10.4 で禁止、 --   plates 中で 後の plate が優先 (= 先のは無視) される簡略処理。+-- [English]: Step 5: Plate (cluster) constraints. Post-processes the OrderMap+--   after the median sweep, reordering so that nodes belonging to the same+--   plate become contiguous within each rank. Reordering keeps each plate's+--   median position, minimizing the increase in crossings.+--+--   Nested plates: applied in the order @plates@ were given, from outer to+--   inner (the outer plate is made contiguous first, then the inner one is+--   further refined into contiguity). Multiple membership (one node+--   belonging to 2 plates) is forbidden by spec §10.4; as a simplification,+--   whichever plate comes later in @plates@ takes priority (the earlier one+--   is ignored). -- =========================================================================== --- | 各 rank で plate メンバを contiguous にする。 plate id は plates 順の index--- (= 後の plate が優先、 = nested plate の内側を後ろに置く運用を想定)。+-- | [日本語]: 各 rank で plate メンバを contiguous にする。 plate id は plates 順の index+--   (= 後の plate が優先、 = nested plate の内側を後ろに置く運用を想定)。+--   [English]: Makes plate members contiguous within each rank. The plate id+--   is the index within @plates@ (later plates take priority — the intended+--   usage is placing a nested plate's inner plate later). applyPlateConstraints :: [[Text]] -> OrderMap -> OrderMap applyPlateConstraints [] om = om applyPlateConstraints plates om =@@ -1175,10 +1576,16 @@         in [ v | (_, v, _) <- sorted ]   in Map.map regroup om --- | 1 方向 sweep。 'topDown' True なら上 rank の median を anchor、 False なら下 rank。--- 同 rank 内では A3 の order を尊重しつつ最小間隔を保証する。--- 隣接ペアの少なくとも片方が dummy node なら spacing を 'dummyMinSpacing' に縮める--- (= dummy は描画されないので chain node と近接させて長 edge spline の遠回りを抑える)。+-- | [日本語]: 1 方向 sweep。 @topDown@ True なら上 rank の median を anchor、 False なら下 rank。+--   同 rank 内では Step 3 の order を尊重しつつ最小間隔を保証する。+--   隣接ペアの少なくとも片方が dummy node なら spacing を @dummyMinSpacing@ に縮める+--   (= dummy は描画されないので chain node と近接させて長 edge spline の遠回りを抑える)。+--   [English]: A single-direction sweep. When @topDown@ is True, anchors on+--   the median of the rank above; when False, the rank below. Within a rank+--   it respects the Step 3 order while guaranteeing minimum spacing. When at+--   least one node of an adjacent pair is a dummy node, spacing shrinks to+--   @dummyMinSpacing@ (since dummies are not drawn, keeping them close to+--   the chain node curbs long detours in the long-edge spline). computeOneDir :: Bool -> LayoutGraph -> OrderMap -> Map Text Double computeOneDir topDown lg om =   let ranks = sort (Map.keys om)

@@ -1,12 +1,16 @@ -- | -- Module      : Graphics.Hgg.Easy--- Description : Layer 1 ─ 入門用 Easy API (= 値直接受け + overlay 既定) + Spec 再 export+-- Description : Layer 1 (Easy API) — direct-value helpers, overlay by default, Spec re-export -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- 4 層 API 設計のうち **Easy 層**。--- grammar API (`Graphics.Hgg.Spec`) を**そのまま再 export** した上で、--- 「`inline` を書かずに `[Double]` を直接渡す」 専用ヘルパを足す (= 別名方式)。+-- [日本語]: 4 層 API 設計のうち __Easy 層__。+--   grammar API (`Graphics.Hgg.Spec`) を__そのまま再 export__ した上で、+--   「`inline` を書かずに `[Double]` を直接渡す」 専用ヘルパを足す (= 別名方式)。+--   [English]: The __Easy layer__ of the 4-layer API design. Re-exports the+--   grammar API (`Graphics.Hgg.Spec`) __as-is__, and adds dedicated helpers+--   that let you pass a `[Double]` directly without writing `inline` (an+--   alias-based approach). -- -- @ -- import Graphics.Hgg.Easy@@ -20,8 +24,12 @@ --               , lineXY [1,2,3] [1,4,9] ] -- @ ----- 設計: Easy helper は 'Layer' を返す (grammar と同じ合成性)。 重畳は 'overlay' で--- 包む (= 'scatter' '<>' 'line' の落とし穴を回避、 @design/monoid-semantics.md@ §1)。+-- [日本語]: 設計: Easy helper は 'Layer' を返す (grammar と同じ合成性)。 重畳は+--   'overlay' で包む (= 'scatter' '<>' 'line' の落とし穴を回避、+--   @design/monoid-semantics.md@ §1)。+--   [English]: Design: Easy helpers return a 'Layer' (the same composability+--   as grammar). Overlaying is done by wrapping with 'overlay' (avoiding the+--   'scatter' '<>' 'line' pitfall; see @design/monoid-semantics.md@ §1). {-# LANGUAGE OverloadedStrings #-} module Graphics.Hgg.Easy   ( -- * grammar API 全体 (再 export)@@ -39,31 +47,44 @@  import           Graphics.Hgg.Spec --- | 散布図 (= 'scatter' の値直接受け版)。 @points xs ys@ は @scatter (inline xs) (inline ys)@。+-- | [日本語]: 散布図 (= 'scatter' の値直接受け版)。 @points xs ys@ は+--   @scatter (inline xs) (inline ys)@。+--   [English]: A scatter plot (the direct-value version of 'scatter').+--   @points xs ys@ is @scatter (inline xs) (inline ys)@. points :: [Double] -> [Double] -> Layer points xs ys = scatter (inline xs) (inline ys) --- | 折れ線 (= 'line' の値直接受け版)。+-- | [日本語]: 折れ線 (= 'line' の値直接受け版)。+--   [English]: A line plot (the direct-value version of 'line'). lineXY :: [Double] -> [Double] -> Layer lineXY xs ys = line (inline xs) (inline ys) --- | 棒 (= 'bar' の値直接受け版)。+-- | [日本語]: 棒 (= 'bar' の値直接受け版)。+--   [English]: A bar chart (the direct-value version of 'bar'). bars :: [Double] -> [Double] -> Layer bars xs ys = bar (inline xs) (inline ys) --- | ヒストグラム (= 'histogram' の値直接受け版)。+-- | [日本語]: ヒストグラム (= 'histogram' の値直接受け版)。+--   [English]: A histogram (the direct-value version of 'histogram'). hist :: [Double] -> Layer hist xs = histogram (inline xs) --- | 片軸プロット: index (0,1,2,…) を x に取った散布図。+-- | [日本語]: 片軸プロット: index (0,1,2,…) を x に取った散布図。+--   [English]: A single-axis plot: a scatter plot using the index+--   (0, 1, 2, …) as x. plotY :: [Double] -> Layer plotY ys = points (map fromIntegral [0 .. length ys - 1]) ys --- | layer 群を重ね合わせた 'VisualSpec' (= @foldMap layer@)。 入門者はこれで--- 重畳を書く (`scatter <> line` の落とし穴を避ける)。+-- | [日本語]: layer 群を重ね合わせた 'VisualSpec' (= @foldMap layer@)。 入門者は+--   これで重畳を書く (`scatter <> line` の落とし穴を避ける)。+--   [English]: A 'VisualSpec' that overlays a group of layers (@foldMap+--   layer@). Beginners should use this to overlay plots, avoiding the+--   `scatter <> line` pitfall. overlay :: [Layer] -> VisualSpec overlay = foldMap layer --- | 'overlay' の別名 (= 複数 plot を「並べる」 ニュアンスの短名)。+-- | [日本語]: 'overlay' の別名 (= 複数 plot を「並べる」 ニュアンスの短名)。+--   [English]: An alias for 'overlay', with a shorter name conveying the+--   nuance of "arranging" multiple plots. plots :: [Layer] -> VisualSpec plots = overlay

@@ -1,1311 +1,2384 @@ -- | -- Module      : Graphics.Hgg.Layout--- Description : Layer 2 ─ Layout 計算 (Phase 26 §A-4 ColRef 対応版)--- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda)--- License     : BSD-3-Clause------ 'VisualSpec' から viewport / scale / axis tick を計算する純粋関数群。--- col 名参照は 'Resolver' で Vector に解決した上で extent を求める。-{-# LANGUAGE DeriveGeneric     #-}-{-# LANGUAGE OverloadedStrings #-}-module Graphics.Hgg.Layout-  ( Layout(..)-  , ViewportSize(..)-  , Rect(..)-  , Scale(..)-  , computeLayout-  , scaleApply-    -- ★ Phase 33 B3: 相対単位込み座標 'Pos' の pt 解決 (Layout の産物 = rect/scale-    --   が相対単位の意味を決める ⇒ resolver は Layout 側に置く・Unit は型のみ)。-  , UCtx(..)-  , resolvePosX-  , resolvePosY-  , niceTicks-  , niceTicksLog-  , extendedBreaks-  , formatTicksGG-    -- ★ Phase 8 A2 Step1: 描画側 (Render) と共有する margin 定数 / scale。-  , ggMarginScale-  , ggHalfLine-  , ggTickLen-  , ggAxTextMar-  , ggAxTitleMar-    -- ★ Phase 35/38: 凡例メトリクス定数 + content-based 幅 (Render と共有)。-  , legendBaseSize-  , legendKeyW-  , legendKeyPitch-  , isWideChar-  , textWidthEm-  , dagLabelFs-  , dagNodeBaseHalfWidth-  , legendGuideWidth-    -- ★ Phase 38: 凡例ラベル収集 (Render/Layer から集約・予約と描画の単一情報源)。-  , numToText-  , nubKeep-  , findColorEnc-  , effectiveLegendTitle-  , allColorCategories-  , LegendGuide(..)-  , collectGuides-    -- ★ Phase 8 C (gtable §E): 汎用 1 次元トラック割付 (ggplot gtable 忠実レイアウタの基盤)。-  , Track(..)-  , solveTracks-    -- ★ Phase 9 A-5: legend 配置 (PS と同一)。 予約 (computeLayout) と描画 (Render) で共有。-  , needsLegend-  , effectiveLegendPos-  , hasColorEncoding-    -- ★ Phase 9 C: coord_flip 用の座標投影 helper (Render が共有)。-  , projectXY-  , projectRectData-  , projectBarRect-  , catUnitPx-  , resolutionOf-  , AxisPlacement(..)-  , coordXAxisPlacement-  , coordYAxisPlacement-  , coordXGridIsVertical-  , coordOf-  , isPolar-  , polarCenter-  , polarPoint-  , domFrac-  ) where--import           Graphics.Hgg.Layout.RangeOf (collectXY, extentsOrDefault,-                                              histRawDomain)-import           Graphics.Hgg.Palette (ggplotHue)-import           Graphics.Hgg.Unit (lengthToPt, Pos (..))-import           Graphics.Hgg.Spec (AxisKind (..), AxisSpec (..), ColData (..),-                                    DAGNode (..), DAGNodeKind (..),-                                    ColRef, ColorEnc (..), FontSpec (..), Layer (..),-                                    LegendPosition (..), LegendSpec (..),-                                    MarkKind (..), Resolver,-                                    ThemeName (..), Coord (..),-                                    VisualSpec (..), YAxisSide (..),-                                    applyDiscreteLimits, axisKindOf, ridgeAutoFlip,-                                    axTickValsOf, axTickLabelsOf, axisRotateOf, distGroupRef,-                                    compositeLanes, colRefName,-                                    lgPosition, lyColor, lyColorCats, lyShapeBy,-                                    lyEncX, lyEncY, lyKind, lyBinCount,-                                    lyYAxisSide, orderedCats, resolveCol,-                                    resolveNum, themeSeriesPalette,-                                    HexCell (..), hexbinLayerCells)-import           Graphics.Hgg.Primitive (Rect (..))  -- Phase 51: leaf へ移設・re-export-import           Numeric           (showFFloat)-import           Data.Aeson        (FromJSON, ToJSON)-import           Data.List         (foldl', nub, group, sort)-import           Data.Monoid       (First (..), Last (..), getFirst)-import           Data.Text         (Text)-import qualified Data.Text         as T-import           Data.Vector       (Vector)-import qualified Data.Vector       as V-import           GHC.Generics      (Generic)--data ViewportSize = ViewportSize { vsW :: !Int, vsH :: !Int }-  deriving (Show, Eq, Generic)--instance ToJSON   ViewportSize-instance FromJSON ViewportSize---- Phase 51: 'Rect' は 'Graphics.Hgg.Primitive' (leaf) へ移設。 本 module は--- import + export list で re-export し、 既存の @import Layout (Rect(..))@ を不変に保つ。---- | Phase 26 §A-4: Linear のみ。 Log / Sqrt / Time / Ordinal / Band は後続。--- | Phase 26 §C-2 #1: PlotConfig.xLog / yLog 等価。 LinearScale に加えて--- LogScale を追加 (= 自然対数 ln で線形化、 描画は底 10 で tick 表示)。-data Scale-  = LinearScale { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }-  | LogScale    { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }-  -- | Sqrt scale (P15、 Phase 6 A6): forward = sqrt v (= 数値が非負の domain 限定、-  --   負値は range 下端 clip)。 inverse は描画側で不要 (= tick は値域、 表示は元値)。-  | SqrtScale   { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }-  -- | Time scale (P7、 Phase 6 A7): unix epoch (Double seconds) を Linear で扱う。-  --   tick は niceTimeTicks (= 1m / 1h / 1d / 1w / 1M / 1y candidates)。-  --   表示 format は AxisFormat の AxisTimeFmt 経由 (= Render 側)。-  | TimeScale   { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }-  deriving (Show, Eq)--data Layout = Layout-  { lpViewport :: !ViewportSize-  , lpPlotArea :: !Rect-  , lpXScale   :: !Scale-  , lpYScale   :: !Scale-    -- ★ Phase 9 C: coord_flip 用。 データ x を縦 px・データ y を横 px に写す scale。-    --   domain は lpXScale/lpYScale と同一 (= categorical ±0.6 / baseline / funnel を継承)、-    --   range のみ縦横入替。 常時算出するが Cartesian では未使用。 projectXY が参照。-  , lpXScaleFlipped :: !Scale   -- データ x の domain、 range = 縦 px (Y と同じ反転 [rY+rH, rY])-  , lpYScaleFlipped :: !Scale   -- データ y の domain、 range = 横 px [rX, rX+rW]-    -- ★ Phase 10 A2: spec の座標系 (= coordOf spec)。 spec を持たない各 mark renderer が-    --   projectXY/projectPoint で参照するため Layout に保持 (Cartesian は従来と bit 一致)。-  , lpCoord :: !Coord-    -- ★ Phase 8 B22: dual Y 軸 (右側)。 vsYAxisRight が指定された / 右軸 layer が-    --   ある場合のみ Just。 右軸 layer の y 値だけから独立に scale を作る (= 左軸とは-    --   別 domain)。 Nothing なら従来通り単一 Y 軸。-  , lpYScaleRight :: !(Maybe Scale)-  , lpXTicks   :: ![Double]-  , lpYTicks   :: ![Double]-  , lpYTicksRight :: ![Double]   -- ★ Phase 8 B22 右軸 tick (右軸無効なら [])-  , lpCategoricalPalette :: ![T.Text]   -- ★ P17 (= default hggMain F-3)-  , lpContinuousPalette  :: ![T.Text]   -- ★ P17 (= default viridis5)-    -- ★ Phase 11 A4-e: 色/サイズ scale 拡充 (spec 駆動、 colorVector/sizeVector が参照)。-  , lpColorManual :: ![(T.Text, T.Text)]              -- scale_color_manual (空 = 無指定)-  , lpColorGradient2 :: !(Maybe (T.Text, T.Text, T.Text, Double))  -- scale_color_gradient2-  , lpSizeRange :: !(Double, Double)                  -- scale_size range (default (3,10))-    -- ★ Phase 6+ case C-1: categorical x 軸の label (= ColTxt 由来)。-    --   非空なら tick label として整数位置 0..n-1 の代わりにこれを使う。-    --   空なら通常の numeric tick label。-  , lpXCategoryLabels :: ![T.Text]-  , lpYCategoryLabels :: ![T.Text]-    -- ★ Phase 11 A4-d: 明示 tick ラベル (= ggplot labels=)。 非空なら lpXTicks/lpYTicks と-    --   1:1 対応で formatTick を上書き。 空なら従来通り (numeric は値 format、 categorical は-    --   lpXCategoryLabels)。 axTickLabels 指定時のみ非空。-  , lpXTickLabels :: ![T.Text]-  , lpYTickLabels :: ![T.Text]-    -- ★ Phase 8 B7: 全 histogram layer 共通の生 (pad なし) x domain (lo, hi)。-    --   render と y-range 計算が同じ bin 境界を使うため (= はみ出し防止)。-  , lpHistDomain :: !(Maybe (Double, Double))-    -- ★ Phase 8 A2 Step1: margin 縮小係数 (= ggMarginScale)。 描画オフセット-    --   (tick/label/title) を computeLayout と同じ sc で算出するため Layout に保持。-    --   subplots は viewport を 0 に上書きするため viewport から再計算できない。-  , lpMarginScale :: !Double-    -- ★ Phase 8 A2 Step1: 計算済み 4 辺マージン (px)。 描画 (title/軸タイトル) は-    --   plotArea からこれだけ外側に配置する。 subplots panel は plotArea が cell 位置に-    --   平行移動されるが本値 (panel 自身の margin) を保持するので panel 端基準で配置できる。-  , lpMarginTop    :: !Double-  , lpMarginLeft   :: !Double-  , lpMarginBottom :: !Double-  } deriving (Show, Eq)---- | 'VisualSpec' の全 layer から 'Resolver' で encX/encY を解決、 全 layer--- 横断で extent を計算。 viewport は spec の width/height、 余白は固定 margin。-computeLayout :: Resolver -> VisualSpec -> Layout-computeLayout r spec0 =-  -- ★ Phase 18 A2: 離散 limits (scale{X,Y}DiscreteLimits) を先に解決 (冪等・-  --   未指定なら完全 no-op)。 renderToPrimitives 側も同じ解決を通るので整合する。-  let spec = ridgeAutoFlip (applyDiscreteLimits r spec0)  -- ★ B1c: ridge は coord_flip 自動付与-      -- ★ Phase 33 B4: layout は純 pt 空間 ([[Option 1]])。figure size を pt に解決-      --   (px 入力のみ dpi で pt 化)。既定 468×288pt = 6.5×4in (aspect 1.625・横長)。-      --   横長はデータ図の相関構造が読みやすく R4DS 本文の chunk 比にも近い (B8 で確定)。-      --   raster backend が k=dpi/72 を掛けて device px にするのは B5 (backend 1 箇所)。-      --   dpi は px 入力解決にのみ使う。-      dpiVal = maybe 96 id (getLast (vsDpi spec))-      w = maybe 468 (lengthToPt dpiVal) (getLast (vsWidth  spec))-      h = maybe 288 (lengthToPt dpiVal) (getLast (vsHeight spec))-      vp = ViewportSize (round w) (round h)-      -- Phase 8 A2 Step1 (design §D): ggplot half_line マージンモデル。 固定 px (旧-      -- 60/40/40/50) を全廃し、 plot.margin(halfLine) + grob 実寸 (title/y目盛幅/tick長/-      -- 軸タイトル) を積み上げて算出。 sc は小 viewport (inset/pairs) 用の縮小係数 (下限-      -- 0.4)。 描画オフセット (Render tickMarks/labels) も同じ定数から導出する。-      sc = ggMarginScale w h-      -- Phase 8 B22: 右 Y 軸がある場合は plotArea 右端を 40px 追加で空ける (= PS と同値)。-      hasRightY = case getLast (vsYAxisRight spec) of-        Just _  -> True-        Nothing -> any (\l -> getLast (lyYAxisSide l) == Just YAxisRight) (vsLayers spec)-      rightAxisW = if hasRightY then 40 else 0-      -- フォント実寸 (spec 指定 > default)。 maxYTickW は y 目盛りラベルの最大文字幅-      -- (numeric は fmtNum で近似、 軸 format は width 推定では無視 = Step1 許容)。-      -- ★ Phase 34: 既定フォント実寸を ggplot theme_grey 較正値に合わせる-      --   (Render.mkFontTS と同値。 旧 16/12/11 は margin 過大予約 → 軸タイトルが遠かった)。-      titleSize     = fontSizeOf (vsTitleFont     spec) 13.2  -- plot.title  base×1.2-      axisLabelSize = fontSizeOf (vsAxisLabelFont spec) 11    -- axis.title  base-      tickSize      = fontSizeOf (vsTickFont      spec) 8.8   -- axis.text   base×0.8-      -- 左 margin 用の y 目盛りラベル: 離散 limits (yCatLabels) > 明示ラベル-      -- (axisBreaksLabeled = explicitYLabs) > numeric tick の順で採用する。-      -- (明示ラベルを測らないと長い category ラベルが軸外へ溢れる)。-      yTickLabelStrs-        | not (null yCatLabels)    = yCatLabels-        | not (null explicitYLabs) = explicitYLabs-        | otherwise                = formatTicksGG yTicks-      maxYTickW = if null yTickLabelStrs then 0-                  else 0.6 * tickSize-                         * fromIntegral (maximum (map T.length yTickLabelStrs))-      hasTitle  = case getLast (vsTitle  spec) of Just _ -> True; _ -> False-      hasXLabel = case getLast (vsXLabel spec) of Just _ -> True; _ -> False-      hasYLabel = case getLast (vsYLabel spec) of Just _ -> True; _ -> False-      -- ★ Phase 37 A1: subplots container は自分の軸を描かない。 軸目盛り/軸タイトル分の-      --   マージン (tickLen/axTextMar/maxYTickW/軸タイトル) を予約せず、 plot.margin と-      --   タイトル帯・凡例・caption のみにする (= 描画範囲を各 panel に明け渡す)。-      --   従来は container が phantom 軸マージンを取り、 内側 panel が二重取りしていた。-      isContainer = not (null (vsSubplots spec))-      -- Phase 11 A5-a: labs (subtitle/caption/tag) の margin 予約。 未指定なら 0 で-      -- 従来同一。 subtitle は top に積み増し、 caption は bottom、 tag は title/subtitle-      -- が無い時のみ top (= 在る時は左寄せタグが title 帯に同居できる)。-      hasSubtitle = case getLast (vsSubtitle spec) of Just _ -> True; _ -> False-      hasCaption  = case getLast (vsCaption  spec) of Just _ -> True; _ -> False-      hasTag      = case getLast (vsTag      spec) of Just _ -> True; _ -> False-      labsSubExtra = if hasSubtitle then 11 + sc * ggHalfLine else 0-      labsTagExtra = if hasTag && not (hasTitle || hasSubtitle) then 13 + sc * ggHalfLine else 0-      labsCapExtra = if hasCaption then 9 + sc * ggHalfLine else 0-      -- Phase 8 C (small-viewport text fix): 間隔定数 (halfLine/tickLen/axTextMar/-      -- axTitleMar) は sc 倍するが、 文字サイズ由来の項 (titleSize/tickSize/maxYTickW/-      -- axisLabelSize) は **等倍** (フォントは実寸描画で縮まないため)。 旧実装は全体を-      -- sc 倍し、 小 viewport (subplots/pairs/inset) で数値が軸に被っていた。 sc=1 では-      -- 新旧同値なので通常プロットは不変。-      tM = sc * ggHalfLine + (if hasTitle then titleSize + sc * ggHalfLine else 0)-                 + labsSubExtra + labsTagExtra-      -- ★ x 目盛りラベルの回転 (axisRotate) 予約: 非回転は tickSize (従来) だが、-      --   回転時はラベル**幅**が下方向に伸びる。 左 margin の maxYTickW と対称に、-      --   x 目盛りラベルの最大文字幅を回転角で投影して予約する (rotX=0 で従来同値)。-      xRot = axisRotateOf (vsXAxis spec)-      xTickLabelStrs-        | not (null xCatLabels)    = xCatLabels-        | not (null explicitXLabs) = explicitXLabs-        | otherwise                = []          -- numeric は短いので従来 tickSize 予約で足る-      maxXTickW = if null xTickLabelStrs then 0-                  else 0.6 * tickSize-                         * fromIntegral (maximum (map T.length xTickLabelStrs))-      -- Phase 50 A2: 回転 x ラベル (符号によらず rotX≠0) はラベル**幅**が下へ張り出すので、-      --   左 margin の maxYTickW と対称に、 最大文字幅を回転角で投影して予約する-      --   (rotX=0 で従来 tickSize と一致)。 ggplot の回転ラベル margin と同方針。-      xTickReserve-        | xRot == 0 = tickSize-        | otherwise = let rad = xRot * pi / 180-                      in tickSize * abs (cos rad) + maxXTickW * abs (sin rad)-      bM | isContainer = sc * ggHalfLine + legendH + labsCapExtra-         | otherwise   = sc * (ggHalfLine + ggTickLen + ggAxTextMar) + xTickReserve-                 + (if hasXLabel then sc * ggAxTitleMar + axisLabelSize else 0)-                 + legendH + labsCapExtra-      lM | isContainer = sc * ggHalfLine-         | otherwise   = sc * (ggHalfLine + ggTickLen + ggAxTextMar) + maxYTickW-                 + (if hasYLabel then sc * ggAxTitleMar + axisLabelSize else 0)-      -- Phase 9 A-5 (PS Layout と同一): 凡例ぶん plotArea を縮めて図内に収める (ggplot は-      -- legend を gtable の一部として扱い panel を縮める)。 Inside/None は予約しない。-      -- ★ Phase 34: facet 時も右凡例を予約する (旧実装は facet で legendW=0 にして凡例を-      --   完全に落としていた = ggplot は facet でも凡例を出す)。-      legendPos = needsLegend spec (effectiveLegendPos (vsLegend spec))-      -- Phase 11 A5-c: nrow グリッドぶん予約を拡げる (default 1 で従来同一 = ゼロ diff)。-      --   ★ Phase 38: 右凡例は縦スタック (renderGuideBlock 単列) なので legNcol 予約は廃止。-      legNrow = max 1 (maybe 1 id (getLast (vsLegendNrow spec)))-      -- ★ Phase 38: 右凡例幅を「最長ラベル」で算出 (固定 80/+70列 を撤去)。 renderGuideBlock の-      --   描画式に一致する 'legendGuideWidth' を全 guide に適用し、 縦スタックゆえ最大幅を予約。-      --   gap (panel→凡例 = 2*ggHalfLine) は renderLegendRight の x0 オフセットと一致。-      --   フォントは既定 (item=base×0.8 / title=base)。 override 無し時 render と一致 (旧固定80は-      --   フォント完全無視だったので後退なし)。-      legItemF  = legendBaseSize * 0.8-      legTitleF = legendBaseSize-      shapeCats scr = case resolveCol r scr of-        Just (TxtData v) -> orderedCats (V.toList v)-        Just (NumData v) -> orderedCats (map numToText (V.toList v))-        _                -> []-      -- ★ 連続 colorbar の予約ラベルは renderGuideBlock (ColorByContinuous) の描画と-      --   同一 = Wilkinson extended breaks の範囲内 nice 値。 旧実装は生 min/mid/max を-      --   使っており、 LCG 等の長大桁データで予約幅 >> 実描画幅 になり凡例が無駄に広かった-      --   (予約と描画は同一ラベル源にする不変条件・本 module 冒頭コメント参照)。-      contColorLabels cr = case resolveNum r cr of-        Just nums | not (V.null nums) ->-          let vMin = V.minimum nums; vMax = V.maximum nums-          in case filter (\b -> b >= vMin && b <= vMax) (extendedBreaks 5 vMin vMax) of-               [] -> [numToText vMin, numToText vMax]-               bs -> map numToText bs-        _ -> []-      guideWidth g = case g of-        ColorGuide (ColorByCol _)         ->-          legendGuideWidth legItemF legTitleF (effectiveLegendTitle spec) (allColorCategories r (vsLayers spec))-        ColorGuide (ColorByContinuous cr) ->-          legendGuideWidth legItemF legTitleF (effectiveLegendTitle spec) (contColorLabels cr)-        ColorGuide (ColorStatic _)        -> 0-        CountBarGuide lo hi               ->-          legendGuideWidth legItemF legTitleF "count"-            (map numToText (filter (\b -> b >= lo && b <= hi) (extendedBreaks 5 lo hi)))-        ShapeGuide scr                    ->-          -- 見出しは render と同じく sentinel を空に潰してから幅を見積る。-          let nm = colRefName scr-              t  = if nm == "<inline-num>" || nm == "<inline-txt>" then "" else nm-          in legendGuideWidth legItemF legTitleF t (shapeCats scr)-      legendGuidesW = maximum (0 : map guideWidth (collectGuides r spec))-      -- Phase 32 (re-apply): LegendRightCenter も右域に同じ幅を予約 (縦位置のみ違う)。-      legendW = if legendPos == LegendRight || legendPos == LegendRightCenter-                  then 2 * ggHalfLine + legendGuidesW else 0-      legendH = if legendPos == LegendBottom then 50 + fromIntegral (legNrow - 1) * 16 else 0-      rM = sc * ggHalfLine + rightAxisW + legendW-      -- Phase 8 A2 Step2 (design §A-4): パネル本体は可用域 (margin を除いた残り) を取る。-      -- aspect 未指定 (Nothing) = ggplot Coord$aspect=NULL と同じく可用域を埋める。-      -- aspect 指定 (Just a, a>0) = 高/幅比 a を保つ最大 panel を可用域内に取り中央寄せ-      -- (coord_fixed)。 panelW = min availW (availH/a)、 panelH = panelW*a。-      -- Phase 8 C: sc 撤廃で固定 pt margin になったため、 極小 viewport で panel が負/潰れ-      -- ないよう下限を設ける (ggplot も極小時は軸が支配的になるが panel は非負)。-      -- Phase 8 C (gtable §E-2): パネル本体を solveTracks で算出。 横 = [Fixed lM, Null 1,-      -- Fixed rM]、 縦 = [Fixed tM, Null 1, Fixed bM] の中央 Null トラックがパネル。 結果は-      -- 従来の (lM,tM,w-lM-rM,h-tM-bM) と同値 (= 単一プロットは Null 1 個なので)。-      midTrack solve = case solve of (_ : m : _) -> m; _ -> (0, 0)-      (panelX0, availW) = let (s, l) = midTrack (solveTracks 0 w [Fixed lM, Null 1, Fixed rM]) in (s, max 10 l)-      (panelY0, availH) = let (s, l) = midTrack (solveTracks 0 h [Fixed tM, Null 1, Fixed bM]) in (s, max 10 l)-      area = case getLast (vsAspect spec) of-        Just a | a > 0 ->-          let pw = min availW (availH / a)-              ph = pw * a-          in Rect (panelX0 + (availW - pw) / 2) (panelY0 + (availH - ph) / 2) pw ph-        _ -> Rect panelX0 panelY0 availW availH-      -- Phase 8 B22: 左軸 / 右軸で layer を分割。 x は全 layer 共有、 y は各軸の-      -- layer のみから domain を作る (= 右軸が無ければ leftLayers == 全 layer なので-      -- 従来挙動と完全一致)。-      leftLayers  = filter (\l -> getLast (lyYAxisSide l) /= Just YAxisRight) (vsLayers spec)-      rightLayers = filter (\l -> getLast (lyYAxisSide l) == Just YAxisRight) (vsLayers spec)-      (xs, _)    = collectXY r spec-      (_,  ys)   = collectXY r spec { vsLayers = leftLayers }-      (_,  ysR)  = collectXY r spec { vsLayers = rightLayers }-      (xLo, xHi) = extentsOrDefault xs-      (yLo, yHi) = extentsOrDefault ys-      kindX = axisKindOf (vsXAxis spec)-      kindY = axisKindOf (vsYAxis spec)-      mkScale kind dLo dHi rLo rHi = case kind of-        AxisLinear -> LinearScale dLo dHi rLo rHi-        AxisLog    -> LogScale    dLo dHi rLo rHi-        AxisSqrt   -> SqrtScale   dLo dHi rLo rHi-        AxisTime   -> TimeScale   dLo dHi rLo rHi-      -- Phase 8 C (§5 G3 + sqrt/time fix): tick は **データ範囲** (dLo,dHi) で計算し、-      -- expansion 後の範囲 (pLo,pHi) で censor (= ggplot の breaks→censor)。 linear だけ-      -- でなく log/sqrt/time も同方式に統一 (time の粒度バグ = padded span/5 が 1 日を-      -- 飛び越え 1 週になり tick 1 個に潰れる問題を解消)。-      mkTicks kind dLo dHi pLo pHi =-        let ferr   = abs (pHi - pLo) * 1e-9-            censor = filter (\t -> t >= min pLo pHi - ferr && t <= max pLo pHi + ferr)-        in case kind of-             AxisLinear -> censor (extendedBreaks 5 dLo dHi)-             AxisLog    -> censor (niceTicksLog   5 dLo dHi)-             AxisSqrt   -> censor (niceTicksSqrt  5 dLo dHi)-             AxisTime   -> censor (niceTimeTicks  5 dLo dHi)-      -- categorical x labels (= ColTxt の distinct 値、 layer 横断)-      -- Phase 36 B1b: distribution mark (box/violin/strip/swarm/raincloud) は群列を-      --   encX が無くても colorBy 列から取る ('distGroupRef')。 scatter 等は従来どおり-      --   lyEncX のみ (colorBy をカテゴリ x にしない)。-      distXAcc l = case getFirst (lyKind l) of-        Just k | k `elem` [MBox, MViolin, MStrip, MSwarm, MRaincloud, MRidge]-               -> Last (distGroupRef l)-        _      -> lyEncX l-      xCatLabelsRaw = collectCategoricalLabels distXAcc r spec (getLast (vsXDiscreteLimits spec))-      -- ★ Phase 36 D3: distCols (= 合成 Layer が複数の値列にまたがる) のとき x カテゴリは-      --   各 lane の値列名 (= 列名 slot)。 単一列 (raincloud) は対象外 (従来どおり)。-      distColsLayers = filter (\l -> length (compositeLanes l) > 1) (vsLayers spec)-      isDistCols = not (null distColsLayers)-      distColLabels = nub [ colRefName c | l <- distColsLayers, c <- compositeLanes l ]-      -- Phase 7 A6: waterfall は末尾に合計 (Total) バーを足すため x category を 1 つ拡張。-      hasWaterfallLayer = any (\l -> getFirst (lyKind l) == Just MWaterfall) (vsLayers spec)-      xCatLabels-        | isDistCols = distColLabels-        | hasWaterfallLayer && not (null xCatLabelsRaw) = xCatLabelsRaw ++ [T.pack "Total"]-        | otherwise  = xCatLabelsRaw-      -- Phase 8 B23-fix: forest plot は先頭の研究を上に置くのが慣例 (= PS renderForest-      -- と同方向)。 categorical y は position 0 が下端なので、 forest のときだけラベルを-      -- 反転し position 0(下)= 末尾、 position n-1(上)= 先頭にする。 renderForest も-      -- row i を position (n-1-i) に置く (両者で整合)。-      hasForestLayer = any (\l -> getFirst (lyKind l) == Just MForest) (vsLayers spec)-      -- ★ Phase 36 B1c: ridge は群 baseline から density 山を伸ばすので、 最上段の山が-      --   はみ出さないよう群カテゴリ軸 (ridge は coord_flip 済なので encX = 群) を成長方向へ-      --   1 スロット分 expand する (= ggridges の scale_y_discrete expand 相当)。-      hasRidgeLayer = any (\l -> getFirst (lyKind l) == Just MRidge) (vsLayers spec)-      ridgeHeadroom = if hasRidgeLayer then 1.0 else 0.0-      yCatLabelsRaw = collectCategoricalLabels lyEncY r spec (getLast (vsYDiscreteLimits spec))-      yCatLabels = if hasForestLayer then reverse yCatLabelsRaw else yCatLabelsRaw-      -- categorical の場合は range を [-0.5, n-0.5] に上書き。-      -- numeric padding は MarkKind 別 (Phase 7 A2b):-      --   0-base chart (bar / histogram / density / waterfall) のみ下端を 0 に固定し、-      --   上端のみ 5% pad (= ggplot2 既定 expansion mult=0.05)。 それ以外-      --   (scatter / line / box / violin 等) は値が 0 でも symmetric 8% pad で軸接触を防ぐ。-      -- 旧実装は `lo == 0` を一律 0-base 判定にしていたため、 y に 0 を含む scatter 等が-      -- 下軸に貼り付く副作用があった (= 値ベースの heuristic → MarkKind ベースへ)。-      layerKinds   = [ k | l <- vsLayers spec, Just k <- [getFirst (lyKind l)] ]-      hasYBaseline = any (`elem` [MBar, MHistogram, MDensity, MWaterfall]) layerKinds-      hasXBaseline = any (`elem` [MAutocorr, MEss]) layerKinds-      hasHistogram = MHistogram `elem` layerKinds-      -- Phase 8 B3: funnel plot は y=SE。 SE=0 (最精密) を上端・SE 増加で下端へ置くのが-      -- 慣例 (metafor::funnel)。 通常 y は反転 (lo→下/hi→上) だが、 funnel は y domain を-      -- [0, maxSE+pad] とし range を非反転 (0→上端 rY, max→下端) にして上下を正す。-      hasFunnelLayer = MFunnel `elem` layerKinds-      funnelYHi = let p = (yHi - yLo) * 0.05 in yHi + p-      -- Phase 8 A2 Step4a (design §A-7, G1): 連続軸 expansion = ggplot 既定 mult=0.05-      -- (両側 5%)。 旧 8% から変更。 baseline (bar/hist/density/waterfall, lo==0) は-      -- ggplot bar 既定 mult=c(0,0.05) と同じく下端 0 固定 + 上端のみ 5% (従来通り)。-      paddedRange baseline lo hi-        | hi <= lo            = (lo - 0.5, hi + 0.5)-        | baseline && lo == 0 = (0, hi + (hi - lo) * 0.05)-        | otherwise           = let p = (hi - lo) * 0.05 in (lo - p, hi + p)-      -- histogram の x 軸は ggplot 流に 5% expansion (= bin の外余白を控えめに)。-      paddedRangeX lo hi-        | hi <= lo  = (lo - 0.5, hi + 0.5)-        | otherwise = let p = (hi - lo) * 0.05 in (lo - p, hi + p)-      -- Phase 8 A2 Step4c 段階2 (design §A-7, G2): 離散軸 expansion = ggplot 既定-      -- expansion(add=0.6)。 位置 0..n-1 の両端に ±0.6 → [-0.6, (n-1)+0.6] = [-0.6, n-0.4]。-      -- 旧 ±0.5。 全 categorical geom はスケール経由 (Step4c 段階1) なので自動追従する。-      -- Phase 8 C (sqrt/log fix): sqrt/log 軸は対称 padding が domain 下端を負-      -- (sqrt) / 非正 (log) にすると scaleApply が中央 fallback して全 tick が潰れる。-      -- transformed space 相当に下端をクランプ (sqrt: ≥0、 log: >0 = データ下端の 0.9 倍)。-      clampDomKind kind dataLo (lo, hi) = case kind of-        AxisSqrt -> (max 0 lo, hi)-        AxisLog  -> (if lo <= 0-                       then (if dataLo > 0 then dataLo * 0.9 else abs hi * 1e-6)-                       else lo, hi)-        _        -> (lo, hi)-      -- Phase 11 A7-a: coord_cartesian(xlim,ylim) = データ非破棄 zoom。 numeric 軸-      --   (非 categorical・y は非 funnel) のときだけ scale domain を指定範囲に上書き。-      --   expand=FALSE 相当 (= 余白を足さず厳密に [lo,hi])。 stat は全データから計算済。-      coordXLim = getLast (vsCoordXLim spec)-      coordYLim = getLast (vsCoordYLim spec)-      -- ★ Phase 41: crossbar の箱 (中心 ±halfWidth の幅を x 方向に持つ) が連続 x で軸外へ-      --   はみ出すのを防ぐため、 ドメインを半幅分広げる (categorical は add=0.6 で既に収まる)。-      --   半幅 = 0.5 × markWidth(既定0.9) × resolution(x)。 errorbar の横 cap は小さく ggplot も-      --   clip 任せ (scale を訓練しない) なので対象外 = crossbar のみ。-      xResData = resolutionOf [ v | v <- V.toList xs, not (isNaN v), not (isInfinite v) ]-      widthGeomHalfData =-        let relevant l = getFirst (lyKind l) == Just MCrossbar-            halfOf l = 0.5 * maybe 0.9 id (getLast (lyMarkWidth l)) * xResData-        in maximum (0 : [ halfOf l | l <- vsLayers spec, relevant l ])-      -- 箱の外縁 (xLo-half, xHi+half) を新たな「データ範囲」とみなし、 そこに連続軸既定の-      --   5% expansion を足す。 → 端の箱と軸の間に離散軸 (add=0.6) と同様の余白が出る-      --   (箱がちょうど軸線に接触する窮屈さを解消)。-      widenForWidthGeom (lo, hi)-        | widthGeomHalfData <= 0 = (lo, hi)-        | otherwise =-            let bLo = xLo - widthGeomHalfData-                bHi = xHi + widthGeomHalfData-                p   = (bHi - bLo) * 0.05-            in (min lo (bLo - p), max hi (bHi + p))-      (xLo', xHi') = case coordXLim of-        Just (a, b) | null xCatLabels -> (a, b)-        _ -> if null xCatLabels-               then clampDomKind kindX xLo $ widenForWidthGeom-                      (if hasHistogram-                         then paddedRangeX xLo xHi-                         else paddedRange hasXBaseline xLo xHi)-               else (-0.6, fromIntegral (length xCatLabels) - 0.4 + ridgeHeadroom)-      (yLo', yHi') = case coordYLim of-        Just (a, b) | null yCatLabels && not hasFunnelLayer -> (a, b)-        _ -> if null yCatLabels-               then clampDomKind kindY yLo (paddedRange hasYBaseline yLo yHi)-               else (-0.6, fromIntegral (length yCatLabels) - 0.4)-      sx = mkScale kindX xLo' xHi' (rX area)            (rX area + rW area)-      -- y は通常反転 (lo→下端/hi→上端)。 funnel のみ SE=0 を上端に出すため非反転 (0→上端)。-      sy | hasFunnelLayer = mkScale kindY 0 funnelYHi (rY area) (rY area + rH area)-         | otherwise      = mkScale kindY yLo' yHi' (rY area + rH area) (rY area)-      -- Phase 9 C: coord_flip 用 scale。 domain は sx/sy と同一 (= categorical/baseline 継承)、-      --   range のみ縦横入替。 sxF: データ x → 縦 px (Y と同じ反転で小値が下)。-      --   syF: データ y → 横 px。 funnel は flip 対象外なので非反転特例は写さない。-      sxF = mkScale kindX xLo' xHi' (rY area + rH area) (rY area)-      syF = mkScale kindY yLo' yHi' (rX area)           (rX area + rW area)-      -- Phase 11 A4-a: 軸反転 (scale_x_reverse / scale_y_reverse)。 range を入替えるだけ。-      --   データ軸基準なので Cartesian/flip の両 scale に同じ向きで適用 (coord と独立)。-      revX = getLast (vsReverseX spec) == Just True-      revY = getLast (vsReverseY spec) == Just True-      applyRevX s = if revX then revScale s else s-      applyRevY s = if revY then revScale s else s-      -- Phase 8 B22: 右 Y 軸 scale。 右軸 layer の y 値 (ysR) だけから独立 domain。-      -- PS (findings §2 で正) に合わせ padding は付けない (extentsOrDefault そのまま)。-      kindYR = axisKindOf (vsYAxisRight spec)-      (yLoR, yHiR) = extentsOrDefault ysR-      syR = if hasRightY-              then Just (mkScale kindYR yLoR yHiR (rY area + rH area) (rY area))-              else Nothing-      yTicksR = if hasRightY then mkTicks kindYR yLoR yHiR yLoR yHiR else []-      -- 単一群の distribution mark (= 群列 (encX または colorBy) 無し box/violin/strip/-      -- swarm/raincloud layer のみ) は x tick を抑制。 Phase 36 B1b/B1c: colorBy 単体でも-      -- 群分けされる ('distGroupRef') ので、 その場合は単一群扱いにせず x ラベル (群名) を出す。-      -- ★ Phase 36 D3: distCols は lane 名を x tick に出すので単一群抑制の対象外。-      isSingleGroupBoxOnly = not (null (vsLayers spec)) && not isDistCols &&-        all (\l -> case getFirst (lyKind l) of-                     Just k | k `elem` [MBox, MViolin, MStrip, MSwarm, MRaincloud] ->-                       case distGroupRef l of-                         Nothing -> True-                         Just _  -> False-                     _ -> False) (vsLayers spec)-      -- ★ Phase 11 A4-d: 明示 break/label を (val,label) 対で censor し values/labels に分離。-      --   labels が空 (= breaks のみ指定) なら override label は [] にして render の formatTick に委ねる。-      explicitTicks pLo pHi vals labs =-        let ferr   = abs (pHi - pLo) * 1e-9-            keep t = t >= min pLo pHi - ferr && t <= max pLo pHi + ferr-        in if null labs-             then (filter keep vals, [])-             else let kept = filter (keep . fst)-                               (zip vals (labs ++ repeat (T.pack "")))-                  in (map fst kept, map snd kept)-      explicitXVals = axTickValsOf (vsXAxis spec)-      explicitXLabs = axTickLabelsOf (vsXAxis spec)-      explicitYVals = axTickValsOf (vsYAxis spec)-      explicitYLabs = axTickLabelsOf (vsYAxis spec)-      (xTicksExp, xTickLabsExp) = explicitTicks xLo' xHi' explicitXVals explicitXLabs-      (yTicksExp, yTickLabsExp) = explicitTicks yLo' yHi' explicitYVals explicitYLabs-      useExplicitX = not (null explicitXVals) && null xCatLabels && not isSingleGroupBoxOnly-      useExplicitY = not (null explicitYVals) && null yCatLabels && not hasFunnelLayer-      -- Phase 11 A7-a: zoom 時は break 生成も zoom 範囲で行う (= データ範囲のまま-      --   生成して censor すると視野内 tick が疎になるため)。 未指定は従来 (データ範囲)。-      (xTickLo, xTickHi) = maybe (xLo, xHi) id coordXLim-      (yTickLo, yTickHi) = maybe (yLo, yHi) id coordYLim-      xTicks-        | isSingleGroupBoxOnly = []-        | not (null xCatLabels) = map fromIntegral [0 .. length xCatLabels - 1]-        | useExplicitX          = xTicksExp-        | otherwise             = mkTicks kindX xTickLo xTickHi xLo' xHi'-      yTicks-        | hasFunnelLayer  = mkTicks kindY 0 yHi 0 funnelYHi   -- 0..maxSE (上→下)-        | not (null yCatLabels) = map fromIntegral [0 .. length yCatLabels - 1]-        | useExplicitY    = yTicksExp-        | otherwise       = mkTicks kindY yTickLo yTickHi yLo' yHi'-      xTickLabsOv = if useExplicitX then xTickLabsExp else []-      yTickLabsOv = if useExplicitY then yTickLabsExp else []-      -- P17: spec.palette > theme 既定 series (Phase 9 A-1: ブランドテーマは専用 series、-      -- ggplot 系 preset は従来の hggMain)。 palette 明示指定があればそれが最優先。-      themeDefaultPal = themeSeriesPalette (maybe ThemeDefault id (getLast (vsTheme spec)))-      catPalRaw = maybe themeDefaultPal id (getLast (vsPalette spec))-      -- Phase 7 A6 / Phase 28: ggplot hue sentinel は群数 n で展開 (= hue_pal()(n))。-      -- 群数は (1) categorical color/fill aesthetic の水準数を最優先、 (2) 無ければ x-      -- カテゴリ数 (violin/box/strip 等)、 (3) どちらも無ければ 8。 ★旧実装は連続 x +-      -- 色分け (= R4DS Ch1 の散布図) で x カテゴリが空 → 常に 8 色版になり、 群数 3 でも-      -- 8 色パレットの飛び石を拾って R4DS と色が食い違っていた。-      colorCatN = length (orderedCats (concat-        [ V.toList v-        | l <- vsLayers spec-        , Just (ColorByCol cr) <- [getLast (lyColor l)]-        , Just (TxtData v) <- [resolveCol r cr] ]))-      catPalN | colorCatN > 0         = colorCatN-              | not (null xCatLabels) = length xCatLabels-              | otherwise             = 8-      catPal = if catPalRaw == ["__ggplot_hue__"]-                 then ggplotHue catPalN-                 else catPalRaw-      viridis5Default = ["#440154", "#3B528B", "#21918C", "#5EC962", "#FDE725"]-      contPal = maybe viridis5Default id (getLast (vsContinuousPal spec))-      -- ★ Phase 11 A4-e: spec の色/サイズ scale を Layout へ (renderer が参照)。-      colorManual = maybe [] id (getLast (vsColorManual spec))-      colorGradient2 = getLast (vsColorGradient2 spec)-      -- ★ Phase 34 A3: scale_size 範囲は **直径** pt (size=直径 統一)。既定 (6,20)pt-      -- → 半径 3..10pt (= 旧 radius 範囲 (3,10) と同値・sizeBy 見た目を保存)。-      sizeRange = maybe (6, 20) id (getLast (vsSizeRange spec))-  in Layout-       { lpViewport = vp-       , lpPlotArea = area-       , lpXScale   = applyRevX sx-       , lpYScale   = applyRevY sy-       , lpXScaleFlipped = applyRevX sxF-       , lpYScaleFlipped = applyRevY syF-       , lpCoord    = coordOf spec-       , lpYScaleRight = fmap applyRevY syR-       , lpXTicks   = xTicks-       , lpYTicks   = yTicks-       , lpYTicksRight = yTicksR-       , lpCategoricalPalette = catPal-       , lpContinuousPalette  = contPal-       , lpColorManual = colorManual-       , lpColorGradient2 = colorGradient2-       , lpSizeRange = sizeRange-       , lpXCategoryLabels = xCatLabels-       , lpYCategoryLabels = yCatLabels-       , lpXTickLabels = xTickLabsOv-       , lpYTickLabels = yTickLabsOv-       , lpHistDomain = histRawDomain r (vsLayers spec)-       , lpMarginScale = sc-       , lpMarginTop    = tM-       , lpMarginLeft   = lM-       , lpMarginBottom = bM-       }---- | Phase 8 C (ggplot 準拠): margin 縮小係数を撤廃 (常に 1)。 ggplot は文字・余白を--- 固定 pt で扱い viewport サイズで縮めない (パネルが残りを埋めるだけ)。 旧実装は小--- viewport で sc<1 に縮小していたが、 grid は軸帯確保 (renderSubplots) で対応し、 単一--- 小 viewport (inset) も固定 pt で ggplot と同挙動にする。 panel が潰れないよう--- computeLayout 側で availW/availH に下限を設ける。 シグネチャは互換のため温存。-ggMarginScale :: Double -> Double -> Double-ggMarginScale _ _ = 1---- ===========================================================================--- Phase 8 C (gtable §E): 汎用 1 次元トラック割付--- ===========================================================================---- | gtable のトラック (行 or 列) サイズ種別。 ggplot の grid::unit に対応:---   Fixed v = 固定 pt (= 軸テキスト/タイトル/strip/plot.margin の grob 実寸)、---   Null  w = 伸縮トラック (= unit(w,"null")、 残りスペースを重み比で分配 = パネル本体)。-data Track = Fixed !Double | Null !Double-  deriving (Show, Eq)---- | Phase 8 C (§E-1): 1 次元トラック割付。 利用可能長 avail から Fixed 合計を先取りし、--- 残りを Null トラックに重み比で配分する (= ggplot gtable の「固定先取り → null 残り均等」)。--- 残りが負なら Null=0 (= パネルが潰れる、 ggplot と同挙動)。 パネル間 spacing は呼び出し側が--- Fixed トラックとして明示挿入する。 戻り = 各トラックの (start, length) (start は absolute)。-solveTracks :: Double -> Double -> [Track] -> [(Double, Double)]-solveTracks origin avail tracks =-  let fixedSum  = sum [ v | Fixed v <- tracks ]-      weightSum = sum [ w | Null  w <- tracks ]-      remainder = max 0 (avail - fixedSum)-      per       = if weightSum <= 0 then 0 else remainder / weightSum-      sizeOf (Fixed v) = v-      sizeOf (Null  w) = per * w-      go _   []       = []-      go pos (t : ts) = let sz = sizeOf t in (pos, sz) : go (pos + sz) ts-  in go origin tracks---- | Phase 8 A2 Step1 (design §D): ggplot half_line マージン定数 (pt, sc 適用前)。--- ★ Phase 33 B4: layout が純 pt 空間になり、これらは ggplot 由来の pt 値 (half_line=--- base_size/2=5.5pt) そのものとして正しく pt 意味になる (値は不変・k は backend)。--- computeLayout の margin 計算と Render の描画オフセットで共有 (単一情報源)。-ggHalfLine, ggTickLen, ggAxTextMar, ggAxTitleMar :: Double-ggHalfLine   = 5.5    -- plot.margin 四辺 + title 下 margin-ggTickLen    = 2.75   -- Phase 8 C: axis.ticks.length = half_line/2 (ggplot 忠実、 旧 5)-ggAxTextMar  = 2.2    -- axis.text margin (0.8*halfLine/2)-ggAxTitleMar = 2.75   -- axis.title margin (halfLine/2)---- ===========================================================================--- 凡例メトリクス (Phase 35 で導入・Phase 38 で Layout へ集約)---   ★Layout (予約) と Render (描画) の単一情報源にするため最下層へ置く。---   Render/Layer は本モジュールから import する (旧: Render/Layer 内ローカル定義)。--- ===========================================================================---- | 凡例のベースフォント (pt)。 ggplot @base_size@ = 2 × half_line = 11pt。-legendBaseSize :: Double-legendBaseSize = 2 * ggHalfLine---- | 凡例キーの 1 辺 (pt) = ggplot @legend.key.size = unit(1.2,"lines")@。---   ★R gtable トレース実測 = 17.34pt (base 11pt 時)。 grid の "lines" は行高 (= 1.2 ×---   base × lineheight) なので 1.2×base(=13.2) ではなくこの値。 = 1.2 × base × 1.3133。-legendKeyW :: Double-legendKeyW = 1.2 * legendBaseSize * 1.3133---- | 凡例キーの行ピッチ = keyW (= ggplot gtable のキー間 spacing 行 = 0pt = キーセル隣接)。-legendKeyPitch :: Double-legendKeyPitch = legendKeyW---- ------------------------------------------------------------------------------ Phase 38: 凡例幅を「ラベル内容」に応じて算出する純関数。---   Layout の legendW (右予約) と Render の描画幅を**同一式**で駆動して食い違いを無くす。---   テキスト幅は字種別 advance 近似 ('charWidthEm'・全角=1.0em / Latin は字種別実測較正)。---   ★ggplot は実フォント advance で測るが、 backend 非依存・HS=PS byte parity を保つため---   本ライブラリは決定論的な等幅近似で一貫させる (全角を 1.0em にして日本語ラベルの---   過小評価=はみ出しを防ぐ・大小/はみ出し挙動を ggplot と整合)。--- ------------------------------------------------------------------------------- | East Asian Width が全角 (F=Fullwidth / W=Wide) の文字か。 CJK 統合漢字・かな・---   全角記号・ハングル等を 1.0em 扱いにする。 範囲は Unicode EAW (UAX #11) の W/F に対応する---   代表ブロックを網羅 (厳密 table でなく実用的な近似・凡例幅にのみ使用)。-isWideChar :: Char -> Bool-isWideChar c =-  let o = fromEnum c-  in (o >= 0x1100  && o <= 0x115F)   -- Hangul Jamo-  || (o >= 0x2E80  && o <= 0x303E)   -- CJK Radicals .. Kangxi .. CJK Symbols (一部)-  || (o >= 0x3041  && o <= 0x33FF)   -- Hiragana/Katakana/CJK 記号/互換等-  || (o >= 0x3400  && o <= 0x4DBF)   -- CJK Ext A-  || (o >= 0x4E00  && o <= 0x9FFF)   -- CJK 統合漢字-  || (o >= 0xA000  && o <= 0xA4CF)   -- Yi-  || (o >= 0xAC00  && o <= 0xD7A3)   -- Hangul 音節-  || (o >= 0xF900  && o <= 0xFAFF)   -- CJK 互換漢字-  || (o >= 0xFE30  && o <= 0xFE4F)   -- CJK 互換形-  || (o >= 0xFF00  && o <= 0xFF60)   -- 全角 ASCII 変種-  || (o >= 0xFFE0  && o <= 0xFFE6)   -- 全角記号-  || (o >= 0x1F300 && o <= 0x1FAFF)  -- 絵文字 (W)-  || (o >= 0x20000 && o <= 0x3FFFD)  -- CJK Ext B 以降---- | 1 文字の advance を em 単位で近似。 ★既定 sans (DejaVu) の実 advance を計測して---   字種別にバケット化 (2026-06-23・rsvg trim 実測。 例 i/l≈0.25・a/e≈0.56・M/W≈0.9)。---   旧 flat 0.6 は細字主体ラベル (小文字+ハイフン等) で平均 ~0.49em/字を 0.6 と過大予約し---   右余白を生んでいた。 値は実測平均をやや上回る安全側に丸め 「切れない方向」 を維持。---   全角は 'isWideChar' で 1.0em。 ★この表は HS=PS で完全一致させること (PS canvas も同値)。-charWidthEm :: Char -> Double-charWidthEm c-  | isWideChar c                              = 1.0-  | c `elem` ("iIl|.,;:'`!()[]{} " :: String) = 0.30  -- 細字・記号・空白-  | c `elem` ("jftr-/\\" :: String)           = 0.42  -- やや細-  | c `elem` ("mwMW@" :: String)              = 0.92  -- 幅広-  | c >= 'A' && c <= 'Z'                       = 0.70  -- 大文字 (M/W は上で処理済)-  | otherwise                                 = 0.58  -- 小文字・数字・その他---- | 文字列の幅を em 単位で見積もる (字種別 'charWidthEm' の総和)。 実 pt 幅 = fontSize × この値。-textWidthEm :: Text -> Double-textWidthEm = T.foldl' (\acc ch -> acc + charWidthEm ch) 0---- | DAG node ラベルのフォントサイズ (pt)。 layout (Sugiyama の size-aware 横幅---   見積り) と render ('nodeExtent') で共有する単一定義。 旧 Render.EdgeRoute から移管。-dagLabelFs :: Double-dagLabelFs = 11---- | DAG node の **radius 非依存** な横半幅 (px)。 = 'nodeExtent' の rx から---   @max baseR@ の floor を除いた本体 (ラベル名 / 分布 sublabel 幅に由来)。------   Phase 39 P8 A4-2: layout の size-aware simplex (Sugiyama 'auxSepOf' /---   'clusterAuxEdges') と render の 'nodeExtent' が **同一式**を共有することで、---   simplex が確保する node 間隔と描画箱の幅を整合させる (= 兄弟 plate の box---   重なりを根治)。 radius は layout 時に未知 (= render-time の lySize) ゆえ---   floor 部分は render 側 ('nodeExtent') で適用する。-dagNodeBaseHalfWidth :: DAGNode -> Double-dagNodeBaseHalfWidth n =-  let showDist = case dnKind n of-        NodeDeterministic -> False-        _                 -> maybe False (const True) (dnDist n)-      nameEm = textWidthEm (dnLabel n)-      distEm = case dnDist n of Just d | showDist -> textWidthEm d; _ -> 0-      maxEm  = max 0.5 (max nameEm distEm)-  in dagLabelFs * maxEm / 2 + 8---- | 単一 guide (右凡例・縦1列) の必要幅 (pt)。 renderGuideBlock の描画式に厳密一致:---   列幅 = (key 1辺) + (key→label gap = half_line/2) + (最長ラベル幅) + (右パディング = half_line)。---   タイトルがそれより広ければタイトル幅。 引数: item フォント pt / title フォント pt /---   タイトル文字列 / ラベル群。---   ★「最長」は文字数でなく 'textWidthEm' 最大 (全角混在で逆転し得るため幅で選ぶ)。-legendGuideWidth :: Double -> Double -> Text -> [Text] -> Double-legendGuideWidth fItem fTitle title labels = max titleW colW-  where-    maxLabelEm = maximum (0 : map textWidthEm labels)-    colW       = legendKeyW + ggHalfLine / 2 + fItem * maxLabelEm + ggHalfLine-    titleW     = fTitle * textWidthEm title---- ===========================================================================--- 凡例ラベル収集 (Phase 35 で導入・Phase 38 で Render/Layer から Layout へ集約)。---   ★Layout の legendW 予約と Render の renderGuideBlock 描画が**同一関数**でラベル文字列を---   得るための単一情報源。 別実装だとラベル文字列がズレ予約幅≠描画幅になる。--- ===========================================================================---- | 数値 → 表示文字列。 浮動小数点アーチファクト (0.1+0.2=0.300…04 等) を 12 桁 round で---   回避。 整数なら trailing zero / decimal point を除去。 (旧 Render.Common.numToText)-numToText :: Double -> Text-numToText v =-  let rounded = fromIntegral (round (v * 1e12) :: Integer) / 1e12-      s = if rounded == fromIntegral (truncate rounded :: Integer)-            then show (truncate rounded :: Integer)-            else showFFloat Nothing rounded ""-  in case T.pack s of-       t -> case T.stripSuffix ".0" t of-              Just t' -> t'-              Nothing -> case T.stripSuffix "." t of-                Just t' -> t'-                Nothing -> t---- | 順序保存 nub (初出順)。 glyph 色 ('colorVector' の nub) / PS (Array.nub) と揃える。-nubKeep :: [Text] -> [Text]-nubKeep = nub---- | 色 aesthetic を持つ最初のレイヤの ColorEnc (categorical / continuous)。-findColorEnc :: [Layer] -> Maybe ColorEnc-findColorEnc ls = case [ ce | l <- ls-                            , Just ce <- [getLast (lyColor l)]-                            , isColorMap ce ] of-  (ce : _) -> Just ce-  []       -> Nothing-  where-    isColorMap (ColorByCol _)        = True-    isColorMap (ColorByContinuous _) = True-    isColorMap _                     = False---- | 明示凡例タイトル (vsLegendTitle = scale name / labs(color=))。 未指定なら ""。-effectiveLegendTitle :: VisualSpec -> Text-effectiveLegendTitle spec = maybe "" id (getLast (vsLegendTitle spec))---- | 全 ColorByCol レイヤのカテゴリを順序保存で union (= 凡例 swatch / glyph 色の正本)。---   明示 'colorCats' があればそれを先頭に、 無ければデータ水準を 'orderedCats' 順で。-allColorCategories :: Resolver -> [Layer] -> [Text]-allColorCategories r ls =-  let dataCats = orderedCats $ concat-        [ case resolveCol r cr of-            Just (TxtData v) -> V.toList v-            Just (NumData v) -> V.toList (V.map numToText v)-            Nothing          -> []-        | l <- ls-        , Just (ColorByCol cr) <- [getLast (lyColor l)] ]-      explicit = nubKeep (concatMap lyColorCats ls)-  in if null explicit-       then dataCats-       else explicit ++ filter (`notElem` explicit) dataCats---- | 凡例 guide (色 / 形)。 描画 (renderGuideBlock) と予約 (legendW) が共有。-data LegendGuide-  = ColorGuide !ColorEnc      -- 色 guide (categorical / continuous)-  | ShapeGuide !ColRef        -- 形 guide (色とは別列・または色無しのとき)-  | CountBarGuide !Double !Double  -- ★ Phase 40: 件数 colorbar (lo,hi)。 hexbin/bin2d-count 用-                                   -- (列でなく集計値ゆえ ColorByContinuous と別。 ラベル = "count")---- | spec から guide を ggplot 順 (color → shape) で収集。 形が色と同列なら統合し形 guide なし。-collectGuides :: Resolver -> VisualSpec -> [LegendGuide]-collectGuides r spec =-  let mEnc     = findColorEnc (vsLayers spec)-      colorG   = maybe [] (\e -> [ColorGuide e]) mEnc-      colorCol = case mEnc of-        Just (ColorByCol cr) -> Just (colRefName cr)-        _                    -> Nothing-      shapeG   = case [ sc | l <- vsLayers spec, Just sc <- [getLast (lyShapeBy l)] ] of-        (sc : _) | Just (colRefName sc) /= colorCol -> [ShapeGuide sc]-        _                                           -> []-      -- ★ Phase 40: 色 enc が無い hexbin (件数) は count colorbar を出す。-      countG = case (mEnc, hexbinCountDomain r spec) of-        (Nothing, Just (lo, hi)) -> [CountBarGuide lo hi]-        _                        -> []-  in colorG <> countG <> shapeG---- | Phase 40: spec 中の hexbin layer の件数域 (min,max)。 colorbar guide + needsLegend が使う。---   render (renderHexbin) と同じ 'hexbinLayerCells' で計算するので域が一致する。-hexbinCountDomain :: Resolver -> VisualSpec -> Maybe (Double, Double)-hexbinCountDomain r spec =-  case [ l | l <- vsLayers spec, getFirst (lyKind l) == Just MHexbin ] of-    (l : _) -> case map hexCount (hexbinLayerCells r l) of-      [] -> Nothing-      cs -> Just (fromIntegral (minimum cs), fromIntegral (maximum cs))-    _ -> Nothing---- | spec の font slot から size を取り出す (未指定なら default)。-fontSizeOf :: Last FontSpec -> Double -> Double-fontSizeOf lf def = case getLast lf of-  Just fs -> maybe def id (getLast (fsSize fs))-  Nothing -> def---- | Phase 9 A-5 (PS Layout と同一): 凡例を実際に描画する位置 (= None なら凡例なし)。--- color encoding が無ければ位置指定があっても None。 予約 (computeLayout) / 描画 (Render) の--- 両方がこれを使い、 「予約したのに描かれない / 描いたのに予約してない」 ズレを防ぐ。-needsLegend :: VisualSpec -> LegendPosition -> LegendPosition-needsLegend spec pos-  | pos == LegendNone                = LegendNone-  -- ★ Phase 35: 形のみ (shapeBy・色無し) でも凡例を出す (= ggplot shape guide)。-  -- ★ Phase 40: hexbin (件数 colorbar) も色 enc 無しで凡例を出す。-  | hasColorEncoding (vsLayers spec)-    || hasShapeEncoding (vsLayers spec)-    || hasHexbinCountGuide spec       = pos-  | otherwise                        = LegendNone---- | Phase 40: 色 enc を持たない hexbin layer (= 件数 colorbar 駆動) があるか (構造のみ)。-hasHexbinCountGuide :: VisualSpec -> Bool-hasHexbinCountGuide spec =-  not (hasColorEncoding (vsLayers spec))-  && any (\l -> getFirst (lyKind l) == Just MHexbin) (vsLayers spec)---- | layer 群に shape aesthetic (lyShapeBy) があるか。-hasShapeEncoding :: [Layer] -> Bool-hasShapeEncoding = any (\l -> case getLast (lyShapeBy l) of-                                Just _  -> True-                                Nothing -> False)---- | vsLegend (Last LegendSpec) から有効 position を得る。 未指定 = LegendRight (ggplot auto)。-effectiveLegendPos :: Last LegendSpec -> LegendPosition-effectiveLegendPos ls = case getLast ls of-  Just l  -> lgPosition l-  Nothing -> LegendRightCenter  -- Phase 43: 既定を ggplot legend.position="right" と同じ縦中央に---- | layer 群に color/fill aesthetic (ColorByCol / ColorByContinuous) があるか。-hasColorEncoding :: [Layer] -> Bool-hasColorEncoding = any (\l -> case getLast (lyColor l) of-  Just (ColorByCol _)        -> True-  Just (ColorByContinuous _) -> True-  _                          -> False)---- | Phase 34: 軸 tick ラベルを ggplot / base-R @format()@ 準拠で **ベクトル整形**する。--- ggplot の連続スケール既定 (@labels = waiver()@) は break ベクトル全体に base R--- @format()@ を掛ける。 その挙動を再現:------   1. 全 break で**小数桁を統一**する (末尾ゼロを残す)。 例 0,.25,.5 → "0.00","0.25","0.50"---      (旧 numToText は単値ごとにゼロ削りして "0.5" になっていた)。---   2. **固定小数 vs 指数**を「最大幅が短い方」で選ぶ (base R @scipen = 0@: 固定表記が---      指数表記より広いときだけ指数にする)。 例 density の 0..5e-4 は固定 "0.0005"(6字) >---      指数 "5e-04"(5字) ゆえ "0e+00".."5e-04"、 0..1 は固定 "0.50"(4字) ≤ 指数 "5e-01"(5字)---      ゆえ "0.00".."1.00"。------ R @ggplot_build@ 実測値と一致することを確認済 (density y / 0..1 比率 y / 3000..6000 x)。-formatTicksGG :: [Double] -> [Text]-formatTicksGG [] = []-formatTicksGG xs =-  let dFixed = maximum (0 : map decimalsNeeded xs)-      fixed  = map (\v -> T.pack (showFFloat (Just dFixed) v "")) xs-      dSci   = maximum (0 : map (decimalsNeeded . fst . sciParts) xs)-      sci    = map (sciStr dSci) xs-      wFixed = maximum (map T.length fixed)-      wSci   = maximum (map T.length sci)-  in if wFixed > wSci then sci else fixed---- | v を誤差なく表すのに要する小数桁 (0..10)。 nice tick 前提で 10 桁上限。-decimalsNeeded :: Double -> Int-decimalsNeeded v = go 0-  where-    go k | k >= 10                              = 10-         | abs (v - rounded k) <= 1e-9 * max 1 (abs v) = k-         | otherwise                            = go (k + 1)-    rounded k = let tk = 10 ^^ k :: Double-                in fromIntegral (round (v * tk) :: Integer) / tk---- | v を仮数 m∈[1,10) と指数 e に正規化 (v = m * 10^e)。 0 は (0,0)。-sciParts :: Double -> (Double, Int)-sciParts 0 = (0, 0)-sciParts v =-  let e0 = floor (logBase 10 (abs v)) :: Int-      m0 = v / (10 ^^ e0)-  in norm m0 e0-  where-    norm m e-      | abs m >= 10 = norm (m / 10) (e + 1)-      | abs m <  1  = norm (m * 10) (e - 1)-      | otherwise   = (m, e)---- | 指数表記 1 個 (仮数 d 桁 + "e±NN")。-sciStr :: Int -> Double -> Text-sciStr d v =-  let (m, e) = sciParts v-      mant   = showFFloat (Just d) m ""-      sign   = if e < 0 then "-" else "+"-      ae     = abs e-      expt   = (if ae < 10 then "0" else "") ++ show ae-  in T.pack (mant ++ "e" ++ sign ++ expt)---- | Categorical axis labels (= ColTxt の distinct 値、 layer 横断)。--- どの encoding (encX / encY) を見るかは accessor 引数で指定。------ Phase 28 (2026-06-14): 既定順を ggplot2 の factor 既定と同じ **アルファベット順**--- ('orderedCats') にした (= R4DS と凡例・色・軸並びを一致させる)。 明示順が要るときは--- @scale_x_discrete(limits=)@ 相当の discrete-limits override (第 4 引数) を渡す--- (= fct_infreq / fct_reorder 相当)。 override 指定時はデータ内に在る水準だけを--- その順で返す (applyDiscreteLimits がデータ側を既に filter/並べ替え済)。-collectCategoricalLabels-  :: (Layer -> Last ColRef)-  -> Resolver -> VisualSpec -> Maybe [Text] -> [Text]-collectCategoricalLabels acc r spec mOverride =-  let labels = concat-        [ V.toList v-        | l <- vsLayers spec-        , Just cr <- [getLast (acc l)]-        , Just (TxtData v) <- [resolveCol r cr]-        ]-  in case mOverride of-       Just ws -> [ w | w <- ws, w `elem` labels ]   -- 明示順 (= fct_infreq 等)-       Nothing -> orderedCats labels                  -- 既定 = アルファベット順---- | Phase 11 A4-a: scale の range (rLo/rHi) を入替えて軸反転。 domain は不変なので--- tick (= domain 値) は scaleApply 経由で自動的に逆向き座標へ写る。 全 Scale variant が--- lsRangeLo/lsRangeHi を共有するため record update 1 つで賄える。-revScale :: Scale -> Scale-revScale s = s { lsRangeLo = lsRangeHi s, lsRangeHi = lsRangeLo s }--scaleApply :: Scale -> Double -> Double-scaleApply (LinearScale dLo dHi rLo rHi) v-  | dHi == dLo = (rLo + rHi) / 2-  | otherwise  = rLo + (v - dLo) / (dHi - dLo) * (rHi - rLo)-scaleApply (LogScale dLo dHi rLo rHi) v-  | dHi <= 0 || dLo <= 0 = (rLo + rHi) / 2   -- 不正 domain は中央-  | v <= 0               = rLo                -- log 不能値は range 下端 clip-  | dHi == dLo           = (rLo + rHi) / 2-  | otherwise            =-      let lLo = log dLo; lHi = log dHi; lv = log v-      in rLo + (lv - lLo) / (lHi - lLo) * (rHi - rLo)-scaleApply (SqrtScale dLo dHi rLo rHi) v-  | dHi <  0 || dLo <  0 = (rLo + rHi) / 2   -- 負値 domain (= sqrt 不能) は中央-  | v < 0                = rLo                -- 負値 input は range 下端 clip-  | dHi == dLo           = (rLo + rHi) / 2-  | otherwise            =-      let sLo = sqrt dLo; sHi = sqrt dHi; sv = sqrt v-      in rLo + (sv - sLo) / (sHi - sLo) * (rHi - rLo)-scaleApply (TimeScale dLo dHi rLo rHi) v-  -- Time scale は internal は Linear (= 値 = unix epoch seconds)。-  -- tick / 表示 format のみ別 (= 描画側で適用)。-  | dHi == dLo = (rLo + rHi) / 2-  | otherwise  = rLo + (v - dLo) / (dHi - dLo) * (rHi - rLo)---- ===========================================================================--- Phase 33 B3: 相対単位込み座標 'Pos' の pt 解決--- ===========================================================================------ native/npc の意味は panel rect / scale (= Layout の産物) が決める。よって--- 解決は backend ではなく engine 内 (この層) で行う ([[Option 1]])。本 phase の--- layout 出力は純 pt なので、UCtx も pt 空間で解く (dpi は PAbs の Px 入力解決だけ)。---- | 'Pos' を pt 座標へ解決する context。panel rect と x/y scale を与える。-data UCtx = UCtx-  { uDpi    :: !Double   -- ^ PAbs の Px を pt 化する dpi。-  , uRect   :: !Rect     -- ^ panel rect (pt)。PNpc 解決に使う。-  , uXScale :: !Scale    -- ^ PNative (x) 解決。-  , uYScale :: !Scale    -- ^ PNative (y) 解決。-  } deriving (Show, Eq)---- | x 座標の 'Pos' を pt へ。PNpc 0=左端 (rX), 1=右端 (rX+rW)。-resolvePosX :: UCtx -> Pos -> Double-resolvePosX c p = case p of-  PAbs len  -> rX (uRect c) + lengthToPt (uDpi c) len-  PNpc t    -> rX (uRect c) + t * rW (uRect c)-  PNative v -> scaleApply (uXScale c) v---- | y 座標の 'Pos' を pt へ。device 座標は y 下向き (rY=上端) ゆえ--- PNpc 1=上端 (rY), 0=下端 (rY+rH)。PNative は反転済 scale が処理。-resolvePosY :: UCtx -> Pos -> Double-resolvePosY c p = case p of-  PAbs len  -> rY (uRect c) + lengthToPt (uDpi c) len-  PNpc t    -> rY (uRect c) + (1 - t) * rH (uRect c)-  PNative v -> scaleApply (uYScale c) v---- ===========================================================================--- Phase 9 C: coord_flip 用の座標投影 (= ggplot Coord の中間レイヤ)--- ===========================================================================------ 各 renderer は `Point (sx x)(sy y)` の代わりに projectXY/projectRectData/--- projectBarRect を通す。 Cartesian は従来と bit 一致、 Flip は x/y を入替える。--- **Coord は位置だけ変換** (= テキスト anchor/font・点半径・bar 厚みは px のまま)。---- | spec の座標系 (Nothing = Cartesian)。-coordOf :: VisualSpec -> Coord-coordOf spec = maybe CoordCartesian id (getLast (vsCoord spec))---- | データ空間 (dx, dy) → px (横, 縦)。 Cartesian は (sx dx, sy dy)、 Flip は---   データ x を縦 px・データ y を横 px に (= 軸入替)。-projectXY :: Coord -> Layout -> Double -> Double -> (Double, Double)-projectXY CoordCartesian l dx dy =-  (scaleApply (lpXScale l) dx, scaleApply (lpYScale l) dy)-projectXY CoordFlip l dx dy =-  (scaleApply (lpYScaleFlipped l) dy, scaleApply (lpXScaleFlipped l) dx)--- Phase 11 A7-c: 極座標。 theta 軸 (PolarX=x / PolarY=y) を角度 (0..2π、 上始点・---   時計回り)、 他軸を半径 (中心=domain 下端、 外周=domain 上端) に写す。-projectXY CoordPolarX l dx dy = polarPoint l (domFrac (lpXScale l) dx) (domFrac (lpYScale l) dy)-projectXY CoordPolarY l dx dy = polarPoint l (domFrac (lpYScale l) dy) (domFrac (lpXScale l) dx)---- | scale の domain における正規化位置 [0,1] (= (v - dLo)/(dHi - dLo))。 極座標で---   角度/半径の比率を出すのに使う。 domain が退化していれば 0。-domFrac :: Scale -> Double -> Double-domFrac s v = let lo = lsDomainLo s; hi = lsDomainHi s-              in if hi == lo then 0 else (v - lo) / (hi - lo)---- | 極座標の中心と最大半径 (= panel に内接する円)。-polarCenter :: Layout -> (Double, Double, Double)-polarCenter l = let a = lpPlotArea l-                    cx = rX a + rW a / 2-                    cy = rY a + rH a / 2-                    maxR = min (rW a) (rH a) / 2-                in (cx, cy, maxR)---- | (角度 frac, 半径 frac) → px。 角度 0 を上 (12 時) とし時計回り、 半径 frac=1 が外周。-polarPoint :: Layout -> Double -> Double -> (Double, Double)-polarPoint l thetaFrac rFrac =-  let (cx, cy, maxR) = polarCenter l-      theta = thetaFrac * 2 * pi-      r     = rFrac * maxR-  in (cx + r * sin theta, cy - r * cos theta)---- | データ空間の矩形 (x/y の min/max) → px Rect。 Flip では bbox が縦横転置される。---   2 隅を projectXY して min/abs で正規化するだけ (= 向きに依らず正しい Rect)。-projectRectData :: Coord -> Layout -> Double -> Double -> Double -> Double -> Rect-projectRectData c l xminD xmaxD yminD ymaxD =-  let (x0, y0) = projectXY c l xminD yminD-      (x1, y1) = projectXY c l xmaxD ymaxD-  in Rect (min x0 x1) (min y0 y1) (abs (x1 - x0)) (abs (y1 - y0))---- | bar/box 用: 中心線の data 座標 (centerD = x 群位置) と base..value の data 区間、---   厚み thicknessPx (= px 単位の bar 幅) から px Rect を作る。 Cartesian では---   横位置 = centerD ± 厚み/2、 縦 = base..value。 Flip では縦位置 = centerD ± 厚み/2、---   横 = base..value (= 厚みは常に px のまま = 軸スケールに依らない)。-projectBarRect :: Coord -> Layout -> Double -> Double -> Double -> Double -> Rect-projectBarRect CoordCartesian l centerD baseD valueD thicknessPx =-  let cx = scaleApply (lpXScale l) centerD-      y0 = scaleApply (lpYScale l) baseD-      y1 = scaleApply (lpYScale l) valueD-  in Rect (cx - thicknessPx / 2) (min y0 y1) thicknessPx (abs (y1 - y0))-projectBarRect CoordFlip l centerD baseD valueD thicknessPx =-  let cy = scaleApply (lpXScaleFlipped l) centerD-      x0 = scaleApply (lpYScaleFlipped l) baseD-      x1 = scaleApply (lpYScaleFlipped l) valueD-  in Rect (min x0 x1) (cy - thicknessPx / 2) (abs (x1 - x0)) thicknessPx--- Phase 11 A7-c: 極座標の bar は wedge (扇形) で描くため Rect では表せない。---   renderBar が極座標を検出して PPath で arc を描く (= projectBarRect は使わない)。---   ここは totality 維持のための placeholder (Cartesian 同式・極座標 bar 経路では未使用)。-projectBarRect CoordPolarX l centerD baseD valueD thicknessPx =-  projectBarRect CoordCartesian l centerD baseD valueD thicknessPx-projectBarRect CoordPolarY l centerD baseD valueD thicknessPx =-  projectBarRect CoordCartesian l centerD baseD valueD thicknessPx---- | Phase 10 A4-fix: categorical 1 スロットの cross 軸 px 幅 (bar/box 等の厚みに使う)。---   Cartesian は x 軸 (sx) の 1 単位、 Flip は category が縦に来るので flipped scale の---   縦 1 単位。 これを使わず常に (sx 1 - sx 0) を厚みにすると flip 時に縦スロットを超えて---   bar が重なる。 Cartesian では (sx 1 - sx 0) と完全一致 (= ゼロ diff)。--- | Phase 41: ggplot @resolution(x)@ = ソート済み一意値の最小正間隔。 errorbar/crossbar の--- cap 幅をデータ単位化する基準 (width = markWidth × resolution)。 一意値が 1 個以下なら 1--- (categorical = 整数位置 0,1,2… で間隔 1・単一点も 1)。-resolutionOf :: [Double] -> Double-resolutionOf vs =-  let us  = map head . group . sort $ vs-      gaps = filter (> 1e-12) (zipWith (-) (drop 1 us) us)-  in case gaps of-       [] -> 1-       gs -> minimum gs--catUnitPx :: Coord -> Layout -> Double-catUnitPx CoordCartesian l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0-catUnitPx CoordFlip      l =-  abs (scaleApply (lpXScaleFlipped l) 1 - scaleApply (lpXScaleFlipped l) 0)-catUnitPx CoordPolarX l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0-catUnitPx CoordPolarY l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0---- | 軸が物理的にどの辺に来るか。 Cartesian: データ x=下・y=左。 Flip: データ x=左・y=下。---   極座標は直交的な辺軸を持たない (Render の polar 分岐が独自に grid/軸を描く)。-data AxisPlacement = AxisBottom | AxisLeft | AxisTop | AxisRight-  deriving (Show, Eq)--coordXAxisPlacement :: Coord -> AxisPlacement-coordXAxisPlacement CoordFlip      = AxisLeft-coordXAxisPlacement _              = AxisBottom--coordYAxisPlacement :: Coord -> AxisPlacement-coordYAxisPlacement CoordFlip      = AxisBottom-coordYAxisPlacement _              = AxisLeft---- | データ x の grid line が縦線か (Cartesian) 横線か (Flip)。-coordXGridIsVertical :: Coord -> Bool-coordXGridIsVertical CoordFlip      = False-coordXGridIsVertical _              = True---- | 極座標か (= CoordPolarX / CoordPolarY)。-isPolar :: Coord -> Bool-isPolar CoordPolarX = True-isPolar CoordPolarY = True-isPolar _           = False---- | D3 風 nice tick (= 1/2/5 × 10^k の刻み)。-niceTicks :: Int -> Double -> Double -> [Double]-niceTicks n lo hi-  | hi <= lo  = [lo]-  | n <= 0    = []-  | otherwise =-      let span_   = hi - lo-          rawStep = span_ / fromIntegral n-          mag     = 10 ** fromIntegral (floor (logBase 10 rawStep) :: Int)-          norm    = rawStep / mag-          step-            | norm < 1.5 = 1   * mag-            | norm < 3.5 = 2   * mag-            | norm < 7.5 = 5   * mag-            | otherwise  = 10  * mag-          start = fromIntegral (ceiling (lo / step) :: Int) * step-          go x | x > hi    = []-               | otherwise = x : go (x + step)-      in go start---- | Phase 8 C (§5 G3): R labeling::extended (Talbot, Lin & Hanrahan 2010--- "An Extension of Wilkinson's Algorithm…") の移植。 ggplot2 の既定 breaks--- (`scales::extended_breaks(n)`) と同一: 候補刻み Q=[1,5,2,2.5,4,3]、 重み--- w=[simplicity 0.25, coverage 0.2, density 0.5, legibility 0.05]、 only.loose=False、--- legibility は常に 1 (R 実装も placeholder)。 simplicity/coverage/density の重み付き--- スコアを最大化する (lmin, lmax, lstep) を選び、 等間隔 break 列を返す。--- 入力 (dmin,dmax) は **expansion 前のデータ範囲**、 m は目標ラベル数。 旧 niceTicks--- (1/2/5×10^k) を linear 軸で置換 (端点・本数が ggplot と一致する)。------ j→q→k→z→start のネストループは R 実装をそのまま再現。 各段の上界 (simplicityMax /--- densityMax / coverageMax) による枝刈りで停止するが、 浮動小数の保険として j/k/z に--- 上限ガードを置く (実用域では枝刈りが先に効く)。-data Best = Best-  { bLmin  :: !Double-  , bLmax  :: !Double-  , bLstep :: !Double-  , bScore :: !Double-  }--extendedBreaks :: Int -> Double -> Double -> [Double]-extendedBreaks m dmin0 dmax0-  | not (dmax - dmin >= eps) = [dmin]-  | bScore best <= -2        = [dmin, dmax]   -- 念のためのフォールバック-  | otherwise                = genSeq (bLmin best) (bLmax best) (bLstep best)-  where-    (dmin, dmax) = if dmin0 > dmax0 then (dmax0, dmin0) else (dmin0, dmax0)-    eps = 2.220446049250313e-14 * 100        -- .Machine$double.eps * 100-    qs  = [1, 5, 2, 2.5, 4, 3] :: [Double]-    nD  = 6 :: Double-    mD  = fromIntegral m :: Double-    w1 = 0.25; w2 = 0.2; w3 = 0.5; w4 = 0.05-    qIdx q = go (1 :: Int) qs-      where go i (x : xs) = if x == q then i else go (i + 1) xs-            go i []       = i-    fmod' a b = a - b * fromIntegral (floor (a / b) :: Integer)-    simplicityMax q j =-      (nD - fromIntegral (qIdx q)) / (nD - 1) + 1 - fromIntegral j-    simplicity q j lmin lmax lstep =-      let mlt = fmod' lmin lstep-          v   = if (mlt < eps || lstep - mlt < eps) && lmin <= 0 && lmax >= 0-                  then 1 else 0-      in (nD - fromIntegral (qIdx q)) / (nD - 1) + v - fromIntegral j-    coverage lmin lmax =-      let rng = dmax - dmin-      in 1 - 0.5 * ((dmax - lmax) ** 2 + (dmin - lmin) ** 2) / ((0.1 * rng) ** 2)-    coverageMax spn =-      let rng = dmax - dmin-      in if spn > rng-           then let half = (spn - rng) / 2-                in 1 - 0.5 * (half ** 2 + half ** 2) / ((0.1 * rng) ** 2)-           else 1-    densityF k lmin lmax =-      let r  = (fromIntegral k - 1) / (lmax - lmin)-          rt = (mD - 1) / (max lmax dmax - min dmin lmin)-      in 2 - max (r / rt) (rt / r)-    densityMax k =-      if k >= m then 2 - (fromIntegral k - 1) / (mD - 1) else 1-    genSeq lo hi st-      | st <= 0   = [lo]-      | otherwise = let cnt = round ((hi - lo) / st) :: Int-                    in [ lo + fromIntegral i * st | i <- [0 .. cnt] ]-    best = goJ 1 (Best 0 0 1 (-2))-    -- j ループ (skip amount)。 q ループが「全停止」 を返したら打ち切る。-    goJ j b-      | j > 30    = b-      | otherwise = case goQ qs j b of-          (b', True)  -> b'-          (b', False) -> goJ (j + 1) b'-    goQ [] _ b = (b, False)-    goQ (q : qrest) j b =-      let sm = simplicityMax q j-      in if w1 * sm + w2 + w3 + w4 < bScore b-           then (b, True)               -- これ以降 score 改善不可 → 全停止-           else goQ qrest j (goK q sm j 2 b)-    -- k ループ (tick 本数)。-    goK q sm j k b-      | k > 2 * m + 6 = b-      | otherwise =-          let dm = densityMax k-          in if w1 * sm + w2 + w3 * dm + w4 < bScore b-               then b                   -- k ループ break-               else-                 let delta = (dmax - dmin) / fromIntegral (k + 1)-                               / fromIntegral j / q-                     z0 = ceiling (logBase 10 delta) :: Int-                 in goK q sm j (k + 1) (goZ q sm j k dm (60 :: Int) z0 b)-    -- z ループ (刻みの桁)。-    goZ q sm j k dm fuel z b-      | fuel <= 0 = b-      | otherwise =-          let step = fromIntegral j * q * (10 ** fromIntegral z)-              cm   = coverageMax (step * fromIntegral (k - 1))-          in if w1 * sm + w2 * cm + w3 * dm + w4 < bScore b-               then b                   -- z ループ break-               else-                 let minStart = floor   (dmax / step) * fromIntegral j-                                  - fromIntegral ((k - 1) * j)-                     maxStart = ceiling (dmin / step) * fromIntegral j-                     b' = if minStart > maxStart-                            then b-                            else goStart q j k step minStart maxStart b-                 in goZ q sm j k dm (fuel - 1) (z + 1) b'-    -- start ループ (label 列の起点)。-    goStart q j k step minStart maxStart b =-      foldl' upd b [minStart .. maxStart]-      where-        unit = step / fromIntegral j-        upd acc start =-          let lmin  = fromIntegral start * unit-              lmax  = lmin + step * fromIntegral (k - 1)-              lstep = step-              s     = simplicity q j lmin lmax lstep-              c     = coverage lmin lmax-              d     = densityF k lmin lmax-              score = w1 * s + w2 * c + w3 * d + w4 * 1   -- legibility = 1-          in if score > bScore acc-               then Best lmin lmax lstep score-               else acc---- | Log scale 用 tick (= 10^k グリッド)。 domain 内の整数 exponent を出す。-niceTicksLog :: Int -> Double -> Double -> [Double]-niceTicksLog _n lo hi-  | lo <= 0 || hi <= 0 || hi <= lo = [lo]-  | otherwise =-      let kLo = floor   (logBase 10 lo) :: Int-          kHi = ceiling (logBase 10 hi) :: Int-      in [ 10 ** fromIntegral k | k <- [kLo .. kHi], let v = 10 ** fromIntegral k :: Double-                                                 , v >= lo, v <= hi ]---- | Sqrt scale 用 tick (Phase 6 A6): sqrt 後を niceTicks に通し、 二乗して戻す。--- domain が非負前提。 負値 lo は 0 にクランプ。-niceTicksSqrt :: Int -> Double -> Double -> [Double]-niceTicksSqrt n lo hi-  | hi <= lo  = [max 0 lo]-  | hi < 0    = [lo]-  | otherwise =-      let lo'  = max 0 lo-          sLo  = sqrt lo'-          sHi  = sqrt hi-          sTks = niceTicks n sLo sHi-      in map (\t -> t * t) sTks---- | Time scale 用 tick (Phase 6 A7): unix epoch (= seconds since 1970) を入力に、--- 「綺麗な」 間隔 (= 1m / 1h / 1d / 1w / 1M / 1y) で tick を生成。--- 簡略実装: linear nice ticks を秒単位で取り、 1m / 1h / 1d / 1w 単位に丸め。--- 月 / 年単位の境界調整は将来。+-- Description : Layer 2 — layout computation (viewport / scale / axis tick)+-- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda)+-- License     : BSD-3-Clause+--+-- [日本語]: 'VisualSpec' から viewport / scale / axis tick を計算する純粋関数群。+--   col 名参照は 'Resolver' で Vector に解決した上で extent を求める。+-- [English]: A set of pure functions that compute viewport / scale / axis+--   ticks from a 'VisualSpec'. Column-name references are resolved to+--   vectors via 'Resolver' before their extents are computed.+{-# LANGUAGE DeriveGeneric     #-}+{-# LANGUAGE OverloadedStrings #-}+module Graphics.Hgg.Layout+  ( Layout(..)+  , ViewportSize(..)+  , Rect(..)+  , Scale(..)+  , computeLayout+  , scaleApply+    -- ★ Phase 33 B3: 相対単位込み座標 'Pos' の pt 解決 (Layout の産物 = rect/scale+    --   が相対単位の意味を決める ⇒ resolver は Layout 側に置く・Unit は型のみ)。+  , UCtx(..)+  , resolvePosX+  , resolvePosY+  , niceTicks+  , niceTicksLog+  , extendedBreaks+  , formatTicksGG+    -- ★ Phase 8 A2 Step1: 描画側 (Render) と共有する margin 定数 / scale。+  , ggMarginScale+  , ggHalfLine+  , ggTickLen+  , ggAxTextMar+  , ggAxTitleMar+    -- ★ Phase 35/38: 凡例メトリクス定数 + content-based 幅 (Render と共有)。+  , legendBaseSize+  , legendKeyW+  , legendKeyPitch+  , isWideChar+  , textWidthEm+  , dagLabelFs+  , dagNodeBaseHalfWidth+  , legendGuideWidth+    -- ★ Phase 38: 凡例ラベル収集 (Render/Layer から集約・予約と描画の単一情報源)。+  , numToText+  , nubKeep+  , findColorEnc+  , effectiveLegendTitle+  , legendOrder+  , allColorCategories+  , LegendGuide(..)+  , collectGuides+    -- ★ Phase 8 C (gtable §E): 汎用 1 次元トラック割付 (ggplot gtable 忠実レイアウタの基盤)。+  , Track(..)+  , solveTracks+    -- ★ Phase 9 A-5: legend 配置 (PS と同一)。 予約 (computeLayout) と描画 (Render) で共有。+  , needsLegend+  , effectiveLegendPos+  , hasColorEncoding+    -- ★ Phase 63 A4: tick 長・向きの実効値 (予約 computeLayout と描画 tickMarks で共有)。+  , effectiveTickLength+  , effectiveTickDir+  , tickOutwardLen+    -- ★ Phase 63 A5: plot margin の実効値 (予約 computeLayout と描画 labels で共有)。+  , effectivePlotMargin+    -- ★ Phase 63 A12: base font size の実効値 (予約 computeLayout と描画 mkFontTS で共有)。+  , effectiveBaseFontSize+  , effectiveFontSize+    -- ★ Phase 63 A13: half_line 派生 spacing の実効値 (既定 11 で従来定数と bit 同値)。+  , effectiveHalfLine+  , effectiveAxTextMar+  , effectiveAxTitleMar+  , effectiveLegendBaseSize+  , effectiveLegendKeyW+  , effectiveLegendKeyPitch+  , effectiveSubtitleSize+  , effectiveCaptionSize+  , effectiveTagSize+    -- ★ Phase 63 A19: axis.text / axis.title 表示の実効値 (予約 computeLayout と+    --   描画 tickMarks/labels で共有。 ThemeVoid のみ既定 False)。+  , effectiveShowAxisText+  , effectiveShowAxisTitle+    -- ★ Phase 9 C: coord_flip 用の座標投影 helper (Render が共有)。+  , projectXY+  , projectRectData+  , projectBarRect+  , catUnitPx+  , resolutionOf+  , AxisPlacement(..)+  , coordXAxisPlacement+  , coordYAxisPlacement+  , coordXGridIsVertical+  , coordOf+  , isPolar+  , isTernary+  , normalizeTernary+  , ternaryCenter+  , ternaryVertices+  , ternaryPoint+  , polarCenter+  , polarPoint+    -- ★ Phase 64 A8: 外周円 (θ ラベル位置 = clip 境界) の比と clip path+  , polarOuterFrac+  , polarClipPath+  , domFrac+    -- ★ Phase 64 A2: 座標系依存の形状を投影層に集約する口 (§1 の受け皿)。+  , projectSegment+  , BarShape(..)+  , projectBar+  , wedgeSegments+    -- ★ Phase 64 A3: categorical-cross geom (box/violin/strip/swarm) 用の投影口。+  , CrossLoc(..)+  , projectCrossPoint+  , projectCrossSpan+  , projectCrossBar+  , valueAxisPx+  ) where++import           Graphics.Hgg.Layout.RangeOf (collectXY, extentsOrDefault,+                                              histRawDomain)+import           Graphics.Hgg.Palette (ggplotHue)+import           Graphics.Hgg.Unit (lengthToPt, Pos (..))+import           Graphics.Hgg.Spec (AxisKind (..), AxisSpec (..), ColData (..),+                                    DAGNode (..), DAGNodeKind (..),+                                    ColRef, ColorEnc (..), FontSpec (..), Layer (..),+                                    LegendPosition (..), LegendSpec (..),+                                    MarkKind (..), Resolver,+                                    ThemeName (..), ThemeOverride (..), TickDir (..),+                                    Margin (..), Coord (..), PolarOpts (..),+                                    TernaryOpts (..), defaultTernaryOpts,+                                    VisualSpec (..), YAxisSide (..),+                                    applyDiscreteLimits, axisKindOf, ridgeAutoFlip,+                                    axTickValsOf, axTickLabelsOf, distGroupRef,+                                    resolveAxisAngle, axisTextAngleXOf,+                                    compositeLanes, colRefName,+                                    lgPosition, lyColor, lyColorCats, lyShapeBy,+                                    lyEncX, lyEncY, lyKind, lyBinCount,+                                    lyYAxisSide, orderedCats, resolveCol,+                                    resolveNum, themeSeriesPalette,+                                    HexCell (..), hexbinLayerCells)+import           Graphics.Hgg.Primitive (PathSegment (..), Point (..),+                                         Rect (..))  -- Phase 51: leaf へ移設・re-export+import           Numeric           (showFFloat)+import           Data.Aeson        (FromJSON, ToJSON)+import           Data.List         (foldl', nub, group, sort)+import           Data.Monoid       (First (..), Last (..), getFirst)+import           Data.Text         (Text)+import qualified Data.Text         as T+import           Data.Vector       (Vector)+import qualified Data.Vector       as V+import           GHC.Generics      (Generic)++data ViewportSize = ViewportSize { vsW :: !Int, vsH :: !Int }+  deriving (Show, Eq, Generic)++instance ToJSON   ViewportSize+instance FromJSON ViewportSize++-- Phase 51: 'Rect' は 'Graphics.Hgg.Primitive' (leaf) へ移設。 本 module は+-- import + export list で re-export し、 既存の @import Layout (Rect(..))@ を不変に保つ。++-- | [日本語]: 当初は Linear のみだったが、 PlotConfig.xLog / yLog 等価の+--   LogScale を追加 (= 自然対数 ln で線形化、 描画は底 10 で tick 表示)。+--   [English]: Originally Linear-only; LogScale was added to match+--   PlotConfig.xLog / yLog (linearized via the natural log ln, rendered+--   with base-10 ticks).+data Scale+  = LinearScale { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }+  | LogScale    { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }+  -- | [日本語]: Sqrt scale: forward = sqrt v (= 数値が非負の domain 限定、+  --   負値は range 下端 clip)。 inverse は描画側で不要 (= tick は値域、 表示は元値)。+  --   [English]: The Sqrt scale: forward = sqrt v (restricted to a+  --   non-negative domain; negative values clip to the range's lower+  --   bound). No inverse is needed on the render side (ticks are in value+  --   space, and displayed values are the originals).+  | SqrtScale   { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }+  -- | [日本語]: Time scale: unix epoch (Double seconds) を Linear で扱う。+  --   tick は niceTimeTicks (= 1m / 1h / 1d / 1w / 1M / 1y candidates)。+  --   表示 format は AxisFormat の AxisTimeFmt 経由 (= Render 側)。+  --   [English]: The Time scale: treats a unix epoch (Double seconds)+  --   linearly. Ticks come from niceTimeTicks (1m / 1h / 1d / 1w / 1M / 1y+  --   candidates). Display formatting goes through AxisFormat's AxisTimeFmt+  --   (on the Render side).+  | TimeScale   { lsDomainLo, lsDomainHi, lsRangeLo, lsRangeHi :: !Double }+  deriving (Show, Eq)++data Layout = Layout+  { lpViewport :: !ViewportSize+  , lpPlotArea :: !Rect+  , lpXScale   :: !Scale+  , lpYScale   :: !Scale+    -- ★ Phase 9 C: coord_flip 用。 データ x を縦 px・データ y を横 px に写す scale。+    --   domain は lpXScale/lpYScale と同一 (= categorical ±0.6 / baseline / funnel を継承)、+    --   range のみ縦横入替。 常時算出するが Cartesian では未使用。 projectXY が参照。+  , lpXScaleFlipped :: !Scale   -- データ x の domain、 range = 縦 px (Y と同じ反転 [rY+rH, rY])+  , lpYScaleFlipped :: !Scale   -- データ y の domain、 range = 横 px [rX, rX+rW]+    -- ★ Phase 10 A2: spec の座標系 (= coordOf spec)。 spec を持たない各 mark renderer が+    --   projectXY/projectPoint で参照するため Layout に保持 (Cartesian は従来と bit 一致)。+  , lpCoord :: !Coord+    -- ★ Phase 64 A11: 三角座標 (ternary) 第 3 軸 (encZ 成分)。 CoordTernary のときだけ+    --   'Just' の [0,1] fraction scale + tick を持ち、 それ以外は 'Nothing' / [] で+    --   既存 2 軸の図に一切影響しない。 投影 (ternaryPoint) と grid は §3 A12 で consume。+  , lpZScale :: !(Maybe Scale)+  , lpZTicks :: ![Double]+  , lpZCategoryLabels :: ![T.Text]+  , lpZTickLabels :: ![T.Text]+    -- ★ Phase 8 B22: dual Y 軸 (右側)。 vsYAxisRight が指定された / 右軸 layer が+    --   ある場合のみ Just。 右軸 layer の y 値だけから独立に scale を作る (= 左軸とは+    --   別 domain)。 Nothing なら従来通り単一 Y 軸。+  , lpYScaleRight :: !(Maybe Scale)+  , lpXTicks   :: ![Double]+  , lpYTicks   :: ![Double]+  , lpYTicksRight :: ![Double]   -- ★ Phase 8 B22 右軸 tick (右軸無効なら [])+  , lpCategoricalPalette :: ![T.Text]   -- ★ P17 (= default hggMain F-3)+  , lpContinuousPalette  :: ![T.Text]   -- ★ P17 (= default viridis5)+    -- ★ Phase 11 A4-e: 色/サイズ scale 拡充 (spec 駆動、 colorVector/sizeVector が参照)。+  , lpColorManual :: ![(T.Text, T.Text)]              -- scale_color_manual (空 = 無指定)+  , lpColorGradient2 :: !(Maybe (T.Text, T.Text, T.Text, Double))  -- scale_color_gradient2+  , lpSizeRange :: !(Double, Double)                  -- scale_size range (default (3,10))+    -- ★ Phase 6+ case C-1: categorical x 軸の label (= ColTxt 由来)。+    --   非空なら tick label として整数位置 0..n-1 の代わりにこれを使う。+    --   空なら通常の numeric tick label。+  , lpXCategoryLabels :: ![T.Text]+  , lpYCategoryLabels :: ![T.Text]+    -- ★ Phase 11 A4-d: 明示 tick ラベル (= ggplot labels=)。 非空なら lpXTicks/lpYTicks と+    --   1:1 対応で formatTick を上書き。 空なら従来通り (numeric は値 format、 categorical は+    --   lpXCategoryLabels)。 axTickLabels 指定時のみ非空。+  , lpXTickLabels :: ![T.Text]+  , lpYTickLabels :: ![T.Text]+    -- ★ Phase 8 B7: 全 histogram layer 共通の生 (pad なし) x domain (lo, hi)。+    --   render と y-range 計算が同じ bin 境界を使うため (= はみ出し防止)。+  , lpHistDomain :: !(Maybe (Double, Double))+    -- ★ Phase 8 A2 Step1: margin 縮小係数 (= ggMarginScale)。 描画オフセット+    --   (tick/label/title) を computeLayout と同じ sc で算出するため Layout に保持。+    --   subplots は viewport を 0 に上書きするため viewport から再計算できない。+  , lpMarginScale :: !Double+    -- ★ Phase 8 A2 Step1: 計算済み 4 辺マージン (px)。 描画 (title/軸タイトル) は+    --   plotArea からこれだけ外側に配置する。 subplots panel は plotArea が cell 位置に+    --   平行移動されるが本値 (panel 自身の margin) を保持するので panel 端基準で配置できる。+  , lpMarginTop    :: !Double+  , lpMarginLeft   :: !Double+  , lpMarginBottom :: !Double+    -- ★ Phase 63 A15: 軸タイトルの配置 offset (panel 端 → axis.title margin 外縁まで =+    --   tick 突出 + axis.text margin + tick ラベル帯 + axis.title margin)。 描画+    --   (Render.labels) は panel 端 + この offset を基準に baseline を置く (= ggplot の+    --   「軸 text 直下 + margin」 方式)。 bM/lM の予約 stack と同じ構成要素 (単一情報源)。+    --   旧 boxBottom/boxLeft 最外端 pin は LegendBottom/caption 時にタイトルが凡例の+    --   外側 (最下端) へ出ていた (J2/J5)。+  , lpXTitleOff :: !Double+  , lpYTitleOff :: !Double+    -- ★ Phase 63 A17: bottom 凡例の配置 (予約 bM と描画 renderLegendBottom の単一情報源)。+    --   lpLegendYOff = panel 下端 → 凡例ブロック上端 (= bM の軸 stack と同一構成 ++    --   legend gap 2×half_line = ggplot legend.box.spacing)。 lpLegendNCol = 実効列数+    --   (明示 legendNrow 優先、 未指定は panel 幅に収まる最大列数へ auto-wrap)。+    --   旧 render は panel 下端 + 50 固定で軸タイトルと逆順 + 幅超過で右見切れ (J5)。+  , lpLegendYOff :: !Double+  , lpLegendNCol :: !Int+  } deriving (Show, Eq)++-- | [日本語]: 'VisualSpec' の全 layer から 'Resolver' で encX/encY を解決、+--   全 layer横断で extent を計算。 viewport は spec の width/height、 余白は+--   固定 margin。+--   [English]: Resolves encX/encY across every layer of a 'VisualSpec' via+--   'Resolver', computing the extent across all layers. The viewport comes+--   from the spec's width/height; margins are fixed.+computeLayout :: Resolver -> VisualSpec -> Layout+computeLayout r spec0 =+  -- ★ Phase 18 A2: 離散 limits (scale{X,Y}DiscreteLimits) を先に解決 (冪等・+  --   未指定なら完全 no-op)。 renderToPrimitives 側も同じ解決を通るので整合する。+  let spec = ridgeAutoFlip (applyDiscreteLimits r spec0)  -- ★ B1c: ridge は coord_flip 自動付与+      -- ★ Phase 33 B4: layout は純 pt 空間 ([[Option 1]])。figure size を pt に解決+      --   (px 入力のみ dpi で pt 化)。既定 468×288pt = 6.5×4in (aspect 1.625・横長)。+      --   横長はデータ図の相関構造が読みやすく R4DS 本文の chunk 比にも近い (B8 で確定)。+      --   raster backend が k=dpi/72 を掛けて device px にするのは B5 (backend 1 箇所)。+      --   dpi は px 入力解決にのみ使う。+      dpiVal = maybe 96 id (getLast (vsDpi spec))+      w = maybe 468 (lengthToPt dpiVal) (getLast (vsWidth  spec))+      h = maybe 288 (lengthToPt dpiVal) (getLast (vsHeight spec))+      vp = ViewportSize (round w) (round h)+      -- Phase 8 A2 Step1 (design §D): ggplot half_line マージンモデル。 固定 px (旧+      -- 60/40/40/50) を全廃し、 plot.margin(halfLine) + grob 実寸 (title/y目盛幅/tick長/+      -- 軸タイトル) を積み上げて算出。 sc は小 viewport (inset/pairs) 用の縮小係数 (下限+      -- 0.4)。 描画オフセット (Render tickMarks/labels) も同じ定数から導出する。+      sc = ggMarginScale w h+      -- Phase 8 B22: 右 Y 軸がある場合は plotArea 右端を 40px 追加で空ける (= PS と同値)。+      hasRightY = case getLast (vsYAxisRight spec) of+        Just _  -> True+        Nothing -> any (\l -> getLast (lyYAxisSide l) == Just YAxisRight) (vsLayers spec)+      rightAxisW = if hasRightY then 40 else 0+      -- フォント実寸 (spec 指定 > default)。 maxYTickW は y 目盛りラベルの最大文字幅+      -- (numeric は fmtNum で近似、 軸 format は width 推定では無視 = Step1 許容)。+      -- ★ Phase 34: 既定フォント実寸を ggplot theme_grey 較正値に合わせる+      --   (Render.mkFontTS と同値。 旧 16/12/11 は margin 過大予約 → 軸タイトルが遠かった)。+      -- ★ Phase 63 A12: 解決を mkFontTS と同一情報源へ (theme override の fsSize ++      --   toBaseFontSize 派生既定)。 旧 fontSizeOf (setter のみ・13.2/11/8.8 固定) は+      --   theme*Font 指定 (cowplot preset 等) を予約に反映できていなかった。+      base          = effectiveBaseFontSize spec+      ovT           = vsThemeOverride spec+      titleSize     = effectiveFontSize (vsTitleFont     spec) (toTitleFont     ovT) (base * 1.2)  -- plot.title+      axisLabelSize = effectiveFontSize (vsAxisLabelFont spec) (toAxisLabelFont ovT) base          -- axis.title+      tickSize      = effectiveFontSize (vsTickFont      spec) (toTickFont      ovT) (base * 0.8)  -- axis.text+      -- 左 margin 用の y 目盛りラベル: 離散 limits (yCatLabels) > 明示ラベル+      -- (axisBreaksLabeled = explicitYLabs) > numeric tick の順で採用する。+      -- (明示ラベルを測らないと長い category ラベルが軸外へ溢れる)。+      yTickLabelStrs+        | not (null yCatLabels)    = yCatLabels+        | not (null explicitYLabs) = explicitYLabs+        | otherwise                = formatTicksGG yTicks+      -- ★ Phase 63 A19: axis.text / axis.title 非表示 (ThemeVoid 既定 /+      --   themeAxisText・themeAxisTitle False) はラベル文字・軸タイトルぶんの予約を+      --   丸ごと落とす (ggplot element_blank = zero-size grob)。 tick 線の tickOut は+      --   独立に残る (長さは effectiveTickLength、 ThemeVoid は既定 0)。+      showAxText  = effectiveShowAxisText spec+      showAxTitle = effectiveShowAxisTitle spec+      maxYTickW = if not showAxText || null yTickLabelStrs then 0+                  else 0.6 * tickSize+                         * fromIntegral (maximum (map T.length yTickLabelStrs))+      hasTitle  = case getLast (vsTitle  spec) of Just _ -> True; _ -> False+      hasXLabel = showAxTitle && case getLast (vsXLabel spec) of Just _ -> True; _ -> False+      hasYLabel = showAxTitle && case getLast (vsYLabel spec) of Just _ -> True; _ -> False+      -- ★ Phase 37 A1: subplots container は自分の軸を描かない。 軸目盛り/軸タイトル分の+      --   マージン (tickLen/axTextMar/maxYTickW/軸タイトル) を予約せず、 plot.margin と+      --   タイトル帯・凡例・caption のみにする (= 描画範囲を各 panel に明け渡す)。+      --   従来は container が phantom 軸マージンを取り、 内側 panel が二重取りしていた。+      isContainer = not (null (vsSubplots spec))+      -- Phase 11 A5-a: labs (subtitle/caption/tag) の margin 予約。 未指定なら 0 で+      -- 従来同一。 subtitle は top に積み増し、 caption は bottom、 tag は title/subtitle+      -- が無い時のみ top (= 在る時は左寄せタグが title 帯に同居できる)。+      hasSubtitle = case getLast (vsSubtitle spec) of Just _ -> True; _ -> False+      hasCaption  = case getLast (vsCaption  spec) of Just _ -> True; _ -> False+      hasTag      = case getLast (vsTag      spec) of Just _ -> True; _ -> False+      -- ★ Phase 63 A14: labs の font size も base 派生 (旧固定 11/9/13 は base 11 の+      --   丸め値。 描画 Render.labels と同じ effective* を参照 = 単一情報源)。+      labsSubExtra = if hasSubtitle then effectiveSubtitleSize spec + sc * hl else 0+      labsTagExtra = if hasTag && not (hasTitle || hasSubtitle) then effectiveTagSize spec + sc * hl else 0+      labsCapExtra = if hasCaption then effectiveCaptionSize spec + sc * hl else 0+      -- Phase 8 C (small-viewport text fix): 間隔定数 (halfLine/tickLen/axTextMar/+      -- axTitleMar) は sc 倍するが、 文字サイズ由来の項 (titleSize/tickSize/maxYTickW/+      -- axisLabelSize) は **等倍** (フォントは実寸描画で縮まないため)。 旧実装は全体を+      -- sc 倍し、 小 viewport (subplots/pairs/inset) で数値が軸に被っていた。 sc=1 では+      -- 新旧同値なので通常プロットは不変。+      -- ★ Phase 63 A5: 外周余白は theme 実効値 (themePlotMargin、 既定 = 各辺 half_line+      --   で従来と同値)。+      -- ★ Phase 63 A13: 内側 spacing (title 下 margin・axis.text/axis.title margin・+      --   凡例 gap) も half_line = base/2 派生の実効値へ (既定 11 で従来定数と bit 同値)。+      pm = effectivePlotMargin spec+      hl = effectiveHalfLine spec+      -- ★ Phase 63 A19: axis.text 非表示なら axis.text margin も 0 (定義 1 箇所で+      --   bM/lM/xTitleOff/yTitleOff/legendYOff の全 stack に波及)。+      axTextMar  = if showAxText then effectiveAxTextMar spec else 0+      axTitleMar = effectiveAxTitleMar spec+      tM = sc * marTop pm + (if hasTitle then titleSize + sc * hl else 0)+                 + labsSubExtra + labsTagExtra+      -- ★ x 目盛りラベルの回転 (axisRotate) 予約: 非回転は tickSize (従来) だが、+      --   回転時はラベル**幅**が下方向に伸びる。 左 margin の maxYTickW と対称に、+      --   x 目盛りラベルの最大文字幅を回転角で投影して予約する (rotX=0 で従来同値)。+      -- ★ Phase 63 A16: 解決順を描画 (Render/Layer resolveAxisAngle) と単一情報源化。+      --   per-axis 明示 > theme (axisTextAngleXOf = 共通 <> X 別) > 0。 旧 axisRotateOf は+      --   theme 経由の回転 (themeAxisTextAngleX 等) を無視し回転マージン未予約だった (J4)。+      xRot = resolveAxisAngle (vsXAxis spec) (axisTextAngleXOf ovT)+      xTickLabelStrs+        | not (null xCatLabels)    = xCatLabels+        | not (null explicitXLabs) = explicitXLabs+        | otherwise                = []          -- numeric は短いので従来 tickSize 予約で足る+      maxXTickW = if null xTickLabelStrs then 0+                  else 0.6 * tickSize+                         * fromIntegral (maximum (map T.length xTickLabelStrs))+      -- Phase 50 A2: 回転 x ラベル (符号によらず rotX≠0) はラベル**幅**が下へ張り出すので、+      --   左 margin の maxYTickW と対称に、 最大文字幅を回転角で投影して予約する+      --   (rotX=0 で従来 tickSize と一致)。 ggplot の回転ラベル margin と同方針。+      xTickReserve+        | not showAxText = 0   -- ★ A19: ラベル文字が無いので高さ予約もしない+        | xRot == 0 = tickSize+        | otherwise = let rad = xRot * pi / 180+                      in tickSize * abs (cos rad) + maxXTickW * abs (sin rad)+      -- ★ Phase 63 A4: tick の外向き突出量は theme 実効値 (themeTickLength/themeTickDir)。+      --   未指定は ggTickLen/TickOut で従来と同値。 描画 (tickMarks) と単一情報源。+      tickOut = tickOutwardLen spec+      bM | isContainer = sc * marBottom pm + legendH + labsCapExtra+         | otherwise   = sc * (marBottom pm + tickOut + axTextMar) + xTickReserve+                 + (if hasXLabel then sc * axTitleMar + axisLabelSize else 0)+                 + legendH + labsCapExtra+      lM | isContainer = sc * marLeft pm+         | otherwise   = sc * (marLeft pm + tickOut + axTextMar) + maxYTickW+                 + (if hasYLabel then sc * axTitleMar + axisLabelSize else 0)+      -- ★ Phase 63 A15: 軸タイトルの panel 端からの配置 offset。 bM/lM の予約 stack と+      --   同じ構成要素で算出 (単一情報源)。 container は軸 stack を持たないので+      --   axTitleMar のみ。+      xTitleOff | isContainer = sc * axTitleMar+                | otherwise   = sc * (tickOut + axTextMar + axTitleMar) + xTickReserve+      yTitleOff | isContainer = sc * axTitleMar+                | otherwise   = sc * (tickOut + axTextMar + axTitleMar) + maxYTickW+      -- Phase 9 A-5 (PS Layout と同一): 凡例ぶん plotArea を縮めて図内に収める (ggplot は+      -- legend を gtable の一部として扱い panel を縮める)。 Inside/None は予約しない。+      -- ★ Phase 34: facet 時も右凡例を予約する (旧実装は facet で legendW=0 にして凡例を+      --   完全に落としていた = ggplot は facet でも凡例を出す)。+      legendPos = needsLegend spec (effectiveLegendPos spec)+      -- ★ Phase 38: 右凡例幅を「最長ラベル」で算出 (固定 80/+70列 を撤去)。 renderGuideBlock の+      --   描画式に一致する 'legendGuideWidth' を全 guide に適用し、 縦スタックゆえ最大幅を予約。+      --   gap (panel→凡例 = 2*half_line) は renderLegendRight の x0 オフセットと一致。+      --   フォントは既定 (item=base×0.8 / title=base)。 override 無し時 render と一致 (旧固定80は+      --   フォント完全無視だったので後退なし)。+      --   ★ Phase 63 A13: 凡例基準も base 派生 (effectiveLegendBaseSize = 2×half_line)。+      legItemF  = effectiveLegendBaseSize spec * 0.8+      legTitleF = effectiveLegendBaseSize spec+      shapeCats scr = case resolveCol r scr of+        Just (TxtData v) -> orderedCats (V.toList v)+        Just (NumData v) -> orderedCats (map numToText (V.toList v))+        _                -> []+      -- ★ 連続 colorbar の予約ラベルは renderGuideBlock (ColorByContinuous) の描画と+      --   同一 = Wilkinson extended breaks の範囲内 nice 値。 旧実装は生 min/mid/max を+      --   使っており、 LCG 等の長大桁データで予約幅 >> 実描画幅 になり凡例が無駄に広かった+      --   (予約と描画は同一ラベル源にする不変条件・本 module 冒頭コメント参照)。+      contColorLabels cr = case resolveNum r cr of+        Just nums | not (V.null nums) ->+          let vMin = V.minimum nums; vMax = V.maximum nums+          in case filter (\b -> b >= vMin && b <= vMax) (extendedBreaks 5 vMin vMax) of+               [] -> [numToText vMin, numToText vMax]+               bs -> map numToText bs+        _ -> []+      guideWidth g = case g of+        ColorGuide (ColorByCol _)         ->+          legendGuideWidth spec legItemF legTitleF (effectiveLegendTitle spec) (allColorCategories r (vsLayers spec))+        ColorGuide (ColorByContinuous cr) ->+          legendGuideWidth spec legItemF legTitleF (effectiveLegendTitle spec) (contColorLabels cr)+        ColorGuide (ColorStatic _)        -> 0+        CountBarGuide lo hi               ->+          legendGuideWidth spec legItemF legTitleF "count"+            (map numToText (filter (\b -> b >= lo && b <= hi) (extendedBreaks 5 lo hi)))+        ShapeGuide scr                    ->+          -- 見出しは render と同じく sentinel を空に潰してから幅を見積る。+          let nm = colRefName scr+              t  = if nm == "<inline-num>" || nm == "<inline-txt>" then "" else nm+          in legendGuideWidth spec legItemF legTitleF t (shapeCats scr)+      legendGuidesW = maximum (0 : map guideWidth (collectGuides r spec))+      -- Phase 32 (re-apply): LegendRightCenter も右域に同じ幅を予約 (縦位置のみ違う)。+      legendW = if legendPos == LegendRight || legendPos == LegendRightCenter+                  then 2 * hl + legendGuidesW else 0+      -- ★ Phase 63 A17: bottom 凡例の実寸予約 (旧 50 + (nrow-1)*16 固定を撤去 = J5)。+      --   gap = 2×half_line (ggplot legend.box.spacing)、 行 pitch = effectiveLegendKeyPitch。+      --   列数 = 明示 legendNrow 優先、 未指定は panel 幅 (availW) に収まる最大列数+      --   (item/title 幅は renderLegendBottom の itemAdv/titleW と同式 = 予約と描画の+      --   単一情報源)。 availW は lM/rM のみ依存で legendH と循環しない。+      legendGapB = 2 * hl+      legRowH    = effectiveLegendKeyPitch spec+      legLabels  = map snd (legendOrder spec (allColorCategories r (vsLayers spec)))+      nLeg       = length legLabels+      legItemAdv lbl = 14 + legItemF * textWidthEm lbl + hl+      legTitleWB = let t = effectiveLegendTitle spec+                   in if t == "" then 0 else legTitleF * textWidthEm t + 12+      legFits nc = let colW c = maximum (0 : [ legItemAdv (legLabels !! k)+                                             | k <- [0 .. nLeg - 1], k `mod` nc == c ])+                   in legTitleWB + sum (map colW [0 .. nc - 1]) <= availW+      legNCol+        | nLeg == 0 = 1+        | otherwise = case getLast (vsLegendNrow spec) of+            Just nr -> max 1 ((nLeg + max 1 nr - 1) `div` max 1 nr)+            Nothing -> head ([ nc | nc <- [nLeg, nLeg - 1 .. 2], legFits nc ] ++ [1])+      legNRowB = max 1 ((max 1 nLeg + legNCol - 1) `div` legNCol)+      legendH = if legendPos == LegendBottom+                  then legendGapB + fromIntegral legNRowB * legRowH else 0+      -- panel 下端 → 凡例ブロック上端 = bM の軸 stack (legendH/labsCapExtra を除く+      -- 内側部分) + gap。 caption は凡例のさらに外側 (bM の積み順と同じ)。+      legendYOff | isContainer = legendGapB+                 | otherwise   = sc * (tickOut + axTextMar) + xTickReserve+                       + (if hasXLabel then sc * axTitleMar + axisLabelSize else 0)+                       + legendGapB+      rM = sc * marRight pm + rightAxisW + legendW+      -- Phase 8 A2 Step2 (design §A-4): パネル本体は可用域 (margin を除いた残り) を取る。+      -- aspect 未指定 (Nothing) = ggplot Coord$aspect=NULL と同じく可用域を埋める。+      -- aspect 指定 (Just a, a>0) = 高/幅比 a を保つ最大 panel を可用域内に取り中央寄せ+      -- (coord_fixed)。 panelW = min availW (availH/a)、 panelH = panelW*a。+      -- Phase 8 C: sc 撤廃で固定 pt margin になったため、 極小 viewport で panel が負/潰れ+      -- ないよう下限を設ける (ggplot も極小時は軸が支配的になるが panel は非負)。+      -- Phase 8 C (gtable §E-2): パネル本体を solveTracks で算出。 横 = [Fixed lM, Null 1,+      -- Fixed rM]、 縦 = [Fixed tM, Null 1, Fixed bM] の中央 Null トラックがパネル。 結果は+      -- 従来の (lM,tM,w-lM-rM,h-tM-bM) と同値 (= 単一プロットは Null 1 個なので)。+      midTrack solve = case solve of (_ : m : _) -> m; _ -> (0, 0)+      (panelX0, availW) = let (s, l) = midTrack (solveTracks 0 w [Fixed lM, Null 1, Fixed rM]) in (s, max 10 l)+      (panelY0, availH) = let (s, l) = midTrack (solveTracks 0 h [Fixed tM, Null 1, Fixed bM]) in (s, max 10 l)+      area = case getLast (vsAspect spec) of+        Just a | a > 0 ->+          let pw = min availW (availH / a)+              ph = pw * a+          in Rect (panelX0 + (availW - pw) / 2) (panelY0 + (availH - ph) / 2) pw ph+        _ -> Rect panelX0 panelY0 availW availH+      -- Phase 8 B22: 左軸 / 右軸で layer を分割。 x は全 layer 共有、 y は各軸の+      -- layer のみから domain を作る (= 右軸が無ければ leftLayers == 全 layer なので+      -- 従来挙動と完全一致)。+      leftLayers  = filter (\l -> getLast (lyYAxisSide l) /= Just YAxisRight) (vsLayers spec)+      rightLayers = filter (\l -> getLast (lyYAxisSide l) == Just YAxisRight) (vsLayers spec)+      (xs, _)    = collectXY r spec+      (_,  ys)   = collectXY r spec { vsLayers = leftLayers }+      (_,  ysR)  = collectXY r spec { vsLayers = rightLayers }+      (xLo, xHi) = extentsOrDefault xs+      (yLo, yHi) = extentsOrDefault ys+      kindX = axisKindOf (vsXAxis spec)+      kindY = axisKindOf (vsYAxis spec)+      mkScale kind dLo dHi rLo rHi = case kind of+        AxisLinear -> LinearScale dLo dHi rLo rHi+        AxisLog    -> LogScale    dLo dHi rLo rHi+        AxisSqrt   -> SqrtScale   dLo dHi rLo rHi+        AxisTime   -> TimeScale   dLo dHi rLo rHi+      -- Phase 8 C (§5 G3 + sqrt/time fix): tick は **データ範囲** (dLo,dHi) で計算し、+      -- expansion 後の範囲 (pLo,pHi) で censor (= ggplot の breaks→censor)。 linear だけ+      -- でなく log/sqrt/time も同方式に統一 (time の粒度バグ = padded span/5 が 1 日を+      -- 飛び越え 1 週になり tick 1 個に潰れる問題を解消)。+      mkTicks kind dLo dHi pLo pHi =+        let ferr   = abs (pHi - pLo) * 1e-9+            censor = filter (\t -> t >= min pLo pHi - ferr && t <= max pLo pHi + ferr)+        in case kind of+             AxisLinear -> censor (extendedBreaks 5 dLo dHi)+             AxisLog    -> censor (niceTicksLog   5 dLo dHi)+             AxisSqrt   -> censor (niceTicksSqrt  5 dLo dHi)+             AxisTime   -> censor (niceTimeTicks  5 dLo dHi)+      -- categorical x labels (= ColTxt の distinct 値、 layer 横断)+      -- Phase 36 B1b: distribution mark (box/violin/strip/swarm/raincloud) は群列を+      --   encX が無くても colorBy 列から取る ('distGroupRef')。 scatter 等は従来どおり+      --   lyEncX のみ (colorBy をカテゴリ x にしない)。+      distXAcc l = case getFirst (lyKind l) of+        Just k | k `elem` [MBox, MViolin, MStrip, MSwarm, MRaincloud, MRidge]+               -> Last (distGroupRef l)+        _      -> lyEncX l+      xCatLabelsRaw = collectCategoricalLabels distXAcc r spec (getLast (vsXDiscreteLimits spec))+      -- ★ Phase 36 D3: distCols (= 合成 Layer が複数の値列にまたがる) のとき x カテゴリは+      --   各 lane の値列名 (= 列名 slot)。 単一列 (raincloud) は対象外 (従来どおり)。+      distColsLayers = filter (\l -> length (compositeLanes l) > 1) (vsLayers spec)+      isDistCols = not (null distColsLayers)+      distColLabels = nub [ colRefName c | l <- distColsLayers, c <- compositeLanes l ]+      -- Phase 7 A6: waterfall は末尾に合計 (Total) バーを足すため x category を 1 つ拡張。+      hasWaterfallLayer = any (\l -> getFirst (lyKind l) == Just MWaterfall) (vsLayers spec)+      xCatLabels+        | isDistCols = distColLabels+        | hasWaterfallLayer && not (null xCatLabelsRaw) = xCatLabelsRaw ++ [T.pack "Total"]+        | otherwise  = xCatLabelsRaw+      -- Phase 8 B23-fix: forest plot は先頭の研究を上に置くのが慣例 (= PS renderForest+      -- と同方向)。 categorical y は position 0 が下端なので、 forest のときだけラベルを+      -- 反転し position 0(下)= 末尾、 position n-1(上)= 先頭にする。 renderForest も+      -- row i を position (n-1-i) に置く (両者で整合)。+      hasForestLayer = any (\l -> getFirst (lyKind l) == Just MForest) (vsLayers spec)+      -- ★ Phase 36 B1c: ridge は群 baseline から density 山を伸ばすので、 最上段の山が+      --   はみ出さないよう群カテゴリ軸 (ridge は coord_flip 済なので encX = 群) を成長方向へ+      --   1 スロット分 expand する (= ggridges の scale_y_discrete expand 相当)。+      hasRidgeLayer = any (\l -> getFirst (lyKind l) == Just MRidge) (vsLayers spec)+      ridgeHeadroom = if hasRidgeLayer then 1.0 else 0.0+      yCatLabelsRaw = collectCategoricalLabels lyEncY r spec (getLast (vsYDiscreteLimits spec))+      yCatLabels = if hasForestLayer then reverse yCatLabelsRaw else yCatLabelsRaw+      -- categorical の場合は range を [-0.5, n-0.5] に上書き。+      -- numeric padding は MarkKind 別 (Phase 7 A2b):+      --   0-base chart (bar / histogram / density / waterfall) のみ下端を 0 に固定し、+      --   上端のみ 5% pad (= ggplot2 既定 expansion mult=0.05)。 それ以外+      --   (scatter / line / box / violin 等) は値が 0 でも symmetric 8% pad で軸接触を防ぐ。+      -- 旧実装は `lo == 0` を一律 0-base 判定にしていたため、 y に 0 を含む scatter 等が+      -- 下軸に貼り付く副作用があった (= 値ベースの heuristic → MarkKind ベースへ)。+      layerKinds   = [ k | l <- vsLayers spec, Just k <- [getFirst (lyKind l)] ]+      -- ★ Phase 70 A3: MEss を追加 — ESS bar は 0 起点なので下端 0 固定 + 上端のみ 5%+      --   (pre-Phase 64 の自前マッピング = 0 が panel 底辺、 と同じ見た目規約)。+      hasYBaseline = any (`elem` [MBar, MHistogram, MDensity, MWaterfall, MEss]) layerKinds+      hasXBaseline = any (`elem` [MAutocorr, MEss]) layerKinds+      hasHistogram = MHistogram `elem` layerKinds+      -- Phase 8 B3: funnel plot は y=SE。 SE=0 (最精密) を上端・SE 増加で下端へ置くのが+      -- 慣例 (metafor::funnel)。 通常 y は反転 (lo→下/hi→上) だが、 funnel は y domain を+      -- [0, maxSE+pad] とし range を非反転 (0→上端 rY, max→下端) にして上下を正す。+      hasFunnelLayer = MFunnel `elem` layerKinds+      funnelYHi = let p = (yHi - yLo) * 0.05 in yHi + p+      -- Phase 8 A2 Step4a (design §A-7, G1): 連続軸 expansion = ggplot 既定 mult=0.05+      -- (両側 5%)。 旧 8% から変更。 baseline (bar/hist/density/waterfall, lo==0) は+      -- ggplot bar 既定 mult=c(0,0.05) と同じく下端 0 固定 + 上端のみ 5% (従来通り)。+      paddedRange baseline lo hi+        | hi <= lo            = (lo - 0.5, hi + 0.5)+        | baseline && lo == 0 = (0, hi + (hi - lo) * 0.05)+        | otherwise           = let p = (hi - lo) * 0.05 in (lo - p, hi + p)+      -- histogram の x 軸は ggplot 流に 5% expansion (= bin の外余白を控えめに)。+      paddedRangeX lo hi+        | hi <= lo  = (lo - 0.5, hi + 0.5)+        | otherwise = let p = (hi - lo) * 0.05 in (lo - p, hi + p)+      -- Phase 8 A2 Step4c 段階2 (design §A-7, G2): 離散軸 expansion = ggplot 既定+      -- expansion(add=0.6)。 位置 0..n-1 の両端に ±0.6 → [-0.6, (n-1)+0.6] = [-0.6, n-0.4]。+      -- 旧 ±0.5。 全 categorical geom はスケール経由 (Step4c 段階1) なので自動追従する。+      -- Phase 8 C (sqrt/log fix): sqrt/log 軸は対称 padding が domain 下端を負+      -- (sqrt) / 非正 (log) にすると scaleApply が中央 fallback して全 tick が潰れる。+      -- transformed space 相当に下端をクランプ (sqrt: ≥0、 log: >0 = データ下端の 0.9 倍)。+      clampDomKind kind dataLo (lo, hi) = case kind of+        AxisSqrt -> (max 0 lo, hi)+        AxisLog  -> (if lo <= 0+                       then (if dataLo > 0 then dataLo * 0.9 else abs hi * 1e-6)+                       else lo, hi)+        _        -> (lo, hi)+      -- Phase 11 A7-a: coord_cartesian(xlim,ylim) = データ非破棄 zoom。 numeric 軸+      --   (非 categorical・y は非 funnel) のときだけ scale domain を指定範囲に上書き。+      --   expand=FALSE 相当 (= 余白を足さず厳密に [lo,hi])。 stat は全データから計算済。+      coordXLim = getLast (vsCoordXLim spec)+      coordYLim = getLast (vsCoordYLim spec)+      -- ★ Phase 41: crossbar の箱 (中心 ±halfWidth の幅を x 方向に持つ) が連続 x で軸外へ+      --   はみ出すのを防ぐため、 ドメインを半幅分広げる (categorical は add=0.6 で既に収まる)。+      --   半幅 = 0.5 × markWidth(既定0.9) × resolution(x)。 errorbar の横 cap は小さく ggplot も+      --   clip 任せ (scale を訓練しない) なので対象外 = crossbar のみ。+      xResData = resolutionOf [ v | v <- V.toList xs, not (isNaN v), not (isInfinite v) ]+      widthGeomHalfData =+        let relevant l = getFirst (lyKind l) == Just MCrossbar+            halfOf l = 0.5 * maybe 0.9 id (getLast (lyMarkWidth l)) * xResData+        in maximum (0 : [ halfOf l | l <- vsLayers spec, relevant l ])+      -- 箱の外縁 (xLo-half, xHi+half) を新たな「データ範囲」とみなし、 そこに連続軸既定の+      --   5% expansion を足す。 → 端の箱と軸の間に離散軸 (add=0.6) と同様の余白が出る+      --   (箱がちょうど軸線に接触する窮屈さを解消)。+      widenForWidthGeom (lo, hi)+        | widthGeomHalfData <= 0 = (lo, hi)+        | otherwise =+            let bLo = xLo - widthGeomHalfData+                bHi = xHi + widthGeomHalfData+                p   = (bHi - bLo) * 0.05+            in (min lo (bLo - p), max hi (bHi + p))+      (xLo', xHi') = case coordXLim of+        Just (a, b) | null xCatLabels -> (a, b)+        _ -> if null xCatLabels+               then clampDomKind kindX xLo $ widenForWidthGeom+                      (if hasHistogram+                         then paddedRangeX xLo xHi+                         else paddedRange hasXBaseline xLo xHi)+               else (-0.6, fromIntegral (length xCatLabels) - 0.4 + ridgeHeadroom)+      (yLo', yHi') = case coordYLim of+        Just (a, b) | null yCatLabels && not hasFunnelLayer -> (a, b)+        _ -> if null yCatLabels+               then clampDomKind kindY yLo (paddedRange hasYBaseline yLo yHi)+               else (-0.6, fromIntegral (length yCatLabels) - 0.4)+      sx = mkScale kindX xLo' xHi' (rX area)            (rX area + rW area)+      -- y は通常反転 (lo→下端/hi→上端)。 funnel のみ SE=0 を上端に出すため非反転 (0→上端)。+      sy | hasFunnelLayer = mkScale kindY 0 funnelYHi (rY area) (rY area + rH area)+         | otherwise      = mkScale kindY yLo' yHi' (rY area + rH area) (rY area)+      -- Phase 9 C: coord_flip 用 scale。 domain は sx/sy と同一 (= categorical/baseline 継承)、+      --   range のみ縦横入替。 sxF: データ x → 縦 px (Y と同じ反転で小値が下)。+      --   syF: データ y → 横 px。 funnel は flip 対象外なので非反転特例は写さない。+      sxF = mkScale kindX xLo' xHi' (rY area + rH area) (rY area)+      syF = mkScale kindY yLo' yHi' (rX area)           (rX area + rW area)+      -- Phase 11 A4-a: 軸反転 (scale_x_reverse / scale_y_reverse)。 range を入替えるだけ。+      --   データ軸基準なので Cartesian/flip の両 scale に同じ向きで適用 (coord と独立)。+      revX = getLast (vsReverseX spec) == Just True+      revY = getLast (vsReverseY spec) == Just True+      applyRevX s = if revX then revScale s else s+      applyRevY s = if revY then revScale s else s+      -- Phase 8 B22: 右 Y 軸 scale。 右軸 layer の y 値 (ysR) だけから独立 domain。+      -- PS (findings §2 で正) に合わせ padding は付けない (extentsOrDefault そのまま)。+      kindYR = axisKindOf (vsYAxisRight spec)+      (yLoR, yHiR) = extentsOrDefault ysR+      syR = if hasRightY+              then Just (mkScale kindYR yLoR yHiR (rY area + rH area) (rY area))+              else Nothing+      yTicksR = if hasRightY then mkTicks kindYR yLoR yHiR yLoR yHiR else []+      -- 単一群の distribution mark (= 群列 (encX または colorBy) 無し box/violin/strip/+      -- swarm/raincloud layer のみ) は x tick を抑制。 Phase 36 B1b/B1c: colorBy 単体でも+      -- 群分けされる ('distGroupRef') ので、 その場合は単一群扱いにせず x ラベル (群名) を出す。+      -- ★ Phase 36 D3: distCols は lane 名を x tick に出すので単一群抑制の対象外。+      isSingleGroupBoxOnly = not (null (vsLayers spec)) && not isDistCols &&+        all (\l -> case getFirst (lyKind l) of+                     Just k | k `elem` [MBox, MViolin, MStrip, MSwarm, MRaincloud] ->+                       case distGroupRef l of+                         Nothing -> True+                         Just _  -> False+                     _ -> False) (vsLayers spec)+      -- ★ Phase 11 A4-d: 明示 break/label を (val,label) 対で censor し values/labels に分離。+      --   labels が空 (= breaks のみ指定) なら override label は [] にして render の formatTick に委ねる。+      explicitTicks pLo pHi vals labs =+        let ferr   = abs (pHi - pLo) * 1e-9+            keep t = t >= min pLo pHi - ferr && t <= max pLo pHi + ferr+        in if null labs+             then (filter keep vals, [])+             else let kept = filter (keep . fst)+                               (zip vals (labs ++ repeat (T.pack "")))+                  in (map fst kept, map snd kept)+      explicitXVals = axTickValsOf (vsXAxis spec)+      explicitXLabs = axTickLabelsOf (vsXAxis spec)+      explicitYVals = axTickValsOf (vsYAxis spec)+      explicitYLabs = axTickLabelsOf (vsYAxis spec)+      (xTicksExp, xTickLabsExp) = explicitTicks xLo' xHi' explicitXVals explicitXLabs+      (yTicksExp, yTickLabsExp) = explicitTicks yLo' yHi' explicitYVals explicitYLabs+      useExplicitX = not (null explicitXVals) && null xCatLabels && not isSingleGroupBoxOnly+      useExplicitY = not (null explicitYVals) && null yCatLabels && not hasFunnelLayer+      -- Phase 11 A7-a: zoom 時は break 生成も zoom 範囲で行う (= データ範囲のまま+      --   生成して censor すると視野内 tick が疎になるため)。 未指定は従来 (データ範囲)。+      (xTickLo, xTickHi) = maybe (xLo, xHi) id coordXLim+      (yTickLo, yTickHi) = maybe (yLo, yHi) id coordYLim+      xTicks+        | isSingleGroupBoxOnly = []+        | not (null xCatLabels) = map fromIntegral [0 .. length xCatLabels - 1]+        | useExplicitX          = xTicksExp+        | otherwise             = mkTicks kindX xTickLo xTickHi xLo' xHi'+      yTicks+        | hasFunnelLayer  = mkTicks kindY 0 yHi 0 funnelYHi   -- 0..maxSE (上→下)+        | not (null yCatLabels) = map fromIntegral [0 .. length yCatLabels - 1]+        | useExplicitY    = yTicksExp+        | otherwise       = mkTicks kindY yTickLo yTickHi yLo' yHi'+      xTickLabsOv = if useExplicitX then xTickLabsExp else []+      yTickLabsOv = if useExplicitY then yTickLabsExp else []+      -- P17: spec.palette > theme 既定 series (Phase 9 A-1: ブランドテーマは専用 series、+      -- ggplot 系 preset は従来の hggMain)。 palette 明示指定があればそれが最優先。+      themeDefaultPal = themeSeriesPalette (maybe ThemeDefault id (getLast (vsTheme spec)))+      catPalRaw = maybe themeDefaultPal id (getLast (vsPalette spec))+      -- Phase 7 A6 / Phase 28: ggplot hue sentinel は群数 n で展開 (= hue_pal()(n))。+      -- 群数は (1) categorical color/fill aesthetic の水準数を最優先、 (2) 無ければ x+      -- カテゴリ数 (violin/box/strip 等)、 (3) どちらも無ければ 8。 ★旧実装は連続 x ++      -- 色分け (= R4DS Ch1 の散布図) で x カテゴリが空 → 常に 8 色版になり、 群数 3 でも+      -- 8 色パレットの飛び石を拾って R4DS と色が食い違っていた。+      colorCatN = length (orderedCats (concat+        [ V.toList v+        | l <- vsLayers spec+        , Just (ColorByCol cr) <- [getLast (lyColor l)]+        , Just (TxtData v) <- [resolveCol r cr] ]))+      catPalN | colorCatN > 0         = colorCatN+              | not (null xCatLabels) = length xCatLabels+              | otherwise             = 8+      catPal = if catPalRaw == ["__ggplot_hue__"]+                 then ggplotHue catPalN+                 else catPalRaw+      viridis5Default = ["#440154", "#3B528B", "#21918C", "#5EC962", "#FDE725"]+      contPal = maybe viridis5Default id (getLast (vsContinuousPal spec))+      -- ★ Phase 11 A4-e: spec の色/サイズ scale を Layout へ (renderer が参照)。+      colorManual = maybe [] id (getLast (vsColorManual spec))+      colorGradient2 = getLast (vsColorGradient2 spec)+      -- ★ Phase 34 A3: scale_size 範囲は **直径** pt (size=直径 統一)。既定 (6,20)pt+      -- → 半径 3..10pt (= 旧 radius 範囲 (3,10) と同値・sizeBy 見た目を保存)。+      sizeRange = maybe (6, 20) id (getLast (vsSizeRange spec))+  in Layout+       { lpViewport = vp+       , lpPlotArea = area+       , lpXScale   = applyRevX sx+       , lpYScale   = applyRevY sy+       , lpXScaleFlipped = applyRevX sxF+       , lpYScaleFlipped = applyRevY syF+       , lpCoord    = coordOf spec+         -- ★ Phase 64 A11: ternary の第 3 軸。 CoordTernary 時のみ [0,1] fraction+         --   scale + nice tick、 それ以外は Nothing/[] (既存図は不変)。 カテゴリ/tick+         --   ラベル上書きは continuous 軸ゆえ空 (A12 の grid が数値 tick を描く)。+       , lpZScale   = if isTernary (coordOf spec)+                        then Just (LinearScale 0 1 0 1) else Nothing+       , lpZTicks   = if isTernary (coordOf spec) then niceTicks 5 0 1 else []+       , lpZCategoryLabels = []+       , lpZTickLabels = []+       , lpYScaleRight = fmap applyRevY syR+       , lpXTicks   = xTicks+       , lpYTicks   = yTicks+       , lpYTicksRight = yTicksR+       , lpCategoricalPalette = catPal+       , lpContinuousPalette  = contPal+       , lpColorManual = colorManual+       , lpColorGradient2 = colorGradient2+       , lpSizeRange = sizeRange+       , lpXCategoryLabels = xCatLabels+       , lpYCategoryLabels = yCatLabels+       , lpXTickLabels = xTickLabsOv+       , lpYTickLabels = yTickLabsOv+       , lpHistDomain = histRawDomain r (vsLayers spec)+       , lpMarginScale = sc+       , lpMarginTop    = tM+       , lpMarginLeft   = lM+       , lpMarginBottom = bM+       , lpXTitleOff = xTitleOff+       , lpYTitleOff = yTitleOff+       , lpLegendYOff = legendYOff+       , lpLegendNCol = legNCol+       }++-- | [日本語]: ggplot 準拠: margin 縮小係数を撤廃 (常に 1)。 ggplot は文字・余白を+--   固定 pt で扱い viewport サイズで縮めない (パネルが残りを埋めるだけ)。 旧実装は+--   小 viewport で sc<1 に縮小していたが、 grid は軸帯確保 (renderSubplots) で対応し、+--   単一小 viewport (inset) も固定 pt で ggplot と同挙動にする。 panel が潰れないよう+--   computeLayout 側で availW/availH に下限を設ける。 シグネチャは互換のため温存。+--   [English]: Following ggplot: the margin-shrink factor has been removed+--   (always 1). ggplot treats text and whitespace as fixed pt and does not+--   shrink them with viewport size (the panel simply fills whatever+--   remains). The previous implementation shrank by sc<1 for small+--   viewports; grid now handles this via axis-band reservation+--   (renderSubplots), and a single small viewport (inset) also behaves like+--   ggplot with fixed pt. computeLayout sets a lower bound on availW/availH+--   to keep the panel from collapsing. The signature is kept for+--   compatibility.+ggMarginScale :: Double -> Double -> Double+ggMarginScale _ _ = 1++-- ===========================================================================+-- Phase 8 C (gtable §E): 汎用 1 次元トラック割付+-- ===========================================================================++-- | [日本語]: gtable のトラック (行 or 列) サイズ種別。 ggplot の grid::unit に+--   対応: Fixed v = 固定 pt (= 軸テキスト/タイトル/strip/plot.margin の grob+--   実寸)、 Null  w = 伸縮トラック (= unit(w,"null")、 残りスペースを重み比で+--   分配 = パネル本体)。+--   [English]: The size kind of a gtable track (row or column), matching+--   ggplot's grid::unit: Fixed v is a fixed pt size (the grob's actual size+--   for axis text/title/strip/plot.margin); Null w is an elastic track+--   (unit(w,"null"), distributing remaining space by weight — the panel+--   body).+data Track = Fixed !Double | Null !Double+  deriving (Show, Eq)++-- | [日本語]: 1 次元トラック割付。 利用可能長 avail から Fixed 合計を先取りし、+--   残りを Null トラックに重み比で配分する (= ggplot gtable の「固定先取り →+--   null 残り均等」)。 残りが負なら Null=0 (= パネルが潰れる、 ggplot と同挙動)。+--   パネル間 spacing は呼び出し側が Fixed トラックとして明示挿入する。 戻り =+--   各トラックの (start, length) (start は absolute)。+--   [English]: 1D track allocation. Claims the sum of Fixed sizes from the+--   available length avail first, then distributes the remainder to Null+--   tracks by weight (matching ggplot gtable's "claim fixed first, then+--   split the null remainder"). If the remainder is negative, Null=0 (the+--   panel collapses, matching ggplot's behaviour). Inter-panel spacing must+--   be inserted explicitly by the caller as a Fixed track. Returns each+--   track's (start, length), where start is absolute.+solveTracks :: Double -> Double -> [Track] -> [(Double, Double)]+solveTracks origin avail tracks =+  let fixedSum  = sum [ v | Fixed v <- tracks ]+      weightSum = sum [ w | Null  w <- tracks ]+      remainder = max 0 (avail - fixedSum)+      per       = if weightSum <= 0 then 0 else remainder / weightSum+      sizeOf (Fixed v) = v+      sizeOf (Null  w) = per * w+      go _   []       = []+      go pos (t : ts) = let sz = sizeOf t in (pos, sz) : go (pos + sz) ts+  in go origin tracks++-- | [日本語]: ggplot half_line マージン定数 (pt, sc 適用前)。 layout が純 pt+--   空間になったことで、 これらは ggplot 由来の pt 値 (half_line=+--   base_size/2=5.5pt) そのものとして正しく pt 意味になる (値は不変・k は+--   backend)。 computeLayout の margin 計算と Render の描画オフセットで共有+--   (単一情報源)。+--   [English]: ggplot's half_line margin constants (pt, before sc is+--   applied). Now that layout is a pure pt space, these are correctly+--   interpreted as pt values straight from ggplot (half_line =+--   base_size/2 = 5.5pt; the values are unchanged, and k belongs to the+--   backend). Shared between computeLayout's margin computation and+--   Render's drawing offsets (a single source of truth).+ggHalfLine, ggTickLen, ggAxTextMar, ggAxTitleMar :: Double+ggHalfLine   = 5.5    -- plot.margin 四辺 + title 下 margin+ggTickLen    = 2.75   -- Phase 8 C: axis.ticks.length = half_line/2 (ggplot 忠実、 旧 5)+ggAxTextMar  = 2.2    -- axis.text margin (0.8*halfLine/2)+ggAxTitleMar = 2.75   -- axis.title margin (halfLine/2)++-- ===========================================================================+-- 凡例メトリクス (Phase 35 で導入・Phase 38 で Layout へ集約)+--   ★Layout (予約) と Render (描画) の単一情報源にするため最下層へ置く。+--   Render/Layer は本モジュールから import する (旧: Render/Layer 内ローカル定義)。+-- ===========================================================================++-- | [日本語]: 凡例のベースフォント (pt)。 ggplot @base_size@ = 2 × half_line =+--   11pt。+--   [English]: The legend's base font size (pt). ggplot's @base_size@ is+--   2 × half_line = 11pt.+legendBaseSize :: Double+legendBaseSize = 2 * ggHalfLine++-- | [日本語]: 凡例キーの 1 辺 (pt) = ggplot @legend.key.size =+--   unit(1.2,"lines")@。 ★R gtable トレース実測 = 17.34pt (base 11pt 時)。+--   grid の "lines" は行高 (= 1.2 × base × lineheight) なので 1.2×base(=13.2)+--   ではなくこの値。 = 1.2 × base × 1.3133。+--   [English]: The side length of a legend key (pt), matching ggplot's+--   @legend.key.size = unit(1.2,"lines")@. Measured from an R gtable trace+--   as 17.34pt (at base 11pt). Since grid's "lines" is a line height+--   (1.2 × base × lineheight), the value is not 1.2×base(=13.2) but this+--   one: 1.2 × base × 1.3133.+legendKeyW :: Double+legendKeyW = 1.2 * legendBaseSize * 1.3133++-- | [日本語]: 凡例キーの行ピッチ = keyW (= ggplot gtable のキー間 spacing 行 =+--   0pt = キーセル隣接)。+--   [English]: The legend key's row pitch, equal to keyW (ggplot gtable's+--   inter-key spacing row is 0pt, so key cells are adjacent).+legendKeyPitch :: Double+legendKeyPitch = legendKeyW++-- ---------------------------------------------------------------------------+-- Phase 38: 凡例幅を「ラベル内容」に応じて算出する純関数。+--   Layout の legendW (右予約) と Render の描画幅を**同一式**で駆動して食い違いを無くす。+--   テキスト幅は字種別 advance 近似 ('charWidthEm'・全角=1.0em / Latin は字種別実測較正)。+--   ★ggplot は実フォント advance で測るが、 backend 非依存・HS=PS byte parity を保つため+--   本ライブラリは決定論的な等幅近似で一貫させる (全角を 1.0em にして日本語ラベルの+--   過小評価=はみ出しを防ぐ・大小/はみ出し挙動を ggplot と整合)。+-- ---------------------------------------------------------------------------++-- | [日本語]: East Asian Width が全角 (F=Fullwidth / W=Wide) の文字か。 CJK+--   統合漢字・かな・全角記号・ハングル等を 1.0em 扱いにする。 範囲は Unicode+--   EAW (UAX #11) の W/F に対応する代表ブロックを網羅 (厳密 table でなく実用的な+--   近似・凡例幅にのみ使用)。+--   [English]: Whether a character has East Asian Width Fullwidth (F) or+--   Wide (W), treated as 1.0em (CJK unified ideographs, kana, fullwidth+--   punctuation, Hangul, etc.). The ranges cover representative blocks+--   corresponding to Unicode EAW (UAX #11) W/F (a practical approximation+--   rather than an exact table; used only for legend width).+isWideChar :: Char -> Bool+isWideChar c =+  let o = fromEnum c+  in (o >= 0x1100  && o <= 0x115F)   -- Hangul Jamo+  || (o >= 0x2E80  && o <= 0x303E)   -- CJK Radicals .. Kangxi .. CJK Symbols (一部)+  || (o >= 0x3041  && o <= 0x33FF)   -- Hiragana/Katakana/CJK 記号/互換等+  || (o >= 0x3400  && o <= 0x4DBF)   -- CJK Ext A+  || (o >= 0x4E00  && o <= 0x9FFF)   -- CJK 統合漢字+  || (o >= 0xA000  && o <= 0xA4CF)   -- Yi+  || (o >= 0xAC00  && o <= 0xD7A3)   -- Hangul 音節+  || (o >= 0xF900  && o <= 0xFAFF)   -- CJK 互換漢字+  || (o >= 0xFE30  && o <= 0xFE4F)   -- CJK 互換形+  || (o >= 0xFF00  && o <= 0xFF60)   -- 全角 ASCII 変種+  || (o >= 0xFFE0  && o <= 0xFFE6)   -- 全角記号+  || (o >= 0x1F300 && o <= 0x1FAFF)  -- 絵文字 (W)+  || (o >= 0x20000 && o <= 0x3FFFD)  -- CJK Ext B 以降++-- | [日本語]: 1 文字の advance を em 単位で近似。 ★既定 sans (DejaVu) の実+--   advance を計測して字種別にバケット化 (rsvg trim 実測。 例 i/l≈0.25・+--   a/e≈0.56・M/W≈0.9)。 旧 flat 0.6 は細字主体ラベル (小文字+ハイフン等) で+--   平均 ~0.49em/字を 0.6 と過大予約し右余白を生んでいた。 値は実測平均をやや+--   上回る安全側に丸め 「切れない方向」 を維持。 全角は 'isWideChar' で 1.0em。+--   ★この表は HS=PS で完全一致させること (PS canvas も同値)。+--   [English]: Approximates a single character's advance in em units.+--   Measured from the actual advance of the default sans font (DejaVu) and+--   bucketed by character class (measured via rsvg trim; e.g. i/l≈0.25,+--   a/e≈0.56, M/W≈0.9). The previous flat 0.6 over-reserved space for+--   labels dominated by narrow glyphs (lowercase, hyphens, etc.), whose+--   true average is ~0.49em/char, producing excess right padding. Values+--   are rounded slightly above the measured average, on the safe side of+--   "never truncate". Fullwidth characters are 1.0em via 'isWideChar'.+--   This table must match exactly between Haskell and PureScript (the+--   PureScript canvas uses the same values).+charWidthEm :: Char -> Double+charWidthEm c+  | isWideChar c                              = 1.0+  | c `elem` ("iIl|.,;:'`!()[]{} " :: String) = 0.30  -- 細字・記号・空白+  | c `elem` ("jftr-/\\" :: String)           = 0.42  -- やや細+  | c `elem` ("mwMW@" :: String)              = 0.92  -- 幅広+  | c >= 'A' && c <= 'Z'                       = 0.70  -- 大文字 (M/W は上で処理済)+  | otherwise                                 = 0.58  -- 小文字・数字・その他++-- | [日本語]: 文字列の幅を em 単位で見積もる (字種別 'charWidthEm' の総和)。+--   実 pt 幅 = fontSize × この値。+--   [English]: Estimates a string's width in em units (the sum of per-glyph+--   'charWidthEm'). The actual pt width is fontSize × this value.+textWidthEm :: Text -> Double+textWidthEm = T.foldl' (\acc ch -> acc + charWidthEm ch) 0++-- | [日本語]: DAG node ラベルのフォントサイズ (pt)。 layout (Sugiyama の+--   size-aware 横幅見積り) と render (@nodeExtent@) で共有する単一定義。 旧+--   Render.EdgeRoute から移管。+--   [English]: The font size of a DAG node label (pt). A single definition+--   shared by layout (Sugiyama's size-aware width estimation) and render+--   (@nodeExtent@). Migrated from the previous Render.EdgeRoute.+dagLabelFs :: Double+dagLabelFs = 11++-- | [日本語]: DAG node の __radius 非依存__な横半幅 (px)。 = @nodeExtent@ の+--   rx から @max baseR@ の floor を除いた本体 (ラベル名 / 分布 sublabel 幅に+--   由来)。+--+--   layout の size-aware simplex (Sugiyama @auxSepOf@ / @clusterAuxEdges@)+--   と render の @nodeExtent@ が __同一式__を共有することで、 simplex が+--   確保する node 間隔と描画箱の幅を整合させる (= 兄弟 plate の box 重なりを+--   根治)。 radius は layout 時に未知 (= render-time の lySize) ゆえ floor+--   部分は render 側 (@nodeExtent@) で適用する。+--   [English]: The __radius-independent__ half-width (px) of a DAG node —+--   the body of @nodeExtent@\'s rx with the @max baseR@ floor removed+--   (derived from the label name / distribution sublabel width).+--+--   Layout's size-aware simplex (Sugiyama's @auxSepOf@ / @clusterAuxEdges@)+--   and render's @nodeExtent@ share __the same formula__, keeping the node+--   spacing the simplex reserves consistent with the drawn box width (fixing+--   overlapping boxes between sibling plates at the root). Since the radius+--   is unknown at layout time (it is render-time's lySize), the floor part+--   is applied on the render side (@nodeExtent@).+dagNodeBaseHalfWidth :: DAGNode -> Double+dagNodeBaseHalfWidth n =+  let showDist = case dnKind n of+        NodeDeterministic -> False+        _                 -> maybe False (const True) (dnDist n)+      nameEm = textWidthEm (dnLabel n)+      distEm = case dnDist n of Just d | showDist -> textWidthEm d; _ -> 0+      maxEm  = max 0.5 (max nameEm distEm)+  in dagLabelFs * maxEm / 2 + 8++-- | [日本語]: 単一 guide (右凡例・縦1列) の必要幅 (pt)。 renderGuideBlock の+--   描画式に厳密一致: 列幅 = (key 1辺) + (key→label gap = half_line/2) ++--   (最長ラベル幅) + (右パディング = half_line)。 タイトルがそれより広ければ+--   タイトル幅。 引数: spec (★key 幅/gap を base 派生の実効値で引くため) /+--   item フォント pt / title フォント pt / タイトル文字列 / ラベル群。 ★「最長」+--   は文字数でなく 'textWidthEm' 最大 (全角混在で逆転し得るため幅で選ぶ)。+--   [English]: The required width (pt) of a single guide (a right-side,+--   single-column legend). Matches renderGuideBlock's drawing formula+--   exactly: column width = (key side) + (key-to-label gap = half_line/2) ++--   (longest label width) + (right padding = half_line). If the title is+--   wider, the title width wins instead. Arguments: spec (so key+--   width/gap are drawn from base-derived effective values), item font pt,+--   title font pt, title string, and labels. "Longest" is measured by+--   maximum 'textWidthEm', not character count (since fullwidth mixing can+--   reverse the ordering, width is used).+legendGuideWidth :: VisualSpec -> Double -> Double -> Text -> [Text] -> Double+legendGuideWidth spec fItem fTitle title labels = max titleW colW+  where+    hl         = effectiveHalfLine spec+    maxLabelEm = maximum (0 : map textWidthEm labels)+    colW       = effectiveLegendKeyW spec + hl / 2 + fItem * maxLabelEm + hl+    titleW     = fTitle * textWidthEm title++-- ===========================================================================+-- 凡例ラベル収集 (Phase 35 で導入・Phase 38 で Render/Layer から Layout へ集約)。+--   ★Layout の legendW 予約と Render の renderGuideBlock 描画が**同一関数**でラベル文字列を+--   得るための単一情報源。 別実装だとラベル文字列がズレ予約幅≠描画幅になる。+-- ===========================================================================++-- | [日本語]: 数値 → 表示文字列。 浮動小数点アーチファクト (0.1+0.2=0.300…04+--   等) を 12 桁 round で回避。 整数なら trailing zero / decimal point を+--   除去。 (旧 Render.Common.numToText)+--   [English]: Converts a number to a display string. Avoids+--   floating-point artifacts (0.1+0.2=0.300…04, etc.) by rounding to 12+--   digits. Trailing zeros and the decimal point are stripped for integer+--   values. (Migrated from the previous Render.Common.numToText.)+numToText :: Double -> Text+numToText v =+  let rounded = fromIntegral (round (v * 1e12) :: Integer) / 1e12+      s = if rounded == fromIntegral (truncate rounded :: Integer)+            then show (truncate rounded :: Integer)+            else showFFloat Nothing rounded ""+  in case T.pack s of+       t -> case T.stripSuffix ".0" t of+              Just t' -> t'+              Nothing -> case T.stripSuffix "." t of+                Just t' -> t'+                Nothing -> t++-- | [日本語]: 順序保存 nub (初出順)。 glyph 色 (@colorVector@ の nub) / PS+--   (Array.nub) と揃える。+--   [English]: An order-preserving nub (first-occurrence order), matching+--   the nub used by glyph color (@colorVector@) and PureScript's+--   (Array.nub) behaviour.+nubKeep :: [Text] -> [Text]+nubKeep = nub++-- | [日本語]: 色 aesthetic を持つ最初のレイヤの ColorEnc (categorical /+--   continuous)。+--   [English]: The ColorEnc (categorical or continuous) of the first layer+--   that has a color aesthetic.+findColorEnc :: [Layer] -> Maybe ColorEnc+findColorEnc ls = case [ ce | l <- ls+                            , Just ce <- [getLast (lyColor l)]+                            , isColorMap ce ] of+  (ce : _) -> Just ce+  []       -> Nothing+  where+    isColorMap (ColorByCol _)        = True+    isColorMap (ColorByContinuous _) = True+    isColorMap _                     = False++-- | [日本語]: 明示凡例タイトル (vsLegendTitle = scale name / labs(color=))。+--   未指定なら ""。+--   [English]: The explicit legend title (vsLegendTitle: a scale name or+--   labs(color=)). Empty string "" when unset.+effectiveLegendTitle :: VisualSpec -> Text+effectiveLegendTitle spec = maybe "" id (getLast (vsLegendTitle spec))++-- | [日本語]: 凡例キーの表示順。 (originalIndex, label) を返し、 色は+--   originalIndex で引く (= reverse しても各キーの色は固定)。+--   vsLegendReverse=True で逆順。 ★Render/Layer から移設 (auto-wrap の列幅+--   計算が表示順に依存するため予約 computeLayout と描画で共有 = 単一情報源)。+--   [English]: The display order of legend keys. Returns+--   (originalIndex, label); color is looked up by originalIndex, so each+--   key's color stays fixed even when reversed. Reversed when+--   vsLegendReverse=True. Migrated from Render/Layer, since auto-wrap's+--   column-width computation depends on display order and must be shared+--   between reservation (computeLayout) and rendering (a single source of+--   truth).+legendOrder :: VisualSpec -> [Text] -> [(Int, Text)]+legendOrder spec vals =+  let ix = zip [0 ..] vals+  in if getLast (vsLegendReverse spec) == Just True then reverse ix else ix++-- | [日本語]: 全 ColorByCol レイヤのカテゴリを順序保存で union (= 凡例 swatch /+--   glyph 色の正本)。 明示 @colorCats@ があればそれを先頭に、 無ければデータ+--   水準を 'orderedCats' 順で。+--   [English]: The order-preserving union of categories across all+--   ColorByCol layers (the source of truth for legend swatches / glyph+--   colors). If explicit @colorCats@ are given, they come first; otherwise,+--   data levels are used in 'orderedCats' order.+allColorCategories :: Resolver -> [Layer] -> [Text]+allColorCategories r ls =+  let dataCats = orderedCats $ concat+        [ case resolveCol r cr of+            Just (TxtData v) -> V.toList v+            Just (NumData v) -> V.toList (V.map numToText v)+            Nothing          -> []+        | l <- ls+        , Just (ColorByCol cr) <- [getLast (lyColor l)] ]+      explicit = nubKeep (concatMap lyColorCats ls)+  in if null explicit+       then dataCats+       else explicit ++ filter (`notElem` explicit) dataCats++-- | [日本語]: 凡例 guide (色 / 形)。 描画 (renderGuideBlock) と予約 (legendW)+--   が共有。+--   [English]: A legend guide (color or shape). Shared between rendering+--   (renderGuideBlock) and reservation (legendW).+data LegendGuide+  = ColorGuide !ColorEnc      -- [日本語]: 色 guide (categorical / continuous)。 [English]: A color guide (categorical or continuous).+  | ShapeGuide !ColRef        -- [日本語]: 形 guide (色とは別列・または色無しのとき)。 [English]: A shape guide (a column distinct from color, or used when there is no color).+  | CountBarGuide !Double !Double  -- [日本語]: ★ Phase 40: 件数 colorbar (lo,hi)。 hexbin/bin2d-count 用 (列でなく集計値ゆえ ColorByContinuous と別。 ラベル = "count")。+                                   -- [English]: A count colorbar (lo,hi), for hexbin/bin2d-count (distinct from ColorByContinuous since it is an aggregate rather than a column; labeled "count").++-- | [日本語]: spec から guide を ggplot 順 (color → shape) で収集。 形が色と+--   同列なら統合し形 guide なし。+--   [English]: Collects guides from a spec in ggplot order (color, then+--   shape). If shape shares its column with color, they are merged and no+--   separate shape guide is produced.+collectGuides :: Resolver -> VisualSpec -> [LegendGuide]+collectGuides r spec =+  let mEnc     = findColorEnc (vsLayers spec)+      colorG   = maybe [] (\e -> [ColorGuide e]) mEnc+      colorCol = case mEnc of+        Just (ColorByCol cr) -> Just (colRefName cr)+        _                    -> Nothing+      shapeG   = case [ sc | l <- vsLayers spec, Just sc <- [getLast (lyShapeBy l)] ] of+        (sc : _) | Just (colRefName sc) /= colorCol -> [ShapeGuide sc]+        _                                           -> []+      -- ★ Phase 40: 色 enc が無い hexbin (件数) は count colorbar を出す。+      countG = case (mEnc, hexbinCountDomain r spec) of+        (Nothing, Just (lo, hi)) -> [CountBarGuide lo hi]+        _                        -> []+  in colorG <> countG <> shapeG++-- | [日本語]: spec 中の hexbin layer の件数域 (min,max)。 colorbar guide ++--   needsLegend が使う。 render (renderHexbin) と同じ 'hexbinLayerCells' で+--   計算するので域が一致する。+--   [English]: The count domain (min, max) of the hexbin layer in a spec,+--   used by the colorbar guide and needsLegend. Computed with the same+--   'hexbinLayerCells' as render (renderHexbin), so the domains agree.+hexbinCountDomain :: Resolver -> VisualSpec -> Maybe (Double, Double)+hexbinCountDomain r spec =+  case [ l | l <- vsLayers spec, getFirst (lyKind l) == Just MHexbin ] of+    (l : _) -> case map hexCount (hexbinLayerCells r l) of+      [] -> Nothing+      cs -> Just (fromIntegral (minimum cs), fromIntegral (maximum cs))+    _ -> Nothing++-- | [日本語]: 凡例を実際に描画する位置 (= None なら凡例なし。 PS Layout と+--   同一)。 color encoding が無ければ位置指定があっても None。 予約+--   (computeLayout) / 描画 (Render) の両方がこれを使い、 「予約したのに+--   描かれない / 描いたのに予約してない」 ズレを防ぐ。+--   [English]: The position at which the legend is actually drawn (None+--   means no legend; identical to the PureScript Layout). Without a color+--   encoding, this is None even if a position was requested. Both+--   reservation (computeLayout) and rendering (Render) use this, preventing+--   the mismatch of "reserved but not drawn" or "drawn but not reserved".+needsLegend :: VisualSpec -> LegendPosition -> LegendPosition+needsLegend spec pos+  | pos == LegendNone                = LegendNone+  -- ★ Phase 35: 形のみ (shapeBy・色無し) でも凡例を出す (= ggplot shape guide)。+  -- ★ Phase 40: hexbin (件数 colorbar) も色 enc 無しで凡例を出す。+  | hasColorEncoding (vsLayers spec)+    || hasShapeEncoding (vsLayers spec)+    || hasHexbinCountGuide spec       = pos+  | otherwise                        = LegendNone++-- | [日本語]: 色 enc を持たない hexbin layer (= 件数 colorbar 駆動) があるか+--   (構造のみ)。+--   [English]: Whether there is a hexbin layer without a color encoding+--   (driven by a count colorbar); a structural check only.+hasHexbinCountGuide :: VisualSpec -> Bool+hasHexbinCountGuide spec =+  not (hasColorEncoding (vsLayers spec))+  && any (\l -> getFirst (lyKind l) == Just MHexbin) (vsLayers spec)++-- | [日本語]: layer 群に shape aesthetic (lyShapeBy) があるか。+--   [English]: Whether any layer in the group has a shape aesthetic+--   (lyShapeBy).+hasShapeEncoding :: [Layer] -> Bool+hasShapeEncoding = any (\l -> case getLast (lyShapeBy l) of+                                Just _  -> True+                                Nothing -> False)++-- | [日本語]: 有効 legend position を解決。 優先順 = 図レベル vsLegend+--   (@legendPos@ setter) > theme (toLegendPos) > 既定 LegendRightCenter+--   (= ggplot legend.position="right" と同じ縦中央)。+--   [English]: Resolves the effective legend position. Priority: the+--   figure-level vsLegend (the @legendPos@ setter) > theme (toLegendPos) >+--   the default LegendRightCenter (matching ggplot's vertically centered+--   legend.position="right").+effectiveLegendPos :: VisualSpec -> LegendPosition+effectiveLegendPos spec = case getLast (vsLegend spec) of+  Just l  -> lgPosition l+  Nothing -> maybe LegendRightCenter id+               (getLast (toLegendPos (vsThemeOverride spec)))++-- | [日本語]: 実効 tick 長 (pt)。 theme (toTickLength) > 既定 half_line/2+--   (ggplot axis.ticks.length。 ★固定 'ggTickLen' 2.75 から base 派生へ、+--   既定 11 で bit 同値。 ★ThemeVoid のみ既定 0 = ggplot theme_void の+--   axis.ticks.length = 0)。+--   [English]: The effective tick length (pt). Priority: theme+--   (toTickLength) > the default half_line/2 (ggplot's+--   axis.ticks.length; changed from the fixed 'ggTickLen' 2.75 to a+--   base-derived value, bit-identical at the default of 11. ThemeVoid+--   alone defaults to 0, matching ggplot theme_void's+--   axis.ticks.length = 0).+effectiveTickLength :: VisualSpec -> Double+effectiveTickLength spec =+  maybe def id (getLast (toTickLength (vsThemeOverride spec)))+  where def = if isVoidTheme spec then 0 else effectiveHalfLine spec / 2++-- | [日本語]: theme preset が ThemeVoid か (void 系の既定分岐用)。+--   [English]: Whether the theme preset is ThemeVoid (used to branch on+--   void-family defaults).+isVoidTheme :: VisualSpec -> Bool+isVoidTheme spec = getLast (vsTheme spec) == Just ThemeVoid++-- | [日本語]: 実効 axis.text (目盛ラベル文字) 表示。 theme (toShowAxisText) >+--   preset 既定 (ThemeVoid のみ False = ggplot theme_void の axis.text+--   element_blank)。 表示 off は tick ラベル分の margin 予約 (axTextMar /+--   xTickReserve / maxYTickW) に波及するため、 computeLayout (予約) と+--   Render.tickMarks (描画) の単一情報源。+--   [English]: Whether axis.text (tick label text) is effectively shown.+--   Priority: theme (toShowAxisText) > the preset default (False only for+--   ThemeVoid, matching ggplot theme_void's axis.text element_blank).+--   Turning display off cascades into the tick-label margin reservation+--   (axTextMar / xTickReserve / maxYTickW), so this is the single source of+--   truth shared by computeLayout (reservation) and Render.tickMarks+--   (drawing).+effectiveShowAxisText :: VisualSpec -> Bool+effectiveShowAxisText spec =+  maybe (not (isVoidTheme spec)) id (getLast (toShowAxisText (vsThemeOverride spec)))++-- | [日本語]: 実効 axis.title (軸タイトル) 表示。 既定は+--   'effectiveShowAxisText' と同じ規則 (ThemeVoid のみ False)。+--   computeLayout (予約) と Render.labels (描画) の単一情報源。+--   [English]: Whether axis.title is effectively shown. The default+--   follows the same rule as 'effectiveShowAxisText' (False only for+--   ThemeVoid). A single source of truth shared by computeLayout+--   (reservation) and Render.labels (drawing).+effectiveShowAxisTitle :: VisualSpec -> Bool+effectiveShowAxisTitle spec =+  maybe (not (isVoidTheme spec)) id (getLast (toShowAxisTitle (vsThemeOverride spec)))++-- | [日本語]: 実効 tick 向き。 theme (toTickDir) > 既定 'TickOut' (ggplot 既定+--   = 外向き)。+--   [English]: The effective tick direction. Priority: theme (toTickDir) >+--   the default 'TickOut' (ggplot's default, pointing outward).+effectiveTickDir :: VisualSpec -> TickDir+effectiveTickDir spec =+  maybe TickOut id (getLast (toTickDir (vsThemeOverride spec)))++-- | [日本語]: tick の panel 外向き突出量 (pt)。 margin 予約 (computeLayout) と+--   軸ラベル offset (Render.tickMarks) の単一情報源。 'TickIn' は panel 外に+--   出ないので 0 (= ラベルが軸に寄る、 ggplot の負 axis.ticks.length と同挙動)。+--   [English]: The amount a tick protrudes outward from the panel (pt). A+--   single source of truth shared by margin reservation (computeLayout) and+--   the axis-label offset (Render.tickMarks). 'TickIn' does not protrude+--   past the panel, so this is 0 (labels sit close to the axis, matching+--   ggplot's behaviour with a negative axis.ticks.length).+tickOutwardLen :: VisualSpec -> Double+tickOutwardLen spec = case effectiveTickDir spec of+  TickIn -> 0+  _      -> effectiveTickLength spec++-- | [日本語]: 実効 plot margin (pt)。 theme (toPlotMargin) > 既定 各辺+--   half_line (★固定 'ggHalfLine' 5.5 から base 派生へ、 既定 11 で bit 同値)。+--   指定時は外周分を __置き換える__ (ggplot plot.margin と同じ)。 軸ラベル・+--   title 帯・凡例などの内側予約は従来どおり自動算出のまま (computeLayout と+--   Render.labels が共有)。+--   [English]: The effective plot margin (pt). Priority: theme+--   (toPlotMargin) > the default, half_line on each side (changed from+--   the fixed 'ggHalfLine' 5.5 to a base-derived value, bit-identical at+--   the default of 11). When specified, it __replaces__ the outer margin+--   entirely (matching ggplot's plot.margin). Inner reservations for axis+--   labels, the title band, the legend, etc. remain auto-computed as before+--   (shared by computeLayout and Render.labels).+effectivePlotMargin :: VisualSpec -> Margin+effectivePlotMargin spec =+  let hl = effectiveHalfLine spec+  in maybe (Margin hl hl hl hl) id+           (getLast (toPlotMargin (vsThemeOverride spec)))++-- | [日本語]: 実効 base font size (pt)。 theme (toBaseFontSize) > 既定 11+--   (ggplot theme_grey base_size)。 各 slot の既定 font size はこれからの+--   相対倍率で派生する。 computeLayout (予約) と Render.mkFontTS (描画) の+--   単一情報源。+--   [English]: The effective base font size (pt). Priority: theme+--   (toBaseFontSize) > the default 11 (ggplot theme_grey's base_size). Each+--   slot's default font size is derived from this by a relative multiplier.+--   A single source of truth shared by computeLayout (reservation) and+--   Render.mkFontTS (drawing).+effectiveBaseFontSize :: VisualSpec -> Double+effectiveBaseFontSize spec =+  maybe 11 id (getLast (toBaseFontSize (vsThemeOverride spec)))++-- | [日本語]: 実効 half_line (pt) = base/2 (ggplot @half_line@)。 spacing 系+--   (外周 margin・title 下 margin・panel.spacing・凡例 gap) の共通派生元。+--   既定 base 11 で 5.5 = 従来 'ggHalfLine' と bit 同値 (golden 不変 gate、+--   ULP 検証済)。+--   [English]: The effective half_line (pt), = base/2 (ggplot's+--   @half_line@). The common derivation source for spacing values (outer+--   margin, title bottom margin, panel.spacing, legend gap). At the default+--   base of 11, this is 5.5, bit-identical to the previous 'ggHalfLine'+--   (verified to ULP precision via a golden-invariance gate).+effectiveHalfLine :: VisualSpec -> Double+effectiveHalfLine spec = effectiveBaseFontSize spec / 2++-- | [日本語]: 実効 axis.text margin (pt) = 0.8 × half_line/2 (ggplot 忠実)。+--   既定 11 で 2.2 = 従来 'ggAxTextMar' と bit 同値。+--   [English]: The effective axis.text margin (pt), = 0.8 × half_line/2+--   (faithful to ggplot). At the default of 11, this is 2.2, bit-identical+--   to the previous 'ggAxTextMar'.+effectiveAxTextMar :: VisualSpec -> Double+effectiveAxTextMar spec = 0.8 * (effectiveHalfLine spec / 2)++-- | [日本語]: 実効 axis.title margin (pt) = half_line/2 (ggplot 忠実)。 既定+--   11 で 2.75 = 従来 'ggAxTitleMar' と bit 同値。+--   [English]: The effective axis.title margin (pt), = half_line/2+--   (faithful to ggplot). At the default of 11, this is 2.75, bit-identical+--   to the previous 'ggAxTitleMar'.+effectiveAxTitleMar :: VisualSpec -> Double+effectiveAxTitleMar spec = effectiveHalfLine spec / 2++-- | [日本語]: 実効凡例ベースフォント (pt) = 2 × half_line = base (ggplot+--   @base_size@ と一致)。 既定 11 で従来 'legendBaseSize' と bit 同値。+--   [English]: The effective legend base font size (pt), = 2 × half_line =+--   base (matching ggplot's @base_size@). At the default of 11,+--   bit-identical to the previous 'legendBaseSize'.+effectiveLegendBaseSize :: VisualSpec -> Double+effectiveLegendBaseSize spec = 2 * effectiveHalfLine spec++-- | [日本語]: 実効凡例キー 1 辺 (pt) = 1.2 lines (行高 1.3133 倍率は+--   'legendKeyW' と同一)。 既定 11 で bit 同値。 pitch = keyW (キーセル隣接)。+--   ★theme (toLegendKeySize、 ggplot legend.key.size 相当) が最優先。+--   cowplot preset は 1.1 × font_size を焼き込む (gold 実測: base14 = 15.4pt+--   = 32px)。+--   [English]: The effective legend key side length (pt), = 1.2 lines (the+--   1.3133 line-height multiplier matches 'legendKeyW'). Bit-identical at+--   the default of 11. pitch = keyW (key cells adjacent). theme+--   (toLegendKeySize, corresponding to ggplot's legend.key.size) takes+--   priority. The cowplot preset bakes in 1.1 × font_size (measured against+--   gold: base14 = 15.4pt = 32px).+effectiveLegendKeyW :: VisualSpec -> Double+effectiveLegendKeyW spec =+  maybe (1.2 * effectiveLegendBaseSize spec * 1.3133) id+        (getLast (toLegendKeySize (vsThemeOverride spec)))++effectiveLegendKeyPitch :: VisualSpec -> Double+effectiveLegendKeyPitch = effectiveLegendKeyW++-- | [日本語]: 実効 subtitle / caption / tag font size (pt) = base 派生+--   (ggplot theme_grey の倍率: plot.subtitle ×1 / plot.caption ×0.8 /+--   plot.tag ×1.2)。 旧固定 11/9/13 は base 11 の丸め値 (caption 8.8→9 /+--   tag 13.2→13) だったのを ggplot 忠実の派生式へ。 computeLayout (labs+--   予約) と Render.labels (描画) の単一情報源。+--   [English]: The effective subtitle / caption / tag font size (pt),+--   derived from base (ggplot theme_grey's multipliers: plot.subtitle ×1,+--   plot.caption ×0.8, plot.tag ×1.2). Replaces the old fixed 11/9/13+--   (rounded values of base 11: caption 8.8→9, tag 13.2→13) with a formula+--   faithful to ggplot. A single source of truth shared by computeLayout+--   (labs reservation) and Render.labels (drawing).+effectiveSubtitleSize :: VisualSpec -> Double+effectiveSubtitleSize = effectiveBaseFontSize++effectiveCaptionSize :: VisualSpec -> Double+effectiveCaptionSize spec = 0.8 * effectiveBaseFontSize spec++effectiveTagSize :: VisualSpec -> Double+effectiveTagSize spec = 1.2 * effectiveBaseFontSize spec++-- | [日本語]: slot の実効 font size (pt)。 解決順は Render.mkFontTS と同一 =+--   theme override (fsSize) > font setter (fsSize) > 既定 (base 派生)。+--   setter と override は Maybe FontSpec の field-wise merge (override の+--   Just が優先)。+--   [English]: The effective font size (pt) of a slot. Resolution order+--   matches Render.mkFontTS: theme override (fsSize) > the font setter+--   (fsSize) > the default (base-derived). The setter and override are+--   field-wise merged as Maybe FontSpec (a Just in override takes+--   priority).+effectiveFontSize :: Last FontSpec -> Last FontSpec -> Double -> Double+effectiveFontSize setterL overrideL def =+  case getLast setterL <> getLast overrideL of+    Just fs -> maybe def id (getLast (fsSize fs))+    Nothing -> def++-- | [日本語]: layer 群に color/fill aesthetic (ColorByCol / ColorByContinuous)+--   があるか。+--   [English]: Whether any layer in the group has a color/fill aesthetic+--   (ColorByCol or ColorByContinuous).+hasColorEncoding :: [Layer] -> Bool+hasColorEncoding = any (\l -> case getLast (lyColor l) of+  Just (ColorByCol _)        -> True+  Just (ColorByContinuous _) -> True+  _                          -> False)++-- | [日本語]: 軸 tick ラベルを ggplot / base-R @format()@ 準拠で __ベクトル整形__+--   する。 ggplot の連続スケール既定 (@labels = waiver()@) は break ベクトル+--   全体に base R @format()@ を掛ける。 その挙動を再現:+--+--     1. 全 break で__小数桁を統一__する (末尾ゼロを残す)。 例 0,.25,.5 →+--        "0.00","0.25","0.50" (旧 numToText は単値ごとにゼロ削りして+--        "0.5" になっていた)。+--     2. __固定小数 vs 指数__を「最大幅が短い方」で選ぶ (base R+--        @scipen = 0@: 固定表記が指数表記より広いときだけ指数にする)。 例+--        density の 0..5e-4 は固定 "0.0005"(6字) > 指数 "5e-04"(5字) ゆえ+--        "0e+00".."5e-04"、 0..1 は固定 "0.50"(4字) ≤ 指数 "5e-01"(5字) ゆえ+--        "0.00".."1.00"。+--+--   R @ggplot_build@ 実測値と一致することを確認済 (density y / 0..1 比率 y /+--   3000..6000 x)。+--   [English]: Vector-formats axis tick labels following ggplot / base-R+--   @format()@. ggplot's default for continuous scales (@labels = waiver()@)+--   applies base R's @format()@ to the whole break vector. This reproduces+--   that behaviour:+--+--     1. Uses __the same decimal digit count for every break__ (keeping+--        trailing zeros). E.g. 0,.25,.5 becomes "0.00","0.25","0.50"+--        (the previous 'numToText' stripped zeros per value,+--        producing "0.5").+--     2. Chooses __fixed decimal vs. exponential__ by whichever has the+--        shorter maximum width (matching base R's @scipen = 0@: switches to+--        exponential only when fixed notation is wider). E.g. for density's+--        0..5e-4, fixed "0.0005" (6 chars) is wider than exponential+--        "5e-04" (5 chars), so "0e+00".."5e-04" is used; for 0..1, fixed+--        "0.50" (4 chars) is no wider than exponential "5e-01" (5 chars),+--        so "0.00".."1.00" is used.+--+--   Verified to match measured R @ggplot_build@ output (density y, 0..1+--   ratio y, 3000..6000 x).+formatTicksGG :: [Double] -> [Text]+formatTicksGG [] = []+formatTicksGG xs =+  let dFixed = maximum (0 : map decimalsNeeded xs)+      fixed  = map (\v -> T.pack (showFFloat (Just dFixed) v "")) xs+      dSci   = maximum (0 : map (decimalsNeeded . fst . sciParts) xs)+      sci    = map (sciStr dSci) xs+      wFixed = maximum (map T.length fixed)+      wSci   = maximum (map T.length sci)+  in if wFixed > wSci then sci else fixed++-- | [日本語]: v を誤差なく表すのに要する小数桁 (0..10)。 nice tick 前提で+--   10 桁上限。+--   [English]: The decimal digits (0..10) needed to represent v without+--   error. Capped at 10 digits, assuming nice ticks.+decimalsNeeded :: Double -> Int+decimalsNeeded v = go 0+  where+    go k | k >= 10                              = 10+         | abs (v - rounded k) <= 1e-9 * max 1 (abs v) = k+         | otherwise                            = go (k + 1)+    rounded k = let tk = 10 ^^ k :: Double+                in fromIntegral (round (v * tk) :: Integer) / tk++-- | [日本語]: v を仮数 m∈[1,10) と指数 e に正規化 (v = m * 10^e)。 0 は+--   (0,0)。+--   [English]: Normalizes v to a mantissa m∈[1,10) and an exponent e+--   (v = m * 10^e). 0 becomes (0,0).+sciParts :: Double -> (Double, Int)+sciParts 0 = (0, 0)+sciParts v =+  let e0 = floor (logBase 10 (abs v)) :: Int+      m0 = v / (10 ^^ e0)+  in norm m0 e0+  where+    norm m e+      | abs m >= 10 = norm (m / 10) (e + 1)+      | abs m <  1  = norm (m * 10) (e - 1)+      | otherwise   = (m, e)++-- | [日本語]: 指数表記 1 個 (仮数 d 桁 + "e±NN")。+--   [English]: A single exponential-notation string (a d-digit mantissa+--   plus "e±NN").+sciStr :: Int -> Double -> Text+sciStr d v =+  let (m, e) = sciParts v+      mant   = showFFloat (Just d) m ""+      sign   = if e < 0 then "-" else "+"+      ae     = abs e+      expt   = (if ae < 10 then "0" else "") ++ show ae+  in T.pack (mant ++ "e" ++ sign ++ expt)++-- | [日本語]: Categorical axis labels (= ColTxt の distinct 値、 layer 横断)。+--   どの encoding (encX / encY) を見るかは accessor 引数で指定。+--+--   既定順を ggplot2 の factor 既定と同じ __アルファベット順__ ('orderedCats')+--   にした (= R4DS と凡例・色・軸並びを一致させる)。 明示順が要るときは+--   @scale_x_discrete(limits=)@ 相当の discrete-limits override (第 4 引数) を+--   渡す (= fct_infreq / fct_reorder 相当)。 override 指定時はデータ内に+--   在る水準だけをその順で返す (applyDiscreteLimits がデータ側を既に+--   filter/並べ替え済)。+--   [English]: Categorical axis labels (the distinct ColTxt values, across+--   layers). Which encoding (encX / encY) is inspected is chosen by the+--   accessor argument.+--+--   The default order matches ggplot2's default factor order, __alphabetical__+--   ('orderedCats'), keeping legend/color/axis ordering consistent with+--   R4DS. When an explicit order is needed, pass a discrete-limits override+--   (the 4th argument) equivalent to @scale_x_discrete(limits=)@ (comparable+--   to fct_infreq / fct_reorder). When an override is given, only the+--   levels present in the data are returned, in that order+--   (applyDiscreteLimits has already filtered/reordered the data side).+collectCategoricalLabels+  :: (Layer -> Last ColRef)+  -> Resolver -> VisualSpec -> Maybe [Text] -> [Text]+collectCategoricalLabels acc r spec mOverride =+  let labels = concat+        [ V.toList v+        | l <- vsLayers spec+        , Just cr <- [getLast (acc l)]+        , Just (TxtData v) <- [resolveCol r cr]+        ]+  in case mOverride of+       Just ws -> [ w | w <- ws, w `elem` labels ]   -- 明示順 (= fct_infreq 等)+       Nothing -> orderedCats labels                  -- 既定 = アルファベット順++-- | [日本語]: scale の range (rLo/rHi) を入替えて軸反転。 domain は不変なので+--   tick (= domain 値) は scaleApply 経由で自動的に逆向き座標へ写る。 全+--   Scale variant が lsRangeLo/lsRangeHi を共有するため record update 1 つで+--   賄える。+--   [English]: Reverses an axis by swapping the scale's range (rLo/rHi).+--   Since the domain is unchanged, ticks (domain values) map automatically+--   to reversed coordinates via scaleApply. All Scale variants share+--   lsRangeLo/lsRangeHi, so a single record update suffices.+revScale :: Scale -> Scale+revScale s = s { lsRangeLo = lsRangeHi s, lsRangeHi = lsRangeLo s }++scaleApply :: Scale -> Double -> Double+scaleApply (LinearScale dLo dHi rLo rHi) v+  | dHi == dLo = (rLo + rHi) / 2+  | otherwise  = rLo + (v - dLo) / (dHi - dLo) * (rHi - rLo)+scaleApply (LogScale dLo dHi rLo rHi) v+  | dHi <= 0 || dLo <= 0 = (rLo + rHi) / 2   -- 不正 domain は中央+  | v <= 0               = rLo                -- log 不能値は range 下端 clip+  | dHi == dLo           = (rLo + rHi) / 2+  | otherwise            =+      let lLo = log dLo; lHi = log dHi; lv = log v+      in rLo + (lv - lLo) / (lHi - lLo) * (rHi - rLo)+scaleApply (SqrtScale dLo dHi rLo rHi) v+  | dHi <  0 || dLo <  0 = (rLo + rHi) / 2   -- 負値 domain (= sqrt 不能) は中央+  | v < 0                = rLo                -- 負値 input は range 下端 clip+  | dHi == dLo           = (rLo + rHi) / 2+  | otherwise            =+      let sLo = sqrt dLo; sHi = sqrt dHi; sv = sqrt v+      in rLo + (sv - sLo) / (sHi - sLo) * (rHi - rLo)+scaleApply (TimeScale dLo dHi rLo rHi) v+  -- Time scale は internal は Linear (= 値 = unix epoch seconds)。+  -- tick / 表示 format のみ別 (= 描画側で適用)。+  | dHi == dLo = (rLo + rHi) / 2+  | otherwise  = rLo + (v - dLo) / (dHi - dLo) * (rHi - rLo)++-- ===========================================================================+-- Phase 33 B3: 相対単位込み座標 'Pos' の pt 解決+-- ===========================================================================+--+-- native/npc の意味は panel rect / scale (= Layout の産物) が決める。よって+-- 解決は backend ではなく engine 内 (この層) で行う ([[Option 1]])。本 phase の+-- layout 出力は純 pt なので、UCtx も pt 空間で解く (dpi は PAbs の Px 入力解決だけ)。++-- | [日本語]: 'Pos' を pt 座標へ解決する context。panel rect と x/y scale を+--   与える。+--   [English]: The context for resolving a 'Pos' to pt coordinates. Supplies+--   the panel rect and the x/y scales.+data UCtx = UCtx+  { uDpi    :: !Double   -- ^ [日本語]: PAbs の Px を pt 化する dpi。 [English]: The dpi used to convert PAbs's Px to pt.+  , uRect   :: !Rect     -- ^ [日本語]: panel rect (pt)。PNpc 解決に使う。 [English]: The panel rect (pt), used to resolve PNpc.+  , uXScale :: !Scale    -- ^ [日本語]: PNative (x) 解決。 [English]: Used to resolve PNative (x).+  , uYScale :: !Scale    -- ^ [日本語]: PNative (y) 解決。 [English]: Used to resolve PNative (y).+  } deriving (Show, Eq)++-- | [日本語]: x 座標の 'Pos' を pt へ。PNpc 0=左端 (rX), 1=右端 (rX+rW)。+--   [English]: Resolves an x-coordinate 'Pos' to pt. For PNpc, 0 is the+--   left edge (rX) and 1 is the right edge (rX+rW).+resolvePosX :: UCtx -> Pos -> Double+resolvePosX c p = case p of+  PAbs len  -> rX (uRect c) + lengthToPt (uDpi c) len+  PNpc t    -> rX (uRect c) + t * rW (uRect c)+  PNative v -> scaleApply (uXScale c) v++-- | [日本語]: y 座標の 'Pos' を pt へ。device 座標は y 下向き (rY=上端) ゆえ+--   PNpc 1=上端 (rY), 0=下端 (rY+rH)。PNative は反転済 scale が処理。+--   [English]: Resolves a y-coordinate 'Pos' to pt. Since device coordinates+--   point downward (rY is the top edge), PNpc 1 is the top edge (rY) and 0+--   is the bottom edge (rY+rH). PNative is handled by the already-flipped+--   scale.+resolvePosY :: UCtx -> Pos -> Double+resolvePosY c p = case p of+  PAbs len  -> rY (uRect c) + lengthToPt (uDpi c) len+  PNpc t    -> rY (uRect c) + (1 - t) * rH (uRect c)+  PNative v -> scaleApply (uYScale c) v++-- ===========================================================================+-- Phase 9 C: coord_flip 用の座標投影 (= ggplot Coord の中間レイヤ)+-- ===========================================================================+--+-- 各 renderer は `Point (sx x)(sy y)` の代わりに projectXY/projectRectData/+-- projectBarRect を通す。 Cartesian は従来と bit 一致、 Flip は x/y を入替える。+-- **Coord は位置だけ変換** (= テキスト anchor/font・点半径・bar 厚みは px のまま)。++-- | [日本語]: spec の座標系。 明示 'vsCoord' 指定が最優先。 未指定でも+--   ★ Phase 69 A3: encZ を持つ layer があれば 'CoordTernary' と推論する+--   (encZ は ternary 専用 aesthetic ゆえ他座標系と衝突せず誤爆しない)。 それ以外は Cartesian。+--   これにより最小形が @layer (ternaryScatter a b c)@ の 1 ピースで済む+--   (coordTernary を書き忘れて c=0 で潰れる事故も防ぐ)。 明示 coord は常に優先。+--   [English]: A spec's coordinate system. An explicit 'vsCoord' wins. When+--   unspecified, ★ Phase 69 A3: infer 'CoordTernary' if any layer carries encZ+--   (encZ is a ternary-only aesthetic, so it never collides with other coords),+--   otherwise Cartesian. This lets the minimal form be a single+--   @layer (ternaryScatter a b c)@ (and prevents the collapse-to-c=0 accident of+--   forgetting coordTernary). An explicit coord always takes priority.+coordOf :: VisualSpec -> Coord+coordOf spec = case getLast (vsCoord spec) of+  Just c  -> c+  Nothing+    | any hasEncZ (vsLayers spec) -> CoordTernary defaultTernaryOpts+    | otherwise                   -> CoordCartesian+  where hasEncZ l = case getLast (lyEncZ l) of Just _ -> True; Nothing -> False++-- | [日本語]: データ空間 (dx, dy) → px (横, 縦)。 Cartesian は (sx dx, sy dy)、+--   Flip はデータ x を縦 px・データ y を横 px に (= 軸入替)。+--   [English]: Maps data space (dx, dy) to px (horizontal, vertical).+--   Cartesian is (sx dx, sy dy); Flip maps data x to vertical px and data y+--   to horizontal px (swapping the axes).+projectXY :: Coord -> Layout -> Double -> Double -> (Double, Double)+projectXY CoordCartesian l dx dy =+  (scaleApply (lpXScale l) dx, scaleApply (lpYScale l) dy)+projectXY CoordFlip l dx dy =+  (scaleApply (lpYScaleFlipped l) dy, scaleApply (lpXScaleFlipped l) dx)+-- Phase 11 A7-c: 極座標。 theta 軸 (PolarX=x / PolarY=y) を角度 (0..2π、 上始点・+--   時計回り; start/direction は Phase 64 A16 で可変)、 他軸を半径 (中心=domain+--   下端、 外周=domain 上端) に写す。+projectXY (CoordPolarX _) l dx dy = polarPoint l (domFrac (lpXScale l) dx) (domFrac (lpYScale l) dy)+projectXY (CoordPolarY _) l dx dy = polarPoint l (domFrac (lpYScale l) dy) (domFrac (lpXScale l) dx)+-- ★ Phase 64 A12: 三角座標。 'projectXY' は 2 引数 (a,b) しか受けないので、+--   第 3 成分は @c = 1 - a - b@ と補完する (= a/b を既に fraction で渡す入力様式)。+--   3 列 (encX/encY/encZ) を直接投影する経路は §3-4 (A13) で geom 側が+--   'ternaryPoint' を 3 引数で呼ぶ。 grid/tick は 'ternaryPoint' を直接使う。+projectXY (CoordTernary _) l dx dy = ternaryPoint l (dx, dy, 1 - dx - dy)++-- | [日本語]: scale の domain における正規化位置 [0,1] (= (v - dLo)/(dHi -+--   dLo))。 極座標で角度/半径の比率を出すのに使う。 domain が退化していれば+--   0。+--   [English]: The normalized position [0,1] within a scale's domain+--   ((v - dLo)/(dHi - dLo)). Used to compute angle/radius ratios in polar+--   coordinates. Returns 0 if the domain is degenerate.+domFrac :: Scale -> Double -> Double+domFrac s v = let lo = lsDomainLo s; hi = lsDomainHi s+              in if hi == lo then 0 else (v - lo) / (hi - lo)++-- | [日本語]: 極座標の中心とデータ最大半径。+--+--   ★ Phase 64 A8: 半径は **ggplot2 の npc 定数に合わせる** (それまでは+--   @min(w,h)/2@ = panel 内接円で、 外周が panel の縁にぴったり接するため+--   θ ラベル (外周のやや外) が必ず panel の外へ出てタイトルと重なっていた)。+--   ggplot2 @coord-polar.R@ (2026-08-06 時点 main) の実装:+--+--     * @r_rescale(x, range, donut = c(0, 0.4))@ (287-290 行) =+--       __データの最大半径は npc 0.4__+--     * @render_fg@ (240-249 行) が θ ラベルを @0.45 * sin/cos + 0.5@ =+--       __npc 半径 0.45__ に中心揃えで置く+--     * panel 矩形の縁は中心から npc 0.5+--+--   つまり 0.4 (データ) \< 0.45 (θ ラベル・外周円) \< 0.5 (panel 縁) で、+--   ggplot2 は__ラベルを panel の内側に収めることで余白予約を不要にしている__+--   (@render_axis_h@ は空軸を返すだけ・@layout.R@ に θ 用の帯予約は無い)。+--   本実装もこれに倣うので 'computeLayout' は座標系を見る必要が無い。+--+--   [English]: The center and maximum data radius of polar coordinates.+--   Phase 64 A8 switched the radius to ggplot2's npc constants (it used to+--   be @min(w,h)/2@, the circle inscribed in the panel, which forced the+--   theta labels just outside it to leave the panel and collide with the+--   title). In ggplot2's @coord-polar.R@: data is rescaled into the donut+--   @c(0, 0.4)@, theta labels are centered at npc radius 0.45, and the+--   panel edge is at 0.5 — so labels stay inside the panel and no margin+--   reservation is needed. We follow the same ratios.+polarCenter :: Layout -> (Double, Double, Double)+polarCenter l = let a = lpPlotArea l+                    cx = rX a + rW a / 2+                    cy = rY a + rH a / 2+                    maxR = 0.4 * min (rW a) (rH a)+                in (cx, cy, maxR)++-- | [日本語]: θ ラベルを置く半径を、 データ最大半径 ('polarCenter' の maxR) との比で+--   表したもの = @0.45 / 0.4 = 1.125@。 ggplot2 の npc 定数から導出+--   (根拠は 'polarCenter' の注記)。 境界円 (= clip 境界) は maxR のままなので、+--   ラベルは境界円の少し外・panel の内側という位置になる。+--   [English]: The radius at which theta labels sit, as a ratio to the max+--   data radius: @0.45 / 0.4 = 1.125@, derived from ggplot2's npc constants+--   (see the note on 'polarCenter'). The boundary circle (and the clip+--   boundary) stays at maxR, so labels land just outside it but still+--   inside the panel.+polarOuterFrac :: Double+polarOuterFrac = 0.45 / 0.4++-- | [日本語]: 境界円 (= データ最大半径の円) を多角形近似した clip path+--   (Phase 64 A8 = B-2)。 @PClipPath@ に渡して「外周円の外に glyph が+--   描かれない」 を実現する。 180 分割 (2°刻み) で、 半径 200px でも矢高誤差は+--   0.03px 未満。+--   [English]: A polygonal approximation of the boundary circle (at the max+--   data radius), for use with @PClipPath@ (Phase 64 A8 / B-2) so that no+--   glyph is drawn outside it. 180 segments (2 degrees each): the sagitta+--   error stays below 0.03px even at a 200px radius.+polarClipPath :: Layout -> [(Double, Double)]+polarClipPath l =+  [ polarPoint l (fromIntegral i / n) 1.0 | i <- [0 .. round n - 1 :: Int] ]+  where n = 180 :: Double++-- | [日本語]: 極座標の開始角/回転方向を Layout の 'lpCoord' から取り出す+--   (= Phase 64 A16 = coord_polar(start=, direction=))。 polar でなければ既定+--   (start=0, dir=+1)。 投影が 'polarPoint' 1 箇所に閉じているので、 grid /+--   スポーク / θ ラベルもこの opts を通る。+--   [English]: Extracts the polar start angle / direction from the Layout's+--   'lpCoord' (Phase 64 A16 = coord_polar(start=, direction=)). Returns the+--   default (start=0, dir=+1) for non-polar coords. Since projection is+--   confined to 'polarPoint', grid / spokes / theta labels all honor these.+polarOptsOf :: Coord -> (Double, Double)+polarOptsOf (CoordPolarX o) = (polarStart o, polarDirection o)+polarOptsOf (CoordPolarY o) = (polarStart o, polarDirection o)+polarOptsOf _               = (0, 1)++-- | [日本語]: (角度 frac, 半径 frac) → px。 角度は 'lpCoord' の 'PolarOpts' で+--   @theta = start + dir * frac * 2π@ (既定 start=0=真上・dir=+1=時計回り)、+--   半径 frac=1 が外周。+--   [English]: Maps (angle fraction, radius fraction) to px. The angle is+--   @theta = start + dir * frac * 2π@ from the 'PolarOpts' in 'lpCoord'+--   (default start=0 = top, dir=+1 = clockwise); radius fraction 1 is the+--   outer edge.+polarPoint :: Layout -> Double -> Double -> (Double, Double)+polarPoint l thetaFrac rFrac =+  let (cx, cy, maxR) = polarCenter l+      (start, dir)   = polarOptsOf (lpCoord l)+      theta = start + dir * thetaFrac * 2 * pi+      r     = rFrac * maxR+  in (cx + r * sin theta, cy - r * cos theta)++-- | [日本語]: 三角座標 (ternary) の中心と外接円半径 (= Phase 64 A12、 'polarCenter'+--   の対)。 正三角形は panel 矩形に内接し、 **極座標と同じ短辺基準の npc 0.4** で+--   寸法を決める (中心から各頂点まで @R = 0.4*min(w,h)@)。 三角形の高さは @1.5R@・+--   幅は @√3 R@ で、 どちらも @min(w,h)@ 未満に収まり四方に軸ラベルの余白が残る。+--   [English]: The center and circumradius of ternary coordinates (Phase 64+--   A12; the counterpart of 'polarCenter'). The equilateral triangle is+--   inscribed in the panel rectangle and sized on the short side at npc 0.4+--   (@R = 0.4*min(w,h)@ from the center to each vertex), matching polar. The+--   triangle's height @1.5R@ and width @√3 R@ both stay within @min(w,h)@,+--   leaving margin on all sides for axis labels.+ternaryCenter :: Layout -> (Double, Double, Double)+ternaryCenter l =+  let a = lpPlotArea l+      s = sqrt 3 / 2+      -- ★ Phase 69 A5: 三角図が plotArea に比べて小さく・上寄りだった (user 指摘) のを是正。+      --   旧: @r = 0.4 * min(w,h)@ (保守的 + min で幅を活かせず) / 中心 = plotArea 中央+      --   (= 外接中心を置く → 上頂点は r 上・底辺は r/2 下で外接矩形が上へずれ、 下に余白過多)。+      --   新: 三角形の実アスペクト (幅 √3·r / 高さ 1.5·r) と辺ラベル/頂点タイトル用の外周+      --   マージンから最大 r を算出し、 外接矩形 (縦幅 1.5r) の中心を plotArea 中心へ揃える。+      mLabel = 32                      -- 頂点タイトル (outward 22 + 文字) / tick ラベル用の外周余白+      availW = max 1 (rW a - 2 * mLabel)+      availH = max 1 (rH a - 2 * mLabel)+      r  = max 1 (min (availW / (2 * s)) (availH / 1.5))  -- 幅 √3r ≤ availW かつ 高さ 1.5r ≤ availH+      cx = rX a + rW a / 2+      -- 外接矩形の縦中心 (cy - r/4) を plotArea 中心へ → cy を r/4 下げて上下均等に。+      cy = rY a + rH a / 2 + r / 4+  in (cx, cy, r)++-- | [日本語]: 三角座標の 3 頂点の px。 成分 @(a,b,c)@ と頂点の対応 = **a=上 (12 時)・+--   b=左下・c=右下** (中心から 90°/210°/330° = 反時計回り)。 'ternaryPoint' /+--   'ternaryGrid' / clip path が共有する単一情報源。+--   [English]: The pixel positions of the three ternary vertices. Component ↔+--   vertex: **a = top (12 o'clock), b = bottom-left, c = bottom-right** (at+--   90°/210°/330° from the center). Shared single source of truth for+--   'ternaryPoint', the grid, and the clip path.+ternaryVertices :: Layout -> ((Double, Double), (Double, Double), (Double, Double))+ternaryVertices l =+  let (cx, cy, r) = ternaryCenter l+      s = sqrt 3 / 2+      top = (cx, cy - r)             -- 上+      bl  = (cx - r * s, cy + r / 2) -- 左下+      br  = (cx + r * s, cy + r / 2) -- 右下+      -- ★ Phase 69 A4: 向き opts を 'lpCoord' から読む (既定 = a=top/b=bl/c=br の従来配置)。+      --   clockwise は左下↔右下 を反転 (巡回方向を逆に)、 rotate は成分→頂点の割当を+      --   反時計回りに 120° ずつ巡回する。+      (clockwise, rot) = case lpCoord l of+        CoordTernary o -> (ternaryClockwise o, ternaryRotate o)+        _              -> (False, 0)+      base = if clockwise then [top, br, bl] else [top, bl, br]  -- 頂点の巡回列 (CCW / CW)+      k    = (rot `div` 120) `mod` 3+      -- 成分 (a,b,c) を base の巡回位置へ割り当てる (k 段ずらす)。+      rotated = drop k base ++ take k base+  in case rotated of+       (pa : pb : pc : _) -> (pa, pb, pc)+       _                  -> (top, bl, br)++-- | [日本語]: 正規化済み成分 @(a,b,c)@ (合計 1 前提) → px。 重心座標+--   @P = a*A + b*B + c*C@ ('ternaryVertices' の 3 頂点)。 正規化は呼出側で+--   'normalizeTernary' を通す (= 退化行はそこで Nothing となり描画対象から落ちる)。+--   [English]: Maps normalized components @(a,b,c)@ (assumed to sum to 1) to+--   pixels via barycentric coordinates @P = a*A + b*B + c*C@ over the three+--   'ternaryVertices'. Callers normalize through 'normalizeTernary' first (so+--   degenerate rows become Nothing and are dropped from rendering).+ternaryPoint :: Layout -> (Double, Double, Double) -> (Double, Double)+ternaryPoint l (a, b, c) =+  let ((ax, ay), (bx, by), (cx, cy)) = ternaryVertices l+  in (a * ax + b * bx + c * cx, a * ay + b * by + c * cy)++-- | [日本語]: データ空間の矩形 (x/y の min/max) → px Rect。 Flip では bbox が+--   縦横転置される。 2 隅を projectXY して min/abs で正規化するだけ (= 向きに+--   依らず正しい Rect)。+--   [English]: Maps a data-space rectangle (x/y min/max) to a px Rect. Under+--   Flip, the bbox is transposed. Simply projects two corners via projectXY+--   and normalizes with min/abs (correct regardless of orientation).+projectRectData :: Coord -> Layout -> Double -> Double -> Double -> Double -> Rect+projectRectData c l xminD xmaxD yminD ymaxD =+  let (x0, y0) = projectXY c l xminD yminD+      (x1, y1) = projectXY c l xmaxD ymaxD+  in Rect (min x0 x1) (min y0 y1) (abs (x1 - x0)) (abs (y1 - y0))++-- | [日本語]: bar/box 用: 中心線の data 座標 (centerD = x 群位置) と+--   base..value の data 区間、 厚み thicknessPx (= px 単位の bar 幅) から px+--   Rect を作る。 Cartesian では横位置 = centerD ± 厚み/2、 縦 = base..value。+--   Flip では縦位置 = centerD ± 厚み/2、 横 = base..value (= 厚みは常に px の+--   まま = 軸スケールに依らない)。+--   [English]: For bar/box: builds a px Rect from the centerline's data+--   coordinate (centerD, the x-group position), the base..value data+--   interval, and the thickness thicknessPx (the bar width in px). Under+--   Cartesian, horizontal position = centerD ± thickness/2 and+--   vertical = base..value. Under Flip, vertical position =+--   centerD ± thickness/2 and horizontal = base..value (thickness always+--   stays in px, independent of the axis scale).+projectBarRect :: Coord -> Layout -> Double -> Double -> Double -> Double -> Rect+projectBarRect CoordCartesian l centerD baseD valueD thicknessPx =+  let cx = scaleApply (lpXScale l) centerD+      y0 = scaleApply (lpYScale l) baseD+      y1 = scaleApply (lpYScale l) valueD+  in Rect (cx - thicknessPx / 2) (min y0 y1) thicknessPx (abs (y1 - y0))+projectBarRect CoordFlip l centerD baseD valueD thicknessPx =+  let cy = scaleApply (lpXScaleFlipped l) centerD+      x0 = scaleApply (lpYScaleFlipped l) baseD+      x1 = scaleApply (lpYScaleFlipped l) valueD+  in Rect (min x0 x1) (cy - thicknessPx / 2) (abs (x1 - x0)) thicknessPx+-- 極座標の bar は wedge (扇形) で描くため Rect では表せない。+--   renderBar が極座標を検出して PPath で arc を描く (= projectBarRect は使わない)。+--   ここは totality 維持のための placeholder (Cartesian 同式・極座標 bar 経路では未使用)。+projectBarRect (CoordPolarX _) l centerD baseD valueD thicknessPx =+  projectBarRect CoordCartesian l centerD baseD valueD thicknessPx+projectBarRect (CoordPolarY _) l centerD baseD valueD thicknessPx =+  projectBarRect CoordCartesian l centerD baseD valueD thicknessPx+-- ★ Phase 64 §3 (A12) までは ternary も Cartesian placeholder (未 render 経路)。+projectBarRect (CoordTernary _) l centerD baseD valueD thicknessPx =+  projectBarRect CoordCartesian l centerD baseD valueD thicknessPx++-- | [日本語]: 扇形 (annular sector) の path。 (tf0..tf1) = 角度 frac 帯、+--   (rf0..rf1) = 半径 frac 帯。 円弧は 0.1 rad 刻みの折線近似 (nSeg ≥ 2)。+--   polar bar (rose/pie) と 'projectBar' が共有する。+--   [English]: The path of an annular sector. (tf0..tf1) is the angular+--   fraction band and (rf0..rf1) the radial fraction band. Arcs are+--   approximated by a polyline at 0.1 rad per segment (nSeg >= 2). Shared by+--   polar bars (rose / pie) and 'projectBar'.+wedgeSegments :: Layout -> Double -> Double -> Double -> Double -> [PathSegment]+wedgeSegments l tf0 tf1 rf0 rf1 =+  let dθ    = abs (tf1 - tf0) * 2 * pi+      nSeg  = max 2 (ceiling (dθ / 0.1)) :: Int+      steps = [ tf0 + (tf1 - tf0) * fromIntegral i / fromIntegral nSeg | i <- [0 .. nSeg] ]+      mk t rf = uncurry Point (polarPoint l t rf)+      outer = [ mk t rf1 | t <- steps ]+      inner = [ mk t rf0 | t <- reverse steps ]+  in case outer ++ inner of+       (p0 : rest) -> MoveTo p0 : map LineTo rest ++ [ClosePath]+       []          -> []++-- | [日本語]: データ空間の線分 → px polyline。 直線座標系 (Cartesian/Flip) は+--   両端の 2 点 (= 従来の直線結線と bit 一致)、 極座標は data 空間で線形補間した+--   中間点を 'projectXY' で投影し θ 0.1 rad 刻み ('wedgeSegments' と同粒度) の+--   折線に曲げる。 θ 不変 (= 純 radial) な線分は 2 点のまま。 geom はこの関数を+--   通すことで「線分が座標系でどう曲がるか」 を知らずに済む。+--   [English]: Projects a segment in data space to a pixel polyline. Linear+--   coordinate systems (Cartesian / Flip) give just the two endpoints (bit+--   identical to the previous straight-line joining); polar systems bend the+--   segment into a polyline by projecting intermediate points — linearly+--   interpolated in data space — through 'projectXY' at 0.1 rad per segment+--   (the same granularity as 'wedgeSegments'). A segment at constant theta+--   (purely radial) stays two points. Going through this function frees each+--   geom from knowing how a segment bends under the coordinate system.+projectSegment :: Coord -> Layout -> (Double, Double) -> (Double, Double) -> [Point]+projectSegment coord l (dx0, dy0) (dx1, dy1)+  | not (isPolar coord) =+      [ uncurry Point (projectXY coord l dx0 dy0)+      , uncurry Point (projectXY coord l dx1 dy1) ]+  | otherwise =+      let (tf0, tf1) = case coord of+            CoordPolarY _ -> (domFrac (lpYScale l) dy0, domFrac (lpYScale l) dy1)+            _             -> (domFrac (lpXScale l) dx0, domFrac (lpXScale l) dx1)+          dTheta = abs (tf1 - tf0) * 2 * pi+          nSeg   = max 1 (ceiling (dTheta / 0.1)) :: Int+          lerp a b t = a + (b - a) * t+          ts     = [ fromIntegral i / fromIntegral nSeg | i <- [0 .. nSeg] ]+      in [ uncurry Point (projectXY coord l (lerp dx0 dx1 t) (lerp dy0 dy1 t))+         | t <- ts ]++-- | [日本語]: bar/box 系「data 空間の棒」 の座標系対応形状。 geom 側の+--   @case coord of@ を「形状の case」 に置き換えるための戻り値型。+--   [English]: The coordinate-aware shape of a "bar in data space" for the+--   bar / box family. This return type replaces each geom's @case coord of@+--   with a case on the shape instead.+data BarShape = BarRect !Rect | BarWedge ![PathSegment]+  deriving (Show, Eq)++-- | [日本語]: 棒 (中心 centerD ± halfWidthD、 base..value) の投影 dispatcher。+--   直線座標系は 'projectBarRect' の px Rect (= bit 一致、 厚みは従来通り px 指定)、+--   極座標は 'wedgeSegments' の扇形。 halfWidthD は data 単位の半幅 (bar 既定 0.45+--   = resolution 0.9 の半分)、 thicknessPx は直線座標系専用の px 厚み (極座標では+--   未使用)。 PolarX = 角度帯 centerD±halfWidthD × 半径 base..value (rose)、+--   PolarY = 角度 base..value × 半径帯 centerD±halfWidthD (内径は 0 で clamp)。+--   [English]: The projection dispatcher for a bar (centered at centerD with+--   half width halfWidthD, spanning base..value). Linear coordinate systems+--   give the pixel 'Rect' of 'projectBarRect' (bit identical; thickness is+--   still given in pixels), polar systems the annular sector of+--   'wedgeSegments'. halfWidthD is the half width in data units (0.45 by+--   default for bars, half of the 0.9 resolution); thicknessPx is the pixel+--   thickness used only by linear systems. PolarX gives an angular band of+--   centerD±halfWidthD over radius base..value (a rose); PolarY gives angle+--   base..value over the radial band centerD±halfWidthD (inner radius clamped+--   at 0).+--   domain 退化 (span=0) 時の半幅 frac は 0.5 (= 旧 hwFrac の既定と同一)。+projectBar :: Coord -> Layout -> Double -> Double -> Double -> Double -> Double+           -> BarShape+projectBar coord l centerD baseD valueD halfWidthD thicknessPx = case coord of+  CoordPolarX _ -> BarWedge (wedgeSegments l (cfx - hf) (cfx + hf)+                                             (dfy baseD) (dfy valueD))+  CoordPolarY _ -> BarWedge (wedgeSegments l (dfy baseD) (dfy valueD)+                                             (max 0 (cfx - hf)) (cfx + hf))+  _             -> BarRect (projectBarRect coord l centerD baseD valueD thicknessPx)+  where+    cfx   = domFrac (lpXScale l) centerD+    dfy   = domFrac (lpYScale l)+    spanX = lsDomainHi (lpXScale l) - lsDomainLo (lpXScale l)+    hf    = if spanX == 0 then 0.5 else halfWidthD / spanX++-- | [日本語]: categorical-cross geom (box/violin/strip/swarm) の群中心指定。+--   'CrossAt' = cross 軸の data 座標 (categorical slot 位置 / dodge sub-slot 中心)、+--   'CrossMid' = 単一群 (カテゴリ軸なし) の「plotArea 中央」。 CrossMid を px で+--   なく変種として持つのは、 中央 px 自体が coord (Cartesian=横 / Flip=縦) に+--   依存するため (= geom 側から case coord of を無くす)。+--   [English]: Specifies the group center for categorical-cross geoms (box /+--   violin / strip / swarm). 'CrossAt' is a data coordinate on the cross axis+--   (a categorical slot position, or the center of a dodge sub-slot);+--   'CrossMid' is "the middle of the plot area" for a single group with no+--   categorical axis. 'CrossMid' is a constructor rather than a pixel value+--   because that middle pixel itself depends on the coordinate system+--   (horizontal under Cartesian, vertical under Flip) — which is exactly what+--   lets each geom drop its @case coord of@.+data CrossLoc = CrossAt !Double | CrossMid+  deriving (Show, Eq)++-- | [日本語]: CrossLoc の cross 軸 data 座標 (polar 経路用)。 CrossMid は+--   x domain 中点 (= scale が plotArea を張る前提で plotArea 中央と affine 一致)。+--   [English]: The cross-axis data coordinate of a 'CrossLoc', used by the+--   polar path. 'CrossMid' is the midpoint of the x domain, which coincides+--   affinely with the middle of the plot area given that the scale spans it.+crossLocD :: Layout -> CrossLoc -> Double+crossLocD _ (CrossAt d) = d+crossLocD l CrossMid    = (lsDomainLo (lpXScale l) + lsDomainHi (lpXScale l)) / 2++-- | [日本語]: 極座標で「投影済み点を cross 軸方向へ offPx (px) ずらす」。+--   PolarX (cross=角度) は接線方向 = 中心まわりの回転 (弧長 offPx)、+--   PolarY (cross=半径) は radial。 jitter / beeswarm / violin 幅は視覚 px 量+--   (点径・重なり回避) なので、 polar でも data 角度でなく px 弧長で当てるのが正+--   (半径によらず点間隔が保たれる)。 半径 ≈ 0 は接線方向が定義できないため+--   動かさない。 直線座標系は恒等 (linear 経路は projectCross* が px 加算で+--   処理し、 ここへは来ない)。+--   [English]: Nudges an already-projected point by offPx pixels along the+--   cross axis, in polar coordinates. Under PolarX (cross = angle) this is+--   tangential — a rotation about the center by arc length offPx; under+--   PolarY (cross = radius) it is radial. Jitter, beeswarm spread and violin+--   width are visual pixel quantities (point diameter, overlap avoidance), so+--   applying them as a pixel arc length rather than a data angle is the+--   correct choice even in polar: point spacing is then preserved regardless+--   of radius. At radius near 0 the tangential direction is undefined, so the+--   point is left alone. Linear coordinate systems are the identity here (the+--   linear path adds pixels inside projectCross* and never reaches this+--   function).+polarNudgePx :: Coord -> Layout -> Double -> Point -> Point+polarNudgePx coord l offPx p@(Point px py) =+  let (cx, cy, _) = polarCenter l+      dx = px - cx+      dy = py - cy+      r  = sqrt (dx * dx + dy * dy)+  in if r < 1e-9 then p else case coord of+       CoordPolarX _ ->+         -- 弧長 offPx = 角度 offPx/r の回転 (polarPoint と同じ時計回りが正)。+         let dTh = offPx / r+             c = cos dTh+             s = sin dTh+         in Point (cx + dx * c - dy * s) (cy + dx * s + dy * c)+       CoordPolarY _ ->+         let k = (r + offPx) / r+         in Point (cx + dx * k) (cy + dy * k)+       _ -> p++-- | [日本語]: 「categorical cross × 連続 value」 geom の点投影。 box の外れ値・+--   strip の jitter 点・swarm の beeswarm 点・violin outline は全てここを通す。+--   offPx = cross 軸方向の px offset (nudge / jitter / 幅)。 Cartesian/Flip は+--   旧 geom 内 px 式と bit 一致: Cartesian = Point (sx cross + offPx) (sy v)、+--   Flip = Point (syF v) (sxF cross + offPx)。 polar は projectXY 投影後に+--   'polarNudgePx' で px nudge。+--   [English]: Projects a point for a "categorical cross by continuous value"+--   geom. Box outliers, strip jitter points, swarm beeswarm points and violin+--   outlines all go through this. offPx is the pixel offset along the cross+--   axis (nudge / jitter / width). Cartesian and Flip are bit identical to+--   the pixel formulas previously inlined in each geom: Cartesian gives+--   @Point (sx cross + offPx) (sy v)@ and Flip gives+--   @Point (syF v) (sxF cross + offPx)@. Polar projects through 'projectXY'+--   first and then nudges in pixels via 'polarNudgePx'.+projectCrossPoint :: Coord -> Layout -> CrossLoc -> Double -> Double -> Point+projectCrossPoint CoordCartesian l loc offPx v =+  let base = case loc of+        CrossAt d -> scaleApply (lpXScale l) d+        CrossMid  -> let ar = lpPlotArea l in rX ar + rW ar / 2+  in Point (base + offPx) (scaleApply (lpYScale l) v)+projectCrossPoint CoordFlip l loc offPx v =+  let base = case loc of+        CrossAt d -> scaleApply (lpXScaleFlipped l) d+        CrossMid  -> let ar = lpPlotArea l in rY ar + rH ar / 2+  in Point (scaleApply (lpYScaleFlipped l) v) (base + offPx)+projectCrossPoint coord l loc offPx v =+  polarNudgePx coord l offPx+    (uncurry Point (projectXY coord l (crossLocD l loc) v))++-- | [日本語]: value 軸方向の px 座標 (単調)。 beeswarm binning 等「値どうしの+--   px 間隔」 が要る geom 用。 Cartesian/Flip は旧 sy / flip 式と bit 一致。+--   polar は PolarX (value=半径) = 半径 px、 PolarY (value=角度) = 外周弧長 px。+--   [English]: A monotone pixel coordinate along the value axis, for geoms+--   that need the pixel spacing between values (beeswarm binning and the+--   like). Cartesian and Flip are bit identical to the previous sy / flipped+--   formulas. In polar, PolarX (value = radius) gives the radius in pixels+--   and PolarY (value = angle) gives the arc length along the outer circle.+valueAxisPx :: Coord -> Layout -> Double -> Double+valueAxisPx CoordCartesian l v = scaleApply (lpYScale l) v+valueAxisPx CoordFlip      l v = scaleApply (lpYScaleFlipped l) v+valueAxisPx (CoordPolarX _) l v =+  let (_, _, maxR) = polarCenter l in domFrac (lpYScale l) v * maxR+valueAxisPx (CoordPolarY _) l v =+  let (_, _, maxR) = polarCenter l in domFrac (lpYScale l) v * (2 * pi * maxR)+-- ★ Phase 64 §3 (A11) までは ternary の value 軸は Cartesian に fallback。+valueAxisPx (CoordTernary _) l v = scaleApply (lpYScale l) v++-- | [日本語]: value 一定で cross 方向へ ±半幅の短線 (box の median / whisker cap)。+--   直線座標系は px 半幅 halfPx の 2 点 (旧式 bit 一致: [base+offPx-halfPx,+--   base+offPx+halfPx])、 polar は data 半幅 halfD の弧 ('projectSegment') を+--   offPx だけ nudge した polyline (点列 ≥ 2)。+--   [English]: A short span of ±half width along the cross axis at a fixed+--   value (a box's median line or whisker cap). Linear coordinate systems+--   give two points at pixel half width halfPx (bit identical to the previous+--   formula: @[base+offPx-halfPx, base+offPx+halfPx]@); polar gives a+--   polyline of at least two points — the arc of data half width halfD from+--   'projectSegment', nudged by offPx.+projectCrossSpan :: Coord -> Layout -> CrossLoc -> Double -> Double -> Double+                 -> Double -> [Point]+projectCrossSpan coord l loc offPx halfPx halfD v+  | not (isPolar coord) =+      [ projectCrossPoint coord l loc (offPx - halfPx) v+      , projectCrossPoint coord l loc (offPx + halfPx) v ]+  | otherwise =+      let d = crossLocD l loc+      in map (polarNudgePx coord l offPx)+             (projectSegment coord l (d - halfD, v) (d + halfD, v))++-- | [日本語]: box 本体等「cross 中心 ± 半幅 × value 区間」 の投影。 直線座標系は+--   px 半幅 halfPx の Rect (旧 geom 内 mkRect 式と bit 一致)、 polar は 'projectBar'+--   と同じ data 半幅 halfD の扇形 (wedge) を offPx だけ nudge。+--   [English]: Projects "cross center ± half width by value interval" — the+--   body of a box and the like. Linear coordinate systems give a 'Rect' at+--   pixel half width halfPx (bit identical to the mkRect formula previously+--   inlined in each geom); polar gives the annular sector of data half width+--   halfD, as in 'projectBar', nudged by offPx.+projectCrossBar :: Coord -> Layout -> CrossLoc -> Double -> Double -> Double+                -> Double -> Double -> BarShape+projectCrossBar CoordCartesian l loc offPx halfPx _halfD vLo vHi =+  let base = case loc of+        CrossAt d -> scaleApply (lpXScale l) d+        CrossMid  -> let ar = lpPlotArea l in rX ar + rW ar / 2+      cc = base + offPx+      sy = scaleApply (lpYScale l)+  in BarRect (Rect (cc - halfPx) (min (sy vLo) (sy vHi))+                   (2 * halfPx) (abs (sy vHi - sy vLo)))+projectCrossBar CoordFlip l loc offPx halfPx _halfD vLo vHi =+  let base = case loc of+        CrossAt d -> scaleApply (lpXScaleFlipped l) d+        CrossMid  -> let ar = lpPlotArea l in rY ar + rH ar / 2+      cc  = base + offPx+      syF = scaleApply (lpYScaleFlipped l)+  in BarRect (Rect (min (syF vLo) (syF vHi)) (cc - halfPx)+                   (abs (syF vHi - syF vLo)) (2 * halfPx))+projectCrossBar coord l loc offPx _halfPx halfD vLo vHi =+  let d = crossLocD l loc+      nudgeP = polarNudgePx coord l offPx+      nudgeSeg seg = case seg of+        MoveTo p        -> MoveTo (nudgeP p)+        LineTo p        -> LineTo (nudgeP p)+        CurveTo a b c   -> CurveTo (nudgeP a) (nudgeP b) (nudgeP c)+        ClosePath       -> ClosePath+  in case projectBar coord l d vLo vHi halfD 0 of+       BarWedge segs | offPx /= 0 -> BarWedge (map nudgeSeg segs)+       shape                      -> shape++-- | [日本語]: categorical 1 スロットの cross 軸 px 幅 (bar/box 等の厚みに使う)。+--   Cartesian は x 軸 (sx) の 1 単位、 Flip は category が縦に来るので+--   flipped scale の縦 1 単位。 これを使わず常に (sx 1 - sx 0) を厚みにすると+--   flip 時に縦スロットを超えて bar が重なる。 Cartesian では (sx 1 - sx 0)+--   と完全一致 (= ゼロ diff)。+--   [English]: The cross-axis px width of a single categorical slot (used+--   for bar/box thickness). Under Cartesian, this is 1 unit of the x axis+--   (sx); under Flip, categories run vertically, so it is 1 vertical unit+--   of the flipped scale. Always using (sx 1 - sx 0) instead would let bars+--   overrun their vertical slot and overlap when flipped. Under Cartesian,+--   it is exactly (sx 1 - sx 0) (zero diff).+-- | [日本語]: ggplot @resolution(x)@ = ソート済み一意値の最小正間隔。+--   errorbar/crossbar の cap 幅をデータ単位化する基準 (width = markWidth ×+--   resolution)。 一意値が 1 個以下なら 1 (categorical = 整数位置 0,1,2… で+--   間隔 1・単一点も 1)。+--   [English]: ggplot's @resolution(x)@: the smallest positive gap between+--   sorted unique values. The basis for converting errorbar/crossbar cap+--   width to data units (width = markWidth × resolution). If there is at+--   most one unique value, returns 1 (categorical positions are integers+--   0,1,2… with gap 1; a single point also gives 1).+resolutionOf :: [Double] -> Double+resolutionOf vs =+  let us  = map head . group . sort $ vs+      gaps = filter (> 1e-12) (zipWith (-) (drop 1 us) us)+  in case gaps of+       [] -> 1+       gs -> minimum gs++catUnitPx :: Coord -> Layout -> Double+catUnitPx CoordCartesian l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0+catUnitPx CoordFlip      l =+  abs (scaleApply (lpXScaleFlipped l) 1 - scaleApply (lpXScaleFlipped l) 0)+catUnitPx (CoordPolarX _) l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0+catUnitPx (CoordPolarY _) l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0+catUnitPx (CoordTernary _) l = scaleApply (lpXScale l) 1 - scaleApply (lpXScale l) 0++-- | [日本語]: 軸が物理的にどの辺に来るか。 Cartesian: データ x=下・y=左。+--   Flip: データ x=左・y=下。 極座標は直交的な辺軸を持たない (Render の polar+--   分岐が独自に grid/軸を描く)。+--   [English]: Which physical edge an axis is placed on. Cartesian: data+--   x=bottom, y=left. Flip: data x=left, y=bottom. Polar coordinates have no+--   orthogonal edge axis (Render's polar branch draws its own grid/axes).+data AxisPlacement = AxisBottom | AxisLeft | AxisTop | AxisRight+  deriving (Show, Eq)++coordXAxisPlacement :: Coord -> AxisPlacement+coordXAxisPlacement CoordFlip      = AxisLeft+coordXAxisPlacement _              = AxisBottom++coordYAxisPlacement :: Coord -> AxisPlacement+coordYAxisPlacement CoordFlip      = AxisBottom+coordYAxisPlacement _              = AxisLeft++-- | [日本語]: データ x の grid line が縦線か (Cartesian) 横線か (Flip)。+--   [English]: Whether the grid line for data x is vertical (Cartesian) or+--   horizontal (Flip).+coordXGridIsVertical :: Coord -> Bool+coordXGridIsVertical CoordFlip      = False+coordXGridIsVertical _              = True++-- | [日本語]: 極座標か (= CoordPolarX / CoordPolarY)。+--   [English]: Whether this is polar (CoordPolarX or CoordPolarY).+isPolar :: Coord -> Bool+isPolar (CoordPolarX _) = True+isPolar (CoordPolarY _) = True+isPolar _               = False++-- | [日本語]: 三角座標か (= 'CoordTernary')。 直交 tick の抑止 / grid ディスパッチ+--   (Phase 64 §3 A12) の判定に使う。 'isPolar' と同型。+--   [English]: Whether this is ternary (CoordTernary). Used to suppress the+--   orthogonal ticks and to dispatch the grid (Phase 64 §3 A12); analogous to+--   'isPolar'.+isTernary :: Coord -> Bool+isTernary (CoordTernary _) = True+isTernary _            = False++-- | [日本語]: 三角座標の 3 成分 @(a,b,c)@ を合計 1 へ正規化 (= Phase 64 A11)。+--   組成データは合計が 1 (100%) でなくてもよく、 内部で @a\/(a+b+c)@ に正規化する。+--   ★ 退化行の扱い (2026-08-07 user 判断 = 行ごと除外): **いずれかの成分が負** または+--   **合計 \<= 0** の行は組成データとして不正なので 'Nothing' を返し、 呼出側+--   (§3 A12 の投影) が描画対象から落とす (= 欠損データと同じ扱い)。+--   [English]: Normalizes a ternary triple @(a,b,c)@ to sum 1 (Phase 64 A11).+--   Compositional data need not already sum to 1; it is normalized internally+--   to @a\/(a+b+c)@. Degenerate-row policy (user decision 2026-08-07 = drop the+--   row): a row with **any negative component** or a **sum \<= 0** is invalid+--   compositional data, so 'Nothing' is returned and the caller (the §3 A12+--   projection) drops it from rendering (treated like missing data).+normalizeTernary :: (Double, Double, Double) -> Maybe (Double, Double, Double)+normalizeTernary (a, b, c)+  | a < 0 || b < 0 || c < 0 = Nothing+  | s <= 0                  = Nothing+  | otherwise              = Just (a / s, b / s, c / s)+  where s = a + b + c++-- | [日本語]: D3 風 nice tick (= 1/2/5 × 10^k の刻み)。+--   [English]: D3-style nice ticks (steps of 1/2/5 × 10^k).+niceTicks :: Int -> Double -> Double -> [Double]+niceTicks n lo hi+  | hi <= lo  = [lo]+  | n <= 0    = []+  | otherwise =+      let span_   = hi - lo+          rawStep = span_ / fromIntegral n+          mag     = 10 ** fromIntegral (floor (logBase 10 rawStep) :: Int)+          norm    = rawStep / mag+          step+            | norm < 1.5 = 1   * mag+            | norm < 3.5 = 2   * mag+            | norm < 7.5 = 5   * mag+            | otherwise  = 10  * mag+          start = fromIntegral (ceiling (lo / step) :: Int) * step+          go x | x > hi    = []+               | otherwise = x : go (x + step)+      in go start++-- | [日本語]: R labeling::extended (Talbot, Lin & Hanrahan 2010 "An+--   Extension of Wilkinson's Algorithm…") の移植。 ggplot2 の既定 breaks+--   (`scales::extended_breaks(n)`) と同一: 候補刻み Q=[1,5,2,2.5,4,3]、 重み+--   w=[simplicity 0.25, coverage 0.2, density 0.5, legibility 0.05]、+--   only.loose=False、 legibility は常に 1 (R 実装も placeholder)。+--   simplicity/coverage/density の重み付きスコアを最大化する (lmin, lmax,+--   lstep) を選び、 等間隔 break 列を返す。 入力 (dmin,dmax) は+--   __expansion 前のデータ範囲__、 m は目標ラベル数。 旧 niceTicks (1/2/5×10^k) を linear+--   軸で置換 (端点・本数が ggplot と一致する)。+--+--   j→q→k→z→start のネストループは R 実装をそのまま再現。 各段の上界+--   (simplicityMax / densityMax / coverageMax) による枝刈りで停止するが、+--   浮動小数の保険として j/k/z に上限ガードを置く (実用域では枝刈りが先に+--   効く)。+--   [English]: A port of R's labeling::extended (Talbot, Lin & Hanrahan+--   2010, "An Extension of Wilkinson's Algorithm…"), matching ggplot2's+--   default breaks (`scales::extended_breaks(n)`): candidate steps+--   Q=[1,5,2,2.5,4,3], weights w=[simplicity 0.25, coverage 0.2,+--   density 0.5, legibility 0.05], only.loose=False, legibility always 1+--   (a placeholder in the R implementation too). Selects (lmin, lmax,+--   lstep) that maximises the weighted score of simplicity/coverage/+--   density, and returns an evenly spaced break sequence. The input+--   (dmin,dmax) is __the data range before expansion__; m is the target+--   label count. Replaces the previous niceTicks (1/2/5×10^k) on linear+--   axes (matching ggplot's endpoints and tick count).+--+--   The nested j→q→k→z→start loops reproduce the R implementation+--   directly. Each level stops via pruning on its upper bound+--   (simplicityMax / densityMax / coverageMax), with upper-bound guards on+--   j/k/z as a floating-point safety net (pruning kicks in first in+--   practical ranges).+data Best = Best+  { bLmin  :: !Double+  , bLmax  :: !Double+  , bLstep :: !Double+  , bScore :: !Double+  }++extendedBreaks :: Int -> Double -> Double -> [Double]+extendedBreaks m dmin0 dmax0+  | not (dmax - dmin >= eps) = [dmin]+  | bScore best <= -2        = [dmin, dmax]   -- 念のためのフォールバック+  | otherwise                = genSeq (bLmin best) (bLmax best) (bLstep best)+  where+    (dmin, dmax) = if dmin0 > dmax0 then (dmax0, dmin0) else (dmin0, dmax0)+    eps = 2.220446049250313e-14 * 100        -- .Machine$double.eps * 100+    qs  = [1, 5, 2, 2.5, 4, 3] :: [Double]+    nD  = 6 :: Double+    mD  = fromIntegral m :: Double+    w1 = 0.25; w2 = 0.2; w3 = 0.5; w4 = 0.05+    qIdx q = go (1 :: Int) qs+      where go i (x : xs) = if x == q then i else go (i + 1) xs+            go i []       = i+    fmod' a b = a - b * fromIntegral (floor (a / b) :: Integer)+    simplicityMax q j =+      (nD - fromIntegral (qIdx q)) / (nD - 1) + 1 - fromIntegral j+    simplicity q j lmin lmax lstep =+      let mlt = fmod' lmin lstep+          v   = if (mlt < eps || lstep - mlt < eps) && lmin <= 0 && lmax >= 0+                  then 1 else 0+      in (nD - fromIntegral (qIdx q)) / (nD - 1) + v - fromIntegral j+    coverage lmin lmax =+      let rng = dmax - dmin+      in 1 - 0.5 * ((dmax - lmax) ** 2 + (dmin - lmin) ** 2) / ((0.1 * rng) ** 2)+    coverageMax spn =+      let rng = dmax - dmin+      in if spn > rng+           then let half = (spn - rng) / 2+                in 1 - 0.5 * (half ** 2 + half ** 2) / ((0.1 * rng) ** 2)+           else 1+    densityF k lmin lmax =+      let r  = (fromIntegral k - 1) / (lmax - lmin)+          rt = (mD - 1) / (max lmax dmax - min dmin lmin)+      in 2 - max (r / rt) (rt / r)+    densityMax k =+      if k >= m then 2 - (fromIntegral k - 1) / (mD - 1) else 1+    genSeq lo hi st+      | st <= 0   = [lo]+      | otherwise = let cnt = round ((hi - lo) / st) :: Int+                    in [ lo + fromIntegral i * st | i <- [0 .. cnt] ]+    best = goJ 1 (Best 0 0 1 (-2))+    -- j ループ (skip amount)。 q ループが「全停止」 を返したら打ち切る。+    goJ j b+      | j > 30    = b+      | otherwise = case goQ qs j b of+          (b', True)  -> b'+          (b', False) -> goJ (j + 1) b'+    goQ [] _ b = (b, False)+    goQ (q : qrest) j b =+      let sm = simplicityMax q j+      in if w1 * sm + w2 + w3 + w4 < bScore b+           then (b, True)               -- これ以降 score 改善不可 → 全停止+           else goQ qrest j (goK q sm j 2 b)+    -- k ループ (tick 本数)。+    goK q sm j k b+      | k > 2 * m + 6 = b+      | otherwise =+          let dm = densityMax k+          in if w1 * sm + w2 + w3 * dm + w4 < bScore b+               then b                   -- k ループ break+               else+                 let delta = (dmax - dmin) / fromIntegral (k + 1)+                               / fromIntegral j / q+                     z0 = ceiling (logBase 10 delta) :: Int+                 in goK q sm j (k + 1) (goZ q sm j k dm (60 :: Int) z0 b)+    -- z ループ (刻みの桁)。+    goZ q sm j k dm fuel z b+      | fuel <= 0 = b+      | otherwise =+          let step = fromIntegral j * q * (10 ** fromIntegral z)+              cm   = coverageMax (step * fromIntegral (k - 1))+          in if w1 * sm + w2 * cm + w3 * dm + w4 < bScore b+               then b                   -- z ループ break+               else+                 let minStart = floor   (dmax / step) * fromIntegral j+                                  - fromIntegral ((k - 1) * j)+                     maxStart = ceiling (dmin / step) * fromIntegral j+                     b' = if minStart > maxStart+                            then b+                            else goStart q j k step minStart maxStart b+                 in goZ q sm j k dm (fuel - 1) (z + 1) b'+    -- start ループ (label 列の起点)。+    goStart q j k step minStart maxStart b =+      foldl' upd b [minStart .. maxStart]+      where+        unit = step / fromIntegral j+        upd acc start =+          let lmin  = fromIntegral start * unit+              lmax  = lmin + step * fromIntegral (k - 1)+              lstep = step+              s     = simplicity q j lmin lmax lstep+              c     = coverage lmin lmax+              d     = densityF k lmin lmax+              score = w1 * s + w2 * c + w3 * d + w4 * 1   -- legibility = 1+          in if score > bScore acc+               then Best lmin lmax lstep score+               else acc++-- | [日本語]: Log scale 用 tick (= 10^k グリッド)。 domain 内の整数 exponent+--   を出す。+--   [English]: Ticks for the Log scale (a 10^k grid). Emits integer+--   exponents within the domain.+niceTicksLog :: Int -> Double -> Double -> [Double]+niceTicksLog _n lo hi+  | lo <= 0 || hi <= 0 || hi <= lo = [lo]+  | otherwise =+      let kLo = floor   (logBase 10 lo) :: Int+          kHi = ceiling (logBase 10 hi) :: Int+      in [ 10 ** fromIntegral k | k <- [kLo .. kHi], let v = 10 ** fromIntegral k :: Double+                                                 , v >= lo, v <= hi ]++-- | [日本語]: Sqrt scale 用 tick: sqrt 後を niceTicks に通し、 二乗して戻す。+--   domain が非負前提。 負値 lo は 0 にクランプ。+--   [English]: Ticks for the Sqrt scale: passes sqrt-transformed values+--   through niceTicks, then squares them back. Assumes a non-negative+--   domain; a negative lo is clamped to 0.+niceTicksSqrt :: Int -> Double -> Double -> [Double]+niceTicksSqrt n lo hi+  | hi <= lo  = [max 0 lo]+  | hi < 0    = [lo]+  | otherwise =+      let lo'  = max 0 lo+          sLo  = sqrt lo'+          sHi  = sqrt hi+          sTks = niceTicks n sLo sHi+      in map (\t -> t * t) sTks++-- | [日本語]: Time scale 用 tick: unix epoch (= seconds since 1970) を入力に、+--   「綺麗な」 間隔 (= 1m / 1h / 1d / 1w / 1M / 1y) で tick を生成。 簡略実装:+--   linear nice ticks を秒単位で取り、 1m / 1h / 1d / 1w 単位に丸め。 月 / 年+--   単位の境界調整は将来。+--   [English]: Ticks for the Time scale: takes a unix epoch (seconds since+--   1970) as input and generates ticks at "nice" intervals (1m / 1h / 1d /+--   1w / 1M / 1y). A simplified implementation: takes linear nice ticks in+--   seconds and rounds to 1m / 1h / 1d / 1w units. Boundary adjustment for+--   month / year units is future work. niceTimeTicks :: Int -> Double -> Double -> [Double] niceTimeTicks n lo hi   | hi <= lo  = [lo]

@@ -1,25 +1,44 @@ -- | -- Module      : Graphics.Hgg.Layout.Grid--- Description : subplots / <-> / <:> のネストを単一統一グリッドへ平坦化 (Phase 37 A2)+-- Description : Flattens nested subplots / <-> / <:> into a single unified grid -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- Phase 37 A2: subplots / @<->@ / @<:>@ のネストを **単一の統一グリッド**へ---   平坦化する純関数。 patchwork 流 gtable 配置 (A3) の前段で、 任意の深さの+-- [日本語]: subplots / @<->@ / @<:>@ のネストを __単一の統一グリッド__へ+--   平坦化する純関数。 patchwork 流 gtable 配置の前段で、 任意の深さの --   入れ子を各 leaf パネルに @(rowStart, rowSpan, colStart, colSpan)@ を割り当てた --   フラットなグリッドへ落とす。 描画 (Render/Layer) はこのグリッド 1 枚に対して --   「列ごと左右帯・行ごと上下帯」 を 1 回確保するだけになり、 ネスト境界をまたいだ --   パネル本体の整列が保証される。 ----- ★方針 (計画書 §設計): ツリーの寸法を整数グリッド単位で再帰計算する。---   * leaf            : @w=1, h=1@---   * hbox (横並び)   : @w=Σ child.w@, @h=max child.h@。 各 child は自分の幅 ×---                       グループ高 (行) を span (縦を揃える)。---   * vbox (縦並び)   : @h=Σ child.h@, @w=max child.w@。 各 child はグループ幅 (列) ×---                       自分の高さを span (横を揃える)。+--   ★方針 (計画書 §設計): ツリーの寸法を整数グリッド単位で再帰計算する。+--     * leaf            : @w=1, h=1@+--     * hbox (横並び)   : @w=Σ child.w@, @h=max child.h@。 各 child は自分の幅 ×+--                         グループ高 (行) を span (縦を揃える)。+--     * vbox (縦並び)   : @h=Σ child.h@, @w=max child.w@。 各 child はグループ幅 (列) ×+--                         自分の高さを span (横を揃える)。 --   leaf を span 方向 (hbox なら縦・vbox なら横) いっぱいに伸ばすことで、 --   @(a<->b<->c)<:>d@ の @d@ が上段 3 列を colSpan=3 で全幅 span し、 上段左端と --   下段左端が col0 で一致する。+-- [English]: A pure function that flattens nested subplots / @<->@ / @<:>@+--   into __a single unified grid__. As a step before patchwork-style gtable+--   placement, it reduces arbitrarily deep nesting into a flat grid, giving+--   each leaf panel a @(rowStart, rowSpan, colStart, colSpan)@. Rendering+--   (Render/Layer) then only needs to reserve "left/right bands per column,+--   top/bottom bands per row" once for this single grid, which guarantees+--   panel-body alignment across nesting boundaries.+--+--   Approach (see the design section of the plan): recursively computes+--   tree dimensions in integer grid units.+--     * leaf: @w=1, h=1@.+--     * hbox (side-by-side): @w=Σ child.w@, @h=max child.h@. Each child spans+--       its own width × the group height (row), keeping rows aligned.+--     * vbox (stacked): @h=Σ child.h@, @w=max child.w@. Each child spans the+--       group width (column) × its own height, keeping columns aligned.+--   Stretching a leaf to fill the span direction (vertical for hbox,+--   horizontal for vbox) means @d@ in @(a<->b<->c)<:>d@ spans the top row's+--   3 columns at colSpan=3, so the top row's left edge lines up with the+--   bottom row's left edge at col0. {-# LANGUAGE BangPatterns #-}  module Graphics.Hgg.Layout.Grid@@ -39,35 +58,49 @@ -- 型 -- =========================================================================== --- | 統一グリッド上の 1 パネルの占有矩形 (整数セル単位)。+-- | [日本語]: 統一グリッド上の 1 パネルの占有矩形 (整数セル単位)。+--   [English]: The rectangle a single panel occupies on the unified grid (in+--   integer cell units). data GridCell = GridCell-  { gcRow     :: !Int  -- ^ 開始行 (0 始まり)-  , gcRowSpan :: !Int  -- ^ またぐ行数 (>= 1)-  , gcCol     :: !Int  -- ^ 開始列 (0 始まり)-  , gcColSpan :: !Int  -- ^ またぐ列数 (>= 1)+  { gcRow     :: !Int  -- ^ [日本語]: 開始行 (0 始まり)。 [English]: The starting row (0-based).+  , gcRowSpan :: !Int  -- ^ [日本語]: またぐ行数 (>= 1)。 [English]: The number of rows spanned (>= 1).+  , gcCol     :: !Int  -- ^ [日本語]: 開始列 (0 始まり)。 [English]: The starting column (0-based).+  , gcColSpan :: !Int  -- ^ [日本語]: またぐ列数 (>= 1)。 [English]: The number of columns spanned (>= 1).   } deriving (Eq, Show) --- | 平坦化結果。 グリッド総寸法 + leaf パネルとその占有セル。+-- | [日本語]: 平坦化結果。 グリッド総寸法 + leaf パネルとその占有セル。+--   [English]: The flattening result: overall grid dimensions plus each leaf+--   panel and its occupied cell. data GridPlacement = GridPlacement-  { gpCols   :: !Int                        -- ^ 統一グリッドの総列数-  , gpRows   :: !Int                        -- ^ 統一グリッドの総行数-  , gpPanels :: ![(VisualSpec, GridCell)]   -- ^ leaf パネル (描画対象) とセル+  { gpCols   :: !Int                        -- ^ [日本語]: 統一グリッドの総列数。 [English]: The total column count of the unified grid.+  , gpRows   :: !Int                        -- ^ [日本語]: 統一グリッドの総行数。 [English]: The total row count of the unified grid.+  , gpPanels :: ![(VisualSpec, GridCell)]   -- ^ [日本語]: leaf パネル (描画対象) とセル。 [English]: The leaf panels (render targets) with their cells.   } --- | subplots ツリーの中間表現。 @<->@ は 'PH'、 @<:>@ は 'PV'、 単一プロットは 'PLeaf'。---   汎用 subplots (cols が 1 でも要素数でもない wrap grid) は @PV [PH ...]@ へ正規化する。+-- | [日本語]: subplots ツリーの中間表現。 @<->@ は 'PH'、 @<:>@ は 'PV'、 単一+--   プロットは 'PLeaf'。 汎用 subplots (cols が 1 でも要素数でもない wrap grid)+--   は @PV [PH ...]@ へ正規化する。+--   [English]: An intermediate representation of the subplots tree. @<->@ is+--   'PH', @<:>@ is 'PV', and a single plot is 'PLeaf'. A general subplots+--   layout (a wrap grid whose cols is neither 1 nor the element count) is+--   normalized to @PV [PH ...]@. data PTree   = PLeaf VisualSpec-  | PH    [PTree]   -- ^ 横並び (hconcat / @<->@)-  | PV    [PTree]   -- ^ 縦並び (vconcat / @<:>@)+  | PH    [PTree]   -- ^ [日本語]: 横並び (hconcat / @<->@)。 [English]: Side-by-side (hconcat / @<->@).+  | PV    [PTree]   -- ^ [日本語]: 縦並び (vconcat / @<:>@)。 [English]: Stacked (vconcat / @<:>@).  -- =========================================================================== -- VisualSpec → PTree -- =========================================================================== --- | subplots ネストを 'PTree' へ。 cols でグループ方向を判定:+-- | [日本語]: subplots ネストを 'PTree' へ。 cols でグループ方向を判定: --   @cols<=1@ → 縦・@cols>=n@ → 横・それ以外 → cols 列の wrap grid (=縦に並ぶ横行)。---   既定 cols は 'renderSubplots' と同じ @min n 3@ (parity 維持)。+--   既定 cols は @renderSubplots@ と同じ @min n 3@ (parity 維持)。+--   [English]: Converts subplots nesting to a 'PTree'. cols determines the+--   grouping direction: @cols<=1@ means stacked; @cols>=n@ means+--   side-by-side; otherwise it is a wrap grid of cols columns (rows of+--   side-by-side panels, stacked). The default cols matches+--   @renderSubplots@, @min n 3@ (preserving parity). toPTree :: VisualSpec -> PTree toPTree s =   case selectedSubplots s of@@ -80,7 +113,9 @@          else if cols >= n then PH kids          else PV [ PH chunk | chunk <- chunksOf cols kids ] --- | リストを長さ n ずつに分割 (最後は端数)。+-- | [日本語]: リストを長さ n ずつに分割 (最後は端数)。+--   [English]: Splits a list into chunks of length n (the last chunk may be+--   shorter). chunksOf :: Int -> [a] -> [[a]] chunksOf n xs   | n <= 0    = [xs]@@ -91,7 +126,8 @@ -- 寸法 (整数グリッド単位) と配置 -- =========================================================================== --- | サブツリーのグリッド寸法 @(cols, rows)@。+-- | [日本語]: サブツリーのグリッド寸法 @(cols, rows)@。+--   [English]: The grid dimensions of a subtree, @(cols, rows)@. gridDims :: PTree -> (Int, Int) gridDims (PLeaf _) = (1, 1) gridDims (PH ts)   = ( sum     (map (fst . gridDims) ts)@@ -99,26 +135,33 @@ gridDims (PV ts)   = ( maximum (1 : map (fst . gridDims) ts)                      , sum     (map (snd . gridDims) ts) ) --- | @placeT availRows availCols row0 col0 tree@:+-- | [日本語]: @placeT availRows availCols row0 col0 tree@: --   左上 @(row0,col0)@ から @availRows × availCols@ の領域にツリーを配置し、 --   leaf パネルとその占有セルを返す。 leaf は与えられた領域いっぱいを span する。+--   [English]: @placeT availRows availCols row0 col0 tree@: places the tree+--   in the @availRows × availCols@ region starting at the top-left+--   @(row0,col0)@, and returns the leaf panels with their occupied cells.+--   Each leaf spans the entire region given to it. placeT :: Int -> Int -> Int -> Int -> PTree -> [(VisualSpec, GridCell)] placeT !ar !ac !r0 !c0 (PLeaf s) =   [(s, GridCell r0 ar c0 ac)] placeT !ar _   !r0 !c0 (PH ts) =-  -- 各 child は自分の幅 × グループ高 (= ar 行) を span。 列を順に消費。+  -- [日本語]: 各 child は自分の幅 × グループ高 (= ar 行) を span。 列を順に消費。+  -- [English]: Each child spans its own width × the group height (ar rows); columns are consumed in order.   concat . snd $ mapAccumL     (\cAcc t -> let w = fst (gridDims t)                 in (cAcc + w, placeT ar w r0 cAcc t))     c0 ts placeT _   !ac !r0 !c0 (PV ts) =-  -- 各 child はグループ幅 (= ac 列) × 自分の高さ を span。 行を順に消費。+  -- [日本語]: 各 child はグループ幅 (= ac 列) × 自分の高さ を span。 行を順に消費。+  -- [English]: Each child spans the group width (ac columns) × its own height; rows are consumed in order.   concat . snd $ mapAccumL     (\rAcc t -> let h = snd (gridDims t)                 in (rAcc + h, placeT h ac rAcc c0 t))     r0 ts --- | VisualSpec の subplots ツリーを統一グリッドへ平坦化する。+-- | [日本語]: VisualSpec の subplots ツリーを統一グリッドへ平坦化する。+--   [English]: Flattens a VisualSpec's subplots tree into a unified grid. flattenSubplots :: VisualSpec -> GridPlacement flattenSubplots s =   let t            = toPTree s

@@ -1,25 +1,46 @@ -- | -- Module      : Graphics.Hgg.Layout.RangeOf--- Description : Layer 2 ─ MarkKind 別 x/y axis range 寄与の計算+-- Description : Layer 2 — computes each MarkKind's contribution to the x/y axis range -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- 各 chart 種類 (MarkKind) は y/x domain の決め方が異なる:+-- [日本語]: 各 chart 種類 (MarkKind) は y/x domain の決め方が異なる: -----   * scatter / line / errorbar / regression : encY = 値、 そのまま domain---   * bar / waterfall                         : encY = 値、 domain は 0-base + max---   * histogram / density                     : encY 無し、 domain は count / KDE peak---   * box                                     : domain は Tukey whisker 範囲 (outlier 除外)---   * violin / strip / swarm / raincloud / ridge : encY = 値、 min-max---   * autocorr                                : x = [0, maxLag]、 y = [-1, 1]---   * ess                                     : x = [0, nChain]、 y = [0, N/nChain]+--     * scatter / line / errorbar / regression : encY = 値、 そのまま domain+--     * bar / waterfall                         : encY = 値、 domain は 0-base + max+--     * histogram / density                     : encY 無し、 domain は count / KDE peak+--     * box                                     : encY = 値、 min-max (outlier 込み)+--     * violin / strip / swarm / raincloud / ridge : encY = 値、 min-max+--     * autocorr                                : x = [0, maxLag]、 y = [-1, 1]+--     * ess                                     : x = [0, nChain]、 y = [0, N/nChain] ----- これらを 1 箇所 ('Graphics.Hgg.Layout' の旧 paddedRange) で吸収しようとすると--- chart 横断の副作用が出る (Phase 7 §0)。 本 module は MarkKind 別の range 寄与を--- 分離し、 'computeLayout' は各 layer の寄与を集めるだけにする足場を提供する。+--   これらを 1 箇所 ('Graphics.Hgg.Layout' の旧 paddedRange) で吸収しようとすると+--   chart 横断の副作用が出る。 本 module は MarkKind 別の range 寄与を分離し、+--   @computeLayout@ は各 layer の寄与を集めるだけにする足場を提供する。 ----- Phase 7 A2a: まず既存 'Graphics.Hgg.Layout' から range 計算を「挙動不変」 で--- 抽出 (= 出力 byte 一致)。 paddedRange 特例の除去は A2b で行う。+--   既存 'Graphics.Hgg.Layout' から range 計算を「挙動不変」 で抽出した+--   (= 出力 byte 一致)。+-- [English]: Each chart type (MarkKind) determines its y/x domain+--   differently:+--+--     * scatter / line / errorbar / regression: encY is the value, used as+--       the domain directly.+--     * bar / waterfall: encY is the value; the domain is 0-based plus max.+--     * histogram / density: no encY; the domain is the count or KDE peak.+--     * box: encY is the value; min-max, including outliers.+--     * violin / strip / swarm / raincloud / ridge: encY is the value;+--       min-max.+--     * autocorr: x = [0, maxLag], y = [-1, 1].+--     * ess: x = [0, nChain], y = [0, N/nChain].+--+--   Trying to absorb all of this in a single place (the old paddedRange in+--   'Graphics.Hgg.Layout') causes cross-chart side effects. This module+--   separates the range contribution per MarkKind, providing the scaffolding+--   for @computeLayout@ to simply collect each layer's contribution.+--+--   The range computation was extracted from the existing+--   'Graphics.Hgg.Layout' with behaviour unchanged (output is byte+--   identical). {-# LANGUAGE OverloadedStrings #-} module Graphics.Hgg.Layout.RangeOf   ( collectXY@@ -36,7 +57,7 @@  import           Graphics.Hgg.Spec (ColData (..), ColorEnc (..), Layer (..), MarkKind (..),                                     Position (..),-                                    Resolver, histBinning, lyBinCount, lyChain, lyColor, lyDensityNorm,+                                    Resolver, histBinning, lyBinCount, lyColor, lyDensityNorm,                                     lyEncX, lyEncY, lyEncY2, lyErrorX, lyHistDensity, lyKind,                                     lyMaxLag, lyPosition, resolveCol, resolveNum,                                     vsLayers, VisualSpec)@@ -50,12 +71,18 @@ -- 全 layer 横断の x/y range 収集 -- =========================================================================== --- | 全 layer の encX / encY を resolve して連結。+-- | [日本語]: 全 layer の encX / encY を resolve して連結。 ----- Phase 6 A4/A5: MAutocorr / MEss は encX を「値ベクター」 として使うが、--- x 軸の domain は **lag** (= 0..maxLag) なので、 encX を x として使うと壊れる。--- 該当 mark を持つ layer は x = [0, maxLag]、 y = [-1, 1] (autocorr) or--- y = ESS 範囲 (= encX の長さ近辺) を contribute する。+--   MAutocorr / MEss は encX を「値ベクター」 として使うが、 x 軸の domain は+--   __lag__ (= 0..maxLag) なので、 encX を x として使うと壊れる。 該当 mark を+--   持つ layer は x = [0, maxLag]、 y = [-1, 1] (autocorr) or y = ESS 範囲+--   (= encX の長さ近辺) を contribute する。+--   [English]: Resolves and concatenates encX / encY across all layers.+--+--   MAutocorr / MEss use encX as a "value vector", but their x-axis domain+--   is __lag__ (0..maxLag), so using encX directly as x would break. Layers+--   with these marks instead contribute x = [0, maxLag] and y = [-1, 1] (for+--   autocorr) or y = the ESS range (roughly the length of encX). collectXY :: Resolver -> VisualSpec -> (Vector Double, Vector Double) collectXY r spec =   let -- ★ Phase 36 D3: 合成 Layer (base + overlay) を range 計算用に展開し、 各 overlay の値列も@@ -124,14 +151,21 @@ -- MarkKind 別 y axis range 寄与 -- =========================================================================== --- | MHistogram layer か。+-- | [日本語]: MHistogram layer か。+--   [English]: Whether this is an MHistogram layer. isHistogram :: Layer -> Bool isHistogram l = getFirst (lyKind l) == Just MHistogram --- | Phase 8 B7: 全 histogram layer 共通の生 (pad なし) x domain (lo, hi)。--- render (renderHistogram) と y-range 計算 (sharedHistYRange) が **同じ** bin 境界を--- 使うための単一情報源。 これがズレると bin 幅が変わり count が食い違って--- バーが y range を突き抜ける (Phase 8 B7 のはみ出しバグの原因)。+-- | [日本語]: 全 histogram layer 共通の生 (pad なし) x domain (lo, hi)。+--   render (renderHistogram) と y-range 計算 (sharedHistYRange) が __同じ__+--   bin 境界を使うための単一情報源。 これがズレると bin 幅が変わり count が+--   食い違って バーが y range を突き抜ける (かつてのはみ出しバグの原因)。+--   [English]: The raw (unpadded), shared x domain (lo, hi) across all+--   histogram layers. The single source of truth that ensures render+--   (renderHistogram) and the y-range computation (sharedHistYRange) use+--   __the same__ bin boundaries. If they drift apart, bin widths differ and+--   counts mismatch, causing bars to overshoot the y range (the cause of a+--   past overshoot bug). histRawDomain :: Resolver -> [Layer] -> Maybe (Double, Double) histRawDomain r histLayers =   let allXs = filter (not . isNaN)   -- NA (NaN) を除く (nullable 列対応・有限には no-op)@@ -141,9 +175,15 @@                        , Just v  <- [resolveNum r cr] ]   in if null allXs then Nothing else Just (minimum allXs, maximum allXs) --- | Phase 8 B7: 全 histogram layer 共通 bin での maxCount を y range に。--- bin 境界は 'histRawDomain' (= 生 min/max) を単一情報源とし render と一致させる。--- density mode は count/(N*binW) に正規化。 戻り値は [0, 全層通じての maxY]。+-- | [日本語]: 全 histogram layer 共通 bin での maxCount を y range に。+--   bin 境界は 'histRawDomain' (= 生 min/max) を単一情報源とし render と一致+--   させる。 density mode は count/(N*binW) に正規化。 戻り値は+--   [0, 全層通じての maxY]。+--   [English]: Puts the maxCount across a shared bin, for all histogram+--   layers, into the y range. Bin boundaries are kept consistent with+--   rendering by using 'histRawDomain' (raw min/max) as the single source of+--   truth. In density mode, values are normalised to count/(N*binW). Returns+--   [0, maxY across all layers]. sharedHistYRange :: Resolver -> [Layer] -> Vector Double sharedHistYRange r histLayers = case histRawDomain r histLayers of   Nothing -> V.empty@@ -169,12 +209,21 @@         maxY = maximum (0 : [ layerMaxY l xs | (l, xs) <- zip histLayers xsPerLayer ])     in V.fromList [0, maxY] --- | Phase 28: 全 histogram layer 共通 bin の x 軸範囲 (= bin 外縁)。--- ggplot 流 origin (boundary = w/2) は data 下端より下から始まり、 最終 bin 端は--- data 上端を超えうるので、 x domain を生 data min/max で取ると外側の bar が--- パネル外にはみ出す (binwidth 大で顕著・binwidth 小でも潜在)。 render--- (renderHistogram) と同じ 'histBinning' (共有 domain) で各 layer の--- [origin, origin + nBin*binW] を求め、 その union を返す。+-- | [日本語]: 全 histogram layer 共通 bin の x 軸範囲 (= bin 外縁)。+--   ggplot 流 origin (boundary = w/2) は data 下端より下から始まり、 最終 bin+--   端は data 上端を超えうるので、 x domain を生 data min/max で取ると外側の+--   bar がパネル外にはみ出す (binwidth 大で顕著・binwidth 小でも潜在)。 render+--   (renderHistogram) と同じ 'histBinning' (共有 domain) で各 layer の+--   [origin, origin + nBin*binW] を求め、 その union を返す。+--   [English]: The x-axis range of the shared bin across all histogram+--   layers (the bin's outer edges). Since the ggplot-style origin+--   (boundary = w/2) starts below the data's lower edge, and the last bin's+--   edge can exceed the data's upper edge, taking the x domain from the raw+--   data min/max would overflow the outer bars past the panel (pronounced+--   for large binwidths, and latent even for small ones). This computes+--   [origin, origin + nBin*binW] for each layer using the same+--   'histBinning' (shared domain) as render (renderHistogram), and returns+--   the union. sharedHistXRange :: Resolver -> [Layer] -> Vector Double sharedHistXRange r histLayers = case histRawDomain r histLayers of   Nothing -> V.empty@@ -187,9 +236,12 @@          _  -> V.fromList [ minimum (map fst extents)                           , maximum (map snd extents) ] --- | MHistogram / MDensity / MBar / MWaterfall の y 軸 range 候補。--- bar 系 chart の bar base は y=0、 だから y domain は [0, max(value)] にする。--- (= matplotlib / seaborn 慣例)+-- | [日本語]: MHistogram / MDensity / MBar / MWaterfall の y 軸 range 候補。+--   bar 系 chart の bar base は y=0、 だから y domain は [0, max(value)] に+--   する。 (= matplotlib / seaborn 慣例)+--   [English]: The y-axis range candidate for MHistogram / MDensity / MBar /+--   MWaterfall. Bar-family charts have a bar base of y=0, so the y domain is+--   [0, max(value)] (following matplotlib / seaborn convention). histogramYRange :: Resolver -> Layer -> Vector Double histogramYRange r l = case getFirst (lyKind l) of   -- Bar / Waterfall: encY の max + 0 を contribute (= base = 0、 上方が data max)@@ -222,28 +274,20 @@           in V.fromList [lo, mx]       _ -> V.empty     Nothing -> V.empty-  -- Box: encY = 値、 y domain = Tukey whisker 範囲 (outlier 除外、 matplotlib 流)。-  -- Phase 8 C (box-grouped fix): encX で群分けされる場合は **群ごと**に Tukey 髭を出し-  -- その和集合を domain にする。 全群プールの髭だと高値群の髭が domain を超え枠外に-  -- 出ていた (= ユーザ報告)。 renderBox も群ごとに髭を描くので両者整合。+  -- Box: encY = 値、 y domain = 全値 min-max (outlier 込み、 ggplot 流)。+  -- ★ Phase 65: 旧実装は群ごと Tukey whisker 範囲のみ (outlier 除外、 matplotlib 流) を+  --   返していたが、 Phase 34 で outlier ドット描画が追加されて以降は domain 外の実値に+  --   打点され panel 外に出ていた (probe: design/phase65-box-outlier-domain/、+  --   outlier PCircle y=-897 vs panel [24.2, 280.75])。 ggplot (と matplotlib の+  --   flier 込み autoscale) に合わせ outlier も domain に含める。 whisker 端 (loV/hiV)+  --   はフェンス内の実データ点なので min-max に包含され、 Phase 8 C の群ごと whisker+  --   和集合は不要になった。 NaN (= nullable 列の NA) は従来どおり除いてから min/max。   Just MBox -> case getLast (lyEncY l) of     Just cr -> case resolveNum r cr of-      Just v | not (V.null v) ->-        -- ★ NaN (= Maybe の Nothing) を群ラベルと整列したまま落とす (tukeyWhisker が-        --   NaN を含むと whisker が NaN 化し値軸レンジが壊れる)。 renderBox と整合。-        let vals   = V.toList v-            groups = case getLast (lyEncX l) of-              Just crX -> case resolveCol r crX of-                Just (TxtData labels) ->-                  let paired = [ (lb, x) | (lb, x) <- zip (V.toList labels) vals, not (isNaN x) ]-                  in groupValsBy (map fst paired) (map snd paired)-                Just (NumData labels) ->-                  let paired = [ (lb, x) | (lb, x) <- zip (map (show . (round :: Double -> Int)) (V.toList labels)) vals, not (isNaN x) ]-                  in groupValsBy (map fst paired) (map snd paired)-                _ -> [filter (not . isNaN) vals]-              Nothing -> [filter (not . isNaN) vals]-            whiskersOf g = let (lo, hi) = tukeyWhisker g in [lo, hi]-        in V.fromList (concatMap whiskersOf groups)+      Just v ->+        let vals = V.filter (not . isNaN) v+        in if V.null vals then V.empty+                          else V.fromList [V.minimum vals, V.maximum vals]       _ -> V.empty     Nothing -> V.empty   -- Violin / Strip / Swarm / Raincloud / Ridge も同じく encY = 値@@ -374,53 +418,46 @@ -- lag 軸 (autocorr / ess) の x/y range 寄与 -- =========================================================================== --- | autocorr / ess layer の x 軸 range 候補 (= [0, maxLag] or [0, nChain])+-- | [日本語]: autocorr / ess layer の x 軸 range 候補 (= [0, maxLag])。+--   [English]: The x-axis range candidate for autocorr / ess layers+--   ([0, maxLag]). lagXRange :: Resolver -> Layer -> Vector Double-lagXRange r l = case getFirst (lyKind l) of+lagXRange _ l = case getFirst (lyKind l) of   Just MAutocorr ->+    -- ★ Phase 64 A4-b: lag は連続値ではなく __離散スロット__。 各 lag が幅 1 の+    --   スロットを持つよう ±0.5 を含む range を返す (categorical 軸と同じ規約)。+    --   [0, maxLag] のままだと lag 0 が panel 左端に来て棒が半分はみ出す+    --   (A4-b の実測: 3.59 px 突出)。     let maxLag = maybe 40 id (getLast (lyMaxLag l))-    in V.fromList [0, fromIntegral maxLag]-  Just MEss ->-    -- chain 列が指定されていれば distinct chain 数、 未指定なら 1-    let nChain = case getLast (lyChain l) of-          Just cr -> case resolveCol r cr of-            Just (TxtData v) -> length (uniqList (V.toList v))-            Just (NumData v) -> length (uniqList (V.toList v))-            Nothing          -> 1-          Nothing -> 1-    in V.fromList [0, fromIntegral (max 1 nChain)]+    in V.fromList [-0.5, fromIntegral maxLag + 0.5]+  -- ★ Phase 70 A3: MEss の x range 供給を撤去。 現行設計 (ess nameCol essCol) の+  --   x 軸は encX の categorical 経路 (xCatLabels → [-0.6, n-0.4]) が担う。+  --   旧設計 (ess vals <> chain) 前提の [-0.5, nChain-0.5] は renderESS の+  --   CrossAt 0..n-1 (n = 名前数) と乖離し bar が panel 外に出ていた (A2 実測)。   _ -> V.empty-  where-    uniqList :: Eq a => [a] -> [a]-    uniqList = foldr (\x acc -> if x `elem` acc then acc else x : acc) [] --- | autocorr / ess layer の y 軸 range 候補+-- | [日本語]: autocorr / ess layer の y 軸 range 候補。+--   [English]: The y-axis range candidate for autocorr / ess layers. lagYRange :: Resolver -> Layer -> Vector Double lagYRange r l = case getFirst (lyKind l) of   Just MAutocorr -> V.fromList [-1.0, 1.0]   Just MEss ->-    -- ESS は理論上 [0, N] だが実用上 N/4 程度が上限 (= 強い autocorrelation で更に小)。-    -- chain 数があれば N/nChain を上限に。-    let n = case getLast (lyEncX l) of-          Just cr -> case resolveNum r cr of-            Just v  -> V.length v-            Nothing -> 1000-          Nothing -> 1000-        nChain = case getLast (lyChain l) of-          Just cr -> case resolveCol r cr of-            Just (TxtData v) -> max 1 (length (uniqList (V.toList v)))-            Just (NumData v) -> max 1 (length (uniqList (V.toList v)))-            Nothing          -> 1-          Nothing -> 1-        upper = fromIntegral (n `div` nChain)-    in V.fromList [0, upper]+    -- ★ Phase 70 A3: y range は encY の __実 ESS 値__ から [0, max(100, 最大値)]。+    --   下限 100 は renderESS の閾値参照線 (100/400) の最小値が常に見えるための床で、+    --   renderer 側の tick 計算 yMax = maximum (100 : vals) (Render/MCMC.hs) と同一式。+    --   旧実装は encX の「長さ」を MCMC サンプル数 N と誤用し ESS 実値を不参照だった+    --   (demo で [0,6]・Text nameCol では n=1000 fallback、 A2 実測)。+    let vals = case getLast (lyEncY l) of+          Just cr -> maybe [] V.toList (resolveNum r cr)+          Nothing -> []+    in V.fromList [0, maximum (100 : vals)]   _ -> V.empty-  where-    uniqList :: Eq a => [a] -> [a]-    uniqList = foldr (\x acc -> if x `elem` acc then acc else x : acc) [] --- | Forest layer の x range 寄与 (= estimate ± error + 中央 null line x=0)。--- これを range に含めないと CI 線が plotArea からはみ出す (Phase 8 B14)。+-- | [日本語]: Forest layer の x range 寄与 (= estimate ± error + 中央 null+--   line x=0)。 これを range に含めないと CI 線が plotArea からはみ出す。+--   [English]: The x-range contribution of a Forest layer (estimate ± error+--   plus the central null line x=0). Omitting it would let the CI lines+--   overflow the plot area. forestXRange :: Resolver -> Layer -> Vector Double forestXRange r l = case getFirst (lyKind l) of   Just MForest ->@@ -434,8 +471,12 @@        else V.fromList [0] V.++ los V.++ his  -- null line x=0 も含める   _ -> V.empty --- | Phase 11 A6-4b: linerange / pointrange / crossbar の y 軸 range 寄与 = y ± errorY--- (= forest の x ± err と同型)。 これが無いと区間 (y±err) が plotArea からはみ出す。+-- | [日本語]: linerange / pointrange / crossbar の y 軸 range 寄与 = y ± errorY+--   (= forest の x ± err と同型)。 これが無いと区間 (y±err) が plotArea から+--   はみ出す。+--   [English]: The y-range contribution of linerange / pointrange /+--   crossbar: y ± errorY (structurally identical to forest's x ± err).+--   Without it, the interval (y±err) would overflow the plot area. rangeBarYRange :: Resolver -> Layer -> Vector Double rangeBarYRange r l = case getFirst (lyKind l) of   Just k | k `elem` [MLineRange, MPointRange, MCrossbar] ->@@ -448,10 +489,15 @@     in if V.null ys then V.empty else los V.++ his   _ -> V.empty --- | Phase 15 A8: MBand (area band) の y 軸 range 寄与 = 上境界 encY2。--- 下境界 encY は collectXY の ysFromEncY が既に拾う。 上境界 encY2 はどこも拾わ--- ないため、 これが無いと帯の上側が plotArea からはみ出してクリップされる--- (GLM の非対称 μ-CI 帯で露見)。+-- | [日本語]: MBand (area band) の y 軸 range 寄与 = 上境界 encY2。 下境界 encY+--   は collectXY の ysFromEncY が既に拾う。 上境界 encY2 はどこも拾わないため、+--   これが無いと帯の上側が plotArea からはみ出してクリップされる (GLM の+--   非対称 μ-CI 帯で露見)。+--   [English]: The y-range contribution of MBand (an area band): the upper+--   bound, encY2. The lower bound, encY, is already picked up by+--   collectXY's ysFromEncY. Since nothing else picks up encY2, omitting+--   this would clip the upper side of the band at the plot area (surfaced+--   by GLM's asymmetric μ-CI bands). bandYRange :: Resolver -> Layer -> Vector Double bandYRange r l = case getFirst (lyKind l) of   Just MBand ->@@ -460,9 +506,15 @@     in los V.++ his   _ -> V.empty --- | Phase 52.D2: streamgraph の y 軸 range 寄与。 各 x 値ごとに全系列の y を合算した--- 総和 total(x) の最大 M を取り、 中心化 (silhouette: baseline=-Σy/2) ゆえ [-M/2, M/2]--- を返す。 系列は color で分かれるが range には x ごとの総和だけが要る。+-- | [日本語]: streamgraph の y 軸 range 寄与。 各 x 値ごとに全系列の y を合算した+--   総和 total(x) の最大 M を取り、 中心化 (silhouette: baseline=-Σy/2) ゆえ+--   [-M/2, M/2] を返す。 系列は color で分かれるが range には x ごとの総和+--   だけが要る。+--   [English]: The y-range contribution of a streamgraph. Takes the maximum+--   M of the per-x total(x), the sum of y across all series at each x+--   value, and returns [-M/2, M/2] since the layout is centered (silhouette:+--   baseline = -Σy/2). Series are split by color, but the range only needs+--   the per-x total. streamYRange :: Resolver -> Layer -> Vector Double streamYRange r l = case getFirst (lyKind l) of   Just MStream ->@@ -475,9 +527,15 @@     in if n == 0 then V.empty else V.fromList [negate (m / 2), m / 2]   _ -> V.empty --- | Phase 11 A6-2: Q-Q plot の x 軸 range 寄与。 sample (encY) をソートして得る--- order statistic に理論正規分位点 Φ⁻¹((i-0.5)/n) を割り当て、 その min/max を--- x domain に contribute する (= 理論分位点は列に無いので forestXRange と同型で算出)。+-- | [日本語]: Q-Q plot の x 軸 range 寄与。 sample (encY) をソートして得る+--   order statistic に理論正規分位点 Φ⁻¹((i-0.5)/n) を割り当て、 その min/max+--   を x domain に contribute する (= 理論分位点は列に無いので forestXRange と+--   同型で算出)。+--   [English]: The x-range contribution of a Q-Q plot. Assigns theoretical+--   normal quantiles Φ⁻¹((i-0.5)/n) to the order statistics obtained by+--   sorting the sample (encY), and contributes their min/max to the x+--   domain (theoretical quantiles are not in any column, so they are+--   computed the same way as forestXRange). qqXRange :: Resolver -> Layer -> Vector Double qqXRange r l = case getFirst (lyKind l) of   Just MQQ -> case getLast (lyEncY l) >>= resolveNum r of@@ -487,10 +545,17 @@     _ -> V.empty   _ -> V.empty --- | Phase 11 A6-2: サンプルから Q-Q plot の点列 (理論分位点, order statistic) を作る。--- render と range が **同じ式** を使うための単一情報源 (= histRawDomain と同思想)。--- y_(i) = ソート済 sample の i 番目、 x_i = Φ⁻¹((i-0.5)/n) (= plotting position、--- ggplot stat_qq / R qqnorm の既定 (a=0.5 of Blom 近傍))。+-- | [日本語]: サンプルから Q-Q plot の点列 (理論分位点, order statistic) を+--   作る。 render と range が __同じ式__ を使うための単一情報源+--   (= histRawDomain と同思想)。 y_(i) = ソート済 sample の i 番目、+--   x_i = Φ⁻¹((i-0.5)/n) (= plotting position、 ggplot stat_qq / R qqnorm+--   の既定 (a=0.5 of Blom 近傍))。+--   [English]: Builds the Q-Q plot point list (theoretical quantile, order+--   statistic) from a sample. A single source of truth ensuring render and+--   range use __the same formula__ (the same idea as histRawDomain).+--   y_(i) is the i-th sorted sample value; x_i = Φ⁻¹((i-0.5)/n) is the+--   plotting position, the default used by ggplot's stat_qq / R's qqnorm+--   (a near Blom's a=0.5). qqPoints :: [Double] -> [(Double, Double)] qqPoints sample =   let ys = sort sample@@ -498,9 +563,15 @@   in [ (invNormCdf ((fromIntegral i - 0.5) / fromIntegral n), y)      | (i, y) <- zip [(1 :: Int) ..] ys ] --- | Phase 11 A6-4: ECDF (= ggplot stat_ecdf) の階段ポリライン頂点。 render と x/y range が--- 同じ式を使うための単一情報源。 右連続の階段 F(x)=#(≤x)/n を、 角点列で表す:---   (x_1,0), (x_1,1/n), (x_2,1/n), (x_2,2/n), …, (x_n, n/n)。 空入力は []。+-- | [日本語]: ECDF (= ggplot stat_ecdf) の階段ポリライン頂点。 render と x/y+--   range が同じ式を使うための単一情報源。 右連続の階段 F(x)=#(≤x)/n を、+--   角点列で表す: (x_1,0), (x_1,1/n), (x_2,1/n), (x_2,2/n), …, (x_n, n/n)。+--   空入力は []。+--   [English]: The vertices of the ECDF (ggplot's stat_ecdf) step polyline.+--   A single source of truth ensuring render and the x/y range use the same+--   formula. Represents the right-continuous step function F(x)=#(≤x)/n as+--   a sequence of corner points: (x_1,0), (x_1,1/n), (x_2,1/n), (x_2,2/n),+--   …, (x_n, n/n). An empty input yields []. ecdfPoints :: [Double] -> [(Double, Double)] ecdfPoints sample =   let xs = sort sample@@ -514,9 +585,14 @@                              : [ (xs !! i, fn i) | i < n ]  -- 次の x まで水平 (最後は無し)                            | (i, x) <- zip [(1 :: Int) ..] xs ] --- | 標準正規分布の逆累積分布関数 Φ⁻¹ (= probit / qnorm)。 Acklam の有理多項式近似--- (相対誤差 < 1.15e-9)。 p ∈ (0,1) を仮定 (端点は ±∞ を返すが qqPoints では (0.5/n)--- 〜((n-0.5)/n) なので 0/1 には到達しない)。+-- | [日本語]: 標準正規分布の逆累積分布関数 Φ⁻¹ (= probit / qnorm)。 Acklam の+--   有理多項式近似 (相対誤差 < 1.15e-9)。 p ∈ (0,1) を仮定 (端点は ±∞ を返す+--   が qqPoints では (0.5/n)〜((n-0.5)/n) なので 0/1 には到達しない)。+--   [English]: The inverse CDF of the standard normal distribution, Φ⁻¹+--   (probit / qnorm). Uses Acklam's rational polynomial approximation+--   (relative error < 1.15e-9). Assumes p ∈ (0,1) (the endpoints return ±∞,+--   but qqPoints only supplies (0.5/n) through ((n-0.5)/n), so 0/1 are never+--   reached). invNormCdf :: Double -> Double invNormCdf p   | p <= 0    = -1 / 0@@ -549,7 +625,10 @@     d1 =  7.784695709041462e-03; d2 =  3.224671290700398e-01     d3 =  2.445134137142996e+00; d4 =  3.754408661907416e+00 --- | autocorr / ess は encX を「値」 としてではなく lag/chain 軸として扱う layer。+-- | [日本語]: autocorr / ess は encX を「値」 としてではなく lag/chain 軸と+--   して扱う layer。+--   [English]: Whether this layer treats encX as a lag/chain axis rather+--   than a "value" (as autocorr / ess do). isLagAxis :: Layer -> Bool isLagAxis l = case getFirst (lyKind l) of   Just MAutocorr -> True@@ -560,39 +639,13 @@ -- 共通 helper -- =========================================================================== --- | Vector の (min, max)。 空なら default (0, 1)。+-- | [日本語]: Vector の (min, max)。 空なら default (0, 1)。+--   [English]: A vector's (min, max), defaulting to (0, 1) when empty. extentsOrDefault :: Vector Double -> (Double, Double) extentsOrDefault v   | V.null v  = (0, 1)   | otherwise = (V.minimum v, V.maximum v) --- | Phase 8 C (box-grouped fix): ラベル列で値を群分け (出現順、 extent 用)。-groupValsBy :: Eq a => [a] -> [Double] -> [[Double]]-groupValsBy labels vals =-  let pairs = zip labels vals-      uniq  = foldr (\(k, _) acc -> if k `elem` acc then acc else k : acc) [] pairs-  in [ [ x | (k, x) <- pairs, k == lab ] | lab <- uniq ]---- | Tukey 髭 (loV, hiV) = fence [Q1-1.5IQR, Q3+1.5IQR] 内の最小/最大データ点。--- renderBox の髭計算と同一式 (= 群ごとの箱と domain が整合)。-tukeyWhisker :: [Double] -> (Double, Double)-tukeyWhisker xs0 =-  let sorted = sort xs0-      n      = length sorted-      q p =-        let pos  = p * fromIntegral (n - 1)-            lo'  = floor pos :: Int-            frac = pos - fromIntegral lo'-        in case (atIdx sorted lo', atIdx sorted (lo' + 1)) of-             (Just a, Just b) -> a + (b - a) * frac-             (Just a, Nothing) -> a-             _                 -> 0-      atIdx xs i_ = if i_ < 0 || i_ >= length xs then Nothing else Just (xs !! i_)-      q1  = q 0.25-      q3  = q 0.75-      iqr = q3 - q1-      loW = q1 - 1.5 * iqr-      hiW = q3 + 1.5 * iqr-      loV = case dropWhile (< loW) sorted of (x:_) -> x; [] -> q1-      hiV = case reverse (takeWhile (<= hiW) sorted) of (x:_) -> x; [] -> q3-  in (loV, hiV)+-- ★ Phase 65: 旧 groupValsBy / tukeyWhisker (Phase 8 C の群ごと whisker domain 用) は+--   MBox domain の outlier 込み化で不要になり削除 (whisker 描画側の同一式は+--   Render/Distribution.hs renderBox にインラインで残っている)。

@@ -1,23 +1,47 @@ -- | -- Module      : Graphics.Hgg.Math.Griddata--- Description : 散布 (x,y,z) → 格子化 (Phase 24 A4・contour/surface 共用基盤)+-- Description : Scattered (x,y,z) to grid — shared foundation for contour and surface -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- contour / filled contour / 3D surface が共有する「散布データの格子化」 核。+-- [日本語]: contour / filled contour / 3D surface が共有する「散布データの+--   格子化」 核。 -----   * 'detectGrid' — 入力が**規則 grid** (x の固有値 × y の固有値が全組存在)---     なら補間せず**そのまま**格子に並べ替える (Phase 24 A4 バグ修正の本丸:---     旧実装は規則 grid 入力でも全点 IDW 再標本化して歪んでいた)---   * 'resampleKNN' — 真の散布入力のみ **k 近傍 IDW** (逆距離加重・power 2)---     で格子に補間する (旧実装の全点 IDW は遠方点まで重み付けされ---     全体平均へ潰れる + 隅に偽値が出る)---   * 'gridOf' — 上記 2 つの自動切替 (検出成功 = 直入力、 失敗 = k 近傍補間)---   * 'marchingSegments' / 'innerLevels' — 等高線 (isoline) 抽出核。 marching---     squares で 1 level 分の線分群を data 座標で返す。 2D 'renderContour' と---     3D 床面投影 contour (Phase 24 A5) が**同一核を共有**する (parity 保全)。+--     * 'detectGrid' — 入力が__規則 grid__ (x の固有値 × y の固有値が全組存在)+--       なら補間せず__そのまま__格子に並べ替える (旧実装は規則 grid 入力でも+--       全点 IDW 再標本化して歪んでいたバグの修正の本丸)+--     * 'resampleKNN' — 真の散布入力のみ __k 近傍 IDW__ (逆距離加重・power 2)+--       で格子に補間する (旧実装の全点 IDW は遠方点まで重み付けされ+--       全体平均へ潰れる + 隅に偽値が出る)+--     * 'gridOf' — 上記 2 つの自動切替 (検出成功 = 直入力、 失敗 = k 近傍補間)+--     * 'marchingSegments' / 'innerLevels' — 等高線 (isoline) 抽出核。 marching+--       squares で 1 level 分の線分群を data 座標で返す。 2D @renderContour@ と+--       3D 床面投影 contour が__同一核を共有__する (parity 保全)。 ----- 格子の向き規約: @zGrid !! j !! i = z(xNodes !! i, yNodes !! j)@ (行 = y)。+--   格子の向き規約: @zGrid !! j !! i = z(xNodes !! i, yNodes !! j)@ (行 = y)。+-- [English]: The "grid scattered data" core shared by contour, filled+--   contour, and 3D surface.+--+--     * 'detectGrid' — If the input is a __regular grid__ (every combination+--       of the distinct x and y values is present), rearranges it into a+--       grid __directly__, without interpolation (this is the core of a bug+--       fix: the previous implementation resampled with full-point IDW even+--       for regular-grid input, distorting it).+--     * 'resampleKNN' — For genuinely scattered input only, interpolates+--       onto a grid using __k-nearest-neighbour IDW__ (inverse distance+--       weighting, power 2). (The previous full-point IDW weighted even+--       distant points, collapsing toward the overall mean and producing+--       spurious values at the corners.)+--     * 'gridOf' — Automatically switches between the two above (successful+--       detection uses the direct input; failure falls back to+--       k-nearest-neighbour interpolation).+--     * 'marchingSegments' / 'innerLevels' — The isoline-extraction core.+--       Returns the line segments for a single level, in data coordinates,+--       using marching squares. 2D @renderContour@ and the 3D floor-projected+--       contour __share this same core__ (preserving parity between them).+--+--   Grid orientation convention: @zGrid !! j !! i = z(xNodes !! i, yNodes !! j)@+--   (rows = y). {-# LANGUAGE OverloadedStrings #-} module Graphics.Hgg.Math.Griddata   ( detectGrid@@ -31,10 +55,17 @@ import qualified Data.Map.Strict as Map import qualified Data.Vector as V --- | 規則 grid の検出: x / y の固有値数の積が点数と一致し、 かつ全セルが--- 埋まっていれば @Just (xNodes, yNodes, zGrid)@。 固有値は完全一致 (==) で--- 集計する (計画格子・linspace 由来の座標は bit 一致する前提。 ノイズ入り--- 座標は検出に落ちて 'resampleKNN' へ)。 重複座標 (反復測定) は後勝ち。+-- | [日本語]: 規則 grid の検出: x / y の固有値数の積が点数と一致し、 かつ全セルが+--   埋まっていれば @Just (xNodes, yNodes, zGrid)@。 固有値は完全一致 (==) で+--   集計する (計画格子・linspace 由来の座標は bit 一致する前提。 ノイズ入り+--   座標は検出に落ちて 'resampleKNN' へ)。 重複座標 (反復測定) は後勝ち。+--   [English]: Detects a regular grid: if the product of the counts of+--   distinct x / y values equals the point count and every cell is filled,+--   returns @Just (xNodes, yNodes, zGrid)@. Distinct values are gathered by+--   exact equality (==), assuming coordinates from a planned grid or+--   linspace match bit-for-bit; noisy coordinates fail detection and fall+--   through to 'resampleKNN'. Duplicate coordinates (repeated measurements)+--   have the later one win. detectGrid :: [(Double, Double, Double)] -> Maybe ([Double], [Double], [[Double]]) detectGrid pts =   let xs = uniqSorted [x | (x, _, _) <- pts]@@ -59,12 +90,16 @@                          | otherwise = a : dedup (b : rest)     dedup xs = xs --- | k 近傍 IDW (逆距離加重・power 2) で nx×ny 格子に補間する。--- 旧実装 (全点 IDW) との違い = 各ノードで**最も近い k 点だけ**を重み付け--- するため、 遠方の点に引っ張られて全体平均へ潰れない。-resampleKNN :: Int  -- ^ 近傍数 k (目安 8)-            -> Int  -- ^ x 方向ノード数-            -> Int  -- ^ y 方向ノード数+-- | [日本語]: k 近傍 IDW (逆距離加重・power 2) で nx×ny 格子に補間する。+--   旧実装 (全点 IDW) との違い = 各ノードで__最も近い k 点だけを重み付け__する+--   ため、 遠方の点に引っ張られて全体平均へ潰れない。+--   [English]: Interpolates onto an nx×ny grid using k-nearest-neighbour IDW+--   (inverse distance weighting, power 2). Unlike the previous implementation+--   (full-point IDW), each node here __weights only its k nearest points__,+--   so it is not pulled toward the overall mean by distant points.+resampleKNN :: Int  -- ^ [日本語]: 近傍数 k (目安 8)。 [English]: The neighbour count k (typically 8).+            -> Int  -- ^ [日本語]: x 方向ノード数。 [English]: The number of nodes in the x direction.+            -> Int  -- ^ [日本語]: y 方向ノード数。 [English]: The number of nodes in the y direction.             -> [(Double, Double, Double)]             -> ([Double], [Double], [[Double]]) resampleKNN k nx ny pts =@@ -84,24 +119,35 @@       grid = [ [ idw px py | px <- xNodes ] | py <- yNodes ]   in (xNodes, yNodes, grid) --- | 自動切替: 規則 grid なら直入力 (補間なし)、 散布なら k=8 近傍 IDW で--- n×n 格子化。 contour / filled contour / 床面投影が共有する入口。-gridOf :: Int  -- ^ 散布時の再標本ノード数 (各軸)+-- | [日本語]: 自動切替: 規則 grid なら直入力 (補間なし)、 散布なら k=8 近傍 IDW+--   で n×n 格子化。 contour / filled contour / 床面投影が共有する入口。+--   [English]: Automatically switches: a regular grid is used directly (no+--   interpolation); scattered data is gridded to n×n via k=8+--   nearest-neighbour IDW. The shared entry point for contour, filled+--   contour, and floor projections.+gridOf :: Int  -- ^ [日本語]: 散布時の再標本ノード数 (各軸)。 [English]: The resampling node count per axis, used when the input is scattered.        -> [(Double, Double, Double)]        -> ([Double], [Double], [[Double]]) gridOf n pts = case detectGrid pts of   Just g  -> g   Nothing -> resampleKNN 8 n n pts --- | marching squares: 1 つの等値 @level@ に対する等高線の線分群 (data 座標)。--- grid の向きは @grid !! j !! i = z(xNodes !! i, yNodes !! j)@ (行 = y)。--- セル走査順は @i (外)・j (内)@、 セル内の case 分岐は 2D 'renderContour' の--- 旧インライン実装と完全一致 (= SVG ビット不変)。 2D contour と 3D 床面投影--- contour が共有する核 (Phase 24 A5)。+-- | [日本語]: marching squares: 1 つの等値 @level@ に対する等高線の線分群+--   (data 座標)。 grid の向きは @grid !! j !! i = z(xNodes !! i, yNodes !! j)@+--   (行 = y)。 セル走査順は @i (外)・j (内)@、 セル内の case 分岐は 2D+--   @renderContour@ の旧インライン実装と完全一致 (= SVG ビット不変)。 2D+--   contour と 3D 床面投影 contour が共有する核。+--   [English]: Marching squares: the isoline segments (in data coordinates)+--   for a single @level@. Grid orientation is+--   @grid !! j !! i = z(xNodes !! i, yNodes !! j)@ (rows = y). The cell scan+--   order is @i (outer), j (inner)@, and the per-cell case dispatch matches+--   the previous inline implementation in 2D @renderContour@ exactly (SVG+--   output is bit-identical). The shared core for 2D contour and the 3D+--   floor-projected contour. marchingSegments-  :: [Double]    -- ^ xNodes (x 方向ノード)-  -> [Double]    -- ^ yNodes (y 方向ノード)-  -> [[Double]]  -- ^ grid (行 = y、 @grid!!j!!i@)+  :: [Double]    -- ^ [日本語]: xNodes (x 方向ノード)。 [English]: xNodes (nodes in the x direction).+  -> [Double]    -- ^ [日本語]: yNodes (y 方向ノード)。 [English]: yNodes (nodes in the y direction).+  -> [[Double]]  -- ^ [日本語]: grid (行 = y、 @grid!!j!!i@)。 [English]: The grid (rows = y, @grid!!j!!i@).   -> Double      -- ^ level   -> [((Double, Double), (Double, Double))] marchingSegments xNodes yNodes grid lv =@@ -137,9 +183,13 @@              _  -> []   in [ seg | i <- [0 .. nx - 2], j <- [0 .. ny - 2], seg <- cellSegs i j ] --- | 既定の等高線レベル: @(zmin, zmax)@ の**内側等間隔** @lv_k = zmin +--- (zmax-zmin)·k/(n+1)@ (k = 1..n)。 端値ちょうどの退化等値線を避ける。--- 2D 'contourLevelsFor' の既定枝と 3D 床面投影が共有 (Phase 24 A5)。+-- | [日本語]: 既定の等高線レベル: @(zmin, zmax)@ の__内側等間隔__ @lv_k = zmin ++--   (zmax-zmin)·k/(n+1)@ (k = 1..n)。 端値ちょうどの退化等値線を避ける。+--   2D @contourLevelsFor@ の既定枝と 3D 床面投影が共有。+--   [English]: The default contour levels: __evenly spaced interior points__+--   of @(zmin, zmax)@, @lv_k = zmin + (zmax-zmin)·k/(n+1)@ (k = 1..n). This+--   avoids degenerate isolines exactly at the endpoints. Shared by the+--   default branch of 2D @contourLevelsFor@ and the 3D floor projection. innerLevels :: Int -> Double -> Double -> [Double] innerLevels nLev zmin zmax =   [ zmin + (zmax - zmin) * fromIntegral k / fromIntegral (nLev + 1)

@@ -1,19 +1,33 @@ -- | -- Module      : Graphics.Hgg.Math.Special--- Description : 特殊関数 (log-gamma / 正則化不完全ベータ / ベータ分位点)+-- Description : Special functions — log-gamma, regularized incomplete beta, beta quantile -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- backend 非依存の数値特殊関数。 確率プロットの厳密 rank-based CI--- (順序統計量 U_(i) ~ Beta(i, n-i+1)) などで必要になる:+-- [日本語]: backend 非依存の数値特殊関数。 確率プロットの厳密 rank-based CI+--   (順序統計量 U_(i) ~ Beta(i, n-i+1)) などで必要になる: -----   * 'logGamma'          : ln Γ(x) (Lanczos 近似、 x > 0)---   * 'regIncompleteBeta' : 正則化不完全ベータ I_x(a,b) (連分数 / Lentz 法)---   * 'betaQuantile'      : I_x(a,b) = q を満たす x (二分法による逆関数)+--     * 'logGamma'          : ln Γ(x) (Lanczos 近似、 x > 0)+--     * 'regIncompleteBeta' : 正則化不完全ベータ I_x(a,b) (連分数 / Lentz 法)+--     * 'betaQuantile'      : I_x(a,b) = q を満たす x (二分法による逆関数) ----- アルゴリズムは Numerical Recipes の @gammln@ / @betai@ / @betacf@ に準ずる。--- core 内に他の特殊関数 (invNormCdf) は 'Graphics.Hgg.Layout.RangeOf' にあるが、--- ベータ系はサイズが大きいので本 module に分離する。+--   アルゴリズムは Numerical Recipes の @gammln@ / @betai@ / @betacf@ に準ずる。+--   core 内に他の特殊関数 (invNormCdf) は 'Graphics.Hgg.Layout.RangeOf' にあるが、+--   ベータ系はサイズが大きいので本 module に分離する。+-- [English]: Backend-agnostic numerical special functions, needed for+--   example by the exact rank-based confidence intervals of probability+--   plots (order statistics U_(i) ~ Beta(i, n-i+1)):+--+--     * 'logGamma'          : ln Γ(x) (Lanczos approximation, x > 0)+--     * 'regIncompleteBeta' : the regularized incomplete beta function+--       I_x(a,b) (continued fraction / Lentz's method)+--     * 'betaQuantile'      : the x satisfying I_x(a,b) = q (inverse via+--       bisection)+--+--   The algorithms follow Numerical Recipes' @gammln@ / @betai@ / @betacf@.+--   Another special function (invNormCdf) lives in 'Graphics.Hgg.Layout.RangeOf'+--   elsewhere in core, but the beta-related functions are split into this+--   module because of their size. module Graphics.Hgg.Math.Special   ( logGamma   , regIncompleteBeta@@ -24,8 +38,10 @@ -- log-gamma (Lanczos 近似、 g=5 / 6 係数) -- =========================================================================== --- | ln Γ(x) (x > 0 を仮定)。 相対誤差 < 2e-10。--- Numerical Recipes @gammln@ と同一係数 (Lanczos, g=5)。+-- | [日本語]: ln Γ(x) (x > 0 を仮定)。 相対誤差 < 2e-10。+--   Numerical Recipes @gammln@ と同一係数 (Lanczos, g=5)。+--   [English]: ln Γ(x), assuming x > 0. Relative error < 2e-10. Uses the+--   same coefficients as Numerical Recipes' @gammln@ (Lanczos, g=5). logGamma :: Double -> Double logGamma x =   let tmp0 = x + 5.5@@ -42,9 +58,14 @@ -- 正則化不完全ベータ I_x(a,b) -- =========================================================================== --- | 正則化不完全ベータ関数 I_x(a,b) = B(x;a,b) / B(a,b) ∈ [0,1]。--- a,b > 0、 x ∈ [0,1]。 x < (a+1)/(a+b+2) で連分数を直接、 それ以外は--- 対称性 I_x(a,b) = 1 - I_{1-x}(b,a) を使い収束を確保する。+-- | [日本語]: 正則化不完全ベータ関数 I_x(a,b) = B(x;a,b) / B(a,b) ∈ [0,1]。+--   a,b > 0、 x ∈ [0,1]。 x < (a+1)/(a+b+2) で連分数を直接、 それ以外は+--   対称性 I_x(a,b) = 1 - I_{1-x}(b,a) を使い収束を確保する。+--   [English]: The regularized incomplete beta function+--   I_x(a,b) = B(x;a,b) / B(a,b) ∈ [0,1], for a,b > 0 and x ∈ [0,1]. When+--   x < (a+1)/(a+b+2) the continued fraction is evaluated directly;+--   otherwise the symmetry I_x(a,b) = 1 - I_{1-x}(b,a) is used to ensure+--   convergence. regIncompleteBeta :: Double -> Double -> Double -> Double regIncompleteBeta a b x   | x <= 0    = 0@@ -56,7 +77,9 @@            then bt * betacf a b x / a            else 1 - bt * betacf b a (1 - x) / b --- | I_x(a,b) の連分数展開 (Lentz の修正法)。 NR @betacf@ と同型。+-- | [日本語]: I_x(a,b) の連分数展開 (Lentz の修正法)。 NR @betacf@ と同型。+--   [English]: The continued-fraction expansion of I_x(a,b) (Lentz's+--   modified method). Structurally identical to Numerical Recipes' @betacf@. betacf :: Double -> Double -> Double -> Double betacf a b x = go 1 h0 c0 d0   where@@ -93,9 +116,14 @@ -- ベータ分位点 (I_x(a,b) = q の逆関数) -- =========================================================================== --- | I_x(a,b) = q を満たす x ∈ [0,1] を二分法で求める (= Beta(a,b) の q 分位点)。--- 'regIncompleteBeta' は x について単調増加なので二分法が確実に収束する。--- 80 反復で区間幅は 2^-80 (≈ 1e-24) になり double 精度では完全収束。+-- | [日本語]: I_x(a,b) = q を満たす x ∈ [0,1] を二分法で求める (= Beta(a,b) の+--   q 分位点)。 'regIncompleteBeta' は x について単調増加なので二分法が確実に+--   収束する。 80 反復で区間幅は 2^-80 (≈ 1e-24) になり double 精度では完全収束。+--   [English]: Finds the x ∈ [0,1] satisfying I_x(a,b) = q by bisection (the+--   q-quantile of Beta(a,b)). Since 'regIncompleteBeta' is monotonically+--   increasing in x, bisection is guaranteed to converge. After 80+--   iterations the interval width is 2^-80 (≈ 1e-24), which is full+--   convergence at double precision. betaQuantile :: Double -> Double -> Double -> Double betaQuantile q a b   | q <= 0    = 0

@@ -1,13 +1,20 @@ -- | -- Module      : Graphics.Hgg.Palette--- Description : Categorical / Sequential / Diverging palette カタログ+-- Description : Categorical, sequential, and diverging palette catalog -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause -----   P17 (2026-05-26 改訂):+--   [日本語]: 2026-05-26 改訂: --     * default `hggMain` = F-3 Balanced Mix (= 中程度彩度で重み均等) --     * sub `hggPastel`   = F-2 Pastel Mix (= 淡色 secondary) --     * 全色は 7 キャラ設定画 Color Palette セクションの公式 hex+--   [English]: As of the 2026-05-26 revision:+--     * The default, `hggMain`, is F-3 Balanced Mix (medium saturation,+--       evenly weighted).+--     * The sub-palette, `hggPastel`, is F-2 Pastel Mix (light-colored+--       secondary).+--     * All colors are the official hex values from the Color Palette+--       section of the 7-character design sheet. {-# LANGUAGE OverloadedStrings #-}  module Graphics.Hgg.Palette@@ -51,7 +58,7 @@   , hggHighlight   , hggSuccess   , hggInfo-    -- * ColorBrewer 2.0 palette (Phase 6 A9、 P17)+    -- * ColorBrewer 2.0 palette     -- $colorbrewer     -- ** Categorical (qualitative)   , brewerSet1@@ -83,7 +90,9 @@ viridis5 :: SequentialPalette viridis5 = ["#440154", "#3B528B", "#21918C", "#5EC962", "#FDE725"] --- | Spotfire 風 (= 標準 UI default colorPalette と一致)。+-- | [日本語]: Spotfire 風 (= 標準 UI default colorPalette と一致)。+--   [English]: Spotfire-style (matches the standard UI's default+--   colorPalette). spotfire :: CategoricalPalette spotfire =   [ "#93c5fd", "#fca5a5", "#fde047", "#86efac", "#f9a8d4"@@ -110,10 +119,17 @@   [ "#F0A5A0", "#C0B8E6", "#B79DB8", "#A7D7DE"   , "#D7A1A6", "#C7D7E6", "#A45353" ] --- | ggplot2 既定 discrete パレット (= @scales::hue_pal()@)。--- HCL 色空間で等間隔 hue (L=65, C=100, hue = seq(15,375,length=n+1)[1:n])。--- 色数 n に依存して hue が再配分されるため、 R @hue_pal()(n)@ の出力を n=1..8 で--- テーブル化 (= 実行時 HCL→sRGB 変換を避ける)。 n>8 は 8 色版を循環、 n<1 は 8 色版。+-- | [日本語]: ggplot2 既定 discrete パレット (= @scales::hue_pal()@)。+--   HCL 色空間で等間隔 hue (L=65, C=100, hue = seq(15,375,length=n+1)[1:n])。+--   色数 n に依存して hue が再配分されるため、 R @hue_pal()(n)@ の出力を n=1..8+--   でテーブル化 (= 実行時 HCL→sRGB 変換を避ける)。 n>8 は 8 色版を循環、 n<1 は+--   8 色版。+--   [English]: ggplot2's default discrete palette (@scales::hue_pal()@).+--   Evenly spaced hues in HCL space (L=65, C=100, hue =+--   seq(15,375,length=n+1)[1:n]). Since the hues are redistributed depending+--   on the color count n, the output of R's @hue_pal()(n)@ is tabulated for+--   n=1..8 (avoiding an HCL to sRGB conversion at run time). For n>8 the+--   8-color table is cycled; n<1 also uses the 8-color table. ggplotHue :: Int -> CategoricalPalette ggplotHue n   | n <= 0    = ggplotHue8@@ -208,86 +224,110 @@ -- ===========================================================================  -- $colorbrewer--- ColorBrewer は地図・科学可視化向け 35 palette のセット。+-- [日本語]: ColorBrewer は地図・科学可視化向け 35 palette のセット。 -- ここでは categorical 5 種 + diverging 7 種を import (= 9-class が中心)。 -- 公式: <https://colorbrewer2.org/> -- License: Apache 2.0 (= attribution required)+--+-- [English]: ColorBrewer is a set of 35 palettes designed for maps and+-- scientific visualization. Here 5 categorical and 7 diverging palettes are+-- imported (mostly the 9-class variants). Official site:+-- <https://colorbrewer2.org/>. License: Apache 2.0 (attribution required). --- | Categorical Set1 (9-class)。 強い primary 色、 区別性高い。+-- | [日本語]: Categorical Set1 (9-class)。 強い primary 色、 区別性高い。+--   [English]: Categorical Set1 (9-class): strong primary colors with high+--   distinguishability. brewerSet1 :: CategoricalPalette brewerSet1 =   [ "#E41A1C", "#377EB8", "#4DAF4A", "#984EA3", "#FF7F00"   , "#FFFF33", "#A65628", "#F781BF", "#999999" ] --- | Categorical Set2 (8-class)。 やや pastel、 印刷に向く。+-- | [日本語]: Categorical Set2 (8-class)。 やや pastel、 印刷に向く。+--   [English]: Categorical Set2 (8-class): somewhat pastel, suited to print. brewerSet2 :: CategoricalPalette brewerSet2 =   [ "#66C2A5", "#FC8D62", "#8DA0CB", "#E78AC3", "#A6D854"   , "#FFD92F", "#E5C494", "#B3B3B3" ] --- | Categorical Set3 (12-class)。 多 categorical に向く、 薄め。+-- | [日本語]: Categorical Set3 (12-class)。 多 categorical に向く、 薄め。+--   [English]: Categorical Set3 (12-class): suited to many categories,+--   lighter tones. brewerSet3 :: CategoricalPalette brewerSet3 =   [ "#8DD3C7", "#FFFFB3", "#BEBADA", "#FB8072", "#80B1D3"   , "#FDB462", "#B3DE69", "#FCCDE5", "#D9D9D9", "#BC80BD"   , "#CCEBC5", "#FFED6F" ] --- | Paired (12-class)。 light/dark のペア (= 2 グループ × 6 色)。+-- | [日本語]: Paired (12-class)。 light/dark のペア (= 2 グループ × 6 色)。+--   [English]: Paired (12-class): light/dark pairs (2 groups of 6 colors+--   each). brewerPaired :: CategoricalPalette brewerPaired =   [ "#A6CEE3", "#1F78B4", "#B2DF8A", "#33A02C", "#FB9A99"   , "#E31A1C", "#FDBF6F", "#FF7F00", "#CAB2D6", "#6A3D9A"   , "#FFFF99", "#B15928" ] --- | Dark2 (8-class)。 dark 系、 強い contrast。+-- | [日本語]: Dark2 (8-class)。 dark 系、 強い contrast。+--   [English]: Dark2 (8-class): dark tones with strong contrast. brewerDark2 :: CategoricalPalette brewerDark2 =   [ "#1B9E77", "#D95F02", "#7570B3", "#E7298A", "#66A61E"   , "#E6AB02", "#A6761D", "#666666" ] --- | Diverging RdYlBu (9-class、 中心 #FFFFBF)。 赤 ↔ 黄 ↔ 青。+-- | [日本語]: Diverging RdYlBu (9-class、 中心 #FFFFBF)。 赤 ↔ 黄 ↔ 青。+--   [English]: Diverging RdYlBu (9-class, center #FFFFBF): red to yellow to+--   blue. brewerRdYlBu :: DivergingPalette brewerRdYlBu =   [ "#D73027", "#F46D43", "#FDAE61", "#FEE090"   , "#FFFFBF"   , "#E0F3F8", "#ABD9E9", "#74ADD1", "#4575B4" ] --- | Diverging RdBu (9-class)。 赤 ↔ 青、 中央 #F7F7F7。+-- | [日本語]: Diverging RdBu (9-class)。 赤 ↔ 青、 中央 #F7F7F7。+--   [English]: Diverging RdBu (9-class): red to blue, center #F7F7F7. brewerRdBu :: DivergingPalette brewerRdBu =   [ "#B2182B", "#D6604D", "#F4A582", "#FDDBC7"   , "#F7F7F7"   , "#D1E5F0", "#92C5DE", "#4393C3", "#2166AC" ] --- | Diverging Spectral (11-class)。 虹 (= 赤→橙→黄→緑→青→紫)、 中心 #FFFFBF。+-- | [日本語]: Diverging Spectral (11-class)。 虹 (= 赤→橙→黄→緑→青→紫)、 中心+--   #FFFFBF。+--   [English]: Diverging Spectral (11-class): a rainbow (red to orange to+--   yellow to green to blue to purple), center #FFFFBF. brewerSpectral :: DivergingPalette brewerSpectral =   [ "#9E0142", "#D53E4F", "#F46D43", "#FDAE61", "#FEE08B"   , "#FFFFBF"   , "#E6F598", "#ABDDA4", "#66C2A5", "#3288BD", "#5E4FA2" ] --- | Diverging PuOr (9-class)。 紫 ↔ 橙、 中央 #F7F7F7。+-- | [日本語]: Diverging PuOr (9-class)。 紫 ↔ 橙、 中央 #F7F7F7。+--   [English]: Diverging PuOr (9-class): purple to orange, center #F7F7F7. brewerPuOr :: DivergingPalette brewerPuOr =   [ "#B35806", "#E08214", "#FDB863", "#FEE0B6"   , "#F7F7F7"   , "#D8DAEB", "#B2ABD2", "#8073AC", "#542788" ] --- | Diverging BrBG (9-class)。 茶 ↔ 緑、 中央 #F5F5F5。+-- | [日本語]: Diverging BrBG (9-class)。 茶 ↔ 緑、 中央 #F5F5F5。+--   [English]: Diverging BrBG (9-class): brown to green, center #F5F5F5. brewerBrBG :: DivergingPalette brewerBrBG =   [ "#8C510A", "#BF812D", "#DFC27D", "#F6E8C3"   , "#F5F5F5"   , "#C7EAE5", "#80CDC1", "#35978F", "#01665E" ] --- | Diverging RdGy (9-class)。 赤 ↔ 灰、 中央 #FFFFFF。+-- | [日本語]: Diverging RdGy (9-class)。 赤 ↔ 灰、 中央 #FFFFFF。+--   [English]: Diverging RdGy (9-class): red to gray, center #FFFFFF. brewerRdGy :: DivergingPalette brewerRdGy =   [ "#B2182B", "#D6604D", "#F4A582", "#FDDBC7"   , "#FFFFFF"   , "#E0E0E0", "#BABABA", "#878787", "#4D4D4D" ] --- | Diverging PiYG (9-class)。 ピンク ↔ 黄緑、 中央 #F7F7F7。+-- | [日本語]: Diverging PiYG (9-class)。 ピンク ↔ 黄緑、 中央 #F7F7F7。+--   [English]: Diverging PiYG (9-class): pink to yellow-green, center+--   #F7F7F7. brewerPiYG :: DivergingPalette brewerPiYG =   [ "#C51B7D", "#DE77AE", "#F1B6DA", "#FDE0EF"

@@ -1,17 +1,27 @@ -- | -- Module      : Graphics.Hgg.Primitive--- Description : backend 非依存の描画 primitive・幾何・スタイルの基盤型 (leaf)+-- Description : Backend-agnostic drawing primitives, geometry, and style leaf types -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- Phase 51: 描画 primitive (Point/Rect/style/PathSegment/Transform/Primitive) を--- Spec/Layout/Render に依存しない **leaf module** へ集約。 これらは元々--- 'Graphics.Hgg.Render.Common' (Spec/Layout を import する上位) に置かれていたため、--- 「'Spec.Layer' が draw closure (@RenderCtx -> [Primitive]@) を保持する」 拡張 (custom--- mark) が **module 循環**で不能だった。 primitive は概念的に幾何 + Text のみに依存する--- 基盤型ゆえ、 正しい層 (= 最下層 leaf) へ戻す。 挙動・出力は完全に不変 (純粋な型移動)。--- 'Graphics.Hgg.Render.Common' / 'Graphics.Hgg.Render' が本 module を re-export するので--- 既存の import 経路は不変。+-- [日本語]: 描画 primitive (Point/Rect/style/PathSegment/Transform/Primitive) を+--   Spec/Layout/Render に依存しない __leaf module__ へ集約。 これらは元々+--   'Graphics.Hgg.Render.Common' (Spec/Layout を import する上位) に置かれていたため、+--   「'Spec.Layer' が draw closure (@RenderCtx -> [Primitive]@) を保持する」 拡張 (custom+--   mark) が __module 循環__で不能だった。 primitive は概念的に幾何 + Text のみに依存する+--   基盤型ゆえ、 正しい層 (= 最下層 leaf) へ戻す。 挙動・出力は完全に不変 (純粋な型移動)。+--   'Graphics.Hgg.Render.Common' / 'Graphics.Hgg.Render' が本 module を re-export するので+--   既存の import 経路は不変。+--   [English]: Consolidates the drawing primitives (Point/Rect/style/PathSegment/+--   Transform/Primitive) into a __leaf module__ with no dependency on Spec/Layout/+--   Render. These originally lived in 'Graphics.Hgg.Render.Common' (an upper layer+--   that imports Spec/Layout), which made it impossible to extend 'Spec.Layer' to+--   hold a draw closure (@RenderCtx -> [Primitive]@) for custom marks, due to a+--   __module cycle__. Since primitives conceptually depend only on geometry and+--   Text, they belong in the correct (lowest, leaf) layer. Behaviour and output+--   are completely unchanged (a pure type relocation). 'Graphics.Hgg.Render.Common'+--   and 'Graphics.Hgg.Render' re-export this module, so existing import paths are+--   unaffected. {-# LANGUAGE DeriveGeneric     #-} {-# LANGUAGE OverloadedStrings #-} module Graphics.Hgg.Primitive@@ -43,7 +53,9 @@  data Point = Point !Double !Double deriving (Show, Eq) --- | plot 領域や clip 矩形。 (x,y) 左上 + 幅高 (pt 空間)。+-- | [日本語]: plot 領域や clip 矩形。 (x,y) 左上 + 幅高 (pt 空間)。+--   [English]: A plot area or clip rectangle: (x,y) top-left plus width and+--   height, in pt space. data Rect = Rect { rX :: !Double, rY :: !Double, rW :: !Double, rH :: !Double }   deriving (Show, Eq, Generic) @@ -54,12 +66,18 @@ -- スタイル -- =========================================================================== --- | 線スタイル。 'lsDash' = SVG stroke-dasharray / Canvas setLineDash 用 px 配列。--- 既定 (= 実線) は空配列 []。 'solid' ヘルパで作ると常に実線 (Phase 11 A4-b 以前と同一)。+-- | [日本語]: 線スタイル。 'lsDash' = SVG stroke-dasharray / Canvas setLineDash 用 px 配列。+--   既定 (= 実線) は空配列 []。 'solid' ヘルパで作ると常に実線。+--   [English]: A line style. 'lsDash' is the px array used by SVG+--   stroke-dasharray / Canvas setLineDash. The default (solid) is the empty+--   array []. Building it via the 'solid' helper always yields a solid line. data LineStyle   = LineStyle   { lsColor :: !Text, lsWidth :: !Double, lsDash :: ![Double] } deriving (Show, Eq) --- | Phase 11 A4-b: 実線 'LineStyle' の簡易構築 (= 旧 2 引数 LineStyle と同一)。--- dash を持たない既存呼出は全てこれに置換 (出力完全不変)。+-- | [日本語]: 実線 'LineStyle' の簡易構築 (= 旧 2 引数 LineStyle と同一)。+--   dash を持たない既存呼出は全てこれに置換 (出力完全不変)。+--   [English]: A convenience constructor for a solid 'LineStyle' (equivalent+--   to the old 2-argument LineStyle). All existing call sites without a dash+--   are replaced by this (output is completely unchanged). solid :: Text -> Double -> LineStyle solid c w = LineStyle c w [] @@ -93,27 +111,53 @@ -- Primitive -- =========================================================================== --- | backend 非依存の描画 primitive。 各 backend は drawPrimitives で--- これを順に解釈するだけ。+-- | [日本語]: backend 非依存の描画 primitive。 各 backend は drawPrimitives で+--   これを順に解釈するだけ。+--   [English]: A backend-agnostic drawing primitive. Each backend simply+--   interprets these in sequence via drawPrimitives. data Primitive   = PLine          !Point !Point !LineStyle   | PRect          !Rect !FillStyle (Maybe StrokeStyle)-  -- | 'PCircle' は最終フィールドに optional hover label。 SVG backend は-  -- <title> 要素として埋め込み、 ブラウザ native の hover tooltip に。-  -- JS 不要。+  -- | [日本語]: 'PCircle' は最終フィールドに optional hover label。 SVG backend は+  --   <title> 要素として埋め込み、 ブラウザ native の hover tooltip に。+  --   JS 不要。+  --   [English]: 'PCircle' carries an optional hover label as its final+  --   field. The SVG backend embeds it as a @\<title\>@ element, giving a+  --   browser-native hover tooltip with no JS required.   | PCircle        !Point !Double !FillStyle (Maybe StrokeStyle) (Maybe Text)   | PPath          ![PathSegment] !FillStyle (Maybe StrokeStyle)   | PText          !Point !Text !TextStyle   | PClipPush      !Rect+  -- | [日本語]: 多角形 clip (Phase 64 §2)。 頂点列は 'PRect' と同じ左上原点 y-down+  --   空間で、 **最後の頂点から最初の頂点へ暗黙に閉じる** (明示 close 不要)。+  --   矩形 clip は高速経路として 'PClipPush' を使い続ける (本 primitive は+  --   polar の外周・ternary の三角形など矩形で表せない panel 用)。+  --   ★ 頂点が 3 点未満の退化列は **clip 無し (素通し)** として扱う — 全 backend で+  --   統一。 「全消し」 にすると図が黙って白紙になるので fail-open を採る。+  --   [English]: Polygon clip (Phase 64 §2). The vertex list lives in the+  --   same top-left-origin, y-down space as 'PRect', and is **implicitly+  --   closed** from the last vertex back to the first. Rectangular clips+  --   keep using 'PClipPush' as the fast path; this primitive is for panels+  --   that a rectangle cannot express (a polar boundary, a ternary+  --   triangle, ...). A degenerate list of fewer than 3 vertices is treated+  --   as __no clip at all__ (pass-through) in every backend: failing open+  --   avoids silently blanking a figure.+  | PClipPath      ![Point]   | PClipPop   | PTransformPush !Transform   | PTransformPop   deriving (Show, Eq) --- | Phase 33 B5: pt 空間の primitive を device 単位へ一括 scale (k = dpi/72)。--- ★ raster/vector backend で **唯一の dpi 適用点**。Layout/Render は--- 純 pt を出力し、ここで一度だけ k を掛ける。PDF は k=1 (pt 直結・恒等) を渡す。--- 座標・サイズ・線幅・font size・dash 配列を全て k 倍する。'ScaleT' は比率ゆえ不変。+-- | [日本語]: pt 空間の primitive を device 単位へ一括 scale (k = dpi/72)。+--   ★ raster/vector backend で __唯一の dpi 適用点__。Layout/Render は+--   純 pt を出力し、ここで一度だけ k を掛ける。PDF は k=1 (pt 直結・恒等) を渡す。+--   座標・サイズ・線幅・font size・dash 配列を全て k 倍する。'ScaleT' は比率ゆえ不変。+--   [English]: Bulk-scales primitives from pt space to device units+--   (k = dpi/72). This is the __sole point where dpi is applied__ across+--   the raster/vector backends: Layout/Render emit pure pt values, and k is+--   applied exactly once here. PDF passes k=1 (a pt-direct identity).+--   Coordinates, sizes, line widths, font sizes, and dash arrays are all+--   scaled by k; 'ScaleT' is unaffected since it is a ratio. scalePrimitives :: Double -> [Primitive] -> [Primitive] scalePrimitives k   | k == 1    = id@@ -138,6 +182,7 @@       PPath segs fs mss      -> PPath (map sseg segs) fs (fmap sst mss)       PText pt txt ts        -> PText (sp pt) txt (sts ts)       PClipPush r            -> PClipPush (sr r)+      PClipPath ps           -> PClipPath (map sp ps)       PClipPop               -> PClipPop       PTransformPush tr      -> PTransformPush (str tr)       PTransformPop          -> PTransformPop

@@ -1,22 +1,36 @@ -- | -- Module      : Graphics.Hgg.Render--- Description : Layer 1 ─ Renderer 抽象 (Phase 26 §A-5 Resolver 対応版)+-- Description : Layer 1 renderer abstraction: resolver-based, backend-independent primitives -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- 'VisualSpec' + 'Resolver' + 'Layout' → backend 非依存 'Primitive' 列。--- 各 backend (SVG / PDF / Canvas / Rasterific) は 'drawPrimitives' のみ実装。+-- [日本語]: 'Graphics.Hgg.Spec.VisualSpec' + 'Graphics.Hgg.Spec.Resolver' + 'Graphics.Hgg.Layout.Layout' → backend 非依存 'Primitive' 列。+--   各 backend (SVG / PDF / Canvas / Rasterific) は 'drawPrimitives' のみ実装。+--   [English]: Converts a 'Graphics.Hgg.Spec.VisualSpec' + 'Graphics.Hgg.Spec.Resolver' + 'Graphics.Hgg.Layout.Layout' into a+--   backend-independent list of 'Primitive's. Each backend (SVG / PDF /+--   Canvas / Rasterific) implements only 'drawPrimitives'. ----- Phase 7 A4: 旧 3850 行モノリスを責務別 module に分割。 本 module は--- 後方互換 shim = 従来の公開名を 'Render.Common' / 'Render.Special' /--- 'Render.Layer' から re-export するのみ (出力中立・純粋移動)。---   * "Graphics.Hgg.Render.Common"       — 型 / theme / projection / axis / color / shape / stat helper---   * "Graphics.Hgg.Render.Basic"        — scatter/line/bar/histogram/band/step/stem---   * "Graphics.Hgg.Render.Distribution" — box/violin/strip/swarm/raincloud/ridge---   * "Graphics.Hgg.Render.Statistical"  — qq/ecdf/rangebar/heatmap/contour/regression/density/statline---   * "Graphics.Hgg.Render.MCMC"         — forest/funnel/autocorr/ess---   * "Graphics.Hgg.Render.Special"      — pie/waterfall/parallel/text/DAG---   * "Graphics.Hgg.Render.Layer"        — orchestration + renderLayer dispatch + facet/legend/inset/marginal+-- [日本語]: 旧 3850 行モノリスを責務別 module に分割。 本 module は+--   後方互換 shim = 従来の公開名を 'Render.Common' / 'Render.Special' /+--   'Render.Layer' から re-export するのみ (出力中立・純粋移動)。+--     * "Graphics.Hgg.Render.Common"       — 型 / theme / projection / axis / color / shape / stat helper+--     * "Graphics.Hgg.Render.Basic"        — scatter/line/bar/histogram/band/step/stem+--     * "Graphics.Hgg.Render.Distribution" — box/violin/strip/swarm/raincloud/ridge+--     * "Graphics.Hgg.Render.Statistical"  — qq/ecdf/rangebar/heatmap/contour/regression/density/statline+--     * "Graphics.Hgg.Render.MCMC"         — forest/funnel/autocorr/ess+--     * "Graphics.Hgg.Render.Special"      — pie/waterfall/parallel/text/DAG+--     * "Graphics.Hgg.Render.Layer"        — orchestration + renderLayer dispatch + facet/legend/inset/marginal+--   [English]: Splits the old 3850-line monolith into modules by+--   responsibility. This module is a backwards-compatibility shim that only+--   re-exports the previous public names from 'Render.Common' /+--   'Render.Special' / 'Render.Layer' (output-neutral, a pure move).+--     * "Graphics.Hgg.Render.Common"       — types / theme / projection / axis / color / shape / stat helpers+--     * "Graphics.Hgg.Render.Basic"        — scatter/line/bar/histogram/band/step/stem+--     * "Graphics.Hgg.Render.Distribution" — box/violin/strip/swarm/raincloud/ridge+--     * "Graphics.Hgg.Render.Statistical"  — qq/ecdf/rangebar/heatmap/contour/regression/density/statline+--     * "Graphics.Hgg.Render.MCMC"         — forest/funnel/autocorr/ess+--     * "Graphics.Hgg.Render.Special"      — pie/waterfall/parallel/text/DAG+--     * "Graphics.Hgg.Render.Layer"        — orchestration + renderLayer dispatch + facet/legend/inset/marginal {-# LANGUAGE DeriveGeneric     #-} {-# LANGUAGE OverloadedStrings #-} module Graphics.Hgg.Render@@ -33,15 +47,16 @@     -- * Theme palette   , ThemePalette(..)   , themePalette+  , specThemePalette   -- ★ Phase 63 A18: raster backend の init 色分岐用     -- * Primitive   , Primitive(..)-    -- * Phase 33 B5: pt→device scale (backend の唯一の dpi 適用点)+    -- * pt→device scale (backend の唯一の dpi 適用点)   , scalePrimitives     -- * 変換   , renderToPrimitives     -- * Backend interface   , Renderer(..)-    -- * Phase 1 A7: edge port+    -- * edge port   , edgePortPoint   ) where 

@@ -1,10 +1,11 @@ -- | -- Module      : Graphics.Hgg.Render.Basic--- Description : 基本 mark (scatter/line/bar/histogram/band/step/stem)+-- Description : Basic marks: scatter, line, bar, histogram, band, step, stem -- Copyright   : (c) 2026 Aelysce Project (Toshiaki Honda) -- License     : BSD-3-Clause ----- Phase 7 A4: Render モノリス分割 (出力中立・純粋移動)。+-- [日本語]: Render モノリス分割 (出力中立・純粋移動)。+--   [English]: Split out from the Render monolith (an output-neutral, pure move). {-# LANGUAGE DeriveGeneric     #-} {-# LANGUAGE OverloadedStrings #-} {-# OPTIONS_GHC -Wno-unused-imports #-}@@ -18,8 +19,10 @@                                       Track (..), solveTracks,                                       needsLegend, effectiveLegendPos,                                       coordOf, isPolar, polarCenter, polarPoint,+                                      isTernary,                                       domFrac, projectXY, projectRectData,                                       projectBarRect, catUnitPx, resolutionOf,+                                      BarShape (..), projectBar, projectSegment,                                       AxisPlacement (..),                                       coordXAxisPlacement, coordYAxisPlacement,                                       coordXGridIsVertical)@@ -62,12 +65,18 @@ import           Graphics.Hgg.Render.Common  --- | TODO-11 (2026-05-27): area band (= 信頼区間 / 予測帯)。--- |   encX  = 共通 x、 encY = 下境界、 encY2 = 上境界--- | PPath fill 1 枚 (= forward x-yLow + backward x-yHigh + close)。--- | alpha は layer modifier (default 0.2)。+-- | [日本語]: TODO-11 (2026-05-27): area band (= 信頼区間 / 予測帯)。+--   encX = 共通 x、 encY = 下境界、 encY2 = 上境界。 PPath fill 1 枚 (= forward+--   x-yLow + backward x-yHigh + close)。 alpha は layer modifier (default 0.2)。+--   [English]: TODO-11 (2026-05-27): an area band (a confidence interval /+--   prediction band). encX is the shared x, encY the lower bound, encY2 the+--   upper bound. Drawn as a single filled 'PPath' (forward along x-yLow,+--   backward along x-yHigh, then close). alpha is a layer modifier (default 0.2). renderBand :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive]-renderBand r layout pal ly =+renderBand r layout pal ly+  -- ★ Phase 64 A13: ternary では下/上境界を encZ 正規化して塗る (別経路)。+  | isTernary (lpCoord layout) = renderBandTernary r layout pal ly+  | otherwise =   let xs   = V.toList (vecOr (lyEncX ly) r)       yLo  = V.toList (vecOr (lyEncY ly) r)       yHi  = case getLast (lyEncY2 ly) of@@ -96,10 +105,56 @@        in if null segs then []           else [ PPath segs (FillStyle c a) Nothing ] --- | Phase 52.D2: streamgraph (= 中心化積層 area、 ThemeRiver 風)。 color aes で系列分割し--- (= 'renderBarGrouped' と同型の群キー取得)、 各 x 値で系列 y を積層、 baseline を--- -(Σy)/2 から開始 (silhouette 中心化) して各系列を塗り polygon ('renderBand' と同型の--- forward 下境界 + backward 上境界 + close) で描く。 wiggle 最小化 (ThemeRiver) は行わない。+-- | [日本語]: ★ Phase 64 A13: 三角座標 (ternary) の area band (ribbon)。 下境界+--   (encX=a, encY=b, encZ=c) と上境界 (encX=a, encY2=b, encZ=c) をそれぞれ+--   'ternaryRemap' で正規化 fraction 化し、 forward(下) + backward(上 reverse) の+--   塗り polygon を作る。 退化/NaN 頂点は落とす。 三角形外への spill は dispatch 側+--   (Render/Layer.hs) の三角形 clip が切る (= データ側で事前フィルタしない)。+--   [English]: Phase 64 A13 ternary area band (ribbon). Normalizes the lower+--   boundary (encX=a, encY=b, encZ=c) and the upper boundary (encX=a,+--   encY2=b, encZ=c) each via 'ternaryRemap', then builds a filled polygon+--   forward along the lower boundary and backward along the (reversed) upper+--   boundary. Degenerate / NaN vertices are dropped. Any spill outside the+--   triangle is clipped by the triangle clip in the dispatch (Render/Layer.hs);+--   no data-side pre-filtering.+renderBandTernary :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive]+renderBandTernary r layout pal ly =+  let coord = lpCoord layout+      pp    = projectPoint coord layout+      xsRaw = vecOrFull (lyEncX ly) r+      loRaw = vecOrFull (lyEncY ly) r+      hiRaw = case getLast (lyEncY2 ly) of+        Just c  -> vecOrFull (Last (Just c)) r+        Nothing -> V.empty+      c  = staticColorOr ly (tpDefault pal)+      a  = doubleOr (lyAlpha ly) 0.2+      (xsLo, bLo) = ternaryRemap r layout ly xsRaw loRaw+      (xsHi, bHi) = ternaryRemap r layout ly xsRaw hiRaw+      -- 正規化済 (a,b) 対を px へ。 NaN (退化 / 欠損) 頂点は落とす。+      ptsOf axV bxV =+        [ pp av bv+        | i <- [0 .. min (V.length axV) (V.length bxV) - 1]+        , let av = axV V.! i; bv = bxV V.! i+        , not (isNaN av), not (isNaN bv) ]+      forwardPts  = ptsOf xsLo bLo+      backwardPts = reverse (ptsOf xsHi bHi)+      segs = case forwardPts of+        []     -> []+        (h:tl) -> [MoveTo h] <> map LineTo tl <> map LineTo backwardPts <> [ClosePath]+  in if length forwardPts < 2 || null backwardPts then []+     else [ PPath segs (FillStyle c a) Nothing ]++-- | [日本語]: streamgraph (= 中心化積層 area、 ThemeRiver 風)。 color aes で系列分割し+--   (= 'renderBarGrouped' と同型の群キー取得)、 各 x 値で系列 y を積層、 baseline を+--   -(Σy)/2 から開始 (silhouette 中心化) して各系列を塗り polygon ('renderBand' と同型の+--   forward 下境界 + backward 上境界 + close) で描く。 wiggle 最小化 (ThemeRiver) は行わない。+--   [English]: A streamgraph (a centered stacked area, ThemeRiver-style). Splits+--   series by the color aesthetic (using the same group-key extraction as+--   'renderBarGrouped'), stacks each series' y value at every x, and starts the+--   baseline at -(Σy)/2 (silhouette centering) before filling each series as a+--   polygon (a forward lower boundary plus a backward upper boundary plus+--   close, the same shape as 'renderBand'). Wiggle minimization (as in+--   ThemeRiver) is not performed. renderStream :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderStream r layout pal ly =   let xsAll = V.toList (vecOr (lyEncX ly) r)@@ -143,13 +198,15 @@   in if n < 2 || length xUniq < 2 || null groups then []      else concat [ mkSeries gi | gi <- [0 .. length groups - 1] ] --- | Scatter: 各 (x, y) を PCircle に。+-- | [日本語]: Scatter: 各 (x, y) を PCircle に。+--   [English]: Scatter: renders each (x, y) as a 'PCircle'. renderScatter :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderScatter r layout pal ly =   -- NA 行を整列したまま落とすため vecOrFull (= 長さ保持) を使い、 点生成時に   -- NaN を skip する (色/サイズ vector との index 整列を保つ = ggplot 行単位 na.rm)。-  let xs = vecOrFull (lyEncX ly) r-      ys = vecOrFull (lyEncY ly) r+  -- ★ Phase 64 A13: ternary は 'ternaryRemap' で (x,y) を encZ 正規化した fraction へ+  --   写す (退化行→NaN で下の NaN skip に乗る)。 非 ternary は素通し = byte 不変。+  let (xs, ys) = ternaryRemap r layout ly (vecOrFull (lyEncX ly) r) (vecOrFull (lyEncY ly) r)       n  = min (V.length xs) (V.length ys)       cs = colorVector r layout pal ly n       a  = doubleOr (lyAlpha ly) 0.85@@ -176,22 +233,21 @@       resY = resolutionOf (filter finite (V.toList ys))       capHalfX = 0.5 * capWFactor * resX  -- errorY の横 cap 半幅 (x データ単位)       capHalfY = 0.5 * capWFactor * resY  -- errorX の縦 cap 半幅 (y データ単位)+      -- ★ Phase 64 A5: 誤差棒/cap は data 空間の線分として 'projectSegment' に通す。+      --   直線座標系は両端 2 点 = 旧 projectXY 直結と bit 一致、 polar では x 方向に+      --   跨る線分 (errorY の cap・errorX の本体) が弦ではなく弧としてサンプルされる。+      errSeg (dx0, dy0) (dx1, dy1) =+        let pts = projectSegment coord layout (dx0, dy0) (dx1, dy1)+        in [ PLine p q (solid (tpAxis pal) 1.0) | (p, q) <- zip pts (drop 1 pts) ]       mkErrX i =         let x  = xs V.! i; y = ys V.! i             ex = errXVec V.!? i         in case ex of              Just dx ->                -- errorX (x 方向誤差) の cap は y 方向 (高さ) にデータ単位で伸びる。-               let pL  = uncurry Point (projectXY coord layout (x - dx) y)-                   pR  = uncurry Point (projectXY coord layout (x + dx) y)-                   cLlo = uncurry Point (projectXY coord layout (x - dx) (y - capHalfY))-                   cLhi = uncurry Point (projectXY coord layout (x - dx) (y + capHalfY))-                   cRlo = uncurry Point (projectXY coord layout (x + dx) (y - capHalfY))-                   cRhi = uncurry Point (projectXY coord layout (x + dx) (y + capHalfY))-               in [ PLine pL pR  (solid (tpAxis pal) 1.0)-                  , PLine cLlo cLhi (solid (tpAxis pal) 1.0)-                  , PLine cRlo cRhi (solid (tpAxis pal) 1.0)-                  ]+                  errSeg (x - dx, y) (x + dx, y)+               <> errSeg (x - dx, y - capHalfY) (x - dx, y + capHalfY)+               <> errSeg (x + dx, y - capHalfY) (x + dx, y + capHalfY)              Nothing -> []       mkErrY i =         let x  = xs V.! i; y = ys V.! i@@ -199,16 +255,9 @@         in case ey of              Just dy ->                -- errorY (y 方向誤差) の cap は x 方向 (幅) にデータ単位で伸びる。-               let pLo = uncurry Point (projectXY coord layout x (y - dy))-                   pHi = uncurry Point (projectXY coord layout x (y + dy))-                   cLoL = uncurry Point (projectXY coord layout (x - capHalfX) (y - dy))-                   cLoR = uncurry Point (projectXY coord layout (x + capHalfX) (y - dy))-                   cHiL = uncurry Point (projectXY coord layout (x - capHalfX) (y + dy))-                   cHiR = uncurry Point (projectXY coord layout (x + capHalfX) (y + dy))-               in [ PLine pLo pHi (solid (tpAxis pal) 1.0)-                  , PLine cLoL cLoR (solid (tpAxis pal) 1.0)-                  , PLine cHiL cHiR (solid (tpAxis pal) 1.0)-                  ]+                  errSeg (x, y - dy) (x, y + dy)+               <> errSeg (x - capHalfX, y - dy) (x + capHalfX, y - dy)+               <> errSeg (x - capHalfX, y + dy) (x + capHalfX, y + dy)              Nothing -> []       errorPrims = concatMap (\i -> mkErrX i <> mkErrY i) [0 .. n - 1]       -- connect 線 (= Phase 26 §C-2 #5)@@ -255,11 +304,17 @@ -- Phase 26 A2: vector field (quiver) -- =========================================================================== --- | 各 (x,y) に成分 (u,v) の矢印を描く (= matplotlib @quiver@)。 矢印長は--- autoscale (= 最長矢印がデータ対角の 8%) に 'lyArrowScale' 倍を掛けた長さ。--- 'lyArrowMagnitude' で magnitude (√(u²+v²)) の連続色マップ (viridis)。 矢印は--- 始点 (x,y) を根元に置く (pivot=tail・matplotlib 既定)。 magnitude 0 の矢印は--- 退化して描かれない。+-- | [日本語]: 各 (x,y) に成分 (u,v) の矢印を描く (= matplotlib @quiver@)。 矢印長は+--   autoscale (= 最長矢印がデータ対角の 8%) に 'lyArrowScale' 倍を掛けた長さ。+--   'lyArrowMagnitude' で magnitude (√(u²+v²)) の連続色マップ (viridis)。 矢印は+--   始点 (x,y) を根元に置く (pivot=tail・matplotlib 既定)。 magnitude 0 の矢印は+--   退化して描かれない。+--   [English]: Draws an arrow with components (u,v) at each (x,y) (matplotlib's+--   @quiver@). Arrow length is the autoscaled length (the longest arrow spans 8%+--   of the data diagonal) multiplied by 'lyArrowScale'. 'lyArrowMagnitude' maps+--   magnitude (√(u²+v²)) to a continuous color scale (viridis). Arrows are+--   anchored at the start point (x,y) (pivot=tail, matplotlib's default). Arrows+--   with magnitude 0 degenerate and are not drawn. renderQuiver :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderQuiver r layout pal ly =   let xs = vecOr (lyEncX ly) r@@ -298,8 +353,11 @@   --   plotArea でクリップする (端の矢印は途切れる)。 = ドメイン拡張より自然。   in PClipPush (lpPlotArea layout) : concatMap arrow idxs ++ [PClipPop] --- | Phase 26 A2: 始点 from → 終点 to の矢印 (本線 + 2 本の矢じり)。 矢じり形状は--- 'AnnArrow' (Render/Layer.hs) と同じ (長さ 2.5mm・開き比 0.5)。+-- | [日本語]: 始点 from → 終点 to の矢印 (本線 + 2 本の矢じり)。 矢じり形状は+--   'AnnArrow' (Render/Layer.hs) と同じ (長さ 2.5mm・開き比 0.5)。+--   [English]: An arrow from the start point to the end point (a shaft plus two+--   barbs). The barb shape matches 'AnnArrow' (Render/Layer.hs): length 2.5mm,+--   opening ratio 0.5. drawArrow2D :: Point -> Point -> LineStyle -> [Primitive] drawArrow2D (Point px1 py1) (Point px2 py2) ls =   let dx = px2 - px1; dy = py2 - py1@@ -317,8 +375,11 @@ renderLine r layout pal ly =   -- NA 行を整列したまま落とすため vecOrFull (長さ保持) で取り、 seg で NaN 点を   -- 除いてから線分化する (= ggplot が NA で線を切らず詰める na.rm 既定相当)。-  let xs = V.toList $ vecOrFull (lyEncX ly) r-      ys = V.toList $ vecOrFull (lyEncY ly) r+  -- ★ Phase 64 A13: ternary は 'ternaryRemap' で (x,y) を encZ 正規化 fraction へ写す+  --   (退化行→NaN で seg が詰める)。 群/linetype 分割も変換後の xs/ys で従来どおり動く。+  let (xsV, ysV) = ternaryRemap r layout ly (vecOrFull (lyEncX ly) r) (vecOrFull (lyEncY ly) r)+      xs = V.toList xsV+      ys = V.toList ysV       w  = doubleOr (lyStroke ly) defaultLineWidth       coord = lpCoord layout       pp = projectPoint coord layout@@ -332,7 +393,7 @@   in case getLast (lyColor ly) of        -- Phase 52.A10: ColorByCol は群ごとに色付き線 (= ggplot color=group)。 単一カテゴリ        -- (statLabel 1 本) なら 1 本を該当カテゴリ色で描く。 旧実装は ColorByCol を staticColorOr-       -- が拾えず default 単色に潰れ、 異モデル重畳の色分けが効かなかった。 色は 'colorVector'+       -- が拾えず default 単色に潰れ、 異モデル重畳の色分けが効かなかった。 色は 'Graphics.Hgg.Render.Common.colorVector'        -- (scale_color_manual 辞書→palette index) を流用し各群代表点 (=同カテゴリゆえ同色) を採る。        Just (ColorByCol cr) | Just keys <- groupKeysOf r cr ->          let cs     = V.toList (colorVector r layout pal ly (length xs))@@ -356,10 +417,14 @@                           | (i, (_, gpts)) <- zip [0 ..] (orderedGroups keys (zip xs ys)) ]               Nothing   -> seg c fixedDash (zip xs ys) --- | Phase 9 B: position adjustment 対応 dispatcher。+-- | [日本語]: position adjustment 対応 dispatcher。 --   既定 (position identity) または群分け (color aesthetic) 無しは従来の単色 bar --   ('renderBarSimple')。 dodge/stack/fill かつ categorical x かつ ColorByCol 群分けあり --   のとき 'renderBarGrouped' で系列を並べる。+--   [English]: The position-adjustment dispatcher. With the default (position+--   identity) or no grouping (color aesthetic), falls back to the plain+--   single-color bar ('renderBarSimple'). With dodge/stack/fill, categorical x,+--   and a 'ColorByCol' grouping, arranges series with 'renderBarGrouped'. renderBar :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderBar r layout pal ly =   let pos = maybe PosIdentity id (getLast (lyPosition ly))@@ -375,9 +440,13 @@        (_, Just keys) | isCat -> renderBarGrouped pos keys r layout pal ly        _                      -> renderBarSimple r layout pal ly --- | position identity / 群分けなしの bar。 ★Phase 19 A2: 色は 'colorVector' に--- 委譲 (ColorByCol で per-bar 色分け = ggplot の identity + fill aesthetic 同型。--- ColorStatic / 色指定なしは colorVector が単色を返すので従来挙動不変)。+-- | [日本語]: position identity / 群分けなしの bar。 色は 'Graphics.Hgg.Render.Common.colorVector' に+--   委譲 (ColorByCol で per-bar 色分け = ggplot の identity + fill aesthetic 同型。+--   ColorStatic / 色指定なしは colorVector が単色を返すので従来挙動不変)。+--   [English]: The bar for position identity / no grouping. Color delegates to+--   'Graphics.Hgg.Render.Common.colorVector' ('ColorByCol' gives per-bar coloring, matching ggplot's+--   identity + fill aesthetic; with 'ColorStatic' or no color specified,+--   'Graphics.Hgg.Render.Common.colorVector' returns a single color, so the previous behavior is unchanged). renderBarSimple :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderBarSimple r layout pal ly =   -- categorical x: 各 row の label を xCats (= x 軸のカテゴリ列) の index へ。@@ -419,28 +488,25 @@                 else rW area / fromIntegral nBars * 0.6       -- Phase 10 A3: bar は projectBarRect で flip 追従 (厚み bw は px のまま、 base=0..value)。       -- Cartesian は Rect (sx x - bw/2)(min (sy y)(sy 0)) bw (abs (sy y - sy 0)) と bit 一致。-      -- Phase 11 A7-c: 極座標は扇形 (wedge) で描く。 PolarX = rose (角度帯×半径=値)、-      --   PolarY = 中心からの扇形 (角度=値×半径帯)。 厚みは frac 単位の角度/半径幅。-      spanX = lsDomainHi (lpXScale layout) - lsDomainLo (lpXScale layout)-      hwFrac = if spanX == 0 then 0.5 else 0.45 / spanX-      dfx = domFrac (lpXScale layout)-      dfy = domFrac (lpYScale layout)-      mkWedge x y = case coord of-        CoordPolarY -> wedgeSegments layout (dfy 0) (dfy y)-                                     (max 0 (dfx x - hwFrac)) (dfx x + hwFrac)-        _           -> wedgeSegments layout (dfx x - hwFrac) (dfx x + hwFrac)-                                     (dfy 0) (dfy y)-  in if isPolar coord-       then [ PPath (mkWedge x y) (FillStyle c a) border-            | (x, y, c) <- zip3 (V.toList xs) (V.toList ys) (V.toList cs) ]-       else [ PRect (projectBarRect coord layout x 0 y bw)-                    (FillStyle c a) border-            | (x, y, c) <- zip3 (V.toList xs) (V.toList ys) (V.toList cs) ]+      -- Phase 11 A7-c: 極座標は扇形 (wedge)。 PolarX = rose (角度帯×半径=値)、+      --   PolarY = 中心からの扇形 (角度=値×半径帯)。+      -- ★ Phase 64 A2: coord 分岐は投影層 projectBar へ集約 (旧 mkWedge と式レベル同一。+      --   halfWidthD 0.45 = resolution 0.9 の半分)。 geom は BarShape で case する。+  in [ case projectBar coord layout x 0 y 0.45 bw of+         BarRect rect  -> PRect rect (FillStyle c a) border+         BarWedge segs -> PPath segs (FillStyle c a) border+     | (x, y, c) <- zip3 (V.toList xs) (V.toList ys) (V.toList cs) ] --- | Phase 9 B: 群分け bar の position adjustment (dodge / stack / fill)。+-- | [日本語]: 群分け bar の position adjustment (dodge / stack / fill)。 --   long-form データ (= 各 row が (x-cat, group, value)) を前提に、 x カテゴリ slot 内で --   系列 (= color/group aesthetic) を横並び (dodge) / 縦積み (stack) / 100% 正規化 (fill) する。---   色は群 index → categorical palette (= 'colorVector' の ColorByCol と同一割当)。+--   色は群 index → categorical palette (= 'Graphics.Hgg.Render.Common.colorVector' の ColorByCol と同一割当)。+--   [English]: Position adjustment for grouped bars (dodge / stack / fill).+--   Assumes long-form data (each row is (x-cat, group, value)); within each+--   x-category slot, arranges series (the color/group aesthetic) side by side+--   (dodge), stacked vertically (stack), or normalized to 100% (fill). Color+--   maps group index to the categorical palette (the same assignment+--   'Graphics.Hgg.Render.Common.colorVector' uses for ColorByCol). renderBarGrouped :: Position -> [Text] -> Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderBarGrouped pos keys r layout pal ly =   let xCats = lpXCategoryLabels layout@@ -543,8 +609,10 @@        , cnt > 0  -- 高さ 0 bin はスキップ (= 軸線 artifact 防止)        ] --- | Step plot (Phase 6+ C-3): lyEncX = x、 lyEncY = y、 階段折れ線。--- 各 segment は (x_i, y_i) → (x_{i+1}, y_i) → (x_{i+1}, y_{i+1})。+-- | [日本語]: Step plot: lyEncX = x、 lyEncY = y、 階段折れ線。+--   各 segment は (x_i, y_i) → (x_{i+1}, y_i) → (x_{i+1}, y_{i+1})。+--   [English]: A step plot: lyEncX is x, lyEncY is y, drawn as a staircase+--   line. Each segment goes (x_i, y_i) to (x_{i+1}, y_i) to (x_{i+1}, y_{i+1}). renderStep :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderStep r layout pal ly =   let xs = V.toList (vecOr (lyEncX ly) r)@@ -564,7 +632,9 @@         ] ++ mkSegs ((x2, y2) : rest)   in mkSegs pts --- | Stem / lollipop plot (Phase 6+ C-3): 縦棒 + 上端 circle marker。+-- | [日本語]: Stem / lollipop plot: 縦棒 + 上端 circle marker。+--   [English]: A stem / lollipop plot: a vertical bar with a circle marker at+--   the top. renderStem :: Resolver -> Layout -> ThemePalette -> Layer -> [Primitive] renderStem r layout pal ly =   let xs = V.toList (vecOr (lyEncX ly) r)