usecolor
-3 3 setxrange
-3 6 setyrange
30 setxunit
-7 7 8 SetCamPos
0 0 0 SetCamView
2 setlinejoin 
qplanxy
{DeepSkyBlue} setlight
5 12 6 setlightsrc
solidgridOff

0 1.5 6 [1 18] newcone
.7 2 {4} newtore
{0 0 3 translatepoint3d} solidtransform
solidfuz
drawsolid**