From d945fda158882b733a896c54401833ff293cfb13 Mon Sep 17 00:00:00 2001
From: rexim <reximkut@gmail.com>
Date: Sun, 17 Mar 2024 01:51:10 +0700
Subject: Instantiate Double_IO

---
 game.adb | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'game.adb')

diff --git a/game.adb b/game.adb
index ed7a8e4..22890c0 100644
--- a/game.adb
+++ b/game.adb
@@ -1,3 +1,4 @@
+with Ada.Text_IO;
 with Text_IO; use Text_IO;
 with Interfaces.C; use Interfaces.C;
 with Raylib; use Raylib;
@@ -55,6 +56,8 @@ procedure Game is
     Palette_RGB: array (Palette) of Color := [others => (A => 255, others => 0)];
     Palette_HSV: array (Palette) of HSV := [others => [others => 0]];
 
+    package Double_IO is new Ada.Text_IO.Float_IO(Double);
+
     procedure Save_Colors(File_Name: String) is
         F: File_Type;
     begin
-- 
cgit v1.2.3