> tet := t ->plots[display](plottools[tetrahedron]([t,0,0]),
style=wireframe, color=blue,thickness=2,scaling=constrained):
cub := t->plots[display](plottools[hexahedron]([t,0,0]),
style=wireframe, color=red,thickness=2,scaling=constrained):
oct := t->plots[display](plottools[octahedron]([t,0,0]),
style=wireframe,color=magenta,thickness=2,scaling=constrained):
dod := t-> plots[display](plottools[dodecahedron]([t,0,0]),
style=wireframe,color=orange,thickness=2,scaling=constrained):
ico := t->plots[display](plottools[icosahedron]([t,0,0]),
style=wireframe, color=khaki,thickness=2,scaling=constrained):

> dod(0);ico(0);oct(0);cub(0);tet(0);