Présentation de 080.jps

/syracuse/bbgraf/tmp/080.jpg
-8 8 setxrange -2 3 setyrange 25 setxunit 0 10 6 SetCamPos 0 0 1 SetCamUp 0 0 0 SetCamView -7 7 setxrange3d -3 3 setyrange3d qplanxy 2 setlinejoin /fillstyle {blanc fill} def -2 1 0 newconecreux {180 0 0 rotateOpoint3d} solidtransform {-1 0 0 translatepoint3d} solidtransform drawsolid** 0 1.5 2 1 newtroncconecreux {-4.5 0 0 translatepoint3d} solidtransform drawsolid** 0 1 3 newcylindrecreux {2 0 0 translatepoint3d} solidtransform drawsolid** .3 1 newtore {5 0 .5 translatepoint3d} solidtransform drawsolid**