-4.5 5 setxrange
-2 3 setyrange
20 setxunit
0 10 6 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView
qplanxy
2 setlinejoin 

2 newcube 3 tronque_cube
%%dup [(bleu)] solidputncolors
{3 0 1 translatepoint3d} solidtransform
drawsolid*

/moncube 
   2 newcube dup
   [(jaune) (orange) (bleu) (rouge) 
      (vert) (0 0 0 1 setcymkcolor)]
   solidputfcolors
def
moncube 
   {0 0 20 rotateOpoint3d} solidtransform
   {0 0 1 translatepoint3d} solidtransform 
drawsolid*
moncube 
   {0 0 120 rotateOpoint3d} solidtransform
   {-3 0 0 translatepoint3d} solidtransform
drawsolid*