Changeset 494 for GraphicTest/Packages/bgrabitmap/blendpixelinline.inc

Timestamp:

Dec 22, 2016, 8:49:19 PM (8 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/blendpixelinline.inc (modified) (2 diffs)

GraphicTest/Packages/bgrabitmap/blendpixelinline.inc

@@ -914 +914 @@
 begin
   result := ((not a)*b shr 7 + a)*a div 255;
-{ SVG specification would be :
-
-  if b <= 128 then
-    result := a - (((256 - b-b)*a shr 8)*(not a) shr 8)
-  else if a <= 64 then
-    result := a + ((b+b - 256)*((((a shl 2)*(a shl 2 + 256) shr 8)*integer(a - 256) shr 8) + a*7) shr 8)
-  else
-    result := a + ((b+b - 255)*(ByteSqrt(a)-a) shr 8);}
 end;
 
@@ -946 +938 @@
       c.green * (not destalpha)) shr 8;
     dest^.blue  := (ByteSoftLightInline(dest^.blue, c.blue) * destalpha +
+      c.blue * (not destalpha)) shr 8;
+    dest^.alpha := c.alpha;
+  end;
+end;
+
+function ByteSvgSoftLightInline(a,b: byte): byte; inline;
+begin
+  if b <= 128 then
+    result := a - (((256 - b-b)*a shr 8)*(not a) shr 8)
+  else
+  begin
+    dec(b, 128);
+    if a <= 64 then
+      result := a + ((b+b)   * NativeUInt(a*7 - ((a shl 2)*(a shl 2 + 256)*NativeUInt(256 - a) shr 16)) shr 8)
+    else
+      result := a + ((b+b+1) * NativeUInt(ByteSqrt(a)-a) shr 8);
+  end;
+end;
+
+procedure SvgSoftLightPixelInline(dest: PBGRAPixel; c: TBGRAPixel); inline;
+var
+  destalpha: byte;
+begin
+  destalpha   := dest^.alpha;
+  if destalpha = 0 then
+  begin
+    dest^ := c
+  end else
+  if destalpha = 255 then
+  begin
+    dest^.red := ByteSvgSoftLightInline(dest^.red, c.red);
+    dest^.green := ByteSvgSoftLightInline(dest^.green, c.green);
+    dest^.blue  := ByteSvgSoftLightInline(dest^.blue, c.blue);
+    dest^.alpha := c.alpha;
+  end else
+  begin
+    dest^.red   := (ByteSvgSoftLightInline(dest^.red, c.red) * destalpha +
+      c.red * (not destalpha)) shr 8;
+    dest^.green := (ByteSvgSoftLightInline(dest^.green, c.green) * destalpha +
+      c.green * (not destalpha)) shr 8;
+    dest^.blue  := (ByteSvgSoftLightInline(dest^.blue, c.blue) * destalpha +
       c.blue * (not destalpha)) shr 8;
     dest^.alpha := c.alpha;