usecolor
-7 7 setxrange
-13 3 setyrange
25 setxunit

10 10 8 SetCamPos
-10 -10 0 SetCamView
/ScreenDist .2 def

2 setlinejoin

%% debut de la transcription du code PSTricks de Olivier Le Jeune

/f {
2 dict begin
   /v exch def
   /u exch def
   u Cos v mul
   u Sin v mul
   v v mul
end
} def

0 2 2 [1 60] newcylindre
dup (bleu) (orange) inoutputcolors
dup 0 solidrmface

0 2 pi mul 0 2 [40 20] {f} newsurfaceparametree
dup (jaune) (cyan) inoutputcolors
solidfuz

0 2 pi mul 0 2 [40 20] {f pop 2} newsurfaceparametree
dup (jaune) (cyan) inoutputcolors

solidfuz drawsolid**