Можно ли автоматизировать добавление любого текста к граням многогранника, как это показано на рисунке вручную (пример нечетной схемы нумерации не имеет значения):
Легко было обозначить вершины:
c = 1;
Show[{Graphics3D[
Text[c++, #] & /@ PolyhedronData["Dodecahedron", "VertexCoordinates"]],
PolyhedronData["Dodecahedron"]},
Boxed -> False]
(хотя часть текста помещена перед формой для скрытых вершин. Вероятно, это разрешимо.)
Но когда я пытался сделать то же самое для лиц, ничего не сработало. PolyhedronData["Dodecahedron", "Faces"]
возвращает GraphicsComplex, а не координаты.
Я пропустил простое решение/вариант?
Изменить: спасибо за эти ответы, все они блестящие. Если бы я мог совместить текстовое размещение ответа szabolcs с качеством текста belisarius ', идеальное решение в поле зрения!