anchor.diff:  end;
   
   
  +function TKMColor4f.ToColor3f: TKMColor3f;
  +begin
  +  Result := TKMColor3f.New(R, G, B);
  +end;
  +
  +
   end.
  
positive.code:     class function Black(): TKMColor4f; static;
      function Alpha50(): TKMColor4f;
      function Alpha(aAlpha: Single): TKMColor4f;
    end;
  
  const
  
negative.code: 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;
  