Drawing cubes with Maple

The following commands load in some useful packages.

>	with(plots): with(plottools):

Warning, the name changecoords has been redefined

Warning, the name arrow has been redefined

Define the coordinates of the eight vertices.

>	p1:=[0,0,0]; p2:=[1,0,0]; p3:=[0,1,0]; p4:=[1,1,0]; p5:=[0,0,1]; p6:=[1,0,1]; p7:=[0,1,1]; p8:=[1,1,1];

Define a cube by giving the vertices for each square face, in the order that they appear around the square.

>	c:=polygonplot3d([ [p1,p2,p4,p3], [p5,p6,p8,p7], [p1,p2,p6,p5], [p3,p4,p8,p7], [p1,p3,p7,p5], [p2,p4,p8,p6]]):

Define seven copies of  the cube by translating it in various ways.  Give the cubes color, if you wish.

>

c1:=display(translate(c,0,0,0),color=yellow): c2:=display(translate(c,-1,0,0),color=pink): c3:=display(translate(c,-2,0,0),color=pink): c4:=display(translate(c,0,1,0),color=green): c5:=display(translate(c,0,2,0),color=green): c6:=display(translate(c,0,3,0),color=green): c7:=display(translate(c,0,0,1),color=white):

Display the result.  You can click and drag it to turn it around and view it from different directions.

>	display([c1,c2,c3,c4,c5,c6,c7],scaling=constrained);

>