Fichier 2716a.jps — Modifié le 2 Mai 2008 à 14 h 15

2716a.pdf
Source
%% Reprise de l'exemple 2716.jps, en augmentant 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 [12 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**