Source position: JPL.Colors.pas line 177
function TetradicColor1(
const AColor: TColor;
DegDistance: Integer = 90
):TColor;