From 71b167bdbc89bf57f2bbba324fb70150371a9c27 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 15 Mar 2012 18:33:18 +0200
Subject: wuline demo fixed regarding TRGBTriple and Alpha channel usage.

---
 src/corelib/fpg_wuline.pas | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'src/corelib')

diff --git a/src/corelib/fpg_wuline.pas b/src/corelib/fpg_wuline.pas
index cfed0a73..7dc3580d 100644
--- a/src/corelib/fpg_wuline.pas
+++ b/src/corelib/fpg_wuline.pas
@@ -44,7 +44,7 @@ type
 // Blend a pixel with the current colour
 procedure AlphaBlendPixel(ACanvas: TfpgCanvas; X, Y: integer; R, G, B: word; ARatio: Double);
 var
-  LBack, LNew: TFPColor;
+  LBack, LNew: TRGBTriple;
   LMinusRatio: Double;
 begin
   if (X < 0) or (X > TCanvasHack(ACanvas).FWindow.Width - 1) or (Y < 0) or
@@ -52,11 +52,12 @@ begin
     Exit; // clipping
 
   LMinusRatio := 1 - ARatio;
-  LBack       := fpgColorToFPColor(ACanvas.Pixels[X, Y]);
+  LBack       := fpgColorToRGBTriple(ACanvas.Pixels[X, Y]);
   LNew.Blue   := round(B*ARatio + LBack.Blue*LMinusRatio);
   LNew.Green  := round(G*ARatio + LBack.Green*LMinusRatio);
   LNew.Red    := round(R*ARatio + LBack.Red*LMinusRatio);
-  ACanvas.Pixels[X, Y] := FPColorTofpgColor(LNew);
+  LNew.Alpha := 255;
+  ACanvas.Pixels[X, Y] := RGBTripleTofpgColor(LNew);
 end;
 
 // Draw a anti-aliased line
-- 
cgit v1.2.3-70-g09d2