Filled geodesic disk primitive for GeoGraphics
GeoDisk[loc, r]
GeoDisk[loc, r, {α 1, α 2}]
GeoGraphics[GeoDisk[{25, -40}, Quantity[2000, "Kilometers"]], GeoRange -> "World", Frame -> True]
→ -Graphics-GeoGraphics[GeoDisk[Entity["City", {"Paris", "IleDeFrance", "France"}], Quantity[1000, "Kilometers"], {45, 135}]]
→ -Graphics-GeoGraphics[GeoDisk[]]
→ -Graphics-