lini 0.15.0

//! Inline data labels ([CHARTS.md] §14): a series' `tags:` drawn on the plot beside their
//! points, positioned by one greedy, deterministic pass. Each label takes the first
//! candidate offset that clears the labels already placed, stays inside the plot, and
//! sits off the series lines; an `auto` label with nowhere to sit is dropped (its hover
//! card still carries the tag), an `always` label is forced. Fast and order-stable —
//! O(labels² + labels·segments) over the *sparse* data points, never the iterative
//! relaxation links route with. This is the one home for "text beside a chart point";
//! series tags feed it here, with bubbles / marks routed in next to them, so every point
//! label is placed by the same rule.

use super::marks;
use super::model::{Chart, SeriesKind};
use super::project::Plot;
use crate::layout::PlacedNode;
use crate::layout::prim;
use crate::resolve::{MarkerKind, ResolvedValue};

/// A drawn line segment (pixel space) a label should not sit on.
type Seg = ((f64, f64), (f64, f64));

/// Inline-label font size — small, in the register of a link label ([CHARTS.md] §14).
const SIZE: f64 = 10.0;
/// Clearance from a point to its label box (clearing the marker), and the margin folded
/// into a box for label-vs-label / label-vs-edge spacing.
const GAP: f64 = 7.0;
const PAD: f64 = 2.0;

/// One label to place ([CHARTS.md] §14): the point it annotates (pixels), the `radius` of
/// the mark there (so an outside label clears its *edge*, not its centre — a fat bubble
/// pushes its label far, a small dot barely), its text and the tint it takes when placed
/// *beside* the point, whether it is `forced` (`always` — placed regardless) or may drop
/// to its hover card (`auto`), and an optional `inside` seat (a bubble label sits centred
/// in the bubble when it fits).
pub(super) struct Req {
    pub anchor: (f64, f64),
    pub radius: f64,
    pub text: String,
    pub color: ResolvedValue,
    pub forced: bool,
    pub inside: Option<Inside>,
}

/// A bubble's first choice ([CHARTS.md] §14): when the text fits within `fit` (the
/// bubble's diameter) the label sits centred *inside*, tinted `color` (the on-fill role);
/// otherwise it falls through to the outside seats with the request's own tint.
pub(super) struct Inside {
    pub fit: f64,
    pub color: ResolvedValue,
}

/// Append the inline-label requests a chart's series raise ([CHARTS.md] §14): each
/// `tags:` entry on a series whose `tooltip:` shows inline, anchored on the datum's pixel
/// point. Reuses `marks::samples`, so a tag sits on exactly the point its marker does.
/// (`|bubble|` / `|mark|` push their own reqs as they lay out — the same `reqs` list, so
/// every point label dedups against every other.)
pub(super) fn collect_series(plot: &Plot, chart: &Chart, reqs: &mut Vec<Req>) {
    for ser in &chart.series {
        if ser.tags.is_empty() || !ser.tooltip.inline() {
            continue;
        }
        // The marker the tag must clear: a `|dots|`'s `width`, a line/area's vertex marker
        // (when it has one), else a bare point.
        let radius = match ser.kind {
            SeriesKind::Dots => ser.dot.0 / 2.0,
            _ if ser.marker != MarkerKind::None => {
                marks::marker_diameter(ser.marker, ser.thickness) / 2.0
            }
            _ => 0.0,
        };
        for (((xd, yd), (xp, yp)), tag) in marks::samples(plot, chart, ser).iter().zip(&ser.tags) {
            if tag.is_empty() || !marks::in_domain(chart, ser, *xd, *yd) {
                continue;
            }
            reqs.push(Req {
                anchor: (*xp, *yp),
                radius,
                text: tag.clone(),
                color: ser.tag_color.clone(),
                forced: ser.tooltip.forced(),
                inside: None,
            });
        }
    }
}

/// The line/area series' drawn polylines (pixel space) a label should avoid sitting on
/// ([CHARTS.md] §14). Bars / bubbles / dots fill or dot a region a tag reads fine beside,
/// so only `|line|` / `|area|` contribute. Reuses `marks::samples`, so the segments track
/// the points the line is drawn through.
pub(super) fn series_lines(plot: &Plot, chart: &Chart) -> Vec<Seg> {
    let mut segs = Vec::new();
    for ser in &chart.series {
        if !matches!(ser.kind, SeriesKind::Line | SeriesKind::Area) {
            continue;
        }
        let pts: Vec<(f64, f64)> = marks::samples(plot, chart, ser)
            .iter()
            .map(|(_, p)| *p)
            .collect();
        for win in pts.windows(2) {
            segs.push((win[0], win[1]));
        }
    }
    segs
}

/// Place the requests and emit their text nodes ([CHARTS.md] §14). Greedy: each label
/// takes the first candidate offset that clears every label already placed and stays in
/// the plot; failing that, an `always` label keeps the first in-plot offset (else its
/// preferred one) while an `auto` label is dropped to its hover card. Deterministic —
/// source order in, the same candidate order each time.
pub(super) fn place(reqs: &[Req], plot: &Plot, lines: &[Seg]) -> Vec<PlacedNode> {
    let mut placed: Vec<Rect> = Vec::new();
    let mut out = Vec::new();
    for req in reqs {
        let w = prim::text_width(&req.text, SIZE);
        let h = prim::text_height(&req.text, SIZE);
        // Seats to try, in order, each with the tint it would wear: a bubble's inside seat
        // first (when the text fits), then the offsets beside the point.
        let mut seats: Vec<((f64, f64), &ResolvedValue)> = Vec::new();
        if let Some(ins) = &req.inside
            && w <= ins.fit
        {
            seats.push((req.anchor, &ins.color));
        }
        seats.extend(candidates(req.anchor, w, h, req.radius).map(|c| (c, &req.color)));

        // Pick a seat (the borrow of `placed` is confined to this block, freed before the
        // push below). Greedy: the first seat that is in-plot, clear of the placed labels,
        // and off the series lines; a forced label falls back to the first in-plot seat
        // even if it collides, then to its anchor.
        let pick: Option<((f64, f64), ResolvedValue)> = {
            let clear = |c: (f64, f64)| {
                let r = Rect::around(c, w, h);
                r.within(plot)
                    && placed.iter().all(|p| !p.hits(&r))
                    && lines.iter().all(|&(a, b)| !seg_hits_rect(a, b, &r))
            };
            let chosen = seats.iter().find(|(c, _)| clear(*c)).or_else(|| {
                req.forced
                    .then(|| {
                        seats
                            .iter()
                            .find(|(c, _)| Rect::around(*c, w, h).within(plot))
                    })
                    .flatten()
            });
            match chosen {
                Some(&(c, col)) => Some((c, col.clone())),
                None if req.forced => Some((req.anchor, req.color.clone())),
                None => None, // auto: the label lives on in the hover card
            }
        };
        let Some((center, color)) = pick else {
            continue;
        };
        placed.push(Rect::around(center, w, h));
        let mut t = prim::text(&req.text, center.0, center.1, SIZE, Some(color), false);
        t.type_chain.push("chart-label".to_string());
        out.push(t);
    }
    out
}

/// Candidate label-box centres around a point, in priority order: above first (the
/// conventional data-label seat), then below, the sides, then the diagonals — enough
/// freedom for the greedy pass to fan a cluster out without a solver. Each seat clears the
/// mark's `radius` plus [`GAP`], so the label sits a constant gap off the mark's *edge*
/// (a fat bubble pushes it far, a small dot barely).
fn candidates((ax, ay): (f64, f64), w: f64, h: f64, radius: f64) -> [(f64, f64); 8] {
    let dx = w / 2.0 + GAP + radius;
    let dy = h / 2.0 + GAP + radius;
    [
        (ax, ay - dy),      // above
        (ax, ay + dy),      // below
        (ax + dx, ay),      // right
        (ax - dx, ay),      // left
        (ax + dx, ay - dy), // up-right
        (ax - dx, ay - dy), // up-left
        (ax + dx, ay + dy), // down-right
        (ax - dx, ay + dy), // down-left
    ]
}

/// An axis-aligned label box, inflated by [`PAD`] so placed labels keep a hair of air
/// from each other and the plot edge.
struct Rect {
    x0: f64,
    y0: f64,
    x1: f64,
    y1: f64,
}

impl Rect {
    fn around((cx, cy): (f64, f64), w: f64, h: f64) -> Rect {
        let (hw, hh) = (w / 2.0 + PAD, h / 2.0 + PAD);
        Rect {
            x0: cx - hw,
            y0: cy - hh,
            x1: cx + hw,
            y1: cy + hh,
        }
    }

    /// Whether the box sits fully inside the plot rect (no spill over the axes / edge).
    fn within(&self, plot: &Plot) -> bool {
        self.x0 >= plot.x0 && self.x1 <= plot.x1 && self.y0 >= plot.y0 && self.y1 <= plot.y1
    }

    /// Whether two label boxes overlap.
    fn hits(&self, o: &Rect) -> bool {
        self.x0 < o.x1 && o.x0 < self.x1 && self.y0 < o.y1 && o.y0 < self.y1
    }
}

/// Whether segment `p0`–`p1` crosses (or lies inside) the rect — Liang–Barsky: the segment
/// intersects iff the clipped parameter window `[t0, t1]` stays non-empty across all four
/// edges. Lets a label reject any seat that would sit over a series line.
fn seg_hits_rect(p0: (f64, f64), p1: (f64, f64), r: &Rect) -> bool {
    let (dx, dy) = (p1.0 - p0.0, p1.1 - p0.1);
    let edges = [
        (-dx, p0.0 - r.x0),
        (dx, r.x1 - p0.0),
        (-dy, p0.1 - r.y0),
        (dy, r.y1 - p0.1),
    ];
    let (mut t0, mut t1) = (0.0_f64, 1.0_f64);
    for (p, q) in edges {
        if p.abs() < 1e-9 {
            if q < 0.0 {
                return false; // parallel to this edge and wholly outside it
            }
        } else {
            let t = q / p;
            if p < 0.0 {
                t0 = t0.max(t);
            } else {
                t1 = t1.min(t);
            }
            if t0 > t1 {
                return false;
            }
        }
    }
    true
}

#[cfg(test)]
mod tests {
    use super::*;

    fn rect() -> Rect {
        Rect {
            x0: 0.0,
            y0: 0.0,
            x1: 10.0,
            y1: 10.0,
        }
    }

    #[test]
    fn seg_hits_rect_crossing_and_inside() {
        assert!(
            seg_hits_rect((-5.0, 5.0), (15.0, 5.0), &rect()),
            "a line crossing right through is a hit"
        );
        assert!(
            seg_hits_rect((5.0, 5.0), (5.0, 5.0), &rect()),
            "a point inside is a hit"
        );
    }

    #[test]
    fn seg_hits_rect_clear() {
        assert!(
            !seg_hits_rect((-5.0, -5.0), (-1.0, -1.0), &rect()),
            "a segment wholly outside misses"
        );
        assert!(
            !seg_hits_rect((20.0, 0.0), (20.0, 10.0), &rect()),
            "a parallel segment past the edge misses"
        );
    }
}