LTerm_draw

`sig type point = { mutable char : CamomileLibrary.UChar.t; mutable bold : bool; mutable underline : bool; mutable blink : bool; mutable reverse : bool; mutable foreground : LTerm_style.color; mutable background : LTerm_style.color; } type matrix = LTerm_draw.point array array val make_matrix : LTerm_geom.size -> LTerm_draw.matrix val set_style : LTerm_draw.point -> LTerm_style.t -> unit type context val context : LTerm_draw.matrix -> LTerm_geom.size -> LTerm_draw.context exception Out_of_bounds val size : LTerm_draw.context -> LTerm_geom.size val sub : LTerm_draw.context -> LTerm_geom.rect -> LTerm_draw.context val clear : LTerm_draw.context -> unit val fill : LTerm_draw.context -> ?style:LTerm_style.t -> CamomileLibrary.UChar.t -> unit val fill_style : LTerm_draw.context -> LTerm_style.t -> unit val point : LTerm_draw.context -> int -> int -> LTerm_draw.point val draw_char : LTerm_draw.context -> int -> int -> ?style:LTerm_style.t -> CamomileLibrary.UChar.t -> unit val draw_string : LTerm_draw.context -> int -> int -> ?style:LTerm_style.t -> string -> unit val draw_styled : LTerm_draw.context -> int -> int -> ?style:LTerm_style.t -> LTerm_text.t -> unit val draw_string_aligned : LTerm_draw.context -> int -> LTerm_geom.horz_alignment -> ?style:LTerm_style.t -> string -> unit val draw_styled_aligned : LTerm_draw.context -> int -> LTerm_geom.horz_alignment -> ?style:LTerm_style.t -> LTerm_text.t -> unit type connection = Blank | Light | Heavy type piece = { top : LTerm_draw.connection; bottom : LTerm_draw.connection; left : LTerm_draw.connection; right : LTerm_draw.connection; } val draw_piece : LTerm_draw.context -> int -> int -> ?style:LTerm_style.t -> LTerm_draw.piece -> unit val draw_hline : LTerm_draw.context -> int -> int -> int -> ?style:LTerm_style.t -> LTerm_draw.connection -> unit val draw_vline : LTerm_draw.context -> int -> int -> int -> ?style:LTerm_style.t -> LTerm_draw.connection -> unit val draw_frame : LTerm_draw.context -> LTerm_geom.rect -> ?style:LTerm_style.t -> LTerm_draw.connection -> unit end`