


RGB := (PB-PA)*TP + PA; ※TP = 透明度(0.00~1.00)

RGB := (PA * PB) SHR 8 ;

RGB := 255 - ((255-PA)*(255-PB) SHR 8);

if (PA < 128) then RGB := (PA * PB) SHR 7; else RGB := 255 - ((255-PA)*(255-PB) SHR 7);

n := PA * PB SHR 8; RGB := n + PB*(255-((255-PA)*(255-PB) SHR 8)-n) SHR 8;

if (PB<128) then RGB := (PA*PB) SHR 7 else RGB := 255-((255-PB)*(255-PA) SHR 7);

if PB = 255 then
RGB := 255
else
begin
n := (PA SHL 8) DIV (255-PB);
if n > 255 then
RGB := 255
else
RGB := n;
end;

if PB = 0 then
RGB := 0
else
begin
n := 255 - (((255-PA) SHL 8) DIV PB);
if n < 0 then
RGB := 0
else
RGB := n;
end;

if PA >= PB then RGB := PB else RGB := PA;

if PA >= PB then RGB := PA else RGB := PB;

RGB := Abs (PA - PB);

RGB := PA+PB-(PA*PB SHR 7);

if PA + PB < 256 then
begin
if PB = 255 then
RGB := 255
else
begin
n := (PA SHL 7) DIV (255-PB);
if n > 255 then
RGB := 255
else
RGB := n;
end;
end
else
begin
n := 255 - (((255-PB) SHL 7) DIV PA);
if n < 0 then
RGB := 0
else
RGB := n;
end;

if PA+PB < 256 then
begin
if PA = 255 then
RGB := 255
else
begin
n := (PB SHL 7) DIV (255-PA);
if n > 255 then
RGB := 255
else
RGB := n;
end;
end
else
begin
n := 255-(((255-PA) SHL 7) DIV PB);
if n < 0 then
RGB := 0
else
RGB := n;
end;

RGB := HLStoRGB(PB.H,PA.L,PA.S); ※HLS変換後、HueのみPBと差替

RGB := HLStoRGB(PA.H,PA.L,PB.S); ※HLS変換後、SaturationのみPBと差替

RGB := PA And PB;

RGB := PA OR PB;

RGB := PA XOR PB;