Commit 281111f8 authored by Philippe Veber's avatar Philippe Veber
Browse files

update wrt biotk

parent 2079ac34
......@@ -432,7 +432,7 @@ let%pworkflow convergence_species_tree_pdf ~convergent_species db =
col, String.tr ~target:'_' ~replacement:' ' name
| None -> Gg.Color.black, ""
in
P.leaf ~col ~style:`oblique text
P.leaf ~col ~style:`italic text
| Node n ->
Phylogenetics.List1.map n.branches ~f:of_branch
|> Phylogenetics.List1.to_list
......
......@@ -153,7 +153,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:`balanced ~halign:`left ~size:0.2 label ;
Picture.text ~x:0. ~y:(-. float i +. 0.5) ~valign:`base ~halign:`left ~size:0.2 label ;
)
|> Picture.blend
......
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