Draw_notty (hardcaml_waveterm.hardcaml_waveterm.interactive.Hardcaml_waveterm_interactive.Draw

Notty based gfx API. We need to use an intermediate in memory representation for notty.

include module type of Hardcaml_waveterm_kernel.Draw

type piece = Hardcaml_waveterm_kernel.Draw.piece =

| TL
| BR
| BL
| TR
| V
| H
| T
| Tu
| C
| F
| TH
| BH
| LH
| RH
| QTL
| QBR
| QBL
| QTR
| Up_arrow
| Down_arrow

val sexp_of_piece : piece -> Sexplib0.Sexp.t

val unicode_of_piece : piece -> Base.int

unicode value of piece

type ctx = (Base.int * Hardcaml_waveterm_kernel.Style.t) Base.array Base.array

drawing context

val init : rows:Base.int -> cols:Base.int -> ctx

val rows : ctx -> Base.int

val cols : ctx -> Base.int

val get_bounds : ctx -> Hardcaml_waveterm_kernel.Rect.t

get context size

val clear : ctx -> Base.unit

clear display

val fill : 
  ctx:ctx ->
  style:Hardcaml_waveterm_kernel.Style.t ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  Base.char ->
  Base.unit

fill bounds with char given style

val draw_int : 
  ctx:ctx ->
  style:Hardcaml_waveterm_kernel.Style.t ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  Base.int ->
  Base.unit

draw int (representing unicode value)

val draw_piece : 
  ctx:ctx ->
  style:Hardcaml_waveterm_kernel.Style.t ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  piece ->
  Base.unit

draw piece

val draw_char : 
  ctx:ctx ->
  style:Hardcaml_waveterm_kernel.Style.t ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  Base.char ->
  Base.unit

draw char

val draw_string : 
  ctx:ctx ->
  style:Hardcaml_waveterm_kernel.Style.t ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  Base.string ->
  Base.unit

draw string (nothing fancy - horizontal, no breaks)

val draw_box : 
  ctx:ctx ->
  style:Hardcaml_waveterm_kernel.Style.t ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  Base.string ->
  Base.unit

draw box outline with label

val get : 
  ctx:ctx ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  Base.int * Hardcaml_waveterm_kernel.Style.t

get value and style at point

val inv : 
  ?style:Hardcaml_waveterm_kernel.Style.t ->
  ctx:ctx ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  Base.unit ->
  Base.unit

invert fg and bg at point. Or force to given style if provided.

val bold : 
  ctx:ctx ->
  bounds:Hardcaml_waveterm_kernel.Rect.t ->
  r:Base.int ->
  c:Base.int ->
  Base.unit

set bold on point

val to_image : ctx -> Notty.I.t

module Border : sig ... end