From aced88e43cc720fc7aabf3b083682893316f82e4 Mon Sep 17 00:00:00 2001
From: Marcus Sackrow <alb42@web.de>
Date: Mon, 2 Jan 2023 19:51:20 +0100
Subject: [PATCH] Amiga: 32 bit set color functions for OS 1.x

---
 packages/amunits/src/coreunits/agraphics.pas | 36 ++++++++++++++++++++
 1 file changed, 36 insertions(+)

diff --git a/packages/amunits/src/coreunits/agraphics.pas b/packages/amunits/src/coreunits/agraphics.pas
index e96a3ab7c9..ff1bcd9c9d 100644
--- a/packages/amunits/src/coreunits/agraphics.pas
+++ b/packages/amunits/src/coreunits/agraphics.pas
@@ -2572,6 +2572,9 @@ procedure SetABPenDrMd(Rp: PRastPort; APen, BPen, Drawmode: LongWord); inline;
 function AllocBitMap(SizeX, SizeY, Depth, Flags: LongWord; friend_bitmap: PBitMap): PBitMap;
 procedure FreeBitMap(Bm: PBitMap);
 function GetBitMapAttr(Bm: PBitMap; AttrNum: LongWord): LongWord;
+procedure SetRGB32(Vp: PViewPort; n: LongWord; r, g, b: LongWord); inline;
+procedure SetRGB32CM(Cm: PColorMap; n, r, g, b: LongWord); inline;
+procedure LoadRGB32(Vp: PViewPort ;const table: PLongWord);
 {$endif}
 
 
@@ -2640,6 +2643,39 @@ begin
     GetBitMapAttr := 0;
   end;
 end;
+
+procedure SetRGB32(Vp: PViewPort; n: LongWord; r, g, b: LongWord); inline;
+begin
+  SetRGB4(Vp, n, r shr 28, g shr 28, b shr 28);
+end;
+
+procedure SetRGB32CM(Cm: PColorMap; n, r, g, b: LongWord); inline;
+begin
+  SetRGB4CM(Cm, n, r shr 28, g shr 28, b shr 28);
+end;
+
+procedure LoadRGB32(Vp: PViewPort; const Table: PLongWord);
+var
+  Num: LongWord;
+  R: PLongWord;
+  Red, Green, Blue: LongWord;
+  i: Integer;
+begin
+  R := Table;
+  Num := (R^) shr 16;
+  Inc(R);
+  //
+  for i := 0 to Num - 1 do
+  begin
+    Red := R^;
+    Inc(R);
+    Green := R^;
+    Inc(R);
+    Blue := R^;
+    Inc(R);
+    SetRGB32(Vp, i, Red, Green, Blue);
+  end;
+end;
 {$endif}
 
 {$if not defined(AMIGA_V1_2_ONLY)}