Geodesic circle primitive for GeoGraphics
GeoCircle[loc, r]
GeoCircle[loc, r, {α 1, α 2}]
GeoGraphics[GeoCircle[{-30, 80}, Quantity[3000, "Kilometers"]], GeoRange -> "World", Frame -> True]
→ -Graphics-GeoGraphics[{Thick, Red, GeoCircle[center, radius, {b1, b2}], GeoPath[{center, GeoDisplacement[{radius, b1}]}], GeoPath[{center, GeoDisplacement[{radius, b2}]}]}]
→ -Graphics-GeoGraphics[GeoCircle[]]
→ -Graphics-