Update of /cvsroot/pythianproject/PythianProject/Source/Units
In directory usw-pr-cvs1:/tmp/cvs-serv10713/Source/Units
Modified Files:
Textures.pas
Log Message:
antialiased text, resized SLE, added vglConversation.pas -mike
Index: Textures.pas
===================================================================
RCS file: /cvsroot/pythianproject/PythianProject/Source/Units/Textures.pas,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** Textures.pas 2000/12/01 18:34:56 1.9
--- Textures.pas 2001/01/12 21:16:19 1.10
***************
*** 61,64 ****
--- 61,65 ----
FUseAlpha: Boolean;
FBitDepth: TBitDepth;
+ FMirrorAlpha: boolean;
procedure SetFilterMode(const Value: Single);
procedure SetMipmap(Const Value: Boolean);
***************
*** 87,90 ****
--- 88,92 ----
property Width: Integer read FWidth;
property TexID: TGLuInt read FTexID write FTexID;
+ property MirrorAlpha :boolean read FMirrorAlpha write FMirrorAlpha; // when true the alpha will be a copy of the red component (used for greyscales only)
end;
***************
*** 108,111 ****
--- 110,114 ----
FUseMipmaps := False;
FUseAlpha := True;
+ FMirrorAlpha := false;
end;
***************
*** 373,382 ****
TestColor[2] := TempBuffer^[Size*3 - 3*lx-3];
! if (TestColor[0] = FAlphaColor[0])
! and (TestColor[1] = FAlphaColor[1])
! and (TestColor[2] = FAlphaColor[2]) then
! TestColor[3] := 0
! else
! TestColor[3] := 255;
FImage^[4*lx+0] := TestColor[0];
--- 376,391 ----
TestColor[2] := TempBuffer^[Size*3 - 3*lx-3];
! if FMirrorAlpha then
! begin
! TestColor[3] := TestColor[0];
! end else
! begin
! if (TestColor[0] = FAlphaColor[0])
! and (TestColor[1] = FAlphaColor[1])
! and (TestColor[2] = FAlphaColor[2]) then
! TestColor[3] := 0
! else
! TestColor[3] := 255;
! end;
FImage^[4*lx+0] := TestColor[0];
|
