type t = { height: int; ascii: bool; marker: Marker.t}
let default =
    { height = 14
    ; ascii = false
    ; marker = Marker.Point
    }
let with_height v c = { c with height = v; }
let with_marker v c = { c with marker = v; }