//! Interactive tools (xfig's drawing and editing modes).
//!
//! A tool receives pointer and key events in Fig coordinates, keeps its
//! in-progress state (the rubber band) and commits its result by running a
//! command, so every edit is undoable and scriptable.
//
// Ported in parts from xfig src/w_modepanel.c (mode keys), the drawing and
// editing modes src/d_*.c and src/e_*.c (button behaviour, `set_mousefun`
// wording) and src/w_canvas.c (snapping) (xfig licence, see LICENSE-xfig).

mod chop;
mod ctrl;
mod cursor;
mod mode_messages;
mod textedit;
pub use cursor::CursorKind;
mod compound;
pub(crate) mod markers;
mod measure;
mod tangent;
use crate::Region;
pub use markers::{mode_mask, object_markers, ObjMask};

use crate::cmd::shape::make_ellipse;
use crate::{Engine, EngineError, UiRequest};
mod lengths;
use rustfig_geom::{dist_to_segment, Affine, Point, Rect};
use rustfig_model::{Arc, EllipseKind, Justify, Object, ObjectId, ObjectKind, PolyKind, Polyline, Spline, SplineKind};
use serde_json::json;

/// The tools, in mode-panel order.
#[derive(Debug, Clone, Copy, PartialEq, Eq, Hash)]
pub enum ToolKind {
    /// No mode chosen yet: xfig starts like this ("READY. Select a mode or
    /// load a file"); canvas clicks do nothing. Not a command or a button.
    None,
    CircleRadius,
    CircleDiameter,
    EllipseRadii,
    EllipseDiameter,
    SplineApproxClosed,
    SplineApprox,
    SplineInterpClosed,
    SplineInterp,
    XSplineClosed,
    XSpline,
    Polygon,
    Polyline,
    Box,
    ArcBox,
    RegularPolygon,
    Arc,
    Picture,
    Text,
    Glue,
    Break,
    OpenCompound,
    JoinSplit,
    Chop,
    /// Trim, split and extend (plan D16).
    Trim,
    Scale,
    Align,
    Move,
    Copy,
    MovePoint,
    AddPoint,
    DeletePoint,
    Delete,
    Update,
    Edit,
    FlipV,
    FlipH,
    RotateCcw,
    RotateCw,
    Convert,
    OpenClose,
    Arrow,
    /// Add a tangent or normal line to a curve (xfig's `F_TANGENT`).
    Tangent,
    /// Measure an angle: three points, or a corner of a line or an arc
    /// (xfig's `F_ANGLEMEAS`).
    AngleMeasure,
    /// Measure the length of lines, arcs and ellipses (`F_LENMEAS`).
    LengthMeasure,
    /// Measure the area of polygons, arcs and ellipses (`F_AREAMEAS`).
    AreaMeasure,
    /// Plot a function or data (plan E12): drag the plot's frame, then the
    /// Plot dialog draws it.
    Plot,
}

impl ToolKind {
    /// Modes that pick an object with xfig's `object_search_*` /
    /// `point_search_*`: Shift+click locates the object instead of acting.
    pub fn locates(self) -> bool {
        use ToolKind::*;
        matches!(
            self,
            Break
                | OpenCompound
                | JoinSplit
                | Chop
                | Trim
                | Scale
                | Align
                | Move
                | Copy
                | MovePoint
                | AddPoint
                | DeletePoint
                | Delete
                | Update
                | Edit
                | FlipV
                | FlipH
                | RotateCcw
                | RotateCw
                | Convert
                | Arrow
                | OpenClose
                | Tangent
                // xfig's LOC_OBJ on Shift+left in Glue (`e_glue.c`) and the
                // length/area measures (`e_measure.c`); also Angle measure
                // (decided 2026-10-22, xfig leaves it blank there).
                | Glue
                | AngleMeasure
                | LengthMeasure
                | AreaMeasure
        )
    }

    pub const ALL: [ToolKind; 46] = [
        ToolKind::CircleRadius,
        ToolKind::CircleDiameter,
        ToolKind::EllipseRadii,
        ToolKind::EllipseDiameter,
        ToolKind::SplineApproxClosed,
        ToolKind::SplineApprox,
        ToolKind::SplineInterpClosed,
        ToolKind::SplineInterp,
        ToolKind::XSplineClosed,
        ToolKind::XSpline,
        ToolKind::Polygon,
        ToolKind::Polyline,
        ToolKind::Box,
        ToolKind::ArcBox,
        ToolKind::RegularPolygon,
        ToolKind::Arc,
        ToolKind::Picture,
        ToolKind::Text,
        ToolKind::Glue,
        ToolKind::Break,
        ToolKind::OpenCompound,
        ToolKind::JoinSplit,
        ToolKind::Chop,
        ToolKind::Trim,
        ToolKind::Scale,
        ToolKind::Align,
        ToolKind::Move,
        ToolKind::Copy,
        ToolKind::MovePoint,
        ToolKind::AddPoint,
        ToolKind::DeletePoint,
        ToolKind::Delete,
        ToolKind::Update,
        ToolKind::Edit,
        ToolKind::FlipV,
        ToolKind::FlipH,
        ToolKind::RotateCcw,
        ToolKind::RotateCw,
        ToolKind::Convert,
        ToolKind::OpenClose,
        ToolKind::Arrow,
        ToolKind::Tangent,
        ToolKind::AngleMeasure,
        ToolKind::LengthMeasure,
        ToolKind::AreaMeasure,
        ToolKind::Plot,
    ];

    pub fn id(self) -> &'static str {
        match self {
            ToolKind::None => "tool.none",
            ToolKind::CircleRadius => "tool.circle_radius",
            ToolKind::CircleDiameter => "tool.circle_diameter",
            ToolKind::EllipseRadii => "tool.ellipse_radii",
            ToolKind::EllipseDiameter => "tool.ellipse_diameter",
            ToolKind::SplineApproxClosed => "tool.closed_spline",
            ToolKind::SplineApprox => "tool.spline",
            ToolKind::SplineInterpClosed => "tool.closed_interp_spline",
            ToolKind::SplineInterp => "tool.interp_spline",
            ToolKind::XSplineClosed => "tool.closed_xspline",
            ToolKind::XSpline => "tool.xspline",
            ToolKind::Polygon => "tool.polygon",
            ToolKind::Polyline => "tool.polyline",
            ToolKind::Box => "tool.box",
            ToolKind::ArcBox => "tool.arc_box",
            ToolKind::RegularPolygon => "tool.regular_polygon",
            ToolKind::Arc => "tool.arc",
            ToolKind::Picture => "tool.picture",
            ToolKind::Text => "tool.text",
            ToolKind::Glue => "tool.glue",
            ToolKind::Break => "tool.break",
            ToolKind::OpenCompound => "tool.open_compound",
            ToolKind::JoinSplit => "tool.join_split",
            ToolKind::Chop => "tool.chop",
            ToolKind::Trim => "tool.trim",
            ToolKind::Scale => "tool.scale",
            ToolKind::Align => "tool.align",
            ToolKind::Move => "tool.move",
            ToolKind::Copy => "tool.copy",
            ToolKind::MovePoint => "tool.move_point",
            ToolKind::AddPoint => "tool.add_point",
            ToolKind::DeletePoint => "tool.delete_point",
            ToolKind::Delete => "tool.delete",
            ToolKind::Update => "tool.update",
            ToolKind::Edit => "tool.edit",
            ToolKind::FlipV => "tool.flip_vertical",
            ToolKind::FlipH => "tool.flip_horizontal",
            ToolKind::RotateCcw => "tool.rotate_ccw",
            ToolKind::RotateCw => "tool.rotate_cw",
            ToolKind::Convert => "tool.convert",
            ToolKind::OpenClose => "tool.open_close",
            ToolKind::Arrow => "tool.arrow",
            ToolKind::Tangent => "tool.tangent",
            ToolKind::AngleMeasure => "tool.angle_measure",
            ToolKind::LengthMeasure => "tool.length_measure",
            ToolKind::AreaMeasure => "tool.area_measure",
            ToolKind::Plot => "tool.plot",
        }
    }

    pub fn from_id(id: &str) -> Option<ToolKind> {
        ToolKind::ALL.iter().copied().find(|t| t.id() == id)
    }

    pub fn label(self) -> &'static str {
        match self {
            ToolKind::None => "No mode",
            ToolKind::CircleRadius => "Circle (radius)",
            ToolKind::CircleDiameter => "Circle (diameter)",
            ToolKind::EllipseRadii => "Ellipse (radii)",
            ToolKind::EllipseDiameter => "Ellipse (diameter)",
            ToolKind::SplineApproxClosed => "Closed approximated spline",
            ToolKind::SplineApprox => "Approximated spline",
            ToolKind::SplineInterpClosed => "Closed interpolated spline",
            ToolKind::SplineInterp => "Interpolated spline",
            ToolKind::XSplineClosed => "Closed X-spline",
            ToolKind::XSpline => "X-spline",
            ToolKind::Polygon => "Polygon",
            ToolKind::Polyline => "Polyline",
            ToolKind::Box => "Box",
            ToolKind::ArcBox => "Arc-box (rounded)",
            ToolKind::RegularPolygon => "Regular polygon",
            ToolKind::Arc => "Arc",
            ToolKind::Picture => "Picture",
            ToolKind::Text => "Text",
            ToolKind::Glue => "Glue into compound",
            ToolKind::Break => "Break compound",
            ToolKind::OpenCompound => "Open compound",
            ToolKind::JoinSplit => "Join/split lines and splines",
            ToolKind::Chop => "Chop",
            ToolKind::Trim => "Trim, split and extend",
            ToolKind::Scale => "Scale",
            ToolKind::Align => "Align",
            ToolKind::Move => "Move",
            ToolKind::Copy => "Copy",
            ToolKind::MovePoint => "Move point",
            ToolKind::AddPoint => "Add point",
            ToolKind::DeletePoint => "Delete point",
            ToolKind::Delete => "Delete",
            ToolKind::Update => "Update attributes",
            ToolKind::Edit => "Edit attributes",
            ToolKind::FlipV => "Flip up/down",
            ToolKind::FlipH => "Flip left/right",
            ToolKind::RotateCcw => "Rotate counter-clockwise",
            ToolKind::RotateCw => "Rotate clockwise",
            ToolKind::Convert => "Convert line ↔ spline",
            ToolKind::OpenClose => "Open/close",
            ToolKind::Arrow => "Add/remove arrows",
            ToolKind::Tangent => "Add tangent/normal to curve",
            ToolKind::AngleMeasure => "Measure angle",
            ToolKind::LengthMeasure => "Measure length",
            ToolKind::AreaMeasure => "Measure area",
            ToolKind::Plot => "Plot",
        }
    }

    /// Whether the right button sets a centre (Rotate) or anchor (Flip).
    pub fn uses_set_point(self) -> bool {
        matches!(
            self,
            ToolKind::FlipV | ToolKind::FlipH | ToolKind::RotateCcw | ToolKind::RotateCw
        )
    }

    /// Single-key accelerators: xfig's mode keys (the tooltips in xfig's
    /// `w_modepanel.c`). xfig's Ctrl-key modes (Scale, Copy, Add point,
    /// Edit, Rotate clockwise, Picture) are in the UI's xfig keymap, since
    /// Ctrl+S, Ctrl+C, … are the platform's on Windows and Linux.
    pub fn shortcut(self) -> &'static str {
        match self {
            ToolKind::CircleRadius => "C",
            ToolKind::EllipseRadii => "E",
            ToolKind::CircleDiameter => "Shift+C",
            ToolKind::EllipseDiameter => "Shift+E",
            ToolKind::SplineApprox => "S",
            ToolKind::SplineApproxClosed => "Shift+S",
            ToolKind::SplineInterp => "I",
            ToolKind::SplineInterpClosed => "Shift+I",
            ToolKind::Polygon => "P",
            ToolKind::Polyline => "L",
            ToolKind::Box => "B",
            ToolKind::ArcBox => "Shift+B",
            ToolKind::RegularPolygon => "Shift+P",
            ToolKind::Arc => "R",
            ToolKind::Text => "T",
            ToolKind::Glue => "G",
            ToolKind::Break => "Shift+G",
            ToolKind::OpenCompound => "O",
            ToolKind::JoinSplit => "J",
            ToolKind::Chop => "x",
            ToolKind::Trim => "w",
            ToolKind::Align => "A",
            ToolKind::Move => "M",
            ToolKind::MovePoint => "Shift+M",
            ToolKind::DeletePoint => "Shift+D",
            ToolKind::Delete => "D",
            ToolKind::Update => "U",
            ToolKind::FlipV => "F",
            ToolKind::FlipH => "Shift+F",
            ToolKind::RotateCcw => "Shift+R",
            ToolKind::Convert => "V",
            ToolKind::Arrow => "Shift+A",
            ToolKind::Tangent => "n",
            ToolKind::Plot => "y",
            _ => "",
        }
    }

    pub fn is_drawing(self) -> bool {
        matches!(
            self,
            ToolKind::CircleRadius
                | ToolKind::CircleDiameter
                | ToolKind::EllipseRadii
                | ToolKind::EllipseDiameter
                | ToolKind::SplineApproxClosed
                | ToolKind::SplineApprox
                | ToolKind::SplineInterpClosed
                | ToolKind::SplineInterp
                | ToolKind::XSplineClosed
                | ToolKind::XSpline
                | ToolKind::Polygon
                | ToolKind::Polyline
                | ToolKind::Box
                | ToolKind::ArcBox
                | ToolKind::RegularPolygon
                | ToolKind::Arc
                | ToolKind::Picture
                | ToolKind::Plot
                | ToolKind::Text
        )
    }

    /// Tools that collect a list of points.
    fn spline_kind(self) -> Option<(SplineKind, bool)> {
        match self {
            ToolKind::SplineApproxClosed => Some((SplineKind::Approximated, true)),
            ToolKind::SplineApprox => Some((SplineKind::Approximated, false)),
            ToolKind::SplineInterpClosed => Some((SplineKind::Interpolated, true)),
            ToolKind::SplineInterp => Some((SplineKind::Interpolated, false)),
            ToolKind::XSplineClosed => Some((SplineKind::X, true)),
            ToolKind::XSpline => Some((SplineKind::X, false)),
            _ => None,
        }
    }

    fn collects_points(self) -> bool {
        matches!(self, ToolKind::Polyline | ToolKind::Polygon | ToolKind::Arc) || self.spline_kind().is_some()
    }

    fn is_drag_shape(self) -> bool {
        matches!(
            self,
            ToolKind::CircleRadius
                | ToolKind::CircleDiameter
                | ToolKind::EllipseRadii
                | ToolKind::EllipseDiameter
                | ToolKind::Box
                | ToolKind::ArcBox
                | ToolKind::RegularPolygon
                | ToolKind::Picture
                | ToolKind::Plot
        )
    }
}

/// Keys tools react to.
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
pub enum Key {
    Enter,
    Escape,
    Backspace,
    Delete,
    Left,
    Right,
    /// Start of the text being typed (xfig's `*Text*translations`).
    Home,
    /// End of the text being typed.
    End,
    /// Select the whole text being typed (E10).
    SelectAll,
    /// Control-K: delete from the caret to the end of the text (`d_text.c`).
    KillToEnd,
    /// Control-X: delete from the start of the text to the caret.
    KillToStart,
    /// Control-W: delete the selected text.
    KillSelection,
    /// Control-^: start a superscript or end a subscript.
    Superscript,
    /// Control-_: start a subscript or end a superscript.
    Subscript,
}

/// xfig's nested super- and subscripts while text is typed (`supersub`,
/// `heights`, `work_fontsize`, `orig_x/orig_y` in `d_text.c`).
#[derive(Debug, Clone, Default)]
pub(crate) struct TextSub {
    /// Positive: superscript depth; negative: subscript depth.
    level: i32,
    /// The line height of each level left, for coming back.
    heights: [f64; MAX_SUPSUB],
    /// The font size of the piece being typed after super/subscripting.
    size: Option<f64>,
    /// Where the text line began (a new line returns there).
    line_origin: Option<Point>,
}

/// Nested super/subscripts at most (xfig's `MAX_SUPSUB`).
const MAX_SUPSUB: usize = 4;
/// A sub/superscript is this fraction of the current size (`CSUB_FRAC`).
const CSUB_FRAC: f64 = 0.75;
/// The shift of a sub/superscript, in line heights (`PSUB_FRAC`).
const PSUB_FRAC: f64 = 1.0 - CSUB_FRAC;

/// A mouse button as the tools see it. The UI maps two-button mice and
/// trackpads onto these (Alt+left is the middle button, Ctrl+left the right).
#[derive(Debug, Clone, Copy, PartialEq, Eq, Default)]
pub enum Button {
    #[default]
    Left,
    Middle,
    Right,
}

impl Button {
    pub fn from_name(s: &str) -> Option<Button> {
        match s {
            "left" => Some(Button::Left),
            "middle" => Some(Button::Middle),
            "right" => Some(Button::Right),
            _ => None,
        }
    }
}

/// A pointer or key event in Fig coordinates.
#[derive(Debug, Clone, PartialEq)]
pub enum ToolEvent {
    Press {
        pos: Point,
        button: Button,
        shift: bool,
    },
    /// Ctrl (Cmd on macOS) held with a press: xfig's zoom box, pan to origin
    /// and unzoom, and with Shift the shape factor of a spline point.
    Ctrl {
        pos: Point,
        button: Button,
        shift: bool,
    },
    Move {
        pos: Point,
    },
    Release {
        pos: Point,
        button: Button,
    },
    DoubleClick {
        pos: Point,
    },
    Key(Key),
    /// Text mode: a key with Shift (select) and the word modifier (Alt on
    /// macOS, Ctrl elsewhere): Left, Right, Home, End, Backspace, Delete,
    /// SelectAll (E10).
    Nav {
        key: Key,
        shift: bool,
        word: bool,
    },
    Text(String),
    /// Text mode: an IME composition not yet committed (E10).
    Preedit(String),
    /// Three clicks: select the line in Text mode.
    TripleClick {
        pos: Point,
    },
}

/// The text being typed, for the UI to draw with a cursor.
#[derive(Debug, Clone, PartialEq)]
pub struct OverlayText {
    pub object: Object,
    /// Cursor position in characters.
    pub cursor: usize,
    /// The selected characters, if any (E10).
    pub selection: Option<(usize, usize)>,
    /// Start and length (characters) of the IME composition in the text.
    pub preedit: (usize, usize),
}

/// What Shift+click marked (xfig's `show_objecthighlight`).
#[derive(Debug, Clone, Copy, PartialEq)]
pub(crate) enum Locate {
    Object(ObjectId),
    /// Nothing found: the cursor position is marked.
    Cursor(Point),
}

/// What the UI draws on top of the document while a tool is busy.
#[derive(Debug, Clone, Default, PartialEq)]
pub struct Overlay {
    /// Preview objects (drawn as outlines).
    pub preview: Vec<Object>,
    /// Extra guide lines (open polylines).
    pub guides: Vec<Vec<Point>>,
    /// Objects hidden while their preview is shown.
    pub hide: Vec<ObjectId>,
    /// Editable vertices to mark.
    pub handles: Vec<Point>,
    /// xfig's object markers of the active editing mode (`markers.rs`).
    pub markers: Vec<Point>,
    /// The markers of the tagged (selected) objects among them, drawn
    /// filled (xfig's `toggle_*highlight`).
    pub tagged: Vec<Point>,
    /// Chop: the axe objects collected so far.
    pub chop_axes: Vec<Highlight>,
    /// Chop: the log object under the pointer, which the middle button
    /// would cut with the axes.
    pub chop_log: Option<Highlight>,
    /// Join/Split: the end point picked first, drawn as a magenta square of
    /// 20 screen pixels (`draw_join_marker`).
    pub join_marker: Option<Point>,
    /// Show Lengths: the two sides' lengths (ruler units) with the position
    /// of their text, in red.
    pub lengths: Vec<(Point, String)>,
    /// The `crosshair` resource: the pointer position through which the UI
    /// draws full-window red lines while an operation is in progress.
    pub crosshair: Option<Point>,
    pub text: Option<OverlayText>,
}

/// An object picked out in a colour of its own: its markers drawn filled
/// and its box outlined.
#[derive(Debug, Clone, Default, PartialEq)]
pub struct Highlight {
    pub markers: Vec<Point>,
    /// The object's box as a closed polyline.
    pub outline: Vec<Point>,
}

/// What a rubber band does when it closes.
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
pub(crate) enum Band {
    /// Tag the objects inside for gluing (they join the selection).
    Tag,
    Delete,
    /// Update mode, right button (W13): update everything inside.
    UpdateRegion,
    /// Move mode, right button (W14): move everything inside.
    MoveRegion,
    /// Delete point mode, middle button (W14): delete the points inside.
    DeletePoints,
    /// Copy as Picture, middle button: copy the objects inside.
    CopyPicture,
}

#[derive(Debug, Clone, PartialEq, Default)]
pub(crate) enum ToolState {
    #[default]
    Idle,
    Points {
        pts: Vec<Point>,
        cursor: Point,
        /// Points follow the pointer (xfig: middle button).
        freehand: bool,
        /// Arc by centre (xfig: middle button first).
        center: Option<Point>,
        /// A dimension line: Shift+left first, then the second point
        /// (`dimension_line` in `d_line.c`).
        dimension: bool,
    },
    Drag {
        start: Point,
        cursor: Point,
        dragged: bool,
        /// The shape being drawn (the circle modes draw ellipses with the
        /// middle button).
        kind: ToolKind,
        button: Button,
        /// Shift was held when the drag began (centre boxes: a square).
        square: bool,
    },
    /// Circle through three points (right button, W14).
    ThreePoints { pts: Vec<Point>, cursor: Point },
    /// Align mode, right button (W14): the reference object was clicked.
    AlignTo { reference: ObjectId },
    /// Angle measuring by three points: the points placed (one or two) and
    /// the pointer (`anglemeas_second`, `anglemeas_third`).
    Angle { pts: Vec<Point>, cursor: Point },
    /// Join/Split: the first end point was picked (`join_lines`,
    /// `join_splines`); the next click picks the second.
    Join { id: ObjectId, first: bool, spline: bool },
    /// Chop: the axe (cutting) objects selected so far.
    /// The axe objects collected so far and the pointer (for the log
    /// object highlighted under it).
    Chop { axes: Vec<ObjectId>, hover: Option<Point> },
    Text {
        origin: Point,
        text: String,
        cursor: usize,
        editing: Option<ObjectId>,
        /// The other end of the selection (E10); equal to `cursor` when
        /// nothing is selected.
        anchor: usize,
        /// An IME composition in progress, shown at the caret, not yet text.
        preedit: String,
        /// The left button is down inside the text: moving extends the
        /// selection.
        drag: bool,
    },
    /// Edit > Paste: the cut buffer follows the pointer (xfig's `paste`);
    /// `nw` is the top-left corner of the buffer's objects.
    Paste { cursor: Point, nw: Point },
    /// Library mode (D6, xfig's `put_selected`): a library object follows
    /// the pointer. `orig` is the object as its file has it, `hand` that
    /// with `ops` applied (r, l, h, v, s, S), `nw` its top-left corner,
    /// `draw_box` shows a box instead of the object.
    Library {
        library: String,
        name: String,
        orig: Box<Object>,
        ops: Vec<crate::library::LibOp>,
        hand: Box<Object>,
        nw: Point,
        cursor: Point,
        draw_box: bool,
    },
    /// Ctrl+left: the zoom box (xfig's `init_zoombox_drawing`).
    ZoomBox { start: Point, cursor: Point },
    MoveObjs {
        ids: Vec<ObjectId>,
        start: Point,
        cursor: Point,
        copy: bool,
        /// Started by a press-drag (commit on release) rather than a click.
        dragging: bool,
        /// Horizontal or vertical only (middle button).
        constrain: bool,
    },
    RubberBand {
        start: Point,
        cursor: Point,
        purpose: Band,
        /// Opened by a click; the next click closes it.
        click: bool,
        /// The button that opened it (a click with it closes it).
        button: Button,
        /// The opening button is still down (W15): moving draws a lasso.
        held: bool,
        /// The freehand path since the press (W15), the start first.
        lasso: Vec<Point>,
    },
    PointDrag {
        id: ObjectId,
        index: usize,
        insert: bool,
        start: Point,
        cursor: Point,
        dragging: bool,
        constrain: bool,
    },
    Scale {
        id: ObjectId,
        /// The fixed point (opposite corner, or the centre).
        center: Point,
        start: Point,
        /// xfig's `from_x`/`from_y`: the corner (box scale) or the object
        /// point (centre scale) the factors are measured from.
        from: Point,
        cursor: Point,
        button: Button,
        /// Which sizes change: both, or one for a click on an edge's middle
        /// (xfig's `BOX_HSTRETCH` / `BOX_VSTRETCH`).
        axis: ScaleAxis,
    },
}

/// The dimensions a Scale drag changes.
#[derive(Debug, Clone, Copy, PartialEq, Eq)]
pub enum ScaleAxis {
    Both,
    /// Width only (a click on the middle of the left or right edge).
    X,
    /// Height only (the top or bottom edge).
    Y,
}

/// The scale factors of a drag to `cursor` about `center`, measured from
/// `start` (xfig's `from`). Both axes: as `adjust_box_pos` with `BOX_SCALE`
/// puts the cursor on the diagonal, the factor is the larger of the two axis
/// ratios (W22-19). A box scale (`signed`, the left button) keeps the side of
/// the cursor per axis as `fix_boxscale_*` does, so a drag across the fixed
/// corner mirrors; the centre scale (`prescale_compound`) uses the distance.
fn scale_factors(center: Point, start: Point, cursor: Point, axis: ScaleAxis, signed: bool) -> Option<(f64, f64)> {
    let ratio = |a: f64, b: f64, c: f64| {
        let d = b - a;
        (d.abs() > 1e-6).then(|| ((c - a) / d).clamp(1e-3, 1e3))
    };
    match axis {
        ScaleAxis::Both => {
            let rx = (start.x - center.x).abs() > 1e-6;
            let ry = (start.y - center.y).abs() > 1e-6;
            let fx = (cursor.x - center.x) / (start.x - center.x);
            let fy = (cursor.y - center.y) / (start.y - center.y);
            let mag = match (rx, ry) {
                (true, true) => fx.abs().max(fy.abs()),
                (true, false) => fx.abs(),
                (false, true) => fy.abs(),
                (false, false) => return None,
            };
            let mag = mag.clamp(1e-3, 1e3);
            if !signed {
                return Some((mag, mag));
            }
            let side = |f: f64, known: bool| if known && f < 0.0 { -1.0 } else { 1.0 };
            Some((mag * side(fx, rx), mag * side(fy, ry)))
        }
        ScaleAxis::X => Some((ratio(center.x, start.x, cursor.x)?, 1.0)),
        ScaleAxis::Y => Some((1.0, ratio(center.y, start.y, cursor.y)?)),
    }
}

/// What each mouse button does right now (xfig's mouse-function indicator).
#[derive(Debug, Clone, Copy, PartialEq, Eq, Default)]
pub struct MouseHints {
    pub left: &'static str,
    pub middle: &'static str,
    pub right: &'static str,
    /// What the buttons do with Shift held, where the mode has such
    /// variants (Chop's Trim, Split and Extend); empty otherwise.
    pub shift: &'static str,
}

/// Pick tolerance in screen pixels.
const PICK_PX: f64 = 6.0;

/// Cap on the points one freehand stroke collects.
const MAX_FREEHAND_POINTS: usize = 10_000;

/// Editable vertices of an object (ellipses: centre and corner).
pub fn edit_points(o: &Object) -> Vec<Point> {
    match &o.kind {
        ObjectKind::Ellipse(e) => vec![e.center, e.center + e.radii],
        ObjectKind::Text(t) => vec![t.origin],
        _ => o.points().map(<[Point]>::to_vec).unwrap_or_default(),
    }
}

/// Keep only the larger of the horizontal and vertical components.
/// How many points of a line, polygon or spline lie inside `r`.
fn region_points(o: &Object, r: &Region) -> Option<usize> {
    if !matches!(o.kind, ObjectKind::Polyline(_) | ObjectKind::Spline(_))
        || !mode_mask(ToolKind::DeletePoint, 90.0).admits(o)
    {
        return None;
    }
    o.points().map(|p| p.iter().filter(|q| r.contains(**q)).count())
}

/// The centre of a regular polygon of `sides` sides that has the side from
/// `a` to `b`, on the side where `b` follows `a` in `regular_polygon`'s order.
/// The centre of a diameter drag: xfig's integer `(fix + x) / 2` truncates.
fn xfig_center(a: Point, b: Point) -> Point {
    Point::new(((a.x + b.x) / 2.0).trunc(), ((a.y + b.y) / 2.0).trunc())
}

/// An ellipse that remembers the clicked start and end points.
fn clicked_ellipse(mut o: Object, a: Point, b: Point) -> Object {
    if let ObjectKind::Ellipse(e) = &mut o.kind {
        e.start = a;
        e.end = b;
    }
    o
}

fn side_polygon_center(a: Point, b: Point, sides: usize) -> Option<Point> {
    let n = sides.clamp(3, 1000);
    let s = a.dist(b);
    if !s.is_finite() || s < 1e-6 {
        return None;
    }
    let apothem = s / (2.0 * (std::f64::consts::PI / n as f64).tan());
    let mid = a.lerp(b, 0.5);
    let dir = (b - a) * (1.0 / s);
    let normal = Point::new(-dir.y, dir.x);
    [1.0, -1.0].into_iter().map(|k| mid + normal * (apothem * k)).find(|c| {
        crate::cmd::shape::xfig_regular_polygon(*c, a, n)
            .get(1)
            .is_some_and(|q| q.dist(b) < s * 1e-6 + 1.5)
    })
}

/// xfig's `adjust_pos`: horizontal only when the x distance is strictly
/// larger, a tie goes vertical (W22-21).
fn constrain_delta(d: Point) -> Point {
    if d.x.abs() > d.y.abs() {
        Point::new(d.x, 0.0)
    } else {
        Point::new(0.0, d.y)
    }
}

/// The three arc points for xfig's arc by centre: `pts` are the first
/// point (which sets the radius), the mid angle and the final angle.
fn arc_from_center(c: Point, pts: &[Point]) -> Option<[Point; 3]> {
    let [a, m, b] = pts else { return None };
    let r = a.dist(c);
    let on = |q: Point| {
        let d = q - c;
        let l = d.len();
        (l > 1e-9 && r > 1e-9).then(|| c + d * (r / l))
    };
    Some([*a, on(*m)?, on(*b)?])
}

impl Engine {
    /// Switch tools, abandoning any work in progress.
    pub fn set_tool(&mut self, kind: ToolKind) {
        if let Err(e) = self.finish_text() {
            self.set_status(e.message);
        }
        self.tool_state = ToolState::Idle;
        self.locate = None;
        // Choosing Rotate or Flip erases any centre / anchor (`rotate_cw_selected`).
        self.set_point = None;
        self.tool = kind;
        // xfig puts the mode button's sentence in the message panel.
        self.set_status(kind.xfig_message().unwrap_or_else(|| kind.label()));
    }

    /// Escape, one level per press (decided 2026-10-22; xfig has no Escape
    /// on the canvas): (1) cancel what is in progress (a shape being drawn,
    /// a move, paste, zoom box…; text input is finished instead), (2) clear
    /// what the mode has collected (Chop's axe list, the located object,
    /// the rotate/flip centre, the selection), (3) leave the mode. Returns
    /// what was done.
    pub fn escape(&mut self) -> Result<&'static str, EngineError> {
        if std::mem::take(&mut self.copy_pick) {
            self.set_status("Copy as picture cancelled.");
            return Ok("cancelled");
        }
        match &self.tool_state {
            ToolState::Idle => {}
            ToolState::Text { .. } => {
                self.finish_text()?;
                return Ok("text finished");
            }
            ToolState::Chop { axes, .. } if axes.is_empty() => {}
            ToolState::Chop { .. } => {
                self.tool_state = ToolState::Idle;
                self.set_status("Axe object list cleared.");
                return Ok("axes cleared");
            }
            _ => {
                self.tool_state = ToolState::Idle;
                self.set_status("Cancelled.");
                return Ok("cancelled");
            }
        }
        if self.locate.take().is_some() || self.set_point.take().is_some() {
            return Ok("cleared");
        }
        if !self.selection().is_empty() {
            self.set_selection(Vec::new());
            return Ok("selection cleared");
        }
        if self.tool != ToolKind::None {
            self.set_tool(ToolKind::None);
            return Ok("mode left");
        }
        Ok("nothing")
    }

    /// The point being drawn from (xfig's `cur_point`): the last point of a
    /// line being entered, the first corner of a drag shape, or where a move
    /// started.
    pub(crate) fn current_point(&self) -> Option<Point> {
        match &self.tool_state {
            ToolState::Points { pts, center, .. } => pts.last().copied().or(*center),
            ToolState::Angle { pts, .. } => pts.last().copied(),
            ToolState::Drag { start, .. }
            | ToolState::MoveObjs { start, .. }
            | ToolState::PointDrag { start, .. }
            | ToolState::Scale { start, .. } => Some(*start),
            _ => None,
        }
    }

    /// The object under a press: at `pos`, or for a snapped press also at
    /// the point the user actually clicked.
    fn pick(&self, pos: Point, tol: f64) -> Option<ObjectId> {
        self.hit_test(pos, tol)
            .or_else(|| self.snap_click.and_then(|c| self.hit_test(c, tol)))
    }

    /// Whether a tool has work in progress (keys go to the tool).
    pub fn tool_busy(&self) -> bool {
        !matches!(self.tool_state, ToolState::Idle)
    }

    /// Whether the text tool is collecting typed characters.
    pub fn is_typing(&self) -> bool {
        matches!(self.tool_state, ToolState::Text { .. })
    }

    fn pick_tol(&self) -> f64 {
        PICK_PX / self.view.px_per_fig().max(1e-9)
    }

    /// The pick tolerance in Fig units (for commands that take a click).
    pub(crate) fn pick_tolerance(&self) -> f64 {
        self.pick_tol()
    }

    /// Feed an event to the active tool.
    pub fn tool_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        let moving = matches!(ev, ToolEvent::Move { .. });
        if !self.is_typing() {
            // Left Text mode some other way (Escape, another mode).
            self.text_sub = TextSub::default();
        }
        let r = self.tool_event_inner(ev);
        // Snapped points belong to the operation in progress.
        if !self.tool_busy() {
            self.exact_points.clear();
        } else if moving {
            // xfig reports the lengths as the pointer moves (`length_msg`).
            self.update_length_message();
        }
        r
    }

    fn tool_event_inner(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        // Only the selecting modes change the selection (xfig tags objects
        // in Glue, and Break's "break and tag", nowhere else). The other
        // modes act on the clicked object and leave the selection as it
        // was, so nothing they touched shows up tagged later.
        let keep = !matches!(self.tool, ToolKind::Glue | ToolKind::Break);
        let before = keep.then(|| self.selection().to_vec());
        let r = crate::guard::catch(|| self.dispatch(ev));
        if let Some(before) = before {
            if self.selection() != before.as_slice() {
                self.set_selection(before);
            }
        }
        self.snap_click = None;
        match r {
            Ok(r) => {
                if r.is_err() {
                    self.tool_state = ToolState::Idle;
                }
                r
            }
            Err(msg) => {
                self.tool_state = ToolState::Idle;
                Err(EngineError::internal(msg))
            }
        }
    }

    /// xfig's `do_object_search` for the modes that pick an object: Shift
    /// locates (highlights) instead of acting, and a plain click acts on the
    /// object located.
    fn dispatch(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        // Copy as Picture's region belongs to no mode: its band gets the
        // events, whatever the mode.
        if matches!(
            self.tool_state,
            ToolState::RubberBand {
                purpose: Band::CopyPicture,
                ..
            }
        ) {
            return match ev {
                ToolEvent::Press { pos, button, .. } => self.region_click(pos, Band::CopyPicture, button),
                other => self.drag_common(other),
            };
        }
        // Copy as Picture waits for its objects, whatever the mode.
        if self.copy_pick && matches!(self.tool_state, ToolState::Idle) {
            match ev {
                ToolEvent::Press { pos, button, .. } => {
                    self.copy_pick = false;
                    return self.copy_pick_press(pos, button);
                }
                ToolEvent::Key(_) => {
                    self.copy_pick = false;
                    self.set_status("Copy as picture cancelled.");
                    return Ok(());
                }
                _ => {}
            }
        }
        if let ToolState::Paste { cursor, nw } = self.tool_state {
            return self.paste_event(ev, cursor, nw);
        }
        if matches!(self.tool_state, ToolState::Library { .. }) {
            return self.library_event(ev);
        }
        if let ToolState::ZoomBox { start, .. } = self.tool_state {
            return self.zoom_box_event(ev, start);
        }
        if let ToolEvent::Ctrl { pos, button, shift } = ev {
            return self.ctrl_press(pos, button, shift);
        }
        if let ToolEvent::Press { pos, button, shift } = ev {
            if self.locate_mode() && pos.is_finite() {
                // Shift+left locates (xfig: any button). Shift+middle and
                // Shift+right are left free for later use (decided
                // 2026-10-22), except xfig's own Shift+middle in Edit, which
                // shows an object's comments.
                if shift && !self.shift_keeps_button(button) {
                    if button == Button::Left {
                        self.locate_press(pos);
                    }
                    return Ok(());
                }
                if let Some(Locate::Object(id)) = self.locate.take() {
                    self.locate_pick = Some(id);
                    let r = self.dispatch_tool(ev);
                    self.locate_pick = None;
                    return r;
                }
                self.locate = None;
            }
        }
        let shift_press = matches!(ev, ToolEvent::Press { shift: true, .. });
        self.pick_last = shift_press;
        let r = self.dispatch_tool(ev);
        self.pick_last = false;
        r
    }

    /// Start Edit > Paste: the cut buffer is attached to the pointer, its
    /// top-left corner there (`paste` in `w_cmdpanel.c`).
    pub(crate) fn begin_paste(&mut self) -> Result<(), EngineError> {
        let Some(nw) = self.clipboard_nw() else {
            return Err(EngineError::bad_params("the cut buffer is empty"));
        };
        let v = self.view.visible();
        let cursor = if v.is_empty() {
            nw
        } else {
            Point::new(v.min.x + 600.0, v.min.y + 600.0)
        };
        self.locate = None;
        self.tool_state = ToolState::Paste { cursor, nw };
        self.set_status(
            "Paste: left places the objects at the pointer, middle at their original position, right cancels.",
        );
        Ok(())
    }

    /// The top-left corner of the cut buffer's objects.
    fn clipboard_nw(&self) -> Option<Point> {
        let mut it = self.clipboard().iter().map(|o| o.geometry_bbox());
        let first = it.next()?;
        let (x, y) = it.fold((first.min.x, first.min.y), |(x, y), b| (x.min(b.min.x), y.min(b.min.y)));
        (x.is_finite() && y.is_finite()).then(|| Point::new(x, y))
    }

    fn paste_event(&mut self, ev: ToolEvent, _cursor: Point, nw: Point) -> Result<(), EngineError> {
        match ev {
            ToolEvent::Move { pos } if pos.is_finite() => {
                let p = self.snap(pos);
                self.tool_state = ToolState::Paste { cursor: p, nw };
            }
            ToolEvent::Press { pos, button, .. } if pos.is_finite() => {
                self.tool_state = ToolState::Idle;
                let (dx, dy) = match button {
                    Button::Left => {
                        let p = self.snap(pos);
                        (p.x - nw.x, p.y - nw.y)
                    }
                    Button::Middle => (0.0, 0.0),
                    Button::Right => {
                        self.set_status("Paste cancelled.");
                        return Ok(());
                    }
                };
                self.execute("edit.paste", &json!({"dx": dx, "dy": dy}))?;
            }
            ToolEvent::Key(Key::Escape) => {
                self.tool_state = ToolState::Idle;
                self.set_status("Paste cancelled.");
            }
            _ => {}
        }
        Ok(())
    }

    /// Whether the mode picks objects with xfig's object search and no
    /// operation is under way.
    fn locate_mode(&self) -> bool {
        let idle = matches!(self.tool_state, ToolState::Idle | ToolState::Chop { .. });
        idle && self.tool.locates()
    }

    /// xfig's own Shift meanings in the locating modes, which pass the
    /// click on: Edit's Shift+middle shows comments, and Rotate's and
    /// Flip's Shift+right sets the centre / anchor like the right button.
    fn shift_keeps_button(&self, button: Button) -> bool {
        match button {
            Button::Middle => self.tool == ToolKind::Edit,
            // Area measure's Shift+right is "reset to +-0" (`e_measure.c`).
            Button::Right => matches!(
                self.tool,
                ToolKind::RotateCw | ToolKind::RotateCcw | ToolKind::FlipH | ToolKind::FlipV | ToolKind::AreaMeasure
            ),
            Button::Left => false,
        }
    }

    /// Shift+click: highlight the next overlapping object under the pointer
    /// (front-most first); after the last, or on nothing, mark the cursor.
    fn locate_press(&mut self, pos: Point) {
        let tol = self.pick_tol();
        let mask = self.marker_mask();
        let hits = self.hits_where(pos, tol, &|o| mask.admits(o));
        let at = match self.locate {
            Some(Locate::Object(cur)) => hits.iter().position(|h| *h == cur).map_or(0, |i| i + 1),
            _ => 0,
        };
        self.locate = Some(match hits.get(at) {
            Some(id) => Locate::Object(*id),
            None => Locate::Cursor(pos),
        });
    }

    fn dispatch_tool(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        if let ToolEvent::Key(Key::Escape) = ev {
            if matches!(self.tool_state, ToolState::Text { .. }) {
                return self.finish_text();
            }
            self.tool_state = ToolState::Idle;
            return Ok(());
        }
        // The Snap menu: a press (not with the right button) moves to the
        // snapped point, or is ignored when nothing was found (xfig's
        // `snap_process` in `w_canvas.c`).
        let ev = match ev {
            ToolEvent::Press { pos, button, shift }
                if button != Button::Right && self.object_snap().is_some() && pos.is_finite() =>
            {
                let tol = self.pick_tol() * 1.5;
                let current = self.current_point();
                match self.apply_object_snap(pos, tol, current) {
                    Some(p) => {
                        self.snap_click = Some(pos);
                        ToolEvent::Press { pos: p, button, shift }
                    }
                    None => return Ok(()),
                }
            }
            ToolEvent::Release { pos, button } => ToolEvent::Release {
                pos: self.release_at.take().unwrap_or(pos),
                button,
            },
            other => other,
        };
        let tool = self.tool;
        if tool == ToolKind::None {
            return Ok(());
        }
        if tool == ToolKind::Text {
            return self.text_event(ev);
        }
        if tool.collects_points() {
            return self.points_event(ev);
        }
        if tool.is_drag_shape() {
            return self.drag_event(ev);
        }
        match tool {
            ToolKind::Glue => self.glue_event(ev),
            ToolKind::Move | ToolKind::Copy => self.move_event(ev, tool == ToolKind::Copy),
            ToolKind::MovePoint | ToolKind::AddPoint => self.point_event(ev),
            ToolKind::Scale => self.scale_event(ev),
            ToolKind::Delete => self.delete_event(ev),
            ToolKind::OpenCompound => self.open_compound_event(ev),
            ToolKind::JoinSplit => self.join_split_event(ev),
            ToolKind::Chop => self.chop_event(ev),
            ToolKind::Trim => self.trim_event(ev),
            ToolKind::Tangent => self.tangent_event(ev),
            ToolKind::AngleMeasure | ToolKind::LengthMeasure | ToolKind::AreaMeasure => self.measure_event(ev),
            _ => self.click_event(ev),
        }
    }

    // ---- point-collecting tools --------------------------------------

    fn points_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        let tool = self.tool;
        let tol = self.pick_tol();
        match ev {
            ToolEvent::Press { pos, button, shift } => {
                let p = self.snap(pos);
                // Angle Geom: the point is the constrained one (xfig clicks
                // at the rubber band's end, `cur_x`/`cur_y`).
                let p = if button == Button::Right {
                    p
                } else {
                    self.angle_constrained(p)
                };
                let busy = matches!(self.tool_state, ToolState::Points { .. });
                match button {
                    Button::Right => {
                        if busy {
                            self.tool_state = ToolState::Idle;
                            return Ok(());
                        }
                        // xfig: the right button enters a single point (a dot).
                        if tool == ToolKind::Polyline {
                            if let Some(o) = self.points_object(&[p], None) {
                                return self.commit_object(o);
                            }
                        }
                        Ok(())
                    }
                    Button::Middle => {
                        if busy {
                            if tool == ToolKind::Arc
                                || matches!(self.tool_state, ToolState::Points { dimension: true, .. })
                            {
                                return Ok(());
                            }
                            // Final point; with Shift, finish at the last
                            // point placed, without adding this one (a
                            // RustFig addition). xfig's middle button does
                            // nothing for a polygon or closed spline until
                            // only one point is missing (`null_proc` until
                            // `num_point == min_num_points - 1`).
                            let freehand = matches!(self.tool_state, ToolState::Points { freehand: true, .. });
                            let have = match &self.tool_state {
                                ToolState::Points { pts, .. } => pts.len(),
                                _ => 0,
                            };
                            if !freehand && self.tool_gated() && have + 1 < self.min_points() {
                                return Ok(());
                            }
                            if !shift || freehand {
                                self.push_point(p, tol);
                            }
                            return self.finish_points();
                        }
                        self.tool_state = if tool == ToolKind::Arc {
                            ToolState::Points {
                                pts: Vec::new(),
                                cursor: p,
                                freehand: false,
                                center: Some(p),
                                dimension: false,
                            }
                        } else {
                            ToolState::Points {
                                pts: vec![p],
                                cursor: p,
                                freehand: true,
                                center: None,
                                dimension: false,
                            }
                        };
                        Ok(())
                    }
                    Button::Left => {
                        if let ToolState::Points { pts, freehand, .. } = &mut self.tool_state {
                            if *freehand {
                                return Ok(());
                            }
                            // xfig: Shift+left removes the last point, but
                            // never the first one; with one point only it
                            // adds a point as usual (`get_intermediatepoint`
                            // counts the new point before it deletes two).
                            if shift && pts.len() >= 2 && pts.last().is_none_or(|l| l.dist(p) > 1e-6) {
                                pts.pop();
                                return Ok(());
                            }
                        }
                        if !busy && tool == ToolKind::Polyline && shift {
                            // xfig: Shift+left starts a dimension line.
                            self.tool_state = ToolState::Points {
                                pts: vec![p],
                                cursor: p,
                                freehand: false,
                                center: None,
                                dimension: true,
                            };
                            return Ok(());
                        }
                        if let ToolState::Points {
                            pts, dimension: true, ..
                        } = &self.tool_state
                        {
                            // The second point ends it; two different points.
                            let Some(a) = pts.first().copied() else { return Ok(()) };
                            if a.dist(p) < 1e-6 {
                                return Ok(());
                            }
                            self.tool_state = ToolState::Idle;
                            self.execute(
                                "shape.dimension_line",
                                &json!({"x1": a.x, "y1": a.y, "x2": p.x, "y2": p.y}),
                            )?;
                            return Ok(());
                        }
                        self.push_point(p, tol);
                        if tool == ToolKind::Arc {
                            if let ToolState::Points { pts, .. } = &self.tool_state {
                                if pts.len() >= 3 {
                                    return self.finish_points();
                                }
                            }
                        }
                        Ok(())
                    }
                }
            }
            ToolEvent::Move { pos } => {
                let p = self.snap(pos);
                let p = self.angle_constrained(p);
                let fh_res = self.freehand_resolution();
                if let ToolState::Points {
                    pts, cursor, freehand, ..
                } = &mut self.tool_state
                {
                    *cursor = p;
                    if *freehand && pts.last().is_none_or(|l| l.dist(p) > fh_res) && pts.len() < MAX_FREEHAND_POINTS {
                        pts.push(p);
                    }
                }
                Ok(())
            }
            ToolEvent::DoubleClick { .. } | ToolEvent::Key(Key::Enter) => self.finish_points(),
            ToolEvent::Key(Key::Backspace) | ToolEvent::Key(Key::Delete) => {
                if let ToolState::Points { pts, .. } = &mut self.tool_state {
                    pts.pop();
                    if pts.is_empty() {
                        self.tool_state = ToolState::Idle;
                    }
                }
                Ok(())
            }
            _ => Ok(()),
        }
    }

    /// `p` as constrained by Angle Geom from the last point entered (xfig's
    /// `latex_line` / `constrainedangle_line` locmove procedures of
    /// `init_trace_drawing`): lines, polygons and splines, not freehand, not
    /// arcs, and not for points an object snap placed exactly.
    fn angle_constrained(&self, p: Point) -> Point {
        let mode = self.indicator.angle_geom;
        if mode == crate::AngleGeom::Unconstrained || self.tool == ToolKind::Arc || self.exact_points.contains(&p) {
            return p;
        }
        let ToolState::Points {
            pts,
            freehand: false,
            center: None,
            ..
        } = &self.tool_state
        else {
            return p;
        };
        match pts.last() {
            Some(fix) => crate::constrain_angle(mode, *fix, p, self.indicator.magnet(self.doc().settings.units)),
            None => p,
        }
    }

    /// Add a point to the one being entered, or start a new point list.
    fn push_point(&mut self, p: Point, tol: f64) {
        match &mut self.tool_state {
            ToolState::Points { pts, cursor, .. } => {
                if pts.last().is_none_or(|l| l.dist(p) > tol * 0.5) {
                    pts.push(p);
                }
                *cursor = p;
            }
            _ => {
                self.tool_state = ToolState::Points {
                    pts: vec![p],
                    cursor: p,
                    freehand: false,
                    center: None,
                    dimension: false,
                };
            }
        }
    }

    /// The object a point-collecting tool would create from `pts`.
    fn points_object(&self, pts: &[Point], center: Option<Point>) -> Option<Object> {
        let style = self.indicator.style();
        let (fa, ba) = self.indicator.arrows();
        let tool = self.tool;
        let kind = if let Some((sk, closed)) = tool.spline_kind() {
            if pts.len() < if closed { 3 } else { 2 } {
                return None;
            }
            let mut s = Spline::new(sk, closed, style, pts.to_vec());
            if !closed {
                s.forward_arrow = fa;
                s.backward_arrow = ba;
            }
            ObjectKind::Spline(s)
        } else if tool == ToolKind::Arc {
            let [a, b, c] = match center {
                Some(m) => arc_from_center(m, pts)?,
                None => {
                    let [a, b, c] = pts else { return None };
                    [*a, *b, *c]
                }
            };
            let mut arc = Arc::through(style, a, b, c, self.indicator.pie_arc)?;
            arc.forward_arrow = fa;
            arc.backward_arrow = ba;
            ObjectKind::Arc(arc)
        } else if tool == ToolKind::Polygon {
            if pts.len() < 3 {
                return None;
            }
            ObjectKind::Polyline(Polyline::new(PolyKind::Polygon, style, pts.to_vec()))
        } else {
            if pts.is_empty() {
                return None;
            }
            let mut pl = Polyline::new(PolyKind::Polyline, style, pts.to_vec());
            pl.forward_arrow = fa;
            pl.backward_arrow = ba;
            ObjectKind::Polyline(pl)
        };
        Some(Object::new(kind))
    }

    fn finish_points(&mut self) -> Result<(), EngineError> {
        let ToolState::Points {
            mut pts,
            cursor,
            freehand,
            center,
            dimension,
        } = std::mem::take(&mut self.tool_state)
        else {
            return Ok(());
        };
        // Drop accidental duplicates from double clicks.
        pts.dedup_by(|a, b| a.dist(*b) < 1e-6);
        // xfig `create_splineobject`: too few points gives a message and the
        // drawing goes on; polygons never finish before their third point.
        if self.tool != ToolKind::Arc && pts.len() < self.min_points() {
            if self.tool.spline_kind().is_some() {
                self.set_status("Not enough points for spline".to_string());
            }
            self.tool_state = ToolState::Points {
                pts,
                cursor,
                freehand,
                center,
                dimension,
            };
            return Ok(());
        }
        match self.points_object(&pts, center) {
            Some(o) => self.commit_object(o),
            None => Ok(()),
        }
    }

    /// Fewest points xfig finishes the current shape with
    /// (`min_num_points`): 3 for a polygon and a closed spline, 2 for an
    /// open spline and a dimension line, 1 for a polyline.
    fn min_points(&self) -> usize {
        if matches!(self.tool_state, ToolState::Points { dimension: true, .. }) {
            return 2;
        }
        match self.tool {
            ToolKind::Polygon => 3,
            t => match t.spline_kind() {
                Some((_, true)) => 3,
                Some((_, false)) => 2,
                None => 1,
            },
        }
    }

    /// Whether xfig's middle button is dead until `min_num_points - 1`
    /// points are placed (polygon and closed splines); open splines accept it
    /// at once and complain.
    fn tool_gated(&self) -> bool {
        self.tool == ToolKind::Polygon || matches!(self.tool.spline_kind(), Some((_, true)))
    }

    fn commit_object(&mut self, obj: Object) -> Result<(), EngineError> {
        let v = serde_json::to_value(&obj).map_err(|e| EngineError::internal(e.to_string()))?;
        self.execute("object.add", &json!({ "object": v }))?;
        Ok(())
    }

    // ---- two-point (drag) tools --------------------------------------

    fn drag_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        let tol = self.pick_tol();
        match ev {
            ToolEvent::Press { pos, button, shift } => {
                let p = self.snap(pos);
                let circle = matches!(self.tool, ToolKind::CircleRadius | ToolKind::CircleDiameter);
                let picture = self.tool == ToolKind::Picture;
                // xfig leaves the right button free in the circle and
                // picture modes: a circle through three points, a picture
                // that keeps its proportions.
                if button == Button::Right {
                    match self.tool_state.clone() {
                        ToolState::ThreePoints { mut pts, .. } if circle => {
                            pts.push(p);
                            if pts.len() < 3 {
                                self.tool_state = ToolState::ThreePoints { pts, cursor: p };
                                return Ok(());
                            }
                            self.tool_state = ToolState::Idle;
                            return self.finish_three_points(&pts);
                        }
                        ToolState::Idle if circle => {
                            self.tool_state = ToolState::ThreePoints {
                                pts: vec![p],
                                cursor: p,
                            };
                            return Ok(());
                        }
                        ToolState::Idle if picture => {
                            self.tool_state = ToolState::Drag {
                                start: p,
                                cursor: p,
                                dragged: false,
                                kind: ToolKind::Picture,
                                button,
                                square: false,
                            };
                            return Ok(());
                        }
                        ToolState::Drag {
                            start,
                            kind: ToolKind::Picture,
                            button: Button::Right,
                            ..
                        } => {
                            self.tool_state = ToolState::Idle;
                            return self.finish_drag(ToolKind::Picture, start, p, true);
                        }
                        _ => {}
                    }
                }
                if matches!(self.tool_state, ToolState::ThreePoints { .. }) {
                    // Only the right button works until the circle is done.
                    return Ok(());
                }
                if button == Button::Right {
                    self.tool_state = ToolState::Idle;
                    return Ok(());
                }
                if let ToolState::Drag {
                    start,
                    kind,
                    button: b,
                    square,
                    ..
                } = self.tool_state
                {
                    // Finished with the button that started it (decided
                    // 2026-10-23), except xfig's ellipse, which either
                    // button finishes (`d_ellipse.c`; xfig's buttons stay).
                    let ellipse = matches!(kind, ToolKind::EllipseRadii | ToolKind::EllipseDiameter);
                    let finishes = (ellipse && button != Button::Right) || b == button;
                    if !finishes {
                        return Ok(());
                    }
                    self.tool_state = ToolState::Idle;
                    let (a, c) = self.drag_span(kind, b, square, start, p);
                    return self.finish_drag(kind, a, c, false);
                }
                let Some(kind) = self.drag_kind(button) else {
                    return Ok(());
                };
                self.tool_state = ToolState::Drag {
                    start: p,
                    cursor: p,
                    dragged: false,
                    kind,
                    button,
                    square: shift && button == Button::Middle,
                };
                Ok(())
            }
            ToolEvent::Move { pos } => {
                let p = self.snap(pos);
                if let ToolState::ThreePoints { cursor, .. } = &mut self.tool_state {
                    *cursor = p;
                }
                if let ToolState::Drag {
                    start, cursor, dragged, ..
                } = &mut self.tool_state
                {
                    *cursor = p;
                    if start.dist(p) > tol {
                        *dragged = true;
                    }
                }
                Ok(())
            }
            ToolEvent::Release { pos, button } => {
                let p = self.snap(pos);
                // Plot, as xfig's Box: the first click sets a corner, the
                // second click (not a release) the opposite one.
                if matches!(
                    self.tool_state,
                    ToolState::Drag {
                        kind: ToolKind::Plot,
                        ..
                    }
                ) {
                    return Ok(());
                }
                if let ToolState::Drag {
                    start,
                    dragged: false,
                    kind: ToolKind::Plot,
                    button: b,
                    ..
                } = self.tool_state
                {
                    if b == button {
                        self.tool_state = ToolState::Idle;
                        let size = Point::new(crate::cmd::plot::DEFAULT_W, crate::cmd::plot::DEFAULT_H);
                        return self.finish_drag(ToolKind::Plot, start, start + size, false);
                    }
                }
                if let ToolState::Drag {
                    start,
                    dragged: true,
                    kind,
                    button: b,
                    square,
                    ..
                } = self.tool_state
                {
                    if b == button && start.dist(p) > tol {
                        self.tool_state = ToolState::Idle;
                        let (a, c) = self.drag_span(kind, b, square, start, p);
                        return self.finish_drag(kind, a, c, b == Button::Right);
                    }
                }
                Ok(())
            }
            _ => Ok(()),
        }
    }

    /// The shape a drag tool draws with `button`. With xfig's buttons the
    /// circle and ellipse modes draw circles with the left button and
    /// ellipses with the middle one, as xfig's ellipse modes do.
    fn drag_kind(&self, button: Button) -> Option<ToolKind> {
        let t = self.tool;
        let by_radius = matches!(t, ToolKind::CircleRadius | ToolKind::EllipseRadii);
        let by_diameter = matches!(t, ToolKind::CircleDiameter | ToolKind::EllipseDiameter);
        match button {
            Button::Left if by_radius => Some(ToolKind::CircleRadius),
            Button::Left if by_diameter => Some(ToolKind::CircleDiameter),
            Button::Left => Some(t),
            Button::Middle if by_radius => Some(ToolKind::EllipseRadii),
            Button::Middle if by_diameter => Some(ToolKind::EllipseDiameter),
            // Boxes and pictures from the centre, a regular polygon by one side.
            Button::Middle
                if matches!(
                    t,
                    ToolKind::Box | ToolKind::ArcBox | ToolKind::Picture | ToolKind::RegularPolygon
                ) =>
            {
                Some(t)
            }
            _ => None,
        }
    }

    fn drag_object(&self, kind: ToolKind, a: Point, b: Point) -> Option<Object> {
        let style = self.indicator.style();
        if a.dist(b) < 1e-6 {
            return None;
        }
        let o = match kind {
            // xfig keeps the clicked points in start and end and rounds
            // like its integer arithmetic (`d_ellipse.c`, W22-5).
            ToolKind::CircleRadius => {
                let r = a.dist(b).round();
                clicked_ellipse(make_ellipse(style, a, r, r, 0.0, EllipseKind::CircleRadius), a, b)
            }
            ToolKind::CircleDiameter => {
                let c = xfig_center(a, b);
                let r = c.dist(b).round();
                clicked_ellipse(make_ellipse(style, c, r, r, 0.0, EllipseKind::CircleDiameter), a, b)
            }
            ToolKind::EllipseRadii => {
                let d = b - a;
                clicked_ellipse(
                    make_ellipse(style, a, d.x.abs(), d.y.abs(), 0.0, EllipseKind::EllipseRadii),
                    a,
                    b,
                )
            }
            ToolKind::EllipseDiameter => {
                let c = xfig_center(a, b);
                clicked_ellipse(
                    make_ellipse(
                        style,
                        c,
                        (c.x - a.x).abs(),
                        (c.y - a.y).abs(),
                        0.0,
                        EllipseKind::EllipseDiameter,
                    ),
                    a,
                    b,
                )
            }
            ToolKind::Picture | ToolKind::Plot => Object::new(ObjectKind::Polyline(Polyline::rect(style, a, b))),
            // Corner order of `create_boxobject` and `create_arcbox`.
            ToolKind::Box => Object::new(ObjectKind::Polyline(Polyline::new(
                PolyKind::Box,
                style,
                vec![a, Point::new(b.x, a.y), b, Point::new(a.x, b.y)],
            ))),
            ToolKind::ArcBox => {
                let mut p = Polyline::new(
                    PolyKind::ArcBox,
                    style,
                    vec![b, Point::new(b.x, a.y), a, Point::new(a.x, b.y)],
                );
                p.radius = self.indicator.box_radius;
                Object::new(ObjectKind::Polyline(p))
            }
            ToolKind::RegularPolygon => {
                let mut p = Polyline::new(
                    PolyKind::Polygon,
                    style,
                    crate::cmd::shape::xfig_regular_polygon(a, b, self.indicator.sides),
                );
                // `create_regpoly` sets radius 0.
                p.radius = 0;
                Object::new(ObjectKind::Polyline(p))
            }
            _ => return None,
        };
        Some(o)
    }

    /// The two points a drag shape is made from. The middle button draws
    /// a box or picture from its centre (Shift: a square) and a regular
    /// polygon by the ends of one side (W14); otherwise the points are the
    /// ones dragged.
    fn drag_span(&self, kind: ToolKind, button: Button, square: bool, a: Point, b: Point) -> (Point, Point) {
        if button != Button::Middle {
            return (a, b);
        }
        match kind {
            ToolKind::Box | ToolKind::ArcBox | ToolKind::Picture => {
                let mut d = b - a;
                if square {
                    let s = d.x.abs().max(d.y.abs());
                    d = Point::new(if d.x < 0.0 { -s } else { s }, if d.y < 0.0 { -s } else { s });
                }
                (a - d, a + d)
            }
            ToolKind::RegularPolygon => match side_polygon_center(a, b, self.indicator.sides) {
                Some(c) => (c, a),
                None => (a, a),
            },
            _ => (a, b),
        }
    }

    /// A circle through three points (right button in the circle modes).
    fn finish_three_points(&mut self, pts: &[Point]) -> Result<(), EngineError> {
        let kind = if self.tool == ToolKind::CircleDiameter {
            "diameter"
        } else {
            "radius"
        };
        let pts: Vec<[f64; 2]> = pts.iter().map(|p| [p.x, p.y]).collect();
        self.execute("shape.circle3", &json!({"points": pts, "kind": kind}))?;
        Ok(())
    }

    fn finish_drag(&mut self, kind: ToolKind, a: Point, b: Point, keep_aspect: bool) -> Result<(), EngineError> {
        if kind == ToolKind::Picture {
            if a.dist(b) > 1e-6 {
                self.request(UiRequest::PickPicture {
                    rect: Rect::new(a, b),
                    keep_aspect,
                });
            }
            return Ok(());
        }
        if kind == ToolKind::Plot {
            if a.dist(b) > 1e-6 {
                self.request(UiRequest::PlotDialog {
                    rect: Some(Rect::new(a, b)),
                    edit: None,
                });
            }
            return Ok(());
        }
        match self.drag_object(kind, a, b) {
            Some(o) => self.commit_object(o),
            None => Ok(()),
        }
    }

    // ---- text ----------------------------------------------------------

    fn text_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        match ev {
            ToolEvent::Press { pos, button, shift } => {
                let typing = matches!(self.tool_state, ToolState::Text { .. });
                match button {
                    // xfig: Shift+middle pastes text into the text being
                    // typed (`d_text.c`, "paste text").
                    Button::Middle if typing && shift => {
                        self.request(UiRequest::PasteText);
                        return Ok(());
                    }
                    // xfig: the middle button finishes the text (`d_text.c`).
                    Button::Middle => {
                        if typing {
                            return self.finish_text();
                        }
                        // W14: paste the clipboard's text as a new text.
                        if self.clipboard_text().is_some() {
                            let p = self.snap(pos);
                            self.execute("edit.paste_text", &json!({"x": p.x, "y": p.y}))?;
                        }
                        return Ok(());
                    }
                    // xfig: the right button cancels it (an edited text keeps
                    // its old string).
                    Button::Right => {
                        self.tool_state = ToolState::Idle;
                        return Ok(());
                    }
                    Button::Left => {
                        // E10: a click inside the text being typed places the
                        // caret there (Shift extends the selection) and a
                        // drag selects; anywhere else it finishes the text
                        // as in xfig.
                        if typing {
                            let tol = self.pick_tol();
                            let hit = self
                                .typing_text()
                                .and_then(|t| textedit::caret_in_text(&t, pos, tol, true));
                            if let (
                                Some(c),
                                ToolState::Text {
                                    cursor,
                                    anchor,
                                    drag,
                                    preedit,
                                    ..
                                },
                            ) = (hit, &mut self.tool_state)
                            {
                                *cursor = c;
                                if !shift {
                                    *anchor = c;
                                }
                                *drag = true;
                                preedit.clear();
                                return Ok(());
                            }
                        }
                        self.finish_text()?
                    }
                }
                // Clicking an existing text edits it, with the caret at the
                // clicked character.
                let tol = self.pick_tol();
                if let Some(id) = self.pick(pos, tol) {
                    if let Some(Object {
                        kind: ObjectKind::Text(t),
                        ..
                    }) = self.doc().get(id)
                    {
                        let n = t.text.chars().count();
                        let c = textedit::caret_in_text(t, pos, tol, false).unwrap_or(n).min(n);
                        self.tool_state = ToolState::Text {
                            origin: t.origin,
                            text: t.text.clone(),
                            cursor: c,
                            editing: Some(id),
                            anchor: c,
                            preedit: String::new(),
                            drag: false,
                        };
                        // `d_text.c`: the message once the text is ready.
                        self.set_status("Ready for text input (from keyboard)".to_string());
                        return Ok(());
                    }
                }
                self.tool_state = ToolState::Text {
                    origin: self.snap(pos),
                    text: String::new(),
                    cursor: 0,
                    editing: None,
                    anchor: 0,
                    preedit: String::new(),
                    drag: false,
                };
                self.set_status("Ready for text input (from keyboard)".to_string());
                Ok(())
            }
            ToolEvent::Move { pos } => {
                let tol = self.pick_tol();
                if matches!(self.tool_state, ToolState::Text { drag: true, .. }) {
                    let hit = self
                        .typing_text()
                        .and_then(|t| textedit::caret_in_text(&t, pos, tol, false));
                    if let (Some(c), ToolState::Text { cursor, .. }) = (hit, &mut self.tool_state) {
                        *cursor = c;
                    }
                }
                Ok(())
            }
            ToolEvent::Release { .. } => {
                if let ToolState::Text { drag, .. } = &mut self.tool_state {
                    *drag = false;
                }
                Ok(())
            }
            // Double-click selects the word under the caret, triple-click
            // the line.
            ToolEvent::DoubleClick { .. } | ToolEvent::TripleClick { .. } => {
                let triple = matches!(ev, ToolEvent::TripleClick { .. });
                if let ToolState::Text {
                    text,
                    cursor,
                    anchor,
                    drag,
                    ..
                } = &mut self.tool_state
                {
                    let (a, b) = if triple {
                        textedit::line_range(text, *cursor)
                    } else {
                        textedit::word_range(text, *cursor)
                    };
                    *anchor = a;
                    *cursor = b;
                    *drag = false;
                }
                Ok(())
            }
            ToolEvent::Text(s) => {
                if let ToolState::Text {
                    text,
                    cursor,
                    anchor,
                    preedit,
                    ..
                } = &mut self.tool_state
                {
                    preedit.clear();
                    let clean: String = s.chars().filter(|c| !c.is_control() || *c == '\t').collect();
                    let mut buf = textedit::Buf { text, cursor, anchor };
                    let removed = buf.selected().map_or(0, |x| x.len());
                    if buf.text.len() + clean.len() > rustfig_format::MAX_TEXT_BYTES + removed {
                        return Err(EngineError::bad_params("text is too long"));
                    }
                    buf.insert(&clean);
                }
                Ok(())
            }
            // An IME composition in progress: shown at the caret, committed
            // later as `Text`.
            ToolEvent::Preedit(s) => {
                if let ToolState::Text { preedit, .. } = &mut self.tool_state {
                    *preedit = s.chars().filter(|c| !c.is_control()).take(256).collect();
                }
                Ok(())
            }
            ToolEvent::Nav { key, shift, word } => {
                let ToolState::Text {
                    text, cursor, anchor, ..
                } = &mut self.tool_state
                else {
                    return Ok(());
                };
                let mut buf = textedit::Buf { text, cursor, anchor };
                match key {
                    Key::Superscript => return self.text_supersub(true),
                    Key::Subscript => return self.text_supersub(false),
                    Key::KillToEnd => buf.kill_to_end(),
                    Key::KillToStart => buf.kill_to_start(),
                    Key::KillSelection => {
                        buf.delete_selection();
                    }
                    Key::Backspace => buf.backspace(word),
                    Key::Delete => buf.delete(word),
                    Key::Left => buf.left(shift, word),
                    Key::Right => buf.right(shift, word),
                    Key::Home => buf.move_to(0, shift),
                    Key::End => {
                        let n = buf.text.chars().count();
                        buf.move_to(n, shift)
                    }
                    Key::SelectAll => buf.select_all(),
                    Key::Enter | Key::Escape => return self.text_event(ToolEvent::Key(key)),
                }
                Ok(())
            }
            ToolEvent::Key(k) => {
                let ToolState::Text { origin, .. } = &self.tool_state else {
                    return Ok(());
                };
                // After super/subscripts a new line goes below where the line
                // began, at the original size (`new_text_line`).
                let origin = self.text_sub.line_origin.unwrap_or(*origin);
                match k {
                    Key::Enter => {
                        // Finish this line and start a new text object below it.
                        self.finish_text()?;
                        let step = if self.indicator.text_step.is_finite() {
                            self.indicator.text_step.clamp(0.0, 100.0)
                        } else {
                            1.0
                        };
                        let size =
                            self.indicator.font_size * rustfig_geom::FIG_PER_POINT * rustfig_text::LINE_SPACING * step;
                        let a = self.indicator.text_angle.to_radians();
                        let next = origin + Affine::rotate(a).apply_vec(Point::new(0.0, size));
                        self.tool_state = ToolState::Text {
                            origin: next,
                            text: String::new(),
                            cursor: 0,
                            editing: None,
                            anchor: 0,
                            preedit: String::new(),
                            drag: false,
                        };
                        Ok(())
                    }
                    Key::Escape => Ok(()),
                    other => self.text_event(ToolEvent::Nav {
                        key: other,
                        shift: false,
                        word: false,
                    }),
                }
            }
            _ => Ok(()),
        }
    }

    /// The text object being typed (new or edited), as drawn.
    fn typing_text(&self) -> Option<rustfig_model::Text> {
        let ToolState::Text {
            origin, text, editing, ..
        } = &self.tool_state
        else {
            return None;
        };
        let mut t = crate::cmd::shape::make_text(self, *origin, text.clone());
        if let Some(Object {
            kind: ObjectKind::Text(orig),
            ..
        }) = editing.and_then(|id| self.doc().get(id))
        {
            t = orig.clone();
            t.text = text.clone();
        } else if let Some(size) = self.text_sub.size {
            // A super/subscript piece is smaller (`work_fontsize`).
            t.size = size;
        }
        crate::fix_text_metrics(&mut t);
        Some(t)
    }

    /// The Fig font of the text being typed (Text mode), if one is.
    pub fn typing_font(&self) -> Option<i32> {
        self.typing_text().map(|t| t.font)
    }

    /// The font of the text being typed and whether it is a PostScript font.
    pub fn typing_font_postscript(&self) -> Option<(i32, bool)> {
        self.typing_text()
            .map(|t| (t.font, t.flags & rustfig_model::text_flags::POSTSCRIPT != 0))
    }

    /// Insert characters at the caret of the text being typed (the
    /// character map, E5). In a Symbol or ZapfDingbats text each character
    /// is stored as that font's own code, so fig2dev draws it; characters the
    /// font does not have are skipped. Returns how many were inserted.
    pub fn text_insert_chars(&mut self, chars: &str) -> Result<usize, EngineError> {
        let font = self
            .typing_font()
            .ok_or_else(|| EngineError::bad_params("no text is being typed (use Text mode)"))?;
        let stored: String = chars
            .chars()
            .filter_map(|c| rustfig_text::symbol_tables::store_char(font, c))
            .collect();
        let n = stored.chars().count();
        if n == 0 {
            return Err(EngineError::bad_params("the text font has no such character"));
        }
        self.tool_event(ToolEvent::Text(stored))?;
        Ok(n)
    }

    /// The selected part of the text being typed (for Copy).
    pub fn text_selection(&self) -> Option<String> {
        let ToolState::Text {
            text, cursor, anchor, ..
        } = &self.tool_state
        else {
            return None;
        };
        let (a, b) = ((*anchor).min(*cursor), (*anchor).max(*cursor));
        (a != b).then(|| text.chars().skip(a).take(b - a).collect())
    }

    /// Cut: the selected text, removed from the text being typed.
    pub fn text_cut(&mut self) -> Option<String> {
        let s = self.text_selection()?;
        if let ToolState::Text {
            text, cursor, anchor, ..
        } = &mut self.tool_state
        {
            textedit::Buf { text, cursor, anchor }.delete_selection();
        }
        Some(s)
    }

    /// The selection of the text being typed, in characters.
    pub fn text_selection_range(&self) -> Option<(usize, usize)> {
        let ToolState::Text { cursor, anchor, .. } = &self.tool_state else {
            return None;
        };
        (anchor != cursor).then(|| ((*anchor).min(*cursor), (*anchor).max(*cursor)))
    }

    /// Commit the text being typed, if any.
    pub fn finish_text(&mut self) -> Result<(), EngineError> {
        let r = self.commit_text();
        // The size and super/subscript level start over (`finish_text_input`).
        self.text_sub = TextSub::default();
        r
    }

    /// Commit the text being typed as an object (`commit_current_text`).
    fn commit_text(&mut self) -> Result<(), EngineError> {
        let ToolState::Text {
            origin, text, editing, ..
        } = std::mem::take(&mut self.tool_state)
        else {
            return Ok(());
        };
        match editing {
            Some(id) => {
                if text.trim().is_empty() {
                    self.execute("edit.delete", &json!({"ids": [id.0]}))?;
                } else {
                    let unchanged = matches!(
                        self.doc().get(id).map(|o| &o.kind),
                        Some(ObjectKind::Text(t)) if t.text == text
                    );
                    if !unchanged {
                        self.execute(
                            "object.set_attributes",
                            &json!({"ids": [id.0], "text": text, "reappend": true}),
                        )?;
                    }
                }
            }
            None => {
                if !text.is_empty() {
                    let mut p = json!({"x": origin.x, "y": origin.y, "text": text});
                    if let Some(size) = self.text_sub.size {
                        p["size"] = json!(size);
                    }
                    self.execute("shape.text", &p)?;
                }
            }
        }
        Ok(())
    }

    /// Control-^ and Control-_ while text is typed (`new_text_up`,
    /// `new_text_down` in `d_text.c`): commit the text so far and start the
    /// next piece at the caret, a quarter of a line higher or lower and at
    /// three quarters of the size; the opposite key steps back out.
    fn text_supersub(&mut self, up: bool) -> Result<(), EngineError> {
        let Some(t) = self.typing_text() else {
            return Ok(());
        };
        let ToolState::Text { text, cursor, .. } = &self.tool_state else {
            return Ok(());
        };
        let level = self.text_sub.level;
        // Only so deep.
        if (up && level >= MAX_SUPSUB as i32) || (!up && level <= -(MAX_SUPSUB as i32)) {
            return Ok(());
        }
        // The caret: the text origin plus the width of the text before it.
        let mut before = t.clone();
        before.text = text.chars().take(*cursor).collect();
        crate::fix_text_metrics(&mut before);
        let left = match t.justify {
            Justify::Left => 0.0,
            Justify::Center => -t.length / 2.0,
            Justify::Right => -t.length,
        };
        let rot = Affine::rotate(t.angle);
        let caret = t.origin + rot.apply_vec(Point::new(left + before.length, 0.0));
        let size = self.text_sub.size.unwrap_or(t.size);
        let line_height = size * rustfig_geom::FIG_PER_POINT * rustfig_text::LINE_SPACING;
        let line_origin = self.text_sub.line_origin.unwrap_or(t.origin);
        let mut sub = self.text_sub.clone();
        let slot = |l: i32| usize::try_from(l.unsigned_abs()).unwrap_or(0).min(MAX_SUPSUB - 1);
        if let Some(h) = sub.heights.get_mut(slot(level)) {
            *h = line_height;
        }
        // Positive shifts go down the line, negative up.
        let (shift, scale) = if up {
            sub.level += 1;
            if level < 0 {
                // Back out of a subscript.
                (
                    -sub.heights.get(slot(sub.level)).copied().unwrap_or(line_height) * PSUB_FRAC,
                    1.0 / CSUB_FRAC,
                )
            } else {
                (-line_height * PSUB_FRAC, CSUB_FRAC)
            }
        } else {
            sub.level -= 1;
            if level > 0 {
                // Back out of a superscript.
                (
                    sub.heights.get(slot(sub.level)).copied().unwrap_or(line_height) * PSUB_FRAC,
                    1.0 / CSUB_FRAC,
                )
            } else {
                (line_height * PSUB_FRAC, CSUB_FRAC)
            }
        };
        let origin = caret + rot.apply_vec(Point::new(0.0, shift));
        sub.size = Some((size * scale).clamp(1.0, 2000.0));
        sub.line_origin = Some(line_origin);
        self.commit_text()?;
        self.text_sub = sub;
        self.tool_state = ToolState::Text {
            origin,
            text: String::new(),
            cursor: 0,
            editing: None,
            anchor: 0,
            preedit: String::new(),
            drag: false,
        };
        Ok(())
    }

    // ---- selection -------------------------------------------------------

    /// Move, release and rubber-band handling shared by several tools.
    fn drag_common(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        let tol = self.pick_tol();
        match ev {
            ToolEvent::Move { pos } => {
                if let ToolState::RubberBand { held: true, lasso, .. } = &mut self.tool_state {
                    // A lasso point per few pixels, capped.
                    let min_step = tol / 3.0;
                    if lasso.len() < MAX_FREEHAND_POINTS && lasso.last().is_none_or(|l| l.dist(pos) >= min_step) {
                        lasso.push(pos);
                    }
                }
                match &mut self.tool_state {
                    ToolState::MoveObjs { cursor, .. }
                    | ToolState::RubberBand { cursor, .. }
                    | ToolState::PointDrag { cursor, .. }
                    | ToolState::Scale { cursor, .. } => *cursor = pos,
                    _ => {}
                }
                Ok(())
            }
            ToolEvent::Release {
                button: Button::Right, ..
            } if !matches!(
                self.tool_state,
                ToolState::RubberBand {
                    button: Button::Right,
                    ..
                }
            ) =>
            {
                Ok(())
            }
            ToolEvent::Release { pos, .. } => match self.tool_state.clone() {
                ToolState::MoveObjs {
                    ids,
                    start,
                    copy,
                    dragging: true,
                    constrain,
                    ..
                } => {
                    if start.dist(pos) > tol {
                        self.tool_state = ToolState::Idle;
                        self.commit_move(&ids, start, pos, copy, constrain, false)
                    } else {
                        // A click: keep following the pointer until the next click.
                        self.tool_state = ToolState::MoveObjs {
                            ids,
                            start,
                            cursor: pos,
                            copy,
                            dragging: false,
                            constrain,
                        };
                        Ok(())
                    }
                }
                ToolState::RubberBand {
                    start,
                    purpose,
                    click,
                    button,
                    held,
                    lasso,
                    ..
                } => {
                    let dragged = start.dist(pos) > tol || (held && lasso.iter().any(|q| start.dist(*q) > tol));
                    if click && !dragged {
                        // The release of the click that opened the band.
                        if let ToolState::RubberBand { held, lasso, .. } = &mut self.tool_state {
                            *held = false;
                            lasso.clear();
                        }
                        return Ok(());
                    }
                    self.tool_state = ToolState::Idle;
                    if held && lasso.len() >= 2 && button != Button::Left {
                        // Press and drag: the freehand lasso (W15).
                        let mut path = lasso;
                        path.push(pos);
                        return self.finish_band(purpose, Region::Lasso(path), pos);
                    }
                    self.finish_band(purpose, Region::Rect(Rect::new(start, pos)), pos)
                }
                ToolState::PointDrag {
                    id,
                    index,
                    insert,
                    start,
                    dragging: true,
                    constrain,
                    ..
                } => {
                    // A drag places the point on release; a click starts it on
                    // a rubber band and the next click places it (xfig's
                    // "place new point", `e_addpt.c`).
                    if start.dist(pos) > tol {
                        self.tool_state = ToolState::Idle;
                        self.commit_point(id, index, insert, start, pos, constrain)
                    } else {
                        self.tool_state = ToolState::PointDrag {
                            id,
                            index,
                            insert,
                            start,
                            cursor: pos,
                            dragging: false,
                            constrain,
                        };
                        Ok(())
                    }
                }
                ToolState::Scale {
                    id,
                    center,
                    start,
                    from,
                    axis,
                    button,
                    ..
                } => {
                    if start.dist(pos) > tol {
                        self.tool_state = ToolState::Idle;
                        return self.commit_scale(id, center, from, pos, axis, button == Button::Left);
                    }
                    Ok(())
                }
                _ => Ok(()),
            },
            _ => Ok(()),
        }
    }

    /// Close a rubber band from `start` to `end`.
    fn finish_band(&mut self, purpose: Band, region: Region, end: Point) -> Result<(), EngineError> {
        let inside: Vec<ObjectId> = self.objects_within_region(&region);
        match purpose {
            Band::CopyPicture => {
                if inside.is_empty() {
                    self.set_status("No objects in the region: nothing copied.");
                } else {
                    let ids = crate::cmd::ids_value(&inside);
                    self.execute("edit.copy_picture", &json!({ "ids": ids }))?;
                    self.set_status(format!("{} object(s) copied as a picture.", inside.len()));
                }
            }
            Band::Tag => {
                let mut sel = self.selection().to_vec();
                for id in inside {
                    if !sel.contains(&id) {
                        sel.push(id);
                    }
                }
                self.set_selection(sel);
            }
            Band::UpdateRegion | Band::MoveRegion | Band::DeletePoints => {
                let mask = mode_mask(self.tool, self.indicator.rotate_angle);
                let found = self.objects_in_region(&region, mask);
                let rp = match &region {
                    Region::Rect(r) => json!({"x1": r.min.x, "y1": r.min.y, "x2": r.max.x, "y2": r.max.y}),
                    Region::Lasso(path) => {
                        json!({"polygon": path.iter().map(|p| json!([p.x, p.y])).collect::<Vec<_>>()})
                    }
                };
                match purpose {
                    Band::UpdateRegion => {
                        if found.is_empty() {
                            self.set_status("No objects completely inside the region");
                        } else {
                            self.execute("object.update_region", &rp)?;
                        }
                    }
                    Band::MoveRegion => {
                        if found.is_empty() {
                            self.set_status("No objects completely inside the region");
                        } else {
                            // Place the whole region with the next click.
                            self.set_selection(found.clone());
                            self.tool_state = ToolState::MoveObjs {
                                ids: found,
                                start: end,
                                cursor: end,
                                copy: false,
                                dragging: false,
                                constrain: false,
                            };
                        }
                    }
                    _ => {
                        let has = self
                            .doc()
                            .objects
                            .iter()
                            .any(|o| self.is_visible(o) && region_points(o, &region).is_some_and(|n| n > 0));
                        if has {
                            self.execute("point.delete_region", &rp)?;
                        } else {
                            self.set_status("No point of a line or spline inside the region");
                        }
                    }
                }
            }
            Band::Delete => {
                if !inside.is_empty() {
                    // The command acts on the selection (it must not be empty).
                    self.set_selection(inside.clone());
                    self.execute("edit.delete", &json!({"ids": crate::cmd::ids_value(&inside)}))?;
                }
            }
        }
        Ok(())
    }

    /// The displacement of a move from `start` to `end`.
    fn move_delta(&self, start: Point, end: Point, constrain: bool) -> Point {
        let d = self.snap(end) - self.snap(start);
        if constrain {
            constrain_delta(d)
        } else {
            d
        }
    }

    fn commit_move(
        &mut self,
        ids: &[ObjectId],
        start: Point,
        end: Point,
        copy: bool,
        constrain: bool,
        array: bool,
    ) -> Result<(), EngineError> {
        let d = self.move_delta(start, end, constrain);
        if d.len() < 1e-9 && !copy {
            return Ok(());
        }
        // xfig deletes and re-adds one clicked object (`e_move.c`); a region
        // of several objects stays in place.
        let reappend = ids.len() == 1;
        let ids = crate::cmd::ids_value(ids);
        if copy && array {
            // Array placement (xfig's Num X / Num Y Copies).
            self.execute("edit.copy_array", &json!({"ids": ids, "dx": d.x, "dy": d.y}))?;
        } else if copy {
            self.execute("edit.duplicate", &json!({"ids": ids, "dx": d.x, "dy": d.y}))?;
        } else {
            self.execute(
                "transform.move",
                &json!({"ids": ids, "dx": d.x, "dy": d.y, "reappend": reappend}),
            )?;
        }
        Ok(())
    }

    /// Where a dragged point lands: snapped, and with the middle button
    /// kept horizontal or vertical from its original position.
    fn point_target(
        &self,
        id: ObjectId,
        index: usize,
        insert: bool,
        start: Point,
        pos: Point,
        constrain: bool,
    ) -> Point {
        let p = self.snap(pos);
        if !constrain {
            // Angle Geom applies to the end of an open line or spline
            // (xfig's `move_point_selected`, `init_linepointadding`).
            return match self.angle_anchor(id, index, insert) {
                Some(fix) if !self.exact_points.contains(&p) => crate::constrain_angle(
                    self.indicator.angle_geom,
                    fix,
                    p,
                    self.indicator.magnet(self.doc().settings.units),
                ),
                _ => p,
            };
        }
        let origin = if insert {
            self.snap(start)
        } else {
            self.doc()
                .get(id)
                .and_then(|o| edit_points(o).get(index).copied())
                .unwrap_or(start)
        };
        origin + constrain_delta(p - origin)
    }

    /// The fixed point Angle Geom constrains a dragged point from: the
    /// neighbour of an end point of an open polyline or spline, or the end a
    /// point is added to. Points in the middle or of closed shapes have
    /// none (xfig's `force_noanglegeom`).
    fn angle_anchor(&self, id: ObjectId, index: usize, insert: bool) -> Option<Point> {
        let o = self.doc().get(id)?;
        let pts = match &o.kind {
            ObjectKind::Polyline(pl) if pl.kind == PolyKind::Polyline => &pl.points,
            ObjectKind::Spline(sp) if !sp.closed => &sp.points,
            _ => return None,
        };
        let n = pts.len();
        if insert {
            if index == 0 {
                pts.first().copied()
            } else if index == n {
                pts.last().copied()
            } else {
                None
            }
        } else if n >= 2 && index == 0 {
            pts.get(1).copied()
        } else if n >= 2 && index + 1 == n {
            pts.get(n - 2).copied()
        } else {
            None
        }
    }

    fn commit_point(
        &mut self,
        id: ObjectId,
        index: usize,
        insert: bool,
        start: Point,
        pos: Point,
        constrain: bool,
    ) -> Result<(), EngineError> {
        let p = self.point_target(id, index, insert, start, pos, constrain);
        let cmd = if insert { "point.add" } else { "point.move" };
        self.execute(cmd, &json!({"id": id.0, "index": index, "x": p.x, "y": p.y}))?;
        Ok(())
    }

    fn commit_scale(
        &mut self,
        id: ObjectId,
        center: Point,
        from: Point,
        end: Point,
        axis: ScaleAxis,
        signed: bool,
    ) -> Result<(), EngineError> {
        let Some((sx, sy)) = scale_factors(center, from, end, axis, signed) else {
            return Ok(());
        };
        self.execute(
            "transform.scale",
            &json!({"ids": [id.0], "sx": sx, "sy": sy, "cx": center.x, "cy": center.y, "reappend": true}),
        )?;
        Ok(())
    }

    // ---- move / copy (click-move-click or drag) ----------------------

    fn move_event(&mut self, ev: ToolEvent, copy: bool) -> Result<(), EngineError> {
        if let ToolEvent::Press { pos, button, .. } = ev {
            let tol = self.pick_tol();
            if matches!(self.tool_state, ToolState::RubberBand { .. }) {
                // Only the button that opened the region closes it.
                if button == Button::Right {
                    return self.region_click(pos, Band::MoveRegion, Button::Right);
                }
                return Ok(());
            }
            if button == Button::Right {
                if self.tool_busy() {
                    self.tool_state = ToolState::Idle;
                } else if !copy {
                    return self.region_click(pos, Band::MoveRegion, Button::Right);
                } else if copy {
                    // xfig: copy the object to the cut buffer.
                    if let Some(id) = self.pick(pos, tol) {
                        self.set_selection(vec![id]);
                        self.execute("edit.copy", &json!({"ids": [id.0]}))?;
                    }
                }
                return Ok(());
            }
            let constrain = button == Button::Middle;
            if let ToolState::MoveObjs {
                ids,
                start,
                dragging: false,
                copy,
                constrain: c,
                ..
            } = self.tool_state.clone()
            {
                // Copy: left places one copy, middle places the array of
                // Num X / Num Y Copies (xfig's `array_place_*`).
                let array = copy && constrain;
                if c != constrain && !copy {
                    return Ok(());
                }
                self.tool_state = ToolState::Idle;
                return self.commit_move(&ids, start, pos, copy, c, array);
            }
            if let Some(id) = self.pick(pos, tol) {
                self.set_selection(vec![id]);
                self.tool_state = ToolState::MoveObjs {
                    ids: vec![id],
                    start: pos,
                    cursor: pos,
                    copy,
                    dragging: true,
                    constrain,
                };
            }
            return Ok(());
        }
        self.drag_common(ev)
    }

    // ---- point editing -----------------------------------------------

    fn point_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        if let ToolEvent::Press { pos, button, .. } = ev {
            if button == Button::Right {
                self.tool_state = ToolState::Idle;
                return Ok(());
            }
            let constrain = button == Button::Middle;
            // W14: a point beyond the nearer end of an open line or spline
            // (a second middle click while one waits places it, below).
            if constrain && self.tool == ToolKind::AddPoint && !self.tool_busy() {
                let tol = self.pick_tol();
                if let Some(id) = self.pick(pos, tol) {
                    let ends = match self.doc().get(id).map(|o| &o.kind) {
                        Some(ObjectKind::Polyline(pl)) if pl.kind == PolyKind::Polyline => Some(&pl.points),
                        Some(ObjectKind::Spline(sp)) if !sp.closed => Some(&sp.points),
                        _ => None,
                    };
                    if let Some(pts) = ends {
                        if let (Some(first), Some(last)) = (pts.first(), pts.last()) {
                            let index = if pos.dist(*first) < pos.dist(*last) {
                                0
                            } else {
                                pts.len()
                            };
                            self.tool_state = ToolState::PointDrag {
                                id,
                                index,
                                insert: true,
                                start: pos,
                                cursor: pos,
                                dragging: true,
                                constrain: false,
                            };
                        }
                    }
                }
                return Ok(());
            }
            if let ToolState::PointDrag {
                id,
                index,
                insert,
                start,
                dragging: false,
                constrain: c,
                ..
            } = self.tool_state.clone()
            {
                // Placed with the button that started it (decided
                // 2026-10-23): a new end point (started with the middle
                // button) with the middle one, an inserted point with the
                // left one.
                let started_middle = if insert && self.is_end_insert(id, index) {
                    true
                } else {
                    c
                };
                if started_middle != constrain {
                    return Ok(());
                }
                self.tool_state = ToolState::Idle;
                return self.commit_point(id, index, insert, start, pos, c);
            }
            let tol = self.pick_tol();
            let found = if self.tool == ToolKind::MovePoint {
                self.find_vertex(pos, tol).map(|(id, i)| (id, i, false))
            } else {
                // xfig also adds beyond an end when the click is at an end
                // point (`init_linepointadding`); RustFig leaves that to
                // the middle button (decided 2026-10-22).
                self.find_segment(pos, tol).map(|(id, i)| (id, i, true))
            };
            if let Some((id, index, insert)) = found {
                self.tool_state = ToolState::PointDrag {
                    id,
                    index,
                    insert,
                    start: pos,
                    cursor: pos,
                    dragging: true,
                    constrain,
                };
            }
            return Ok(());
        }
        self.drag_common(ev)
    }

    /// Whether inserting at `index` adds a point beyond an end of the
    /// object (Add point's middle button), not on one of its segments.
    fn is_end_insert(&self, id: ObjectId, index: usize) -> bool {
        let n = self
            .doc()
            .get(id)
            .and_then(|o| o.points().map(<[Point]>::len))
            .unwrap_or(0);
        index == 0 || index >= n
    }

    /// The nearest editable vertex of any top-level object.
    fn find_vertex(&self, p: Point, tol: f64) -> Option<(ObjectId, usize)> {
        let mut best: Option<(f64, ObjectId, usize)> = None;
        for o in &self.doc().objects {
            if !self.is_visible(o) || matches!(o.kind, ObjectKind::Text(_) | ObjectKind::Compound(_)) {
                continue;
            }
            for (i, v) in edit_points(o).iter().enumerate() {
                let d = v.dist(p);
                if d <= tol && best.is_none_or(|(bd, _, _)| d < bd) {
                    best = Some((d, o.id, i));
                }
            }
        }
        best.map(|(_, id, i)| (id, i))
    }

    /// The control-polygon segment nearest to `p`; returns the insert index.
    fn find_segment(&self, p: Point, tol: f64) -> Option<(ObjectId, usize)> {
        let mut best: Option<(f64, ObjectId, usize)> = None;
        for o in &self.doc().objects {
            if !self.is_visible(o) {
                continue;
            }
            let closed = match &o.kind {
                ObjectKind::Polyline(pl) if pl.kind == PolyKind::Polyline => false,
                ObjectKind::Polyline(pl) if pl.kind == PolyKind::Polygon => true,
                ObjectKind::Spline(s) => s.closed,
                _ => continue,
            };
            let Some(pts) = o.points() else { continue };
            let n = pts.len();
            let segs = if closed { n } else { n.saturating_sub(1) };
            for i in 0..segs {
                let (Some(a), Some(b)) = (pts.get(i), pts.get((i + 1) % n)) else {
                    continue;
                };
                let d = dist_to_segment(p, *a, *b);
                if d <= tol * 2.0 && best.is_none_or(|(bd, _, _)| d < bd) {
                    best = Some((d, o.id, i + 1));
                }
            }
        }
        best.map(|(_, id, i)| (id, i))
    }

    // ---- scale -----------------------------------------------------------

    /// The point of the object a click found, as xfig's search gives it
    /// (`next_*_found`: a vertex within the tolerance, else the click).
    fn object_point(&self, o: &Object, pos: Point, tol: f64) -> Point {
        let pts = edit_points(o);
        nearest_vertex(&pts, pos, tol)
            .and_then(|i| pts.get(i).copied())
            .unwrap_or(pos)
    }

    fn scale_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        if let ToolEvent::Press { pos, button, .. } = ev {
            if button == Button::Right {
                self.tool_state = ToolState::Idle;
                return Ok(());
            }
            if let ToolState::Scale {
                id,
                center,
                from,
                button: b,
                axis,
                ..
            } = self.tool_state.clone()
            {
                if b != button {
                    return Ok(());
                }
                self.tool_state = ToolState::Idle;
                return self.commit_scale(id, center, from, pos, axis, b == Button::Left);
            }
            let tol = self.pick_tol();
            if let Some(id) = self.pick(pos, tol) {
                if let Some(o) = self.doc().get(id) {
                    let bb = o.geometry_bbox();
                    // Left: about the corner opposite the one nearest the
                    // click; middle: about the centre (xfig's scale modes).
                    let (center, axis) = if button == Button::Middle {
                        (bb.center(), ScaleAxis::Both)
                    } else {
                        scale_handle(&bb, pos)
                    };
                    let from = if button == Button::Middle {
                        // `init_center_scale`: the object point the click found.
                        self.object_point(o, pos, tol)
                    } else {
                        // `init_boxscale_*`: the corner or edge being dragged.
                        Point::new(
                            if axis == ScaleAxis::Y {
                                pos.x
                            } else {
                                bb.min.x + bb.max.x - center.x
                            },
                            if axis == ScaleAxis::X {
                                pos.y
                            } else {
                                bb.min.y + bb.max.y - center.y
                            },
                        )
                    };
                    self.set_selection(vec![id]);
                    self.tool_state = ToolState::Scale {
                        id,
                        center,
                        from,
                        start: pos,
                        cursor: pos,
                        button,
                        axis,
                    };
                }
            }
            return Ok(());
        }
        self.drag_common(ev)
    }

    // ---- glue (tag objects, then glue them into a compound) ------------

    fn glue_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        if let ToolEvent::Press { pos, button, .. } = ev {
            let tol = self.pick_tol();
            match button {
                Button::Right => {
                    if self.tool_busy() {
                        self.tool_state = ToolState::Idle;
                    } else if self.selection().len() >= 2 {
                        let ids = crate::cmd::ids_value(self.selection());
                        self.execute("object.group", &json!({ "ids": ids }))?;
                    }
                }
                Button::Middle => self.region_click(pos, Band::Tag, Button::Middle)?,
                Button::Left => {
                    if self.tool_busy() {
                        return Ok(());
                    }
                    match self.pick(pos, tol) {
                        Some(id) => {
                            // Tag or untag.
                            let mut sel = self.selection().to_vec();
                            match sel.iter().position(|s| *s == id) {
                                Some(i) => {
                                    sel.remove(i);
                                }
                                None => sel.push(id),
                            }
                            self.set_selection(sel);
                        }
                        None => {
                            self.tool_state = ToolState::RubberBand {
                                start: pos,
                                cursor: pos,
                                purpose: Band::Tag,
                                click: false,
                                button: Button::Left,
                                held: false,
                                lasso: Vec::new(),
                            };
                        }
                    }
                }
            }
            return Ok(());
        }
        self.drag_common(ev)
    }

    /// Copy as Picture's click: left copies the object under the pointer,
    /// middle starts a region (two corners or a loop), right copies the
    /// whole figure.
    fn copy_pick_press(&mut self, pos: Point, button: Button) -> Result<(), EngineError> {
        match button {
            Button::Left => {
                let tol = self.pick_tol();
                let Some(id) = self.pick(pos, tol) else {
                    self.set_status("No object there: nothing copied.");
                    return Ok(());
                };
                self.execute("edit.copy_picture", &json!({ "ids": [id.0] }))?;
                self.set_status("Object copied as a picture.");
            }
            Button::Middle => self.region_click(pos, Band::CopyPicture, Button::Middle)?,
            Button::Right => {
                self.execute("edit.copy_picture", &json!({ "whole": true }))?;
                self.set_status("Whole figure copied as a picture.");
            }
        }
        Ok(())
    }

    /// xfig's region by two clicks: the first opens a band, the second
    /// (with the same button) closes it.
    fn region_click(&mut self, pos: Point, purpose: Band, button: Button) -> Result<(), EngineError> {
        if let ToolState::RubberBand {
            start,
            purpose: p,
            click: true,
            button: b,
            ..
        } = self.tool_state
        {
            if b != button {
                return Ok(());
            }
            self.tool_state = ToolState::Idle;
            return self.finish_band(p, Region::Rect(Rect::new(start, pos)), pos);
        }
        self.tool_state = ToolState::RubberBand {
            start: pos,
            cursor: pos,
            purpose,
            click: true,
            button,
            held: true,
            lasso: vec![pos],
        };
        Ok(())
    }

    // ---- delete ----------------------------------------------------------

    fn delete_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        if let ToolEvent::Press { pos, button, .. } = ev {
            let tol = self.pick_tol();
            match button {
                Button::Middle => return self.region_click(pos, Band::Delete, Button::Middle),
                Button::Right if self.tool_busy() => self.tool_state = ToolState::Idle,
                Button::Left if self.tool_busy() => {}
                Button::Left | Button::Right => {
                    if let Some(id) = self.pick(pos, tol) {
                        // Right: xfig's "del to cut buf".
                        let cmd = if button == Button::Right {
                            "edit.cut"
                        } else {
                            "edit.delete"
                        };
                        self.set_selection(vec![id]);
                        self.execute(cmd, &json!({ "ids": [id.0] }))?;
                    }
                }
            }
            return Ok(());
        }
        self.drag_common(ev)
    }

    // ---- single-click editing tools ----------------------------------

    fn click_event(&mut self, ev: ToolEvent) -> Result<(), EngineError> {
        let ToolEvent::Press { pos, button, shift } = ev else {
            return if self.tool_busy() { self.drag_common(ev) } else { Ok(()) };
        };
        let tol = self.pick_tol();
        let tool = self.tool;
        {
            // Functions on the buttons xfig leaves free (W13, W14).
            match self.tool_state.clone() {
                ToolState::RubberBand {
                    purpose,
                    button: opened_by,
                    ..
                } => {
                    if button == opened_by {
                        return self.region_click(pos, purpose, opened_by);
                    }
                    if button == Button::Right {
                        self.tool_state = ToolState::Idle;
                    }
                    return Ok(());
                }
                ToolState::AlignTo { reference } => {
                    match button {
                        Button::Left => self.tool_state = ToolState::Idle,
                        Button::Right => {
                            if let Some(id) = self.pick(pos, tol).filter(|i| *i != reference) {
                                self.set_selection(vec![id]);
                                self.execute("arrange.align_to", &json!({"reference": reference.0, "ids": [id.0]}))?;
                            }
                        }
                        Button::Middle => {}
                    }
                    return Ok(());
                }
                _ => {}
            }
            match (tool, button) {
                (ToolKind::Update, Button::Right) => return self.region_click(pos, Band::UpdateRegion, button),
                (ToolKind::DeletePoint, Button::Middle) => return self.region_click(pos, Band::DeletePoints, button),
                (t, Button::Right) if t.uses_set_point() => {
                    // xfig's set_unset_center / set_unset_anchor.
                    self.set_point = if self.set_point.is_some() { None } else { Some(pos) };
                    return Ok(());
                }
                (ToolKind::Align, Button::Middle) => {
                    // xfig's init_align_canvas: everything to the page.
                    self.execute("arrange.align_canvas", &json!({}))?;
                    return Ok(());
                }
                (ToolKind::Align, Button::Right) => {
                    if let Some(id) = self.pick(pos, tol) {
                        self.set_selection(vec![id]);
                        self.tool_state = ToolState::AlignTo { reference: id };
                    }
                    return Ok(());
                }
                _ => {}
            }
        }
        if tool == ToolKind::DeletePoint {
            if button == Button::Left {
                if let Some((id, index)) = self.find_vertex(pos, tol) {
                    self.execute("point.delete", &json!({"id": id.0, "index": index}))?;
                }
            }
            return Ok(());
        }
        if tool == ToolKind::Edit {
            match button {
                // xfig `e_edit.c`: the middle button edits the figure's
                // comments; with Shift it shows an object's comments.
                Button::Middle if !shift => {
                    self.request(UiRequest::EditFigureComments);
                    return Ok(());
                }
                Button::Middle => {
                    let text = match self.pick(pos, tol).and_then(|id| self.doc().get(id)) {
                        Some(o) if !o.comments.is_empty() => format!("Comments: {}", o.comments.join(" / ")),
                        Some(_) => "Comments: (None)".to_string(),
                        None => return Ok(()),
                    };
                    self.set_status(text);
                    return Ok(());
                }
                Button::Right => {
                    let hit = self.find_vertex(pos, tol);
                    let Some((id, index)) = hit else { return Ok(()) };
                    match self.doc().get(id).map(|o| &o.kind) {
                        Some(ObjectKind::Spline(s)) => {
                            if !s.closed && (index == 0 || index + 1 == s.points.len()) {
                                self.set_status("Cannot edit end-points".to_string());
                            } else {
                                self.request(UiRequest::EditSplinePoint { id, index });
                            }
                        }
                        _ => self.set_status("Only spline points can be edited".to_string()),
                    }
                    return Ok(());
                }
                _ => {}
            }
        }
        let Some(id) = self.pick(pos, tol) else {
            return Ok(());
        };
        let ids = json!([id.0]);
        let is_compound = matches!(self.doc().get(id).map(|o| &o.kind), Some(ObjectKind::Compound(_)));
        let copy = button == Button::Middle;
        match (tool, button) {
            (ToolKind::Break, Button::Left | Button::Middle) if is_compound => {
                self.set_selection(vec![id]);
                self.execute("object.ungroup", &json!({ "ids": ids, "reappend": true }))?;
                // Middle: "break and tag" keeps the parts tagged (selected).
                if button == Button::Left {
                    self.set_selection(Vec::new());
                }
            }
            (ToolKind::Break, Button::Right) if is_compound => {
                self.set_selection(vec![id]);
                self.execute("object.break_all", &json!({ "ids": ids, "reappend": true }))?;
            }
            (ToolKind::Arrow, Button::Right) => {
                let has = matches!(
                    self.doc().get(id).and_then(Object::arrows),
                    Some((f, b)) if f.is_some() || b.is_some()
                );
                if has {
                    self.set_selection(vec![id]);
                    self.execute("object.reverse_arrows", &json!({ "ids": ids }))?;
                } else {
                    self.set_status("The object has no arrow to reverse");
                }
            }
            (ToolKind::Align, Button::Left) if is_compound => {
                // Align the members of a compound with each other.
                self.set_selection(vec![id]);
                self.execute("object.ungroup", &json!({ "ids": ids }))?;
                let freed = crate::cmd::ids_value(self.selection());
                self.execute("arrange.align", &json!({ "ids": freed }))?;
                self.execute("object.group", &json!({ "ids": freed }))?;
            }
            (ToolKind::Update, Button::Left) => {
                self.set_selection(vec![id]);
                self.execute("object.update", &json!({ "ids": ids }))?;
            }
            (ToolKind::Update, Button::Middle) if !is_compound => {
                // xfig's "update settings": the object's attributes become
                // the current ones.
                if let Some(o) = self.doc().get(id).cloned() {
                    self.indicator.take_from(&o);
                }
            }
            (ToolKind::Edit, Button::Left) => {
                self.set_selection(vec![id]);
                // A plot (E12) opens the Plot dialog, which redraws it.
                if self.doc().get(id).is_some_and(crate::cmd::plot::is_plot) {
                    self.request(UiRequest::PlotDialog {
                        rect: None,
                        edit: Some(id),
                    });
                    return Ok(());
                }
                self.request(UiRequest::EditObject { id });
            }
            (ToolKind::FlipV | ToolKind::FlipH, Button::Left | Button::Middle) => {
                // About the clicked point, like xfig; middle flips a copy.
                let cmd = if tool == ToolKind::FlipV {
                    "transform.flip_vertical"
                } else {
                    "transform.flip_horizontal"
                };
                // The anchor, when set, is the axis instead of the click.
                let at = self.set_point.unwrap_or(pos);
                self.set_selection(vec![id]);
                self.execute(
                    cmd,
                    &json!({ "ids": ids, "cx": at.x, "cy": at.y, "copy": copy, "reappend": true }),
                )?;
            }
            (ToolKind::RotateCcw | ToolKind::RotateCw, Button::Left | Button::Middle) => {
                let mut a = self.indicator.rotate_angle;
                if tool == ToolKind::RotateCw {
                    a = -a;
                }
                self.set_selection(vec![id]);
                let mut params = json!({ "ids": ids, "angle": a, "copy": copy, "reappend": true });
                if copy {
                    params["copies"] = json!(self.indicator.num_copies);
                }
                // About the clicked point unless a centre was set with the
                // right button (`init_rotate`, W22-2).
                let c = self.set_point.unwrap_or(pos);
                if let Some(m) = params.as_object_mut() {
                    m.insert("cx".into(), json!(c.x));
                    m.insert("cy".into(), json!(c.y));
                }
                self.execute("transform.rotate", &params)?;
            }
            (ToolKind::Convert, Button::Left) => {
                self.set_selection(vec![id]);
                self.execute("object.convert", &json!({ "ids": ids }))?;
            }
            (ToolKind::Convert, Button::Right) => {
                // `point_search_right`: the click must hit a vertex of a line
                // or spline, and a polygon opens at it (W22-30).
                if let Some((vid, index)) = self.find_vertex(pos, tol) {
                    let ok = match self.doc().get(vid).map(|o| &o.kind) {
                        Some(ObjectKind::Polyline(pl)) => matches!(pl.kind, PolyKind::Polyline | PolyKind::Polygon),
                        Some(ObjectKind::Spline(_)) => true,
                        _ => false,
                    };
                    if ok {
                        self.set_selection(vec![vid]);
                        self.execute("object.toggle_closed", &json!({ "ids": [vid.0], "index": index }))?;
                    }
                }
            }
            (ToolKind::OpenClose, Button::Left) => {
                self.set_selection(vec![id]);
                self.execute("object.toggle_closed", &json!({ "ids": ids }))?;
            }
            (ToolKind::Arrow, Button::Left | Button::Middle) => {
                let Some(o) = self.doc().get(id) else { return Ok(()) };
                let Some((fwd, back)) = o.arrows() else { return Ok(()) };
                let pts = rustfig_model::flatten_object(o);
                let Some(path) = pts.first() else { return Ok(()) };
                let (Some(first), Some(last)) = (path.pts.first(), path.pts.last()) else {
                    return Ok(());
                };
                // The forward arrow sits at the last point.
                let at_end = pos.dist(*last) <= pos.dist(*first);
                let present = if at_end { fwd.is_some() } else { back.is_some() };
                // xfig: left adds an arrow, middle removes one.
                let toggle = match button {
                    Button::Left => !present,
                    _ => present,
                };
                if toggle {
                    let cmd = if at_end {
                        "object.toggle_forward_arrow"
                    } else {
                        "object.toggle_backward_arrow"
                    };
                    self.set_selection(vec![id]);
                    self.execute(cmd, &json!({ "ids": ids }))?;
                }
            }
            _ => {}
        }
        Ok(())
    }

    // ---- mouse hints -------------------------------------------------------

    /// The current function of each mouse button, for the mouse indicator.
    /// Must describe what [`Engine::tool_event`] actually does: a test
    /// checks every tool and state. The wording is xfig's
    /// (`set_mousefun` calls in xfig's `d_*.c` and `e_*.c`).
    pub fn mouse_hints(&self) -> MouseHints {
        self.mouse_hints_with(false)
    }

    /// [`Engine::mouse_hints`] while Shift is (or is not) held: the buttons
    /// that do something else with Shift show that instead (xfig's
    /// `draw_shift_mousefun_canvas`). xfig's other Shift label belongs to a
    /// function not ported yet: "Locate Object" (S4-1).
    pub fn mouse_hints_with(&self, shift: bool) -> MouseHints {
        self.mouse_hints_for(shift, false)
    }

    /// [`Engine::mouse_hints_with`] with Ctrl (Cmd on macOS) too: Ctrl alone
    /// shows the zoom functions, Ctrl+Shift in the editing modes the shape
    /// factor ones (xfig's `canvas_selected` key cases).
    pub fn mouse_hints_for(&self, shift: bool, ctrl: bool) -> MouseHints {
        let mut h = self.mouse_hints_plain();
        if matches!(self.tool_state, ToolState::ZoomBox { .. }) {
            return h;
        }
        if ctrl {
            let edit = !self.tool.is_drawing();
            if !shift {
                h.left = "Zoom area";
                h.middle = "Pan to origin";
                h.right = "Unzoom";
                return h;
            }
            if edit {
                h.left = "More approx";
                h.middle = "Cycle shapes";
                h.right = "More interp";
                return h;
            }
        }
        if shift {
            let (l, m, r) = self.shift_hints();
            for (slot, s) in [(&mut h.left, l), (&mut h.middle, m), (&mut h.right, r)] {
                if !s.is_empty() {
                    *slot = s;
                }
            }
            // In the locating modes Shift+middle and Shift+right do nothing
            // (Edit's Shift+middle aside): their labels are blank.
            if self.locate_mode() {
                if !self.shift_keeps_button(Button::Middle) {
                    h.middle = "";
                }
                if !self.shift_keeps_button(Button::Right) {
                    h.right = "";
                }
            }
        }
        h
    }

    /// The Shift meanings of the buttons in the current tool and state;
    /// empty where Shift changes nothing.
    fn shift_hints(&self) -> (&'static str, &'static str, &'static str) {
        match (&self.tool_state, self.tool) {
            (ToolState::Points { freehand: false, .. }, ToolKind::Arc) => ("del point", "", ""),
            (ToolState::Points { dimension: true, .. }, _) => ("del point", "", ""),
            (ToolState::Idle, ToolKind::Polyline) => ("dimension line", "", ""),
            (ToolState::Text { .. }, _) => ("", "paste text", ""),
            (ToolState::Library { .. }, _) => ("place and edit", "change draw mode", "place at orig posn"),
            (
                ToolState::Points {
                    freehand: false, pts, ..
                },
                _,
            ) => {
                let ready = !(self.tool_gated() && pts.len() + 1 < self.min_points());
                ("del point", if ready { "finish here" } else { "" }, "")
            }
            (ToolState::Idle, ToolKind::Box | ToolKind::ArcBox | ToolKind::Picture) => ("", "square at center", ""),
            (ToolState::Idle, ToolKind::Plot) => ("first corner", "", ""),
            (ToolState::Idle, ToolKind::AreaMeasure) => ("locate object", "", "reset to +-0"),
            (ToolState::Idle, ToolKind::Edit) => ("locate object", "show comments", ""),
            (ToolState::Idle | ToolState::Chop { .. }, t) if t.locates() => ("locate object", "", ""),
            _ => ("", "", ""),
        }
    }

    fn mouse_hints_plain(&self) -> MouseHints {
        let h = |left, middle, right| MouseHints {
            left,
            middle,
            right,
            shift: "",
        };
        // A label on the button that started the operation.
        let on = |button: Button, label, right| match button {
            Button::Middle => h("", label, right),
            _ => h(label, "", right),
        };
        if self.copy_pick && matches!(self.tool_state, ToolState::Idle) {
            return h("copy object", "copy region", "whole figure");
        }
        let tool = self.tool;
        match &self.tool_state {
            ToolState::ZoomBox { .. } => h("final point", "", "cancel"),
            ToolState::Paste { .. } => h("place object", "place at orig posn", "cancel paste"),
            ToolState::Library { .. } => h("place object", "new object", "cancel library"),
            ToolState::Points {
                pts,
                freehand,
                center,
                dimension,
                ..
            } => {
                if *freehand {
                    h("", "final point", "cancel")
                } else if tool == ToolKind::Arc {
                    let left = match (center.is_some(), pts.len()) {
                        (true, 0) => "first point",
                        (true, 1) => "direction",
                        (true, _) => "final angle",
                        (false, 0 | 1) => "mid point",
                        (false, _) => "final point",
                    };
                    h(left, "", "cancel")
                } else if *dimension {
                    h("final point", "", "cancel")
                } else if self.tool_gated() && pts.len() + 1 < self.min_points() {
                    // xfig: the middle button is dead until one point is missing.
                    h("next point", "", "cancel")
                } else {
                    h("next point", "final point", "cancel")
                }
            }
            ToolState::Drag { kind, button, .. } => {
                // Finished with the button that started it.
                match kind {
                    _ if *button == Button::Right => h("", "", "final point"),
                    ToolKind::EllipseRadii => h("Ellipse corner", "Ellipse corner", "cancel"),
                    ToolKind::EllipseDiameter => h("final corner", "final corner", "cancel"),
                    ToolKind::CircleRadius => on(*button, "set radius", "cancel"),
                    _ => on(*button, "final point", "cancel"),
                }
            }
            ToolState::Text { .. } => MouseHints {
                left: "new text",
                middle: "finish text",
                right: "cancel",
                shift: "",
            },
            // Copy: xfig's "place object" / "array placement" (the Num X/Y Copies).
            ToolState::MoveObjs {
                copy: true,
                dragging: false,
                ..
            } => h("place object", "array placement", "cancel"),
            ToolState::MoveObjs {
                dragging, constrain, ..
            } => {
                let b = if *constrain { Button::Middle } else { Button::Left };
                on(b, if *dragging { "drop" } else { "place object" }, "cancel")
            }
            ToolState::ThreePoints { pts, .. } => h("", "", if pts.len() < 2 { "second point" } else { "final point" }),
            ToolState::AlignTo { .. } => h("cancel", "", "align to first"),
            ToolState::Join { spline, .. } => h(
                if *spline {
                    "Choose next Spline"
                } else {
                    "Choose next Line"
                },
                "",
                "cancel",
            ),
            ToolState::Chop { .. } => h("Select axe object", "Select log object", "Clear axe list"),
            ToolState::Angle { pts, .. } if pts.len() < 2 => h("angle tip", "", "cancel"),
            ToolState::Angle { .. } => h("final point", "save angle", "cancel"),
            ToolState::RubberBand {
                held: true,
                button: Button::Right,
                lasso,
                ..
            } if lasso.len() >= 2 => h("", "", "release: close lasso"),
            ToolState::RubberBand {
                held: true,
                button: Button::Middle,
                lasso,
                ..
            } if lasso.len() >= 2 => h("", "release: close lasso", "cancel"),
            ToolState::RubberBand {
                click: true,
                button: Button::Right,
                ..
            } => h("", "", "final corner"),
            ToolState::RubberBand { click: true, .. } => h("", "final corner", "cancel"),
            ToolState::RubberBand { .. } => h("drag region", "", "cancel"),
            ToolState::PointDrag {
                id,
                index,
                dragging,
                constrain,
                insert,
                ..
            } => {
                let middle = *constrain || (*insert && !*dragging && self.is_end_insert(*id, *index));
                let b = if middle { Button::Middle } else { Button::Left };
                let place = if *insert { "place new point" } else { "new posn" };
                on(b, if *dragging { "drop point" } else { place }, "cancel")
            }
            ToolState::Scale { button, .. } => on(*button, "new posn", "cancel"),
            ToolState::Idle => {
                // xfig shows "compound tagged" from the start.
                let glue = "compound tagged";
                let (l, m, r) = match tool {
                    ToolKind::Polyline => ("first point", "freehand", "single point"),
                    ToolKind::Polygon => ("first point", "freehand", ""),
                    t if t.spline_kind().is_some() => ("first point", "freehand", ""),
                    ToolKind::Arc => ("first point", "center point", ""),
                    ToolKind::CircleRadius | ToolKind::EllipseRadii => ("Circle center", "Ellipse center", ""),
                    ToolKind::CircleDiameter | ToolKind::EllipseDiameter => ("Circle diameter", "Ellipse corner", ""),
                    ToolKind::Box | ToolKind::ArcBox | ToolKind::Picture => ("corner point", "", ""),
                    ToolKind::Plot => ("first corner", "", ""),
                    ToolKind::RegularPolygon => ("center point", "", ""),
                    ToolKind::Text => ("position cursor", "", ""),
                    ToolKind::Glue => ("tag object", "tag region", glue),
                    ToolKind::Break => ("break compound", "break and tag", ""),
                    ToolKind::OpenCompound => ("open compound", "open, keep visible", ""),
                    ToolKind::JoinSplit => ("Join Lines/Splines", "Split Line/Spline", ""),
                    ToolKind::Chop => ("Select axe object", "Select log object", "Clear axe list"),
                    ToolKind::Trim => ("trim piece", "split at point", "extend nearest end"),
                    ToolKind::Scale => ("scale box", "scale about center", ""),
                    ToolKind::Align => ("align compound", "align canvas", ""),
                    ToolKind::Move => ("move object", "horiz/vert move", ""),
                    ToolKind::Copy => ("copy object", "horiz/vert copy", "copy to cut buf"),
                    ToolKind::MovePoint => ("move point", "horiz/vert move", ""),
                    ToolKind::AddPoint => ("break/add here", "", ""),
                    ToolKind::DeletePoint => ("delete point", "", ""),
                    ToolKind::Delete => ("delete object", "delete region", "del to cut buf"),
                    ToolKind::Update => ("update object", "update settings", ""),
                    ToolKind::Edit => ("edit object", "edit Main comment", "edit point"),
                    ToolKind::FlipV | ToolKind::FlipH if self.set_point.is_some() => {
                        ("flip", "copy & flip", "unset anchor")
                    }
                    ToolKind::FlipV | ToolKind::FlipH => ("flip", "copy & flip", "set anchor"),
                    ToolKind::RotateCcw | ToolKind::RotateCw if self.set_point.is_some() => {
                        ("rotate object", "copy & rotate", "unset center")
                    }
                    ToolKind::RotateCcw | ToolKind::RotateCw => ("rotate object", "copy & rotate", "set center"),
                    ToolKind::Convert => ("line/spline, box/arc-box", "", "open/closed"),
                    ToolKind::OpenClose => ("open/close", "", ""),
                    ToolKind::Arrow => ("add arrow", "delete arrow", ""),
                    ToolKind::Tangent => ("add tangent", "add normal", ""),
                    ToolKind::AngleMeasure => ("first point", "select & save", "select object"),
                    ToolKind::LengthMeasure | ToolKind::AreaMeasure => ("select object", "select & add", "reset to 0"),
                    _ => ("", "", ""),
                };
                // The functions on buttons xfig leaves free (W13, W14).
                let (m, r) = match tool {
                    ToolKind::Update => (m, "update region"),
                    ToolKind::Move => (m, "move region"),
                    ToolKind::DeletePoint => ("delete in region", r),
                    ToolKind::AddPoint => ("add at end", r),
                    ToolKind::Arrow => (m, "reverse arrows"),
                    ToolKind::Break => (m, "break all levels"),
                    ToolKind::Align => (m, "align to first"),
                    ToolKind::CircleRadius | ToolKind::CircleDiameter => (m, "circle by 3 points"),
                    ToolKind::Picture => ("center point", "keep aspect"),
                    ToolKind::Box | ToolKind::ArcBox => ("center point", r),
                    ToolKind::RegularPolygon => ("one side", r),
                    ToolKind::Text if self.clipboard_text().is_some() => ("paste as text", r),
                    _ => (m, r),
                };
                h(l, m, r)
            }
        }
    }

    // ---- overlay -----------------------------------------------------------

    /// What to draw on top of the document for the active tool.
    pub fn overlay(&self) -> Overlay {
        let mut ov = Overlay::default();
        match &self.tool_state {
            ToolState::Idle | ToolState::Join { .. } => {}
            ToolState::Angle { pts, cursor } => {
                // The rubber band: the lines from the first point through
                // the second to the pointer (`elastic_line`).
                let mut all = pts.clone();
                all.push(*cursor);
                ov.guides.push(all);
                ov.handles = pts.clone();
            }
            ToolState::ZoomBox { start, cursor } => {
                let mut c = Rect::new(*start, *cursor).corners().to_vec();
                if let Some(f) = c.first().copied() {
                    c.push(f);
                }
                ov.guides.push(c);
            }
            ToolState::Paste { cursor, nw } => {
                for o in self.clipboard() {
                    let mut c = o.clone();
                    c.translate(cursor.x - nw.x, cursor.y - nw.y);
                    ov.preview.push(c);
                }
            }
            ToolState::Library {
                hand,
                nw,
                cursor,
                draw_box,
                ..
            } => {
                if *draw_box {
                    let b = hand.geometry_bbox();
                    let (w, h) = (b.max.x - b.min.x, b.max.y - b.min.y);
                    let r = Rect::new(*cursor, Point::new(cursor.x + w, cursor.y + h));
                    let mut c = r.corners().to_vec();
                    if let Some(f) = c.first().copied() {
                        c.push(f);
                    }
                    ov.guides.push(c);
                } else {
                    let mut c = (**hand).clone();
                    c.translate(cursor.x - nw.x, cursor.y - nw.y);
                    ov.preview.push(c);
                }
            }
            ToolState::Chop { axes, hover } => {
                let highlight = |o: &Object| {
                    let bb = o.geometry_bbox();
                    let mut markers = Vec::new();
                    object_markers(o, &bb, &mut markers);
                    let mut outline = bb.corners().to_vec();
                    if let Some(f) = outline.first().copied() {
                        outline.push(f);
                    }
                    Highlight { markers, outline }
                };
                ov.chop_axes = axes
                    .iter()
                    .filter_map(|id| self.doc().get(*id))
                    .map(highlight)
                    .collect();
                if let Some(p) = hover.filter(|_| !axes.is_empty()) {
                    let mask = self.marker_mask();
                    let tol = self.pick_tol();
                    let log = self.hit_test_where(p, tol, &|o| mask.admits(o) && !axes.contains(&o.id));
                    ov.chop_log = log.and_then(|id| self.doc().get(id)).map(highlight);
                }
            }
            ToolState::Points {
                pts, cursor, center, ..
            } => {
                let mut all = pts.clone();
                all.push(*cursor);
                if self.tool == ToolKind::Arc && all.len() < 3 {
                    match center {
                        // Radii from the centre to each point.
                        Some(c) => ov.guides.extend(all.iter().map(|p| vec![*c, *p])),
                        None => ov.guides.push(all.clone()),
                    }
                } else if let Some(o) = self.points_object(&all, *center) {
                    ov.preview.push(o);
                }
                if self.tool.spline_kind().is_some() {
                    ov.guides.push(all.clone());
                }
                ov.handles = pts.clone();
            }
            ToolState::Drag {
                start,
                cursor,
                kind,
                button,
                square,
                ..
            } => {
                let (a, b) = self.drag_span(*kind, *button, *square, *start, *cursor);
                if let Some(o) = self.drag_object(*kind, a, b) {
                    ov.preview.push(o);
                }
            }
            ToolState::ThreePoints { pts, cursor } => {
                let mut all = pts.clone();
                all.push(*cursor);
                if let [a, b, c] = all.as_slice() {
                    if let Some((m, r)) = crate::cmd::circumcircle(*a, *b, *c) {
                        let kind = if self.tool == ToolKind::CircleDiameter {
                            EllipseKind::CircleDiameter
                        } else {
                            EllipseKind::CircleRadius
                        };
                        ov.preview
                            .push(make_ellipse(self.indicator.style(), m, r, r, 0.0, kind));
                    }
                }
                ov.guides.push(all);
                ov.handles = pts.clone();
            }
            ToolState::AlignTo { reference } => {
                if let Some(o) = self.doc().get(*reference) {
                    let bb = o.geometry_bbox();
                    let mut c = bb.corners().to_vec();
                    if let Some(f) = c.first().copied() {
                        c.push(f);
                    }
                    ov.guides.push(c);
                }
            }
            ToolState::Text { cursor, preedit, .. } => {
                let cursor = *cursor;
                let preedit = preedit.clone();
                let sel = self.text_selection_range();
                if let (Some(mut t), ToolState::Text { editing, .. }) = (self.typing_text(), &self.tool_state) {
                    if let Some(id) = editing {
                        ov.hide.push(*id);
                    }
                    // An IME composition is shown at the caret (underlined
                    // by the UI through `preedit`).
                    let pre = preedit.chars().count();
                    if pre > 0 {
                        let b = textedit::byte_of(&t.text, cursor);
                        t.text.insert_str(b, &preedit);
                        crate::fix_text_metrics(&mut t);
                    }
                    ov.text = Some(OverlayText {
                        object: Object::new(ObjectKind::Text(t)),
                        cursor: cursor + pre,
                        selection: sel,
                        preedit: (cursor, pre),
                    });
                }
            }
            ToolState::MoveObjs {
                ids,
                start,
                cursor,
                copy,
                constrain,
                ..
            } => {
                let d = self.move_delta(*start, *cursor, *constrain);
                for id in ids {
                    if let Some(o) = self.doc().get(*id) {
                        let mut c = o.clone();
                        c.translate(d.x, d.y);
                        ov.preview.push(c);
                    }
                }
                if !copy && d.len() > 0.0 {
                    ov.hide.clone_from(ids);
                }
                if d.len() > 0.0 {
                    // Smart links: every attached line follows while dragging
                    // (a copy leaves the original line where it is: xfig
                    // copies it and stretches the copy's twin).
                    for line in crate::links::preview(self, ids, d.x, d.y) {
                        if !copy {
                            ov.hide.push(line.id);
                        }
                        ov.preview.push(line);
                    }
                }
            }
            ToolState::RubberBand { held: true, lasso, .. } if lasso.len() >= 2 => {
                let mut c = lasso.clone();
                if let Some(f) = c.first().copied() {
                    c.push(f);
                }
                ov.guides.push(c);
            }
            ToolState::RubberBand { start, cursor, .. } => {
                let r = Rect::new(*start, *cursor);
                let mut c = r.corners().to_vec();
                if let Some(f) = c.first().copied() {
                    c.push(f);
                }
                ov.guides.push(c);
            }
            ToolState::PointDrag {
                id,
                index,
                insert,
                start,
                cursor,
                constrain,
                ..
            } => {
                if let Some(o) = self.doc().get(*id) {
                    let p = self.point_target(*id, *index, *insert, *start, *cursor, *constrain);
                    let mut c = o.clone();
                    preview_point(&mut c, *index, *insert, p);
                    ov.handles = edit_points(&c);
                    // Smart links: a box corner dragged stretches the lines
                    // attached to its edges.
                    if let (Some(old), ObjectKind::Polyline(pl)) = (rect_of(o), &c.kind) {
                        if !*insert && pl.kind.is_rect() {
                            let new = Rect::from_points(pl.points.iter().copied());
                            let links = crate::links::collect(self, &[*id]);
                            for line in crate::links::preview_with(self, &links, &crate::links::rect_map(old, new)) {
                                ov.hide.push(line.id);
                                ov.preview.push(line);
                            }
                        }
                    }
                    ov.preview.push(c);
                    ov.hide.push(*id);
                }
            }
            ToolState::Scale {
                id,
                center,
                from,
                cursor,
                axis,
                button,
                ..
            } => {
                if let Some(o) = self.doc().get(*id) {
                    if let Some((fx, fy)) = scale_factors(*center, *from, *cursor, *axis, *button == Button::Left) {
                        let mut c = o.clone();
                        let t = Affine::about(Affine::scale(fx, fy), *center);
                        c.transform(&t, true);
                        ov.preview.push(c);
                        // Smart links: the attached lines follow the scaling.
                        let links = crate::links::collect(self, &[*id]);
                        for line in crate::links::preview_with(self, &links, &|q| t.apply(q)) {
                            ov.hide.push(line.id);
                            ov.preview.push(line);
                        }
                        ov.hide.push(*id);
                    }
                    ov.guides.push(vec![*center, *cursor]);
                }
            }
        }
        ov.join_marker = self.join_marker();
        (ov.markers, ov.tagged) = self.mode_markers_tagged();
        match self.locate {
            Some(Locate::Cursor(p)) if self.locate_mode() => ov.tagged.push(p),
            Some(Locate::Object(id)) if self.locate_mode() => {
                if let Some(o) = self.doc().get(id) {
                    object_markers(o, &o.geometry_bbox(), &mut ov.tagged);
                }
            }
            _ => {}
        }
        self.length_overlay(&mut ov);
        ov.crosshair = self.crosshair_point();
        // The set centre/anchor of Rotate/Flip (xfig's `center_marker`).
        if let Some(c) = self.set_point.filter(|_| self.tool.uses_set_point()) {
            ov.handles.push(c);
        }
        ov
    }
}

/// The box of a box-like polyline (box, arc-box, picture).
fn rect_of(o: &Object) -> Option<Rect> {
    match &o.kind {
        ObjectKind::Polyline(pl) if pl.kind.is_rect() => Some(Rect::from_points(pl.points.iter().copied())),
        _ => None,
    }
}

/// Apply a pending point edit to a copy, for previewing.
fn preview_point(o: &mut Object, index: usize, insert: bool, p: Point) {
    match &mut o.kind {
        ObjectKind::Polyline(pl) if insert => {
            let i = index.min(pl.points.len());
            pl.points.insert(i, p);
        }
        ObjectKind::Spline(s) if insert => {
            let i = index.min(s.points.len());
            s.points.insert(i, p);
            let i = i.min(s.shapes.len());
            s.shapes.insert(i, s.kind.default_shape());
        }
        ObjectKind::Polyline(pl) if pl.kind.is_rect() => {
            if let Some(opp) = pl.points.get((index + 2) % 4).copied() {
                pl.points = Rect::new(opp, p).corners().to_vec();
            }
        }
        ObjectKind::Polyline(pl) => {
            if let Some(q) = pl.points.get_mut(index) {
                *q = p;
            }
        }
        ObjectKind::Spline(s) => {
            if let Some(q) = s.points.get_mut(index) {
                *q = p;
            }
        }
        ObjectKind::Arc(a) => {
            if let Some(q) = a.points.get_mut(index) {
                *q = p;
            }
            a.refit();
        }
        ObjectKind::Ellipse(e) => match index {
            0 => e.center = p,
            _ => {
                let d = p - e.center;
                e.radii = if e.kind.is_circle() {
                    Point::new(d.len(), d.len())
                } else {
                    Point::new(d.x.abs(), d.y.abs())
                };
            }
        },
        _ => {}
    }
}

fn nearest_vertex(pts: &[Point], p: Point, tol: f64) -> Option<usize> {
    let mut best: Option<(f64, usize)> = None;
    for (i, v) in pts.iter().enumerate() {
        let d = v.dist(p);
        if d <= tol && best.is_none_or(|(bd, _)| d < bd) {
            best = Some((d, i));
        }
    }
    best.map(|(_, i)| i)
}

/// Text justification name.
pub fn justify_name(j: Justify) -> &'static str {
    match j {
        Justify::Left => "left",
        Justify::Center => "center",
        Justify::Right => "right",
    }
}

/// The fixed point and axis of a Scale click (xfig's `init_boxscale_*`): the
/// click picks the nearest of the box's eight handles; a corner scales both
/// sizes about the opposite corner, the middle of an edge changes only the
/// size across it, about the opposite edge.
fn scale_handle(bb: &Rect, pos: Point) -> (Point, ScaleAxis) {
    let (cx, cy) = (bb.center().x, bb.center().y);
    let xs = [bb.min.x, cx, bb.max.x];
    let ys = [bb.min.y, cy, bb.max.y];
    let mut best = (f64::MAX, 0usize, 0usize);
    for (i, x) in xs.iter().enumerate() {
        for (j, y) in ys.iter().enumerate() {
            if i == 1 && j == 1 {
                continue;
            }
            let d = Point::new(*x, *y).dist(pos);
            if d < best.0 {
                best = (d, i, j);
            }
        }
    }
    let (_, i, j) = best;
    let fx = if i == 1 {
        cx
    } else if i == 0 {
        bb.max.x
    } else {
        bb.min.x
    };
    let fy = if j == 1 {
        cy
    } else if j == 0 {
        bb.max.y
    } else {
        bb.min.y
    };
    let axis = match (i, j) {
        (1, _) => ScaleAxis::Y,
        (_, 1) => ScaleAxis::X,
        _ => ScaleAxis::Both,
    };
    (Point::new(fx, fy), axis)
}

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

    fn press(e: &mut Engine, x: f64, y: f64) {
        e.tool_event(ToolEvent::Press {
            pos: Point::new(x, y),
            button: Button::Left,
            shift: false,
        })
        .unwrap();
        e.tool_event(ToolEvent::Release {
            pos: Point::new(x, y),
            button: Button::Left,
        })
        .unwrap();
    }

    #[test]
    fn draw_polyline_by_clicks() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Polyline);
        press(&mut e, 0.0, 0.0);
        press(&mut e, 1200.0, 0.0);
        press(&mut e, 1200.0, 1200.0);
        e.tool_event(ToolEvent::DoubleClick {
            pos: Point::new(1200.0, 1200.0),
        })
        .unwrap();
        assert_eq!(e.doc().objects.len(), 1);
        assert_eq!(e.doc().objects[0].points().unwrap().len(), 3);
        assert!(!e.tool_busy());
    }

    fn button(e: &mut Engine, x: f64, y: f64, button: Button, shift: bool) {
        e.tool_event(ToolEvent::Press {
            pos: Point::new(x, y),
            button,
            shift,
        })
        .unwrap();
        e.tool_event(ToolEvent::Release {
            pos: Point::new(x, y),
            button,
        })
        .unwrap();
    }

    /// xfig `d_line.c`: the middle button is dead for a polygon until only
    /// the last point is missing, and a polygon never has fewer than 3 points.
    #[test]
    fn polygon_needs_three_points() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Polygon);
        press(&mut e, 0.0, 0.0);
        button(&mut e, 1200.0, 0.0, Button::Middle, false);
        assert!(e.doc().objects.is_empty());
        assert!(e.tool_busy());
        press(&mut e, 1200.0, 0.0);
        e.tool_event(ToolEvent::Key(Key::Enter)).unwrap();
        assert!(e.doc().objects.is_empty());
        assert!(e.tool_busy());
        button(&mut e, 1200.0, 1200.0, Button::Middle, false);
        assert_eq!(e.doc().objects.len(), 1);
        assert_eq!(e.doc().objects[0].points().unwrap().len(), 3);
        assert!(!e.tool_busy());
    }

    /// xfig `d_spline.c` (`CLOSED_SPLINE_MIN_NUM_POINTS` 3): same as a polygon.
    #[test]
    fn closed_spline_needs_three_points() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::SplineApproxClosed);
        press(&mut e, 0.0, 0.0);
        button(&mut e, 1200.0, 0.0, Button::Middle, false);
        assert!(e.tool_busy());
        press(&mut e, 1200.0, 0.0);
        button(&mut e, 600.0, 900.0, Button::Middle, false);
        assert_eq!(e.doc().objects.len(), 1);
        assert!(!e.tool_busy());
    }

    /// xfig `create_splineobject`: an open spline with one point says "Not
    /// enough points for spline" and goes on.
    #[test]
    fn open_spline_with_one_point_keeps_drawing() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::SplineApprox);
        press(&mut e, 0.0, 0.0);
        e.tool_event(ToolEvent::Key(Key::Enter)).unwrap();
        assert!(e.doc().objects.is_empty());
        assert!(e.tool_busy());
        assert!(e.status().contains("Not enough points"));
        button(&mut e, 1200.0, 0.0, Button::Middle, false);
        assert_eq!(e.doc().objects.len(), 1);
    }

    /// xfig `get_intermediatepoint`: Shift+left never deletes the first point;
    /// with one point it adds a point like the plain click.
    #[test]
    fn shift_click_keeps_first_point() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Polyline);
        press(&mut e, 0.0, 0.0);
        button(&mut e, 1200.0, 0.0, Button::Left, true);
        assert!(e.tool_busy());
        button(&mut e, 2400.0, 0.0, Button::Left, true);
        assert!(e.tool_busy());
        button(&mut e, 600.0, 600.0, Button::Middle, false);
        assert_eq!(e.doc().objects.len(), 1);
        assert_eq!(e.doc().objects[0].points().unwrap().len(), 2);
    }

    /// xfig `create_lineobject`: the middle button on the first point makes a
    /// single-point polyline (a dot), no closing.
    #[test]
    fn polyline_middle_on_first_point_is_a_dot() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Polyline);
        press(&mut e, 300.0, 300.0);
        button(&mut e, 300.0, 300.0, Button::Middle, false);
        assert_eq!(e.doc().objects[0].points().unwrap().len(), 1);
    }

    #[test]
    fn draw_box_by_drag_and_by_clicks() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Box);
        e.tool_event(ToolEvent::Press {
            pos: Point::new(0.0, 0.0),
            button: Button::Left,
            shift: false,
        })
        .unwrap();
        e.tool_event(ToolEvent::Move {
            pos: Point::new(600.0, 300.0),
        })
        .unwrap();
        assert_eq!(e.overlay().preview.len(), 1);
        e.tool_event(ToolEvent::Release {
            pos: Point::new(600.0, 300.0),
            button: Button::Left,
        })
        .unwrap();
        assert_eq!(e.doc().objects.len(), 1);
        press(&mut e, 0.0, 0.0);
        press(&mut e, 300.0, 300.0);
        assert_eq!(e.doc().objects.len(), 2);
    }

    #[test]
    fn type_text() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Text);
        press(&mut e, 600.0, 600.0);
        e.tool_event(ToolEvent::Text("Hellx".into())).unwrap();
        e.tool_event(ToolEvent::Key(Key::Backspace)).unwrap();
        e.tool_event(ToolEvent::Text("o".into())).unwrap();
        assert!(e.overlay().text.is_some());
        e.tool_event(ToolEvent::Key(Key::Escape)).unwrap();
        let ObjectKind::Text(t) = &e.doc().objects[0].kind else {
            panic!()
        };
        assert_eq!(t.text, "Hello");
        assert!(t.length > 0.0);
        // Click it again to edit.
        // (E10: the caret lands at the clicked character; End goes to the end.)
        press(&mut e, 650.0, 590.0);
        e.tool_event(ToolEvent::Key(Key::End)).unwrap();
        e.tool_event(ToolEvent::Text("!".into())).unwrap();
        e.set_tool(ToolKind::None);
        let ObjectKind::Text(t) = &e.doc().objects[0].kind else {
            panic!()
        };
        assert_eq!(t.text, "Hello!");
        assert_eq!(e.doc().objects.len(), 1);
    }

    #[test]
    fn home_and_end_move_the_caret() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Text);
        press(&mut e, 600.0, 600.0);
        e.tool_event(ToolEvent::Text("ell".into())).unwrap();
        e.tool_event(ToolEvent::Key(Key::Home)).unwrap();
        e.tool_event(ToolEvent::Text("H".into())).unwrap();
        e.tool_event(ToolEvent::Key(Key::End)).unwrap();
        e.tool_event(ToolEvent::Text("o".into())).unwrap();
        e.tool_event(ToolEvent::Key(Key::Escape)).unwrap();
        let ObjectKind::Text(t) = &e.doc().objects[0].kind else {
            panic!()
        };
        assert_eq!(t.text, "Hello");
    }

    fn click(e: &mut Engine, x: f64, y: f64, button: Button) {
        let pos = Point::new(x, y);
        e.tool_event(ToolEvent::Press {
            pos,
            button,
            shift: false,
        })
        .unwrap();
        e.tool_event(ToolEvent::Release { pos, button }).unwrap();
    }

    fn objects_of(e: &Engine) -> Vec<&ObjectKind> {
        e.doc().objects.iter().map(|o| &o.kind).collect()
    }

    #[test]
    fn starts_with_no_mode_like_xfig() {
        let mut e = Engine::new();
        assert_eq!(e.tool(), ToolKind::None);
        assert_eq!(e.status(), "READY. Select a mode or load a file");
        e.execute(
            "shape.rectangle",
            &json!({"x": 0, "y": 0, "width": 1200, "height": 1200}),
        )
        .unwrap();
        for b in [Button::Left, Button::Middle, Button::Right] {
            click(&mut e, 0.0, 0.0, b);
        }
        assert!(!e.tool_busy());
        assert!(e.selection().len() <= 1 && e.doc().objects.len() == 1);
        let h = e.mouse_hints();
        assert!(h.left.is_empty() && h.right.is_empty());
    }

    #[test]
    fn shift_hints_show_what_shift_does() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Chop);
        let h = e.mouse_hints_with(true);
        assert_eq!((h.left, h.middle, h.right), ("locate object", "", ""));
        assert_eq!(e.mouse_hints_with(false).left, "Select axe object");
        // Shift+left removes the last point of a line being drawn.
        e.set_tool(ToolKind::Polyline);
        click(&mut e, 0.0, 0.0, Button::Left);
        click(&mut e, 600.0, 0.0, Button::Left);
        assert_eq!(e.mouse_hints_with(true).left, "del point");
        assert_eq!(e.mouse_hints_with(true).middle, "finish here");
        assert_eq!(e.mouse_hints_with(false).middle, "final point");
        let pos = Point::new(900.0, 0.0);
        e.tool_event(ToolEvent::Press {
            pos,
            button: Button::Left,
            shift: true,
        })
        .unwrap();
        let ToolState::Points { pts, .. } = &e.tool_state else {
            panic!("still drawing")
        };
        assert_eq!(pts.len(), 1);
        // Shift+middle finishes without adding the clicked point.
        click(&mut e, 600.0, 600.0, Button::Left);
        e.tool_event(ToolEvent::Press {
            pos: Point::new(5000.0, 5000.0),
            button: Button::Middle,
            shift: true,
        })
        .unwrap();
        assert!(!e.tool_busy());
        let pts = e.doc().objects[0].points().unwrap().to_vec();
        assert_eq!(pts, vec![Point::new(0.0, 0.0), Point::new(600.0, 600.0)]);
        // Modes without Shift meanings keep their labels.
        e.set_tool(ToolKind::Text);
        assert_eq!(e.mouse_hints_with(true), e.mouse_hints());
    }

    #[test]
    fn mouse_hints_follow_state() {
        let mut e = Engine::new();
        for t in ToolKind::ALL {
            e.set_tool(t);
            let h = e.mouse_hints();
            assert!(!h.left.is_empty(), "{} has no left-button hint", t.id());
        }
        e.set_tool(ToolKind::Polyline);
        assert_eq!(e.mouse_hints().left, "first point");
        assert_eq!(e.mouse_hints().middle, "freehand");
        press(&mut e, 0.0, 0.0);
        assert_eq!(e.mouse_hints().middle, "final point");
        assert_eq!(e.mouse_hints().right, "cancel");
        e.set_tool(ToolKind::Text);
        press(&mut e, 0.0, 0.0);
        assert_eq!(e.mouse_hints().left, "new text");
    }

    /// What a button press can change.
    fn snapshot(e: &Engine) -> String {
        format!(
            "{} {:?} {:?} {:?} {:?} {:?} {} {} {}",
            e.revision(),
            e.locate,
            e.status(),
            e.selection(),
            e.tool_state,
            e.set_point,
            serde_json::to_string(&e.indicator).unwrap(),
            e.clipboard().len(),
            e.requests.len()
        )
    }

    /// Documents for the hint check; each has an object at (0, 0).
    fn fixture(n: usize) -> Engine {
        let mut e = Engine::new();
        match n {
            0 | 1 => {
                e.execute(
                    "shape.polyline",
                    &json!({"points": [[0, 0], [1200, 0], [1200, 1200]], "thickness": 3}),
                )
                .unwrap();
                if n == 1 {
                    e.execute("object.toggle_forward_arrow", &json!({})).unwrap();
                    e.execute("object.toggle_backward_arrow", &json!({})).unwrap();
                }
            }
            3 => {
                // A spline whose middle control point is at (0, 0).
                e.execute(
                    "shape.polyline",
                    &json!({"points": [[1200, -1200], [0, 0], [1200, 1200]]}),
                )
                .unwrap();
                e.execute("object.convert", &json!({})).unwrap();
            }
            4 => {
                // A text on the clipboard, for the paste function.
                e.execute("shape.text", &json!({"x": 0, "y": 0, "text": "abc"}))
                    .unwrap();
                e.execute("edit.copy", &json!({})).unwrap();
            }
            5 => {
                // A line with a vertex at (0, 0): Join/Split can split it there.
                e.execute(
                    "shape.polyline",
                    &json!({"points": [[-1200, 0], [0, 0], [1200, 0], [1200, 1200]]}),
                )
                .unwrap();
            }
            6 => {
                // Two lines whose end points are at (0, 0) and (600, 900).
                e.execute("shape.polyline", &json!({"points": [[0, 0], [0, -1200]]}))
                    .unwrap();
                e.execute("shape.polyline", &json!({"points": [[600, 900], [1800, 900]]}))
                    .unwrap();
            }
            7 => {
                // Two crossing lines: an axe through (0, 0) and a log through
                // (600, 900) that intersect, so Chop's middle button cuts.
                e.execute("shape.polyline", &json!({"points": [[0, 0], [0, 1200]]}))
                    .unwrap();
                e.execute("shape.polyline", &json!({"points": [[-600, 900], [1800, 900]]}))
                    .unwrap();
            }
            8 => {
                // A box with a corner at (0, 0): the measure modes' object.
                e.execute(
                    "shape.rectangle",
                    &json!({"x": 0, "y": 0, "width": 1200, "height": 600}),
                )
                .unwrap();
            }
            _ => {
                e.execute(
                    "shape.rectangle",
                    &json!({"x": 0, "y": 0, "width": 1200, "height": 600}),
                )
                .unwrap();
                e.execute("shape.circle", &json!({"cx": 2400, "cy": 2400, "r": 300}))
                    .unwrap();
                e.execute("edit.select_all", &json!({})).unwrap();
                e.execute("object.group", &json!({})).unwrap();
            }
        }
        e
    }

    /// The indicator must tell the truth: in every tool and state,
    /// a button with no label does nothing, and a labelled button does
    /// something in at least one of the fixture documents.
    #[test]
    fn mouse_hints_match_behaviour() {
        use std::collections::BTreeMap;
        const BUTTONS: [Button; 3] = [Button::Left, Button::Middle, Button::Right];
        let p = (0.0, 0.0);
        let q = (600.0, 900.0);
        // (tool, how the state was reached, button, label) -> acted
        let mut acted: BTreeMap<(&str, String, String, &str), bool> = BTreeMap::new();
        {
            for tool in ToolKind::ALL {
                for n in 0..9 {
                    // Fixture 8 (a plain box) is for the measure modes.
                    if n == 8 && !matches!(tool, ToolKind::LengthMeasure | ToolKind::AreaMeasure) {
                        continue;
                    }
                    let setup = |prefix: Option<Button>| {
                        let mut e = fixture(n);
                        e.set_tool(tool);
                        if tool == ToolKind::Align {
                            // Align to the page's far corner, so something moves.
                            e.execute("indicator.set", &json!({"align_h": "right", "align_v": "bottom"}))
                                .unwrap();
                        }
                        if let Some(b) = prefix {
                            click(&mut e, p.0, p.1, b);
                        }
                        e
                    };
                    for prefix in [None, Some(Button::Left), Some(Button::Middle)] {
                        let base = setup(prefix);
                        if prefix.is_some() && !base.tool_busy() {
                            continue;
                        }
                        let at = if prefix.is_some() { q } else { p };
                        // Plain presses and Shift presses against the Shift labels (S4-7).
                        for shift in [false, true] {
                            let h = base.mouse_hints_with(shift);
                            for (b, label) in BUTTONS.iter().zip([h.left, h.middle, h.right]) {
                                let mut e = setup(prefix);
                                let before = snapshot(&e);
                                let _ = e.tool_event(ToolEvent::Press {
                                    pos: Point::new(at.0, at.1),
                                    button: *b,
                                    shift,
                                });
                                let changed = snapshot(&e) != before;
                                let what = format!(
                                    "{} after {prefix:?}, shift {shift}, {b:?} ({label:?}) in fixture {n}",
                                    tool.id()
                                );
                                if label.is_empty() {
                                    assert!(!changed, "{what}: no label, but the press changed something");
                                } else {
                                    let key = (tool.id(), format!("{prefix:?} shift {shift}"), format!("{b:?}"), label);
                                    *acted.entry(key).or_default() |= changed;
                                }
                            }
                        }
                    }
                }
            }
        }
        // Glue's "compound tagged" shows from the start, as in xfig, and acts
        // once two objects are tagged (the fixtures tag nothing).
        let silent: Vec<_> = acted
            .iter()
            .filter(|(k, a)| !**a && !(k.0 == "tool.glue" && k.3 == "compound tagged"))
            .map(|(k, _)| k)
            .collect();
        assert!(silent.is_empty(), "labelled buttons that did nothing: {silent:#?}");
    }

    #[test]
    fn xfig_polyline_buttons() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Polyline);
        click(&mut e, 0.0, 0.0, Button::Left);
        click(&mut e, 1200.0, 0.0, Button::Left);
        click(&mut e, 1200.0, 1200.0, Button::Middle);
        assert_eq!(e.doc().objects[0].points().unwrap().len(), 3);
        // Right cancels.
        click(&mut e, 0.0, 0.0, Button::Left);
        click(&mut e, 600.0, 0.0, Button::Left);
        click(&mut e, 0.0, 0.0, Button::Right);
        assert_eq!(e.doc().objects.len(), 1);
        assert!(!e.tool_busy());
        // Shift+left removes the last point.
        click(&mut e, 0.0, 0.0, Button::Left);
        click(&mut e, 600.0, 0.0, Button::Left);
        e.tool_event(ToolEvent::Press {
            pos: Point::new(900.0, 0.0),
            button: Button::Left,
            shift: true,
        })
        .unwrap();
        click(&mut e, 0.0, 600.0, Button::Middle);
        assert_eq!(
            e.doc().objects[1].points().unwrap(),
            &[Point::ZERO, Point::new(0.0, 600.0)]
        );
        // Right at rest enters a single point.
        click(&mut e, 2400.0, 2400.0, Button::Right);
        assert_eq!(e.doc().objects[2].points().unwrap().len(), 1);
    }

    #[test]
    fn arc_type_and_text_step() {
        let mut e = Engine::new();
        e.indicator.pie_arc = true;
        e.set_tool(ToolKind::Arc);
        click(&mut e, 0.0, 0.0, Button::Left);
        click(&mut e, 600.0, 600.0, Button::Left);
        click(&mut e, 1200.0, 0.0, Button::Left);
        let ObjectKind::Arc(a) = objects_of(&e)[0] else {
            panic!()
        };
        assert!(a.pie);
        // Text step 2: the next line starts twice as far down.
        e.set_tool(ToolKind::Text);
        let start = |e: &mut Engine, step: f64| {
            e.indicator.text_step = step;
            click(e, 6000.0, 6000.0, Button::Left);
            e.tool_event(ToolEvent::Text("a".into())).unwrap();
            e.tool_event(ToolEvent::Key(Key::Enter)).unwrap();
            let ToolState::Text { origin, .. } = &e.tool_state else {
                panic!()
            };
            let dy = origin.y - 6000.0;
            e.tool_event(ToolEvent::Key(Key::Escape)).unwrap();
            dy
        };
        let one = start(&mut e, 1.0);
        let two = start(&mut e, 2.0);
        assert!((two - 2.0 * one).abs() < 1e-6, "{one} {two}");
    }

    #[test]
    fn xfig_text_buttons() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Text);
        // Middle finishes.
        click(&mut e, 600.0, 600.0, Button::Left);
        e.tool_event(ToolEvent::Text("Hi".into())).unwrap();
        click(&mut e, 0.0, 0.0, Button::Middle);
        assert_eq!(e.doc().objects.len(), 1);
        assert!(!e.tool_busy());
        // Right cancels: nothing new, and an edited text keeps its string.
        click(&mut e, 3000.0, 3000.0, Button::Left);
        e.tool_event(ToolEvent::Text("gone".into())).unwrap();
        click(&mut e, 0.0, 0.0, Button::Right);
        assert_eq!(e.doc().objects.len(), 1);
        click(&mut e, 650.0, 590.0, Button::Left);
        e.tool_event(ToolEvent::Text("!!".into())).unwrap();
        click(&mut e, 0.0, 0.0, Button::Right);
        let ObjectKind::Text(t) = objects_of(&e)[0] else {
            panic!()
        };
        assert_eq!(t.text, "Hi");
    }

    #[test]
    fn freehand_with_the_middle_button() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Polyline);
        click(&mut e, 0.0, 0.0, Button::Middle);
        for i in 1..=20 {
            let x = f64::from(i) * 60.0;
            e.tool_event(ToolEvent::Move {
                pos: Point::new(x, (x / 200.0).sin() * 300.0),
            })
            .unwrap();
        }
        click(&mut e, 1300.0, 0.0, Button::Middle);
        assert!(e.doc().objects[0].points().unwrap().len() > 10);
    }

    #[test]
    fn arc_by_center() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::Arc);
        click(&mut e, 0.0, 0.0, Button::Middle);
        click(&mut e, 1200.0, 0.0, Button::Left);
        // Mid and final angles: only the direction from the centre counts.
        click(&mut e, 0.0, 300.0, Button::Left);
        click(&mut e, -5000.0, 0.0, Button::Left);
        let ObjectKind::Arc(a) = objects_of(&e)[0] else {
            panic!()
        };
        for p in a.points {
            assert!((p.len() - 1200.0).abs() < 1e-6, "{p:?} is not on the circle");
        }
        assert!(a.points[1].y > 0.0);
    }

    #[test]
    fn circle_mode_draws_ellipses_with_the_middle_button() {
        let mut e = Engine::new();
        e.set_tool(ToolKind::CircleRadius);
        click(&mut e, 0.0, 0.0, Button::Middle);
        // Either button finishes it, as in xfig.
        click(&mut e, 1200.0, 600.0, Button::Middle);
        let ObjectKind::Ellipse(el) = objects_of(&e)[0] else {
            panic!()
        };
        assert_eq!(el.radii, Point::new(1200.0, 600.0));
        click(&mut e, 0.0, 0.0, Button::Middle);
        click(&mut e, 600.0, 300.0, Button::Left);
        assert_eq!(e.doc().objects.len(), 2);
        assert!(e.undo());
        click(&mut e, 0.0, 0.0, Button::Left);
        click(&mut e, 1200.0, 600.0, Button::Left);
        let ObjectKind::Ellipse(el) = objects_of(&e)[1] else {
            panic!()
        };
        assert_eq!(el.radii.x, el.radii.y);
    }

    #[test]
    fn middle_button_moves_horizontally_or_vertically() {
        let mut e = fixture(0);
        e.set_tool(ToolKind::Move);
        click(&mut e, 0.0, 0.0, Button::Middle);
        click(&mut e, 300.0, 1200.0, Button::Middle);
        assert_eq!(e.doc().objects[0].points().unwrap()[0], Point::new(0.0, 1200.0));
        e.set_tool(ToolKind::MovePoint);
        click(&mut e, 0.0, 1200.0, Button::Middle);
        click(&mut e, 600.0, 1350.0, Button::Middle);
        assert_eq!(e.doc().objects[0].points().unwrap()[0], Point::new(600.0, 1200.0));
    }

    #[test]
    fn copy_and_flip_is_one_undo_step() {
        let mut e = fixture(0);
        e.set_tool(ToolKind::FlipH);
        click(&mut e, 0.0, 0.0, Button::Middle);
        assert_eq!(e.doc().objects.len(), 2);
        // Flipped about the clicked point.
        assert_eq!(e.doc().objects[1].points().unwrap()[1], Point::new(-1200.0, 0.0));
        assert!(e.undo());
        assert_eq!(e.doc().objects.len(), 1);
        e.set_tool(ToolKind::RotateCcw);
        click(&mut e, 0.0, 0.0, Button::Middle);
        assert_eq!(e.doc().objects.len(), 2);
    }

    #[test]
    fn glue_tags_then_glues() {
        let mut e = fixture(0);
        e.execute("shape.circle", &json!({"cx": 3000, "cy": 3000, "r": 100}))
            .unwrap();
        e.execute("shape.circle", &json!({"cx": 5000, "cy": 5000, "r": 100}))
            .unwrap();
        e.set_selection(vec![]);
        e.set_tool(ToolKind::Glue);
        click(&mut e, 0.0, 0.0, Button::Left);
        // Region by two middle clicks.
        click(&mut e, 2800.0, 2800.0, Button::Middle);
        click(&mut e, 3200.0, 3200.0, Button::Middle);
        assert_eq!(e.selection().len(), 2);
        assert_eq!(e.mouse_hints().right, "compound tagged");
        click(&mut e, 0.0, 0.0, Button::Right);
        assert_eq!(e.doc().objects.len(), 2);
        assert!(objects_of(&e)
            .iter()
            .any(|k| matches!(k, ObjectKind::Compound(c) if c.objects.len() == 2)));
    }

    #[test]
    fn delete_region_and_cut() {
        let mut e = fixture(0);
        e.execute("shape.circle", &json!({"cx": 3000, "cy": 3000, "r": 100}))
            .unwrap();
        e.set_tool(ToolKind::Delete);
        click(&mut e, 2800.0, 2800.0, Button::Middle);
        click(&mut e, 3200.0, 3200.0, Button::Middle);
        assert_eq!(e.doc().objects.len(), 1);
        click(&mut e, 0.0, 0.0, Button::Right);
        assert!(e.doc().objects.is_empty());
        assert_eq!(e.clipboard().len(), 1);
    }

    #[test]
    fn update_settings_takes_attributes() {
        let mut e = fixture(1);
        e.set_tool(ToolKind::Update);
        click(&mut e, 0.0, 0.0, Button::Middle);
        assert_eq!(e.indicator.thickness, 3);
        assert!(e.indicator.forward_arrow && e.indicator.backward_arrow);
    }

    #[test]
    fn arrows_add_with_left_and_remove_with_middle() {
        let mut e = fixture(0);
        e.set_tool(ToolKind::Arrow);
        click(&mut e, 1200.0, 1200.0, Button::Left);
        click(&mut e, 1200.0, 1200.0, Button::Left);
        assert!(e.doc().objects[0].arrows().unwrap().0.is_some());
        click(&mut e, 1200.0, 1200.0, Button::Middle);
        assert!(e.doc().objects[0].arrows().unwrap().0.is_none());
    }

    #[test]
    fn scale_about_opposite_corner_and_centre() {
        let mut e = Engine::new();
        e.execute(
            "shape.rectangle",
            &json!({"x": 0, "y": 0, "width": 1200, "height": 1200}),
        )
        .unwrap();
        e.set_tool(ToolKind::Scale);
        click(&mut e, 1200.0, 1200.0, Button::Left);
        click(&mut e, 600.0, 600.0, Button::Left);
        let bb = e.doc().objects[0].geometry_bbox();
        assert_eq!((bb.min, bb.max), (Point::ZERO, Point::new(600.0, 600.0)));
        click(&mut e, 600.0, 600.0, Button::Middle);
        click(&mut e, 900.0, 900.0, Button::Middle);
        let bb = e.doc().objects[0].geometry_bbox();
        assert_eq!((bb.min, bb.max), (Point::new(-300.0, -300.0), Point::new(900.0, 900.0)));
    }

    #[test]
    fn every_tool_survives_random_events() {
        for t in ToolKind::ALL.iter().copied() {
            let mut e = Engine::new();
            e.execute(
                "shape.rectangle",
                &json!({"x": 0, "y": 0, "width": 1200, "height": 600}),
            )
            .unwrap();
            e.execute("shape.polyline", &json!({"points": [[0, 0], [600, 600], [1200, 0]]}))
                .unwrap();
            e.set_tool(t);
            let evs = [
                ToolEvent::Press {
                    pos: Point::new(0.0, 0.0),
                    button: Button::Left,
                    shift: false,
                },
                ToolEvent::Move {
                    pos: Point::new(300.0, 300.0),
                },
                ToolEvent::Release {
                    pos: Point::new(300.0, 300.0),
                    button: Button::Left,
                },
                ToolEvent::Text("ab".into()),
                ToolEvent::Press {
                    pos: Point::new(600.0, 600.0),
                    button: Button::Left,
                    shift: true,
                },
                ToolEvent::Move {
                    pos: Point::new(f64::MAX, -1.0),
                },
                ToolEvent::DoubleClick {
                    pos: Point::new(600.0, 600.0),
                },
                ToolEvent::Press {
                    pos: Point::new(300.0, 0.0),
                    button: Button::Middle,
                    shift: false,
                },
                ToolEvent::Move {
                    pos: Point::new(900.0, 50.0),
                },
                ToolEvent::Release {
                    pos: Point::new(900.0, 50.0),
                    button: Button::Middle,
                },
                ToolEvent::Press {
                    pos: Point::new(f64::NAN, 0.0),
                    button: Button::Middle,
                    shift: true,
                },
                ToolEvent::Key(Key::Enter),
                ToolEvent::Key(Key::Backspace),
                ToolEvent::Press {
                    pos: Point::new(1200.0, 0.0),
                    button: Button::Right,
                    shift: false,
                },
                ToolEvent::Key(Key::Escape),
            ];
            for ev in evs {
                let _ = e.tool_event(ev);
                let _ = e.overlay();
            }
        }
    }
    // ---- E10: text editing --------------------------------------------

    fn typing(e: &mut Engine, s: &str) {
        e.set_tool(ToolKind::Text);
        click(e, 6000.0, 6000.0, Button::Left);
        e.tool_event(ToolEvent::Text(s.into())).unwrap();
    }

    fn nav(e: &mut Engine, key: Key, shift: bool, word: bool) {
        e.tool_event(ToolEvent::Nav { key, shift, word }).unwrap();
    }

    fn state(e: &Engine) -> (String, usize, usize) {
        let ToolState::Text {
            text, cursor, anchor, ..
        } = &e.tool_state
        else {
            panic!("not typing")
        };
        (text.clone(), *cursor, *anchor)
    }

    #[test]
    fn text_shift_arrows_select_and_typing_replaces() {
        let mut e = Engine::new();
        typing(&mut e, "h\u{e9}llo w\u{f6}rld");
        nav(&mut e, Key::Left, true, false);
        nav(&mut e, Key::Left, true, false);
        assert_eq!(e.text_selection().as_deref(), Some("ld"));
        e.tool_event(ToolEvent::Text("\u{4e16}".into())).unwrap();
        assert_eq!(state(&e).0, "h\u{e9}llo w\u{f6}r\u{4e16}");
        nav(&mut e, Key::Home, true, false);
        assert_eq!(e.text_selection_range(), Some((0, 10)));
        // Left collapses to the start of the selection.
        nav(&mut e, Key::Left, false, false);
        assert_eq!(state(&e).1, 0);
    }

    #[test]
    fn text_word_jumps_and_word_delete() {
        let mut e = Engine::new();
        typing(&mut e, "foo bar, baz");
        nav(&mut e, Key::Left, false, true);
        assert_eq!(state(&e).1, 9);
        nav(&mut e, Key::Left, false, true);
        assert_eq!(state(&e).1, 7);
        nav(&mut e, Key::Left, false, true);
        assert_eq!(state(&e).1, 4);
        nav(&mut e, Key::Right, false, true);
        assert_eq!(state(&e).1, 7);
        nav(&mut e, Key::End, false, false);
        nav(&mut e, Key::Backspace, false, true);
        assert_eq!(state(&e).0, "foo bar, ");
        nav(&mut e, Key::Home, false, false);
        nav(&mut e, Key::Delete, false, true);
        assert_eq!(state(&e).0, " bar, ");
    }

    #[test]
    fn text_cut_copy_paste_and_select_all() {
        let mut e = Engine::new();
        typing(&mut e, "one two");
        nav(&mut e, Key::SelectAll, false, false);
        assert_eq!(e.text_selection().as_deref(), Some("one two"));
        assert_eq!(e.text_cut().as_deref(), Some("one two"));
        assert_eq!(state(&e).0, "");
        assert_eq!(e.text_cut(), None);
        // Paste is a Text event and replaces a selection.
        e.tool_event(ToolEvent::Text("a\u{1F600}b".into())).unwrap();
        nav(&mut e, Key::Left, true, false);
        e.tool_event(ToolEvent::Text("XY".into())).unwrap();
        assert_eq!(state(&e).0, "a\u{1F600}XY");
        nav(&mut e, Key::Backspace, false, false);
        nav(&mut e, Key::Backspace, false, false);
        nav(&mut e, Key::Backspace, false, false);
        assert_eq!(state(&e).0, "a");
    }

    #[test]
    fn text_double_and_triple_click_select() {
        let mut e = Engine::new();
        typing(&mut e, "alpha beta");
        nav(&mut e, Key::Left, false, false);
        nav(&mut e, Key::Left, false, false);
        e.tool_event(ToolEvent::DoubleClick {
            pos: Point::new(0.0, 0.0),
        })
        .unwrap();
        assert_eq!(e.text_selection().as_deref(), Some("beta"));
        e.tool_event(ToolEvent::TripleClick {
            pos: Point::new(0.0, 0.0),
        })
        .unwrap();
        assert_eq!(e.text_selection().as_deref(), Some("alpha beta"));
    }

    #[test]
    fn text_mouse_places_caret_and_drags_a_selection() {
        let mut e = Engine::new();
        typing(&mut e, "abcdef");
        // Click at the left edge of the text: caret 0 (no new text).
        click(&mut e, 6001.0, 5950.0, Button::Left);
        assert_eq!(state(&e), ("abcdef".to_string(), 0, 0));
        // Drag to the right end.
        e.tool_event(ToolEvent::Press {
            pos: Point::new(6001.0, 5950.0),
            button: Button::Left,
            shift: false,
        })
        .unwrap();
        e.tool_event(ToolEvent::Move {
            pos: Point::new(60000.0, 5950.0),
        })
        .unwrap();
        e.tool_event(ToolEvent::Release {
            pos: Point::new(60000.0, 5950.0),
            button: Button::Left,
        })
        .unwrap();
        assert_eq!(e.text_selection().as_deref(), Some("abcdef"));
        // Shift+click extends from the anchor.
        click(&mut e, 6001.0, 5950.0, Button::Left);
        e.tool_event(ToolEvent::Press {
            pos: Point::new(60000.0, 5950.0),
            button: Button::Left,
            shift: true,
        })
        .unwrap();
        // far right is outside the text: finishes it like xfig.
        assert!(matches!(e.tool_state, ToolState::Text { editing: None, .. }));
    }

    #[test]
    fn text_click_on_existing_text_places_caret_at_character() {
        let mut e = Engine::new();
        typing(&mut e, "abcdef");
        e.tool_event(ToolEvent::Key(Key::Escape)).unwrap();
        assert!(matches!(e.tool_state, ToolState::Idle));
        e.set_tool(ToolKind::Text);
        click(&mut e, 6001.0, 5950.0, Button::Left);
        let (t, c, a) = state(&e);
        assert_eq!((t.as_str(), c, a), ("abcdef", 0, 0));
        assert!(matches!(e.tool_state, ToolState::Text { editing: Some(_), .. }));
    }

    #[test]
    fn text_preedit_is_shown_not_stored() {
        let mut e = Engine::new();
        typing(&mut e, "ab");
        e.tool_event(ToolEvent::Preedit("\u{3042}\u{3044}".into())).unwrap();
        let ov = e.overlay();
        let ot = ov.text.unwrap();
        assert_eq!(ot.preedit, (2, 2));
        let ObjectKind::Text(t) = &ot.object.kind else { panic!() };
        assert_eq!(t.text, "ab\u{3042}\u{3044}");
        assert_eq!(state(&e).0, "ab");
        e.tool_event(ToolEvent::Text("\u{3042}".into())).unwrap();
        assert_eq!(state(&e).0, "ab\u{3042}");
        assert_eq!(e.overlay().text.unwrap().preedit.1, 0);
    }

    #[test]
    fn text_dead_key_preedit_then_commit_leaves_no_stray_accent() {
        let mut e = Engine::new();
        typing(&mut e, "a");
        e.tool_event(ToolEvent::Preedit("\u{b4}".into())).unwrap();
        assert_eq!(e.overlay().text.unwrap().preedit.1, 1);
        e.tool_event(ToolEvent::Text("\u{e9}".into())).unwrap();
        assert_eq!(state(&e).0, "a\u{e9}");
        assert_eq!(e.overlay().text.unwrap().preedit.1, 0);
    }

    #[test]
    fn text_unicode_edit_helpers_never_split_chars() {
        use super::textedit::*;
        let s = "\u{1F600}x \u{e9}\u{e9}";
        for i in 0..12 {
            let _ = (
                word_left(s, i),
                word_right(s, i),
                word_range(s, i),
                line_range(s, i),
                byte_of(s, i),
            );
        }
        assert_eq!(word_range(s, 0), (0, 1));
    }
}