* Updated the ThreeDee prototype with a new gradient function.

* Implemented a new fpgGetAvgColor function in gfxbase unit.
* Supplied some more documentation for gfxbase unit.

1 files changed, 16 insertions, 0 deletions

diff --git a/src/corelib/gfxbase.pas b/src/corelib/gfxbase.pas
index 173b8017..41430d7a 100644
--- a/src/corelib/gfxbase.pas
+++ b/src/corelib/gfxbase.pas
@@ -400,6 +400,8 @@ function  fpgGetRed(const AColor: TfpgColor): word;
 function  fpgGetGreen(const AColor: TfpgColor): word;
 function  fpgGetBlue(const AColor: TfpgColor): word;
 function  fpgGetAlpha(const AColor: TfpgColor): word;
+function  fpgGetAvgColor(const AColor1, AColor2: TfpgColor): TfpgColor;
+
 
 { Points }
 function  PtInRect(const ARect: TfpgRect; const APoint: TPoint): Boolean;
@@ -635,6 +637,20 @@ begin
   Result := Word((AColor shr 32) and $FF);
 end;
 
+function fpgGetAvgColor(const AColor1, AColor2: TfpgColor): TfpgColor;
+var
+  c1, c2: TRGBTriple;
+  avg: TRGBTriple;
+begin
+  c1 := fpgColorToRGBTriple(AColor1);
+  c2 := fpgColorToRGBTriple(AColor2);
+  avg.Red   := c1.Red + (c2.Red - c1.Red) div 2;
+  avg.Green := c1.Green + (c2.Green - c1.Green) div 2;
+  avg.Blue  := c1.Blue + (c2.Blue - c1.Blue) div 2;
+  avg.Alpha := c1.Alpha + (c2.Alpha - c1.Alpha) div 2;
+  Result := RGBTripleTofpgColor(avg);
+end;
+
 function PtInRect(const ARect: TfpgRect; const APoint: TPoint): Boolean;
 begin
   Result := (APoint.x >= ARect.Left) and