From 5acf85a932b7afeed5d0c53e1160abaabe5115da Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Fri, 1 Nov 2024 16:19:21 +0100
Subject: [PATCH] rtl-console/amicommon: added a way to redefine colors
 externally in the video unit

---
 packages/rtl-console/src/amicommon/video.pp | 30 +++++++++++++++++++++
 1 file changed, 30 insertions(+)

diff --git a/packages/rtl-console/src/amicommon/video.pp b/packages/rtl-console/src/amicommon/video.pp
index 5c1572b93a..d89815ba81 100644
--- a/packages/rtl-console/src/amicommon/video.pp
+++ b/packages/rtl-console/src/amicommon/video.pp
@@ -42,6 +42,8 @@ uses
 
 {$i videoh.inc}
 
+type
+  TVideoColorMap = array[0..15,0..2] of byte;
 
 { Amiga specific calls, to help interaction between Keyboard, Mouse and
   Video units, and Free Vision }
@@ -57,6 +59,8 @@ procedure GotInactiveWindow;
 function HasInactiveWindow: boolean;
 procedure SetWindowTitle(const winTitle: AnsiString; const screenTitle: AnsiString);
 procedure TranslateToCharXY(const X,Y: LongInt; var CX,CY: LongInt);
+procedure SetAllColors(const colormap: TVideoColorMap);
+
 
 var
   VideoWindow: PWindow;
@@ -920,6 +924,32 @@ begin
 end;
 {$endif}
 
+procedure SetAllColors(const colormap: TVideoColorMap);
+var
+  counter: longint;
+begin
+  {$if not defined(AMIGA_V1_2_ONLY)}
+  for Counter := 0 to 15 do
+    ReleasePen(VideoColorMap, VideoPens[Counter]);
+  {$endif}
+
+  for Counter := 0 to 15 do
+  begin
+    {$if defined(AMIGA_V1_2_ONLY)}
+      VideoPens[Counter] := Counter;
+      SetRGB4(@(PScreen(VideoWindow^.WScreen)^.ViewPort), Counter, colormap[counter, 0] shr 4, colormap[counter, 1] shr 4, colormap[counter, 2] shr 4);
+    {$else}
+      VideoPens[Counter] := ObtainBestPenA(VideoColorMap,
+        colormap[counter, 0] shl 24, colormap[counter, 1] shl 24, colormap[counter, 2] shl 24, nil);
+    {$endif}
+    {$ifdef VIDEODEBUG}
+    If VideoPens[Counter] = -1 then
+      WriteLn('errr color[',Counter,'] = ', VideoPens[Counter])
+    else
+      WriteLn('good color[',Counter,'] = ', VideoPens[Counter]);
+    {$endif}
+  end;
+end;
 
 initialization
   SetVideoDriver(SysVideoDriver);