update wrt biotk

lib/orthomam.ml

@@ -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

lib/toolbox/candidate_site.ml

@@ -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