Changeset 472 for GraphicTest/Packages/bgrabitmap/blendpixelinline.inc
- Timestamp:
- Apr 9, 2015, 9:58:36 PM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
GraphicTest/Packages/bgrabitmap/blendpixelinline.inc
r452 r472 530 530 aw := GammaExpansionTab[a]; 531 531 bw := GammaExpansionTab[b]; 532 {$HINTS OFF} 532 533 Result := GammaCompressionTab[aw+bw-(longword(aw)*longword(bw) shr 15)]; 534 {$HINTS ON} 533 535 end; 534 536 … … 562 564 function ByteLinearExclusionInline(a, b: byte): byte; inline; 563 565 begin 566 {$HINTS OFF} 564 567 Result := a+b-(a*b shr 7); 568 {$HINTS ON} 565 569 end; 566 570
Note:
See TracChangeset
for help on using the changeset viewer.