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