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
1.2 setlightintensity
/aretescachees false def
/solidgrid false def
2 newcube
3 tronque_cube
dupsolid {1 1 1 translatepoint3d} solidtransform
drawsolid*
dupsolid {9 9 1 translatepoint3d} solidtransform
drawsolid*
dupsolid {1 9 1 translatepoint3d} solidtransform
drawsolid*
{9 1 1 translatepoint3d} solidtransform
drawsolid*
2 newcube
{90 0 135 rotateOpoint3d} solidtransform
{5 5 1 translatepoint3d} solidtransform
drawsolid*

.5 setlinewidth
1 {5} newsphere
dupsolid {1 9 3 translatepoint3d} solidtransform
drawsolid*
dupsolid {9 1 3 translatepoint3d} solidtransform
drawsolid*
dupsolid {9 9 3 translatepoint3d} solidtransform
drawsolid*
{1 1 3 translatepoint3d} solidtransform
drawsolid*

%% newoctaedre
%% {-6 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (octaedre)
%% -6 0 0 CamView 0 -2 addv bctext
%% 
%% newtetraedre
%% {-3 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (tetraedre)
%% -3 0 0 CamView 0 -2 addv bctext
%% 
%% newicosaedre
%% drawsolid*
%% (icosaedre)
%% 0 0 0 CamView 0 -2 addv bctext
%% 
%% newdodecaedre
%% {3.5 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (dodecaedre)
%% 3.5 0 0 CamView 0 -2 addv bctext
%% 
%% .5 setlinewidth
%% 1 {5} newsphere
%% {6.5 0 0 translatepoint3d} solidtransform
%% drawsolid*
%% (sphere)
%% 6.5 0 0 CamView 0 -2 addv bctext