-4 2 setxrange
-2 4 setyrange
25 setxunit
7 5 6 SetCamPos
0 0 0 SetCamView
qplanxy
2 setlinejoin 
0 1.5 3.5 [5 18] newcylindre
18 -2 1 {
   /i exch def
   dup i solidrmface
} for
dup creusesolid
dup (.6 setgray) (jaune) inoutputcolors
drawsolid**