Gitlab is now running v13.9.0 - More info -> here <-

Commit 5b1f5f2d authored by Philippe Veber's avatar Philippe Veber

tk/Candidate_site.draw: minor layout fix

parent 09f34037
......@@ -150,7 +150,7 @@ let draw_species_names xs =
|> (fun s -> String.sub ~pos:0 ~len:(Int.min 50 (String.length s)) s)
|> ( ^ ) " "
in
Picture.text ~x:0. ~y:(-. float i +. 0.5) ~valign:`base ~halign:`left ~size:0.2 label ;
Picture.text ~x:0. ~y:(-. float i +. 0.5) ~valign:`base ~halign:`left ~size:0.3 label ;
)
|> Picture.blend
......@@ -184,7 +184,7 @@ let tree_add_y_pos t =
in
let ymin = List1.fold positions ~init:Float.infinity ~f:(fun acc (_, y) -> Float.min acc y) in
let ymax = List1.fold positions ~init:Float.neg_infinity ~f:(fun acc (_, y) -> Float.max acc y) in
let x = List1.fold positions ~init:Float.infinity ~f:(fun acc (x, _) -> Float.min acc x) -. 1. in
let x = List1.fold positions ~init:Float.infinity ~f:(fun acc (x, _) -> Float.min acc x) -. 1. /. 4. in
let y = (ymin +. ymax) /. 2. in
(x, y), Tree.node (x, y, ymin, ymax) branches
and branch (Branch b) =
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment