# Wolfram Mathematica

## Place Icons on Maps

There are hundreds of icons available to use.

In[1]:=
`Length[icons = EntityList["Icon"]]`
Out[1]=

Look at a small sample of the icons.

show complete Wolfram Language input
In[2]:=
```Grid[{ImageResize[#, {{25}, {25}}], Text[#2]} & @@@ EntityValue[RandomSample[icons, 10], {"Image", "Name"}], Alignment -> Left]```
Out[2]=

Get a list of public schools in Urbana, IL, and show their locations with a "public school" icon.

In[3]:=
```schools = \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query\$\$ = "Urbana school district", Typeset`boxes\$\$ = TemplateBox[{"\"Urbana School District 116\"", RowBox[{"Entity", "[", RowBox[{"\"SchoolDistrict\"", ",", "\"ILUrbanaSd1161739960\""}], "]"}], "\"Entity[\\\"SchoolDistrict\\\", \ \\\"ILUrbanaSd1161739960\\\"]\"", "\"school district\""}, "Entity"], Typeset`allassumptions\$\$ = {{ "type" -> "SubCategory", "word" -> "Urbana school district", "template" -> "Assuming \${desc1}. Use \${desc2} instead", "count" -> "2", "Values" -> {{ "name" -> "ILUrbanaSd1161739960", "desc" -> "Urbana School District 116 (Urbana, Illinois)", "input" -> "*DPClash.USSchoolDistrictE.Urbana+school+\ district-_*ILUrbanaSd1161739960-"}, { "name" -> "OHUrbanaCity3904494", "desc" -> "Urbana City School District (Urbana, Ohio)", "input" -> "*DPClash.USSchoolDistrictE.Urbana+school+\ district-_*OHUrbanaCity3904494-"}}}}, Typeset`assumptions\$\$ = {}, Typeset`open\$\$ = {1, 2}, Typeset`querystate\$\$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 1.037723`6.467626436000824, "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->{314., {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]\)["Schools"]```
Out[3]=
In[4]:=
```GeoGraphics[{{EdgeForm[{Thick, Black}], GeoStyling["StreetMapNoLabels"], Polygon[\!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query\$\$ = "Urbana", Typeset`boxes\$\$ = TemplateBox[{"\"Urbana\"", RowBox[{"Entity", "[", RowBox[{"\"City\"", ",", RowBox[{"{", RowBox[{"\"Urbana\"", ",", "\"Illinois\"", ",", "\"UnitedStates\""}], "}"}]}], "]"}], "\"Entity[\\\"City\\\", {\\\"Urbana\\\", \\\"Illinois\\\", \ \\\"UnitedStates\\\"}]\"", "\"city\""}, "Entity"], Typeset`allassumptions\$\$ = {{ "type" -> "Clash", "word" -> "Urbana", "template" -> "Assuming \"\${word}\" is \${desc1}. Use as \ \${desc2} instead", "count" -> "3", "Values" -> {{ "name" -> "City", "desc" -> "a city", "input" -> "*C.Urbana-_*City-"}, { "name" -> "AdministrativeDivision", "desc" -> "an administrative division", "input" -> "*C.Urbana-_*AdministrativeDivision-"}, { "name" -> "GivenName", "desc" -> "a given name", "input" -> "*C.Urbana-_*GivenName-"}}}, { "type" -> "SubCategory", "word" -> "Urbana", "template" -> "Assuming \${desc1}. Use \${desc2} instead", "count" -> "6", "Values" -> {{ "name" -> "{Urbana, Illinois, UnitedStates}", "desc" -> "Urbana (Illinois, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Illinois.\ UnitedStates--"}, { "name" -> "{Urbana, Ohio, UnitedStates}", "desc" -> "Urbana (Ohio, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Ohio.\ UnitedStates--"}, { "name" -> "{Urbana, Iowa, UnitedStates}", "desc" -> "Urbana (Iowa, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Iowa.\ UnitedStates--"}, { "name" -> "{Urbana, NewYork, UnitedStates}", "desc" -> "Urbana (New York, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.NewYork.\ UnitedStates--"}, { "name" -> "{Urbana, Missouri, UnitedStates}", "desc" -> "Urbana (Missouri, USA)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Missouri.\ UnitedStates--"}, { "name" -> "{Urbana, Veneto, Italy}", "desc" -> "Urbana (Italy)", "input" -> "*DPClash.CityE.Urbana-_**Urbana.Veneto.Italy-\ -"}}}}, Typeset`assumptions\$\$ = {}, Typeset`open\$\$ = {1, 2}, Typeset`querystate\$\$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 0.533521`6.178696511923054, "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->{132., {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]\)]}, GeoMarker[schools, \!\(\* NamespaceBox["LinguisticAssistant", DynamicModuleBox[{Typeset`query\$\$ = "public school icon", Typeset`boxes\$\$ = TemplateBox[{"\"public school\"", RowBox[{"Entity", "[", RowBox[{"\"Icon\"", ",", "\"PublicSchool\""}], "]"}], "\"Entity[\\\"Icon\\\", \\\"PublicSchool\\\"]\"", "\"icon\""}, "Entity"], Typeset`allassumptions\$\$ = {}, Typeset`assumptions\$\$ = {}, Typeset`open\$\$ = {1, 2}, Typeset`querystate\$\$ = { "Online" -> True, "Allowed" -> True, "mparse.jsp" -> 1.774154`6.700536308229228, "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->{151., {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]\)]}, ImageSize -> {{500}, {500}}, GeoBackground -> RGBColor[0.984314, 0.968627, 0.870588]]```
Out[4]=