INTERFACE LinoText;
IMPORT Point;
IMPORT Rect;
IMPORT PaintOp;
CONST
  Brand = "LinoText";
TYPE
  T = RECORD
    a: Point.T; (* attach point *)
    t: TEXT;
    size: CARDINAL;
    attach := Attach.West;
    color := PaintOp.Fg;
  END;
  Attach = {North, West, South, East, Center, CenterBase};

PROCEDURE AttachPoint(r: Rect.T; baseV: INTEGER; a: Attach): Point.T;

given a text bounding rect and vertical pen position, return a point attached to r, as specified by a.

PROCEDURE Equal(a, b: T): BOOLEAN;
PROCEDURE Format(a: T): TEXT;

CONST
  FormatAttach = ARRAY Attach OF TEXT
  {"North", "West", "South", "East", "Center", "CenterBase"};
END LinoText.