Indication plus visible de la case actuelle quand l'échelle est grande

diff --git a/bin/modes.ml b/bin/modes.ml
index 834c3c4ffc89cf7af7dca4c9ababe17fec1446a4..15f56df5122f03fe549597ccd3445f83e273b382 100644 (file)
--- a/bin/modes.ml
+++ b/bin/modes.ml
@@ -72,7 +72,9 @@ let render_world (EditorState (m, { board; pos = px, py; size })) =
           Graphics.moveto 0 (y * size);
           Graphics.lineto sx (y * size)
         done;
-        Graphics.draw_rect (((px - wx) * size) + 1) (((py - wy) * size) + 1) (size - 2) (size - 2)
+        Graphics.set_line_width ((size / 25) + 2);
+        Graphics.draw_rect ((px - wx) * size) ((py - wy) * size) size size;
+        Graphics.set_line_width 1
 
 module rec Command : (Mode with type initer = string) = struct
   type state = string * string list