anchor.diff:      constructor New(aR,aG,aB: Single);
       constructor NewB(aR,aG,aB: Byte);
     end;
  +
  +  TKMColor3b = record
  +    R,G,B: Byte;
  +    function ToCardinal: Cardinal;
  +    constructor New(aR,aG,aB: Byte);
  +  end;
   //             Result := R + G shl 8 + B shl 16 + A shl 24;
   
     TKMColor4f = record
  
positive.code: end;
  
  
  { TKMColor4f }
  constructor TKMColor4f.New(aR,aG,aB,aA: Single);
  begin
  
negative.code:     function ToColor3f: TKMColor3f;
    end;
  
    TKMColor3bArray = array of TKMColor3b;
  
  const
    COLOR3F_WHITE: TKMColor3f = (R: 1; G: 1; B: 1);
    COLOR3F_BLACK: TKMColor3f = (R: 0; G: 0; B: 0);
  