package hardcaml_waveterm
A terminal based digital waveform viewer for Hardcaml
Install
Dune Dependency
Authors
Maintainers
Sources
v0.17.0.tar.gz
sha256=a6780e4310f46cd71ff8a3cdf12bb51afdf0eaea5e84645a148a4ecd0f02920b
doc/hardcaml_waveterm.interactive/Hardcaml_waveterm_interactive/Draw_notty/index.html
Module Hardcaml_waveterm_interactive.Draw_notty
Source
Notty based gfx API. We need to use an intermediate in memory representation for notty.
include module type of Hardcaml_waveterm_kernel.Expert.Draw.In_memory
with type style = Hardcaml_waveterm_kernel.Expert.Draw.In_memory.style
drawing context
underlying style type
convert our style info to underlying style
Source
val fill :
ctx:ctx ->
style:style ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
Base.char ->
Base.unit
fill bounds
with char
given style
Source
val draw_int :
ctx:ctx ->
style:style ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
r:Base.int ->
c:Base.int ->
Base.int ->
Base.unit
draw int (representing unicode value)
Source
val draw_piece :
ctx:ctx ->
style:style ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
r:Base.int ->
c:Base.int ->
Hardcaml_waveterm_kernel__.Draw.piece ->
Base.unit
draw piece
Source
val draw_char :
ctx:ctx ->
style:style ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
r:Base.int ->
c:Base.int ->
Base.char ->
Base.unit
draw char
Source
val draw_string :
ctx:ctx ->
style:style ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
r:Base.int ->
c:Base.int ->
Base.string ->
Base.unit
draw string (nothing fancy - horizontal, no breaks)
Source
val draw_box :
ctx:ctx ->
style:style ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
Base.string ->
Base.unit
draw box outline with label
Source
val get :
ctx:ctx ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
r:Base.int ->
c:Base.int ->
Base.int * Hardcaml_waveterm_kernel__.Draw.Style.t
get value and style at point
Source
val inv :
ctx:ctx ->
bounds:Hardcaml_waveterm_kernel__.Draw.rect ->
r:Base.int ->
c:Base.int ->
Base.unit
invert fg and bg at point
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>