usecolor
-6 6 setxrange
-5 3 setyrange
30 setxunit

-5 5 4 SetCamPos
0 0 0 SetCamView
2 setlinejoin 

{DeepSkyBlue} setlight
5 12 6 setlightsrc
%2 setlightintensity
solidgridOff

.7 2 {4} newtore
drawsolid**