From: Michael H. <mh...@us...> - 2001-01-12 21:15:53
|
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]; |