# Wolfram Mathematica

## 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"]]```