From 3df211329573da9450b2388875ec952dcaa98eea Mon Sep 17 00:00:00 2001
From: mogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 2 Sep 2007 18:53:35 +0000
Subject: VFX: Some pre work for an upcoming (yet unfinished) feature

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@362 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UTexture.pas | 65 ++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 63 insertions(+), 2 deletions(-)

(limited to 'Game/Code')

diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 84604367..161b5512 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -11,7 +11,7 @@ unit UTexture;
 // Arrow (for arrows, white is white, gray has color, black is transparent);
 
 interface
-uses OpenGL12, Windows, Math, Classes, SysUtils, Graphics, JPEG, UThemes, PNGImage;
+uses OpenGL12, Windows, Math, Classes, SysUtils, Graphics, JPEG, UThemes, PNGImage, GraphUtil, dialogs;
 
 procedure glGenTextures(n: GLsizei; var textures: GLuint); stdcall; external opengl32;
 
@@ -66,6 +66,7 @@ type
     function LoadTexture(Identifier: string): TTexture; overload;
     function CreateTexture(var Data: array of byte; Name: string; W, H: word; Bits: byte): TTexture;
     procedure UnloadTexture(Name: string; FromCache: boolean);
+    procedure Colorize(var R,G,B : Byte; Color: Cardinal);    // Real colorize instead of: "150 grey is now blue, k?"
   end;
 
 var
@@ -239,7 +240,7 @@ begin
     end;
     TextureB.Assign(TexturePNG);
     // transparent png hack start (part 1 of 2)
-    if (Typ = 'Transparent') and (TexturePNG.TransparencyMode = ptmPartial) then
+    if ((Typ = 'Transparent') or (Typ = 'Colorized')) and (TexturePNG.TransparencyMode = ptmPartial) then
     begin
       setlength(TextureAlpha, TextureB.Width*TextureB.Height);
       setlength(MyRGBABitmap,TextureB.Width*TextureB.Height*4);
@@ -414,6 +415,49 @@ begin
     end;}
   end;
 
+// The new awesomeness of colorized pngs starts here
+// We're the first who had this feature, so give credit when you copy+paste :P
+    if Typ = 'Colorized' then begin
+    // dimensions
+    TexOrigW := TextureB.Width;
+    TexOrigH := TextureB.Height;
+    TexNewW := Round(Power(2, Ceil(Log2(TexOrigW))));
+    TexNewH := Round(Power(2, Ceil(Log2(TexOrigH))));
+    TextureB.Width := TexNewW;
+    TextureB.Height := TexNewH;
+
+    // copy and process pixeldata
+    for Position := 0 to TexOrigH-1 do begin
+      for Position2 := 0 to TexOrigW-1 do begin
+        Pix := TextureB.Canvas.Pixels[Position2, Position];
+        if (Format = 'PNG') and (length(MyRGBABitmap) <> 0) then begin
+          myAlpha:=TextureAlpha[Position*TexOrigW+Position2];
+          TextureD32[Position*TexNewW + Position2+1, 1] := MyRGBABitmap[(Position*TexOrigW+Position2)*4+2]; // R
+          TextureD32[Position*TexNewW + Position2+1, 2] := MyRGBABitmap[(Position*TexOrigW+Position2)*4+1]; // G
+          TextureD32[Position*TexNewW + Position2+1, 3] := MyRGBABitmap[(Position*TexOrigW+Position2)*4];   // B
+          TextureD32[Position*TexNewW+Position2+1,4]    := MyRGBABitmap[(Position*TexOrigW+Position2)*4+3]; // Alpha
+        end else begin
+          TextureD32[Position*TexNewW + Position2+1, 1] := (Pix and $ff);
+          TextureD32[Position*TexNewW + Position2+1, 2] := ((Pix shr 8) and $ff);
+          TextureD32[Position*TexNewW + Position2+1, 3] := ((Pix shr 16) and $ff);
+          TextureD32[Position*TexNewW + Position2+1, 4] := 255;
+        end;
+      end;
+    end;
+
+    //now the colorize stuff
+    for Position := 0 to TexOrigH-1 do begin
+      for Position2 := 0 to TexOrigW-1 do begin
+        colorize(TextureD32[Position*TexNewW + Position2+1, 1],TextureD32[Position*TexNewW + Position2+1, 2],TextureD32[Position*TexNewW + Position2+1, 3], $fe198e);  //pinkie :P
+      end;
+    end;
+
+    setlength(TextureAlpha,0);
+    setlength(MyRGBABitmap,0);
+    glTexImage2D(GL_TEXTURE_2D, 0, 4, TexNewW, TexNewH, 0, GL_RGBA, GL_UNSIGNED_BYTE, @TextureD32);
+  end;
+// eoa COLORIZE
+
   if Typ = 'Transparent Range' then begin
     // dimensions
     TexOrigW := TextureB.Width;
@@ -759,6 +803,23 @@ begin
 
 end;
 
+
+// Funkyness of colorizing is done in this small box, remember to give credits when you copy from us
+Procedure TTextureUnit.Colorize(var R,G,B : Byte; Color : Cardinal);
+var
+  TexHue, TexLum, TexSat, ClrHue, ClrLum, ClrSat : Word;
+  ColorizedColors: Cardinal;
+begin        //red               //green               //blue
+  Color:=((Color and $ff) shl 16) or (Color and $ff00) or ((Color and $ff0000) shr 16);
+  ColorRGBToHLS(Color, ClrHue, ClrLum, ClrSat);
+  ColorRGBToHLS((((b shl 8) or g) shl 8 or r),TexHue, TexLum, TexSat);
+  ColorizedColors := ColorHLSToRGB(ClrHue, TexLum, TexSat);
+  R := ColorizedColors and $FF;
+  G := (ColorizedColors and $FF00) shr 8;
+  B := (ColorizedColors and $FF0000) shr 16;
+end;
+//eoa COLORIZE
+
 function TTextureUnit.LoadTexture(Identifier: string): TTexture;
 begin
   Result := LoadTexture(false, pchar(Identifier), 'JPG', 'Plain', 0);
-- 
cgit v1.2.3