>
|
with(plottools):
with(plots):
display(cutout(octahedron([1,1,1]), 1/3));
p := convert(plot3d(sin(x*y),x=-1..1,y=-1..1,grid=[4,4]), POLYGONS):
display(cutout(p, 1/3));
p := display(cutout(tetrahedron([0,0,0]), 3/4)):
a := [[0,Pi,0],[0,0,Pi],[Pi,0,0],[Pi,Pi,0],[Pi,0,Pi],[0,Pi,Pi],
[Pi,Pi,Pi],[0,0,0]]:
display(seq(rotate(p,op(i)), i=a),style=patchnogrid,scaling=constrained);
|