aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
authormogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-02 18:53:35 +0000
committermogguh <mogguh@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-02 18:53:35 +0000
commit3df211329573da9450b2388875ec952dcaa98eea (patch)
tree4dbc411cdea100dd74a6e76228da075adb92b267 /Game/Code
parentbf62fe40a0986e0791eb462ef5adebf079e744e6 (diff)
downloadusdx-3df211329573da9450b2388875ec952dcaa98eea.tar.gz
usdx-3df211329573da9450b2388875ec952dcaa98eea.tar.xz
usdx-3df211329573da9450b2388875ec952dcaa98eea.zip
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
Diffstat (limited to 'Game/Code')
-rw-r--r--Game/Code/Classes/UTexture.pas65
1 files changed, 63 insertions, 2 deletions
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);