Fichier solide_gen_06a3.jps — Modifié le 8 Janvier 2008 à 11 h 27

solide_gen_06a3.pdf
Source
-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**