Fichier solide_gen_06a3.jps — Modifié le 8 Janvier 2008 à 11 h 27
-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**