From 14b46d4b6da526e45841f77933af65d50253ac7e Mon Sep 17 00:00:00 2001
From: thindil <thindil@laeran.pl>
Date: Mon, 15 Jan 2024 04:50:52 +0000
Subject: [PATCH] fix: setting current position on map

FossilOrigin-Name: aea233cc722c1f786c4ccc89b5eaebf05ea95a391104b5b4b3b955faeb75d60b
---
 src/ui/maps-ui.adb | 39 +++++++++++++++++++++++++++++++++++++++
 src/ui/maps-ui.ads |  5 +----
 2 files changed, 40 insertions(+), 4 deletions(-)

diff --git a/src/ui/maps-ui.adb b/src/ui/maps-ui.adb
index 4e0535514..a73265641 100644
--- a/src/ui/maps-ui.adb
+++ b/src/ui/maps-ui.adb
@@ -97,6 +97,45 @@ package body Maps.UI is
       return Map_View;
    end Get_Map_View;
 
+   procedure Draw_Map is
+      Center_X, Center_Y: Positive;
+      Map_Height, Map_Width: Positive;
+      End_X, End_Y: Integer;
+      procedure Draw_Ada_Map with
+         Import => True,
+         Convention => C,
+         External_Name => "drawAdaMap";
+   begin
+      Get_Center_Point(X => Center_X, Y => Center_Y);
+      Map_Height :=
+        Positive'Value(cget(Widgt => Get_Map_View, option => "-height"));
+      Map_Width :=
+        Positive'Value(cget(Widgt => Get_Map_View, option => "-width"));
+      --## rule off SIMPLIFIABLE_EXPRESSIONS
+      Start_Y := Center_Y - (Map_Height / 2);
+      Start_X := Center_X - (Map_Width / 2);
+      End_Y := Center_Y + (Map_Height / 2);
+      End_X := Center_X + (Map_Width / 2);
+      --## rule on SIMPLIFIABLE_EXPRESSIONS
+      if Start_Y < 1 then
+         Start_Y := 1;
+         End_Y := Map_Height;
+      end if;
+      if Start_X < 1 then
+         Start_X := 1;
+         End_X := Map_Width;
+      end if;
+      if End_Y > 1_024 then
+         End_Y := 1_024;
+         Start_Y := 1_025 - Map_Height;
+      end if;
+      if End_X > 1_024 then
+         End_X := 1_024;
+         Start_X := 1_025 - Map_Width;
+      end if;
+      Draw_Ada_Map;
+   end Draw_Map;
+
 --   procedure Draw_Map is
 --      use Ada.Strings.UTF_Encoding.Wide_Strings;
 --
diff --git a/src/ui/maps-ui.ads b/src/ui/maps-ui.ads
index 766fd8a4f..bce922ae8 100644
--- a/src/ui/maps-ui.ads
+++ b/src/ui/maps-ui.ads
@@ -41,10 +41,7 @@ package Maps.UI is
    -- FUNCTION
    -- Draw map on the screen
    -- SOURCE
-   procedure Draw_Map with
-      Import => True,
-      Convention => C,
-      External_Name => "drawAdaMap";
+   procedure Draw_Map;
    -- ****
 
    -- ****f* MUI/MUI.Create_Game_Ui