Forum: Multimedia
by Namenloser,
19. Sep 2010
I think this should do it, but I haven't tested it:
function ColorAlgebra(F, B, M: TColor32): TColor32;
begin
// 1. multiply
Result := ColorModulate(F, B);
// 2. blend
Result := BlendRegEx(Result, B, M);
end;
Forum: Multimedia
by Namenloser,
19. Sep 2010
What effect is identical? It'd really help if you were more specific about what you want to achieve and what is happening instead.
Forum: Multimedia
by Namenloser,
19. Sep 2010
Why so complicated? I've always simply done it like this:
var
A,B: TBitmap32;
begin
A.MasterAlpha := 127; // 50%
A.DrawMode := dmBlend;
A.DrawTo(B, 0, 0);
// B now contains the blended image