From: Amélia Coutard-Sander <git@f4mnq.fr>
Date: Wed, 7 Jan 2026 13:38:54 +0000 (+0100)
Subject: Indication plus visible de la case actuelle quand l'échelle est grande
X-Git-Url: https://git.f4mnq.fr/?a=commitdiff_plain;h=c22055c05102d03f8070a13e52dec2a42ba53028;p=cells.git

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

diff --git a/bin/modes.ml b/bin/modes.ml
index 834c3c4..15f56df 100644
--- 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