Zoom around Europe
Generate colored polygons for countries in Europe, then interactively move around the map and take closer looks near Andorra and London.
In[1]:=
SeedRandom[12300321]In[2]:=
polygons = {RandomColor[], #} & /@
EntityValue[EntityClass["Country", "Europe"], "Polygon"];In[3]:=
DynamicGeoGraphics[polygons, GeoCenter -> \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "Zurich", Typeset`boxes$$ =
TemplateBox[{"\"Zurich\"",
RowBox[{"Entity", "[",
RowBox[{"\"City\"", ",",
RowBox[{"{",
RowBox[{"\"Zurich\"", ",", "\"Zurich\"", ",", "\"Switzerland\""}],
"}"}]}], "]"}],
"\"Entity[\\\"City\\\", {\\\"Zurich\\\", \\\"Zurich\\\", \
\\\"Switzerland\\\"}]\"", "\"city\""}, "Entity"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "Zurich",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3",
"Values" -> {{
"name" -> "City", "desc" -> "a city",
"input" -> "*C.Zurich-_*City-"}, {
"name" -> "AdministrativeDivision",
"desc" -> "an administrative division",
"input" -> "*C.Zurich-_*AdministrativeDivision-"}, {
"name" -> "Lake", "desc" -> "a lake",
"input" -> "*C.Zurich-_*Lake-"}}}, {
"type" -> "SubCategory", "word" -> "Zurich",
"template" -> "Assuming ${desc1}. Use ${desc2} instead",
"count" -> "2",
"Values" -> {{
"name" -> "{Zurich, Zurich, Switzerland}",
"desc" -> "Zurich (Switzerland)",
"input" -> "*DPClash.CityE.Zurich-_**Zurich.Zurich.\
Switzerland--"}, {
"name" -> "{Zurich, Kansas, UnitedStates}",
"desc" -> "Zurich (United States)",
"input" -> "*DPClash.CityE.Zurich-_**Zurich.Kansas.\
UnitedStates--"}}}}, Typeset`assumptions$$ = {}, Typeset`open$$ = {1,
2}, Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 1.089823`6.488900962661124, "Messages" -> {}}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 4, Automatic,
Dynamic[Typeset`query$$],
Dynamic[Typeset`boxes$$],
Dynamic[Typeset`allassumptions$$],
Dynamic[Typeset`assumptions$$],
Dynamic[Typeset`open$$],
Dynamic[Typeset`querystate$$]], StandardForm],
ImageSizeCache->{127., {7., 15.}},
TrackedSymbols:>{
Typeset`query$$, Typeset`boxes$$, Typeset`allassumptions$$,
Typeset`assumptions$$, Typeset`open$$, Typeset`querystate$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{Typeset`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\), GeoRange -> Quantity[1500, "Kilometers"]]
