-3 3 setxrange
-3 6 setyrange
30 setxunit
-7 7 8 SetCamPos
0 0 0 SetCamView
2 setlinejoin 
qplanxy

0 1.5 6 newcone
dup (jaune) outputcolors

.7 2 newtore
{0 0 3 translatepoint3d} solidtransform
dup (orange) outputcolors

solidfuz
drawsolid**