From: Amélia Coutard-Sander <git@ameliathe1st.gay>
Date: Sun, 12 Jan 2025 18:02:03 +0000 (+0100)
Subject: Indication plus visible de la case actuelle quand l'échelle est grande
X-Git-Url: https://git.ameliathe1st.gay/?a=commitdiff_plain;h=6f4c46912977f533eb04a55637ca04615dc82d14;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 974df92..f300fff 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