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