mp2i-vms
/
PrettyPrinting
46
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Small graphics fix #2

This commit is contained in:
Alexandre 2024-06-14 20:42:56 +02:00
parent 59dc2d2b32
commit 8e98537b30
4 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
a.out
View File

Binary file not shown.

BIN
trees.cmi
View File

Binary file not shown.

BIN
trees.cmo
View File

Binary file not shown.

3
trees.ml
View File

@ -43,6 +43,7 @@ let delta i j =
let draw_integer x0 y n0 r = let draw_integer x0 y n0 r =
(* 7-seg display *) (* 7-seg display *)
set_line_width (max 1 (r/10));
let n = ref n0 in let n = ref n0 in
let size = ln10 n0 in let size = ln10 n0 in
let len = r/3 in let len = r/3 in
@ -678,7 +679,7 @@ let rec detect_collision2 (tr : int abr2) haschanged (side : int ref) =
let decode2 (p : pt) r width height = 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 raw_print (tr : int abr2) =
let rec aux t d = match t with let rec aux t d = match t with