anchor.diff:  end;
   
   
  +class function TKMColor4f.Black: TKMColor4f;
  +begin
  +  Result.R := 0;
  +  Result.G := 0;
  +  Result.B := 0;
  +  Result.A := 1;
  +end;
  +
  +
   function TKMColor4f.Alpha50(): TKMColor4f;
   begin
     Result := Self;
  
positive.code: 
  
  { TKMColor4f }
  constructor TKMColor4f.New(aCol: TKMColor3f);
  begin
    New(aCol, 1);
  
negative.code:   Math, KM_CommonUtils;
  
  { TKMColor3f }
  constructor TKMColor3f.New(aR, aG, aB: Single);
  begin
    R := aR;
    G := aG;
    B := aB;
  end;
  
  constructor TKMColor3f.NewB(aR, aG, aB: Byte);
  begin
    R := aR / 255;
    G := aG / 255;
    B := aB / 255;
  end;
  
  
  function TKMColor3f.ToCardinal: Cardinal;
  begin
    Result := (Round(R * 255) + (Round(G * 255) shl 8) + (Round(B * 255) shl 16)) {or $FF000000};
  