autocrop
-5 5 setxrange
-4 3 setyrange
20 setxunit
5 10 8 SetCamPos
3 0 0 SetCamView
2 setlinejoin 

setTimes
3 newcube /A exch def

/dotscale {1.5 dup} def
A 
dup [0 1 2] solidnumsommets
dup [0 1 2] solidshowsommets
drawsolid

A
{6 0 0 translatepoint3d} solidtransform
dup (cyan) outputcolors
dup drawsolid*
dup solidnumsommets
orange
[0 1 2] solidshowsommets