anchor.diff:      R,G,B,A: Single;
       constructor New(aR,aG,aB,aA: Single); overload;
       constructor New(aR,aG,aB: Byte); overload;
  +    constructor NewB(aR,aG,aB,aA: Byte); overload;
       constructor New(aCol: Cardinal); overload;
       constructor New(aCol: TKMColor3f); overload;
       constructor New(aCol: TKMColor3f; aAlpha: Single); overload;
  
positive.code: end;
  
  
  constructor TKMColor4f.New(aCol: Cardinal);
  begin
    R := (aCol and $FF)           / 255;
  
negative.code: end;
  
  
  function TKMColor4f.ToColor3f: TKMColor3f;
  begin
    Result := TKMColor3f.New(R, G, B);
  end;
  
  
  end.
  