Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 6eba87f119
Fetching contributors…

Cannot retrieve contributors at this time

24 lines (18 sloc) 0.769 kb
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
Jump to Line
Something went wrong with that request. Please try again.