misc

facebookarchive · Oct 20, 2010 · 7428f80 · 7428f80
1 parent 1fba551
commit 7428f80
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 2 deletions.
diff --git a/h_program-visual/treemap_pl.ml b/h_program-visual/treemap_pl.ml
@@ -216,8 +216,10 @@ let anamorphic_diviser_of_file ~root file =
       | Archi_code.I18n -> 8.
       | Archi_code.Data -> 15.
 
-      (* augment size of main *)
-      | Archi_code.Main | Archi_code.Init -> 0.33
+      (* augment size of main 
+       * TODO: should be adaptative
+       *)
+      | Archi_code.Main | Archi_code.Init -> 0.5
 
       | _ -> 1.
       )

diff --git a/visual/draw2.ml b/visual/draw2.ml
@@ -705,6 +705,15 @@ let rec draw_treemap_rectangle_label_maybe2 ~cr ~zoom ~color rect =
 
 and try_draw_label ~font_size_orig ~color ~alpha ~cr ~rect txt =
 
+(* ugly: sometimes labels are too big. Should provide a way to
+ * shorten them.
+ * let txt = 
+ * if true
+ * then if txt =~ "org.eclipse.\\(.*\\)" then Common.matched1 txt else txt
+ * else txt
+ * in
+ *)
+
   let r = rect.T.tr_rect in
 
   let w = F.rect_width r in