Skip to content
This repository
tree: 9bb2921199
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 24 lines (18 sloc) 0.769 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
open Common

module Flag = Flag_web

(*****************************************************************************)
(* Flags *)
(*****************************************************************************)

let filter = ref Treemap_pl.ex_filter_file

(*****************************************************************************)
(* Model helpers *)
(*****************************************************************************)

let treemap_generator paths =
  let treemap = Treemap_pl.code_treemap ~filter_file:!filter paths in
  let algo = Treemap.Ordered Treemap.PivotByMiddle in
  let rects = Treemap.render_treemap_algo
    ~algo ~big_borders:!Flag.boost_label_size
    treemap
  in
  Common.pr2 (spf "%d rectangles to draw" (List.length rects));
  rects
Something went wrong with that request. Please try again.