package biotk

  1. Overview
  2. Docs
type tree =
  1. | Leaf of {
    1. text : string;
    2. style : [ `normal | `bold | `italic ];
    3. color : Gg.Color.t;
    }
  2. | Node of {
    1. children : branch list;
    2. tag : Gg.Color.t option;
    }
and branch =
  1. | Branch of {
    1. length : float;
    2. tip : tree;
    3. color : Gg.Color.t;
    }
val leaf : ?style:[ `normal | `bold | `italic ] -> ?col:Gg.Color.t -> string -> tree
val bnode : ?tag:Gg.Color.t -> branch -> branch -> tree
val node : ?tag:Gg.Color.t -> branch list -> tree
val branch : ?col:Gg.Color.t -> float -> tree -> branch