%% Dans cet exemple, certaines faces ne sont visiblement pas correctes et
%% semblent absentes. En fait elles sont là, mais elles sont mal
%% orientées. Ce défaut vient des erreurs d'arrondis des calculs en
%% postscript, qui fait que nos mailles rectangulaires pour le cône ne
%% sont pas planes.
%% 
%% Pour pallier à ce défaut, il suffit d'augmenter le maillage vertical,
%% pour passer de 
%%    -3 2.5 2 [10 18] newcone
%% à
%%    -3 2.5 2 [12 18] newcone

-10 8 setyrange
-10 10 setxrange

-5 7 2 SetCamPos
0 0 0 SetCamView
60 setxunit
GetCamPos setlightsrc
2 setlightintensity

2 setlinejoin
-3 2.5 2 [10 18] newcone
[ 0 1 1 .5] solideqplansepare
dup videsolid
dup (jaune) (rouge) inoutputcolors
dup drawsolid**
pop
dup videsolid
dup (jaune) (rouge) inoutputcolors
{0 0 -45 rotateOpoint3d} solidtransform
{0 3 0 translatepoint3d} solidtransform
dup drawsolid**