Skip to main content
Mathematica

Return to Answer

added 30 characters in body
Source Link
C. E. ♦
C. E. ♦
  • 71.2k
  • 6
  • 141
  • 269

redDot = Graphics[{Red, Disk[]}];

blueDot = Graphics[{Blue, Disk[]}];

Rome = Entity["City", {"Rome", "Lazio", "Italy"}];

LakeTrasimeno = Entity["Lake", "LakeTrasimeno::946n7"];

GeoGraphics[{Polygon[ Entity["HistoricalCountry", "RomanEmpire"]], {GeoMarker[Rome, redDot, "Scale" -> Scaled[0.02]], Black, Text[Style["Rome", Bold], Rome, {-1.5, 0}]}, {GeoMarker[ LakeTrasimeno, blueDot, "Scale" -> Scaled[0.02]], Black, Text[Style["Trasimeno", Bold], LakeTrasimeno, {-1.2, 0}]}}, GeoBackground -> Dated["CountryBorders", -250], GeoRange -> Quantity[1000, "Kilometers"]]

redDot = Graphics[{Red, Disk[]}];
blueDot = Graphics[{Blue, Disk[]}];
Rome = Entity["City", {"Rome", "Lazio", "Italy"}];
LakeTrasimeno = Entity["Lake", "LakeTrasimeno::946n7"];
GeoGraphics[{Polygon[
   Entity["HistoricalCountry", "RomanEmpire"]], {GeoMarker[Rome, 
    redDot, "Scale" -> Scaled[0.02]], Black, 
   Text[Style["Rome", Bold], Rome, {-1.5, 0}]}, {GeoMarker[
    LakeTrasimeno, blueDot, "Scale" -> Scaled[0.02]], Black, 
   Text[Style["Trasimeno", Bold], LakeTrasimeno, {-1.2, 0}]}}, 
 GeoBackground -> Dated["CountryBorders", -250], 
 GeoRange -> Quantity[1000, "Kilometers"]]

enter image description here

redDot = Graphics[{Red, Disk[]}];

blueDot = Graphics[{Blue, Disk[]}];

Rome = Entity["City", {"Rome", "Lazio", "Italy"}];

LakeTrasimeno = Entity["Lake", "LakeTrasimeno::946n7"];

GeoGraphics[{Polygon[ Entity["HistoricalCountry", "RomanEmpire"]], {GeoMarker[Rome, redDot, "Scale" -> Scaled[0.02]], Black, Text[Style["Rome", Bold], Rome, {-1.5, 0}]}, {GeoMarker[ LakeTrasimeno, blueDot, "Scale" -> Scaled[0.02]], Black, Text[Style["Trasimeno", Bold], LakeTrasimeno, {-1.2, 0}]}}, GeoBackground -> Dated["CountryBorders", -250], GeoRange -> Quantity[1000, "Kilometers"]]

enter image description here

redDot = Graphics[{Red, Disk[]}];
blueDot = Graphics[{Blue, Disk[]}];
Rome = Entity["City", {"Rome", "Lazio", "Italy"}];
LakeTrasimeno = Entity["Lake", "LakeTrasimeno::946n7"];
GeoGraphics[{Polygon[
   Entity["HistoricalCountry", "RomanEmpire"]], {GeoMarker[Rome, 
    redDot, "Scale" -> Scaled[0.02]], Black, 
   Text[Style["Rome", Bold], Rome, {-1.5, 0}]}, {GeoMarker[
    LakeTrasimeno, blueDot, "Scale" -> Scaled[0.02]], Black, 
   Text[Style["Trasimeno", Bold], LakeTrasimeno, {-1.2, 0}]}}, 
 GeoBackground -> Dated["CountryBorders", -250], 
 GeoRange -> Quantity[1000, "Kilometers"]]

enter image description here

Source Link
ulvi
ulvi
  • 1.9k
  • 10
  • 16

redDot = Graphics[{Red, Disk[]}];

blueDot = Graphics[{Blue, Disk[]}];

Rome = Entity["City", {"Rome", "Lazio", "Italy"}];

LakeTrasimeno = Entity["Lake", "LakeTrasimeno::946n7"];

GeoGraphics[{Polygon[ Entity["HistoricalCountry", "RomanEmpire"]], {GeoMarker[Rome, redDot, "Scale" -> Scaled[0.02]], Black, Text[Style["Rome", Bold], Rome, {-1.5, 0}]}, {GeoMarker[ LakeTrasimeno, blueDot, "Scale" -> Scaled[0.02]], Black, Text[Style["Trasimeno", Bold], LakeTrasimeno, {-1.2, 0}]}}, GeoBackground -> Dated["CountryBorders", -250], GeoRange -> Quantity[1000, "Kilometers"]]

enter image description here