Source position: JPL.Colors.pas line 180
procedure GetTetradicColors(
const AColor: TColor;
out TetradColor1: TColor;
out TetradColor2: TColor;
out TetradColor3: TColor;
DegDistance: Integer = 90
);