usecolor
-7 7 setxrange
-13 3 setyrange
25 setxunit

12 9 10 SetCamPos
0 0 0 SetCamView

0 10 setxrange3d
0 10 setyrange3d

0 3 1 axesRVB
qplanxy
2 setlinejoin 

%{DeepSkyBlue} setlight
%5 12 6 setlightsrc
%2 setlightintensity
%/aretescachees false def

/fillstyle {jaune fill} def

2 newcube
3 tronque_cube
%%dup [(DodgerBlue1)] solidputncolors
{90 0 0 rotateOpoint3d} solidtransform
{5 1 1 translatepoint3d} solidtransform
drawsolid*

2 newcube
dup [(orange1) (bleu) (rouge) 
      (DarkGoldenrod1) (1 0 0 0 setcmykcolor) (jaune)]
   solidputfcolors
{1 3 .5 scaleOpoint3d} solidtransform
{0 0 75 rotateOpoint3d} solidtransform
{5 5 .5 translatepoint3d} solidtransform
drawsolid*