From 23c87e0c4020c47a14d6e7fc3ae29d31f0bef387 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 13 Feb 2009 00:06:59 +0000
Subject: endian related glitch with icons resolved (Bug 2363571). Courtesy to
sven for an essential hint.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1590 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
src/base/UImage.pas | 25 +++++++++++++++++++++++++
1 file changed, 25 insertions(+)
(limited to 'src/base/UImage.pas')
diff --git a/src/base/UImage.pas b/src/base/UImage.pas
index 01dfe9ea..d9d02a58 100644
--- a/src/base/UImage.pas
+++ b/src/base/UImage.pas
@@ -903,6 +903,7 @@ procedure ColorizeImage(ImgSurface: PSDL_Surface; NewColor: cardinal);
red, green, blue: longword;
min, max, delta: longword;
hue: double;
+ test: longword;
begin
// extract the colors
// division by 255 is omitted, since it is implicitly done
@@ -961,9 +962,15 @@ begin
// get color values
+ {$IFDEF FPC_BIG_ENDIAN}
+ red := PixelColors[3];
+ green := PixelColors[2];
+ blue := PixelColors[1];
+ {$ELSE}
red := PixelColors[0];
green := PixelColors[1];
blue := PixelColors[2];
+ {$ENDIF}
//calculate luminance and saturation from rgb
@@ -973,9 +980,15 @@ begin
if (max = 0) then // the color is black
begin
+ {$IFDEF FPC_BIG_ENDIAN}
+ PixelColors[3] := 0;
+ PixelColors[2] := 0;
+ PixelColors[1] := 0;
+ {$ELSE}
PixelColors[0] := 0;
PixelColors[1] := 0;
PixelColors[2] := 0;
+ {$ENDIF}
end
else
begin
@@ -985,9 +998,15 @@ begin
if (min = 255) then // the color is white
begin
+ {$IFDEF FPC_BIG_ENDIAN}
+ PixelColors[3] := 255;
+ PixelColors[2] := 255;
+ PixelColors[1] := 255;
+ {$ELSE}
PixelColors[0] := 255;
PixelColors[1] := 255;
PixelColors[2] := 255;
+ {$ENDIF}
end
else // all colors except black and white
begin
@@ -1010,9 +1029,15 @@ begin
5: begin red := max; green := p; blue := q; end; // (v,p,q)
end;
+ {$IFDEF FPC_BIG_ENDIAN}
+ PixelColors[3] := red ;
+ PixelColors[2] := green ;
+ PixelColors[1] := blue ;
+ {$ELSE}
PixelColors[0] := red ;
PixelColors[1] := green ;
PixelColors[2] := blue ;
+ {$ENDIF}
end;
end;
--
cgit v1.2.3