Hint: try a common type of animal, or a famous person.
There are lots of ways to get pictures in the Wolfram Language.
On the desktop, you can take a picture with your computer’s camera using CurrentImage.
You can use the Wolfram Knowledgebase (the same one that powers Wolfram|Alpha) to ask for a picture of something. Hold down the key and press = to get a natural language input field ():
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of an elephant", WolframAlphaClient`Private`boxes$$ =
RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"elephants\"",
RowBox[{"Entity", "[",
RowBox[{"\"Species\"", ",", "\"Family:Elephantidae\""}], "]"}],
"\"Entity[\\\"Species\\\", \\\"Family:Elephantidae\\\"]\"",
"\"species specification\""}, "Entity"], ",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Species\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Species\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "MultiClash", "word" -> "",
"template" -> "Assuming ${word1} is referring to ${desc1}. Use \
\"${word2}\" as ${desc2}. Use \"${word3}\" as ${desc3}. Use \
\"${word4}\" as ${desc4}.", "count" -> "4",
"Values" -> {{
"name" -> "Species", "word" -> "elephant",
"desc" -> "a species specification",
"input" -> "*MC.%7E-_*Species-"}, {
"name" -> "Periodical", "word" -> "elephant",
"desc" -> "a periodical",
"input" -> "*MC.%7E-_*Periodical-"}, {
"name" -> "Movie", "word" -> "elephant", "desc" -> "a movie",
"input" -> "*MC.%7E-_*Movie-"}, {
"name" -> "WordData", "word" -> "",
"desc" -> " referring to English words",
"input" -> "*MC.%7E-_*WordData-"}}}, {
"type" -> "SubCategory", "word" -> "elephant",
"template" -> "Assuming ${desc1}. Use ${desc2} instead",
"count" -> "2",
"Values" -> {{
"name" -> "Family:Elephantidae", "desc" -> "elephants",
"input" -> "*DPClash.SpeciesE.elephant-_*Family%\
3AElephantidae-"}, {
"name" -> "Species:LoxodontaAfricana",
"desc" -> "Loxodonta africana",
"input" -> "*DPClash.SpeciesE.elephant-_*Species%\
3ALoxodontaAfricana-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1,
Dynamic[WolframAlphaClient`Private`query$$],
Dynamic[WolframAlphaClient`Private`boxes$$],
Dynamic[WolframAlphaClient`Private`allassumptions$$],
Dynamic[WolframAlphaClient`Private`assumptions$$],
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{135., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
You can also drag images from most websites and drop them directly into the code. If you want to refer to it later you can always give it a name like image:
image = \!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of an elephant", WolframAlphaClient`Private`boxes$$ =
RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"elephants\"",
RowBox[{"Entity", "[",
RowBox[{"\"Species\"", ",", "\"Family:Elephantidae\""}], "]"}],
"\"Entity[\\\"Species\\\", \\\"Family:Elephantidae\\\"]\"",
"\"species specification\""}, "Entity"], ",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Species\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Species\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "MultiClash", "word" -> "",
"template" -> "Assuming ${word1} is referring to ${desc1}. Use \
\"${word2}\" as ${desc2}. Use \"${word3}\" as ${desc3}. Use \
\"${word4}\" as ${desc4}.", "count" -> "4",
"Values" -> {{
"name" -> "Species", "word" -> "elephant",
"desc" -> "a species specification",
"input" -> "*MC.%7E-_*Species-"}, {
"name" -> "Periodical", "word" -> "elephant",
"desc" -> "a periodical",
"input" -> "*MC.%7E-_*Periodical-"}, {
"name" -> "Movie", "word" -> "elephant", "desc" -> "a movie",
"input" -> "*MC.%7E-_*Movie-"}, {
"name" -> "WordData", "word" -> "",
"desc" -> " referring to English words",
"input" -> "*MC.%7E-_*WordData-"}}}, {
"type" -> "SubCategory", "word" -> "elephant",
"template" -> "Assuming ${desc1}. Use ${desc2} instead",
"count" -> "2",
"Values" -> {{
"name" -> "Family:Elephantidae", "desc" -> "elephants",
"input" -> "*DPClash.SpeciesE.elephant-_*Family%\
3AElephantidae-"}, {
"name" -> "Species:LoxodontaAfricana",
"desc" -> "Loxodonta africana",
"input" -> "*DPClash.SpeciesE.elephant-_*Species%\
3ALoxodontaAfricana-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1,
Dynamic[WolframAlphaClient`Private`query$$],
Dynamic[WolframAlphaClient`Private`boxes$$],
Dynamic[WolframAlphaClient`Private`allassumptions$$],
Dynamic[WolframAlphaClient`Private`assumptions$$],
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{135., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)
\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{WolframAlphaClient`Private`query$$ =
"picture of Einstein", WolframAlphaClient`Private`boxes$$ =
RowBox[{"EntityValue", "[",
RowBox[{
TemplateBox[{"\"Albert Einstein\"",
RowBox[{"Entity", "[",
RowBox[{"\"Person\"", ",", "\"AlbertEinstein::6tb7g\""}], "]"}],
"\"Entity[\\\"Person\\\", \\\"AlbertEinstein::6tb7g\\\"]\"",
"\"person\""}, "Entity"], ",",
TemplateBox[{"\"image\"",
RowBox[{"EntityProperty", "[",
RowBox[{"\"Person\"", ",", "\"Image\""}], "]"}],
"\"EntityProperty[\\\"Person\\\", \\\"Image\\\"]\""},
"EntityProperty"]}], "]"}],
WolframAlphaClient`Private`allassumptions$$ = {{
"type" -> "Clash", "word" -> "Einstein",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "3",
"Values" -> {{
"name" -> "Person", "desc" -> "a person",
"input" -> "*C.Einstein-_*Person-"}, {
"name" -> "Book", "desc" -> "a book",
"input" -> "*C.Einstein-_*Book-"}, {
"name" -> "Satellite", "desc" -> "a spacecraft",
"input" -> "*C.Einstein-_*Satellite-"}}}},
WolframAlphaClient`Private`assumptions$$ = {},
WolframAlphaClient`Private`open$$ = {1}},
DynamicBox[ToBoxes[
AlphaIntegration`LinguisticAssistantBoxes["", 1,
Dynamic[WolframAlphaClient`Private`query$$],
Dynamic[WolframAlphaClient`Private`boxes$$],
Dynamic[WolframAlphaClient`Private`allassumptions$$],
Dynamic[WolframAlphaClient`Private`assumptions$$],
Dynamic[WolframAlphaClient`Private`open$$]], StandardForm],
ImageSizeCache->{125., {7., 16.}},
TrackedSymbols:>{
WolframAlphaClient`Private`query$$,
WolframAlphaClient`Private`boxes$$,
WolframAlphaClient`Private`allassumptions$$,
WolframAlphaClient`Private`assumptions$$,
WolframAlphaClient`Private`open$$}],
DynamicModuleValues:>{},
UndoTrackedVariables:>{WolframAlphaClient`Private`open$$}],
BaseStyle->{"Deploy"},
DeleteWithContents->True,
Editable->False,
SelectWithContents->True]\)