type t = {
  height : int;
  ascii : bool;
  marker : Marker.t;
  connector : Connector.t;
}

let default =
  {
    height = 14;
    ascii = false;
    marker = Marker.Circle;
    connector = Connector.Rounded;
  }

let with_height v c = { c with height = v }

let with_marker v c = { c with marker = v }

let with_connector v c = { c with connector = v }