From 74b50da2539ab2cc6797b82519457ae28ed1952e Mon Sep 17 00:00:00 2001 From: malc Date: Sun, 9 Nov 2008 05:37:04 +0300 Subject: [PATCH] More help screen massaging --- rend.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/rend.ml b/rend.ml index 7df1344..436e1f0 100644 --- a/rend.ml +++ b/rend.ml @@ -109,9 +109,9 @@ let help () = let rec loop row = function | [] -> () | (s, s2) :: rest -> - let y = view.h - row * 18 in - draw_string 0.0 (float y) s; - draw_string 100.0 (float y) s2; + let y = view.h - row * 18 - 2 in + draw_string 5.0 (float y) s; + draw_string 105.0 (float y) s2; loop (row+1) rest in loop 1 -- 2.11.4.GIT