diff --git a/a.out b/a.out
index 9f45a73..0ae5a91 100755
Binary files a/a.out and b/a.out differ
diff --git a/trees.cmi b/trees.cmi
index a124c14..123ae58 100644
Binary files a/trees.cmi and b/trees.cmi differ
diff --git a/trees.cmo b/trees.cmo
index a41d24a..f51f7f7 100644
Binary files a/trees.cmo and b/trees.cmo differ
diff --git a/trees.ml b/trees.ml
index e1894f5..62498d7 100644
--- a/trees.ml
+++ b/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