-7 7 setxrange
-2.5 1.5 setyrange
25 setxunit

0 10 6 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView

-10 10 setxrange3d
-3 3 setyrange3d

%-1 2 1 axesRVB
%qplanxy
2 setlinejoin 

setCourierBold

%% {cyan} setlight
%% 0 6 6 setlightsrc
%% 3 setlightintensity

1 newoctaedre
{-6 0 0 translatepoint3d} solidtransform
drawsolid*
(octaedre)
-6 0 0 CamView 0 -2 addv bctext

1 newtetraedre
{-3 0 0 translatepoint3d} solidtransform
drawsolid*
(tetraedre)
-3 0 0 CamView 0 -2 addv bctext

1 newicosaedre
drawsolid*
(icosaedre)
0 0 0 CamView 0 -2 addv bctext

1 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