HighDimensionalEmbedding Examples

CP3D[g_]:=Graphics3D[Table[{FaceForm[{Hue[1-i/Length[g]],
Opacity[.4]}],EdgeForm[Gray],Cube[g[[i]],.9]},
{i,Length[g]}],Boxed->False,ImageSize->600];
HTCG=Graph3D[GraphData["HundredTwentyCellGraph",
"Edges"],GraphLayout->"HighDimensionalEmbedding"];
CP3D[GraphEmbedding[HTCG]]