Make the size of each image in the collage proportional to the mass of the planet:
ImageCollage[EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "planets", Typeset`boxes$$ =
TemplateBox[{"\"planets\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Planet\"", ",", "All"}], "]"}],
"\"EntityClass[\\\"Planet\\\", All]\"", "\"planets\""},
"EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "planets",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4",
"Values" -> {{
"name" -> "PlanetClass", "desc" -> " referring to planets",
"input" -> "*C.planets-_*PlanetClass-"}, {
"name" -> "ExoplanetClass",
"desc" -> " referring to exoplanets",
"input" -> "*C.planets-_*ExoplanetClass-"}, {
"name" -> "MinorPlanetClass",
"desc" -> " referring to minor planets",
"input" -> "*C.planets-_*MinorPlanetClass-"}, {
"name" -> "Word", "desc" -> "a word",
"input" -> "*C.planets-_*Word-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.280396`5.899316807390027,
"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->{60., {7., 16.}},
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]\), "Mass"] -> EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "planets", Typeset`boxes$$ =
TemplateBox[{"\"planets\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Planet\"", ",", "All"}], "]"}],
"\"EntityClass[\\\"Planet\\\", All]\"", "\"planets\""},
"EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "planets",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4",
"Values" -> {{
"name" -> "PlanetClass", "desc" -> " referring to planets",
"input" -> "*C.planets-_*PlanetClass-"}, {
"name" -> "ExoplanetClass",
"desc" -> " referring to exoplanets",
"input" -> "*C.planets-_*ExoplanetClass-"}, {
"name" -> "MinorPlanetClass",
"desc" -> " referring to minor planets",
"input" -> "*C.planets-_*MinorPlanetClass-"}, {
"name" -> "Word", "desc" -> "a word",
"input" -> "*C.planets-_*Word-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.280396`5.899316807390027,
"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->{60., {7., 16.}},
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]\), "Image"]]
Make the collage larger and set the background to black:
ImageCollage[EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "planets", Typeset`boxes$$ =
TemplateBox[{"\"planets\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Planet\"", ",", "All"}], "]"}],
"\"EntityClass[\\\"Planet\\\", All]\"", "\"planets\""},
"EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "planets",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4",
"Values" -> {{
"name" -> "PlanetClass", "desc" -> " referring to planets",
"input" -> "*C.planets-_*PlanetClass-"}, {
"name" -> "ExoplanetClass",
"desc" -> " referring to exoplanets",
"input" -> "*C.planets-_*ExoplanetClass-"}, {
"name" -> "MinorPlanetClass",
"desc" -> " referring to minor planets",
"input" -> "*C.planets-_*MinorPlanetClass-"}, {
"name" -> "Word", "desc" -> "a word",
"input" -> "*C.planets-_*Word-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.280396`5.899316807390027,
"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->{60., {7., 16.}},
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]\), "Mass"] -> EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "planets", Typeset`boxes$$ =
TemplateBox[{"\"planets\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Planet\"", ",", "All"}], "]"}],
"\"EntityClass[\\\"Planet\\\", All]\"", "\"planets\""},
"EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "planets",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4",
"Values" -> {{
"name" -> "PlanetClass", "desc" -> " referring to planets",
"input" -> "*C.planets-_*PlanetClass-"}, {
"name" -> "ExoplanetClass",
"desc" -> " referring to exoplanets",
"input" -> "*C.planets-_*ExoplanetClass-"}, {
"name" -> "MinorPlanetClass",
"desc" -> " referring to minor planets",
"input" -> "*C.planets-_*MinorPlanetClass-"}, {
"name" -> "Word", "desc" -> "a word",
"input" -> "*C.planets-_*Word-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.280396`5.899316807390027,
"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->{60., {7., 16.}},
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]\), "Image"], ImageSize -> 600,
Background -> Black]
ImageCollage[EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "planets", Typeset`boxes$$ =
TemplateBox[{"\"planets\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Planet\"", ",", "All"}], "]"}],
"\"EntityClass[\\\"Planet\\\", All]\"", "\"planets\""},
"EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "planets",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4",
"Values" -> {{
"name" -> "PlanetClass", "desc" -> " referring to planets",
"input" -> "*C.planets-_*PlanetClass-"}, {
"name" -> "ExoplanetClass",
"desc" -> " referring to exoplanets",
"input" -> "*C.planets-_*ExoplanetClass-"}, {
"name" -> "MinorPlanetClass",
"desc" -> " referring to minor planets",
"input" -> "*C.planets-_*MinorPlanetClass-"}, {
"name" -> "Word", "desc" -> "a word",
"input" -> "*C.planets-_*Word-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.193306`5.737790327744138,
"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->{63., {7., 16.}},
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]\), "Mass"] -> EntityValue[\!\(\*
NamespaceBox["LinguisticAssistant",
DynamicModuleBox[{Typeset`query$$ = "planets", Typeset`boxes$$ =
TemplateBox[{"\"planets\"",
RowBox[{"EntityClass", "[",
RowBox[{"\"Planet\"", ",", "All"}], "]"}],
"\"EntityClass[\\\"Planet\\\", All]\"", "\"planets\""},
"EntityClass"],
Typeset`allassumptions$$ = {{
"type" -> "Clash", "word" -> "planets",
"template" -> "Assuming \"${word}\" is ${desc1}. Use as \
${desc2} instead", "count" -> "4",
"Values" -> {{
"name" -> "PlanetClass", "desc" -> " referring to planets",
"input" -> "*C.planets-_*PlanetClass-"}, {
"name" -> "ExoplanetClass",
"desc" -> " referring to exoplanets",
"input" -> "*C.planets-_*ExoplanetClass-"}, {
"name" -> "MinorPlanetClass",
"desc" -> " referring to minor planets",
"input" -> "*C.planets-_*MinorPlanetClass-"}, {
"name" -> "Word", "desc" -> "a word",
"input" -> "*C.planets-_*Word-"}}}},
Typeset`assumptions$$ = {}, Typeset`open$$ = {1},
Typeset`querystate$$ = {
"Online" -> True, "Allowed" -> True,
"mparse.jsp" -> 0.19434`5.740107191889794, "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->{63., {7., 16.}},
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]\), "Image"], ImageSize -> 600,
Background -> Black]