-2 2 setxrange
-2 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
2 setlinejoin 
2 [10 18] newsphere
dup 40 solidrmface
dup 40 solidrmface
dup 56 solidrmface
dup 56 solidrmface
dup videsolid
dup (.6 setgray) (jaune) inoutputcolors
drawsolid**