-4 2 setxrange
-2 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin 
0 1.5 2.5 [1 18] newcylindre
dup 3 solidrmface
dup 3 solidrmface
dup creusesolid
dup (.6 setgray) (jaune) inoutputcolors
drawsolid**