%% realise avec les donnees de Alain Lassine
%% http://www.alain.be/
/alpha 06 3 mul def

usecolor
-2 2 setxrange
-2.5 1.5 setyrange
100 setxunit

1.5 setlightintensity

/cerc {0 0 10} def
/cerc2 {0 0 20} def

%alpha cerc cpoint 4 setlightsrc
%alpha cerc2 cpoint 10 SetCamPos
5 -5 4 setlightsrc
20 -20 10 SetCamPos
0 0 0 SetCamView

-10 10 setxrange3d
-3 3 setyrange3d

2 setlinejoin 
20 setfontsize
setTimes

.5 setfillopacity

gray57
-4 4 -4 4 newgrille
{0 0 -5 translatepoint3d} solidtransform
dup (gainsboro) outputcolors
drawsolid*

[(P13-sommets.dat) run]
[(P13-faces.dat) run] generesolid
{1.5 mulv3d} solidtransform
{0 0 alpha rotateOpoint3d} solidtransform

dupsolid {pop -5} solidtransform
dup (DimGrey) outputcolors
drawsolid*

.9 setfillopacity
gris
2 setlinewidth

dup videsolid
dup (.8 setgray) inputcolors
dup [.5 .6] solidputhuecolors
drawsolid**