Small graphics fix #2

trees.ml

@@ -43,6 +43,7 @@ let delta i j =
 
 let draw_integer x0 y n0 r =
   (* 7-seg display *)
+  set_line_width (max 1 (r/10));
   let n = ref n0 in
   let size = ln10 n0 in
   let len = r/3 in
@@ -676,9 +677,9 @@ let rec detect_collision2 (tr : int abr2) haschanged (side : int ref) =
     with
         | Collision2 (p1, p2) -> haschanged := true; update_col2 tr p1 p2 4 ;;
 
-    
+        
 let decode2 (p : pt) r width height = 
-    (width/2 + p.x/2 * r, height - r - (3*r)*p.y) ;;
+    (width/2 + (1+p.x)/2 * r, height - r - (3*r)*p.y) ;;
 
 let raw_print (tr : int abr2) =
     let rec aux t d = match t with