anchor.diff:  end;
   
   
  +constructor TKMColor4f.NewB(aR,aG,aB,aA: Byte);
  +begin
  +  R := aR / 255;
  +  G := aG / 255;
  +  B := aB / 255;
  +  A := aA / 255;
  +end;
  +
  +
   constructor TKMColor4f.New(aCol: Cardinal);
   begin
     R := (aCol and $FF)           / 255;
  
positive.code:     class function Black(): TKMColor4f; static;
      function Alpha50(): TKMColor4f;
      function Alpha(aAlpha: Single): TKMColor4f;
    end;
  
  const
  
negative.code:     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;
  