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;