Source position: JPL.Colors.pas line 183
function TetradicColor3(
const AColor: TColor;
DistanceFromComplementaryColor: Integer = 90
):TColor;