Fichier solide_gen_01.jps — Modifié le 8 Janvier 2008 à 11 h 18
-3 3 setxrange
-1 3 setyrange
25 setxunit
3 10 6 SetCamPos
0 0 0 SetCamView
qplanxy
0 1 1 axesRVB
2 setlinejoin
/table [-1 -1 1 -1 0 1] def
table 0 2 newprismedroit
{2 0 0 translatepoint3d} solidtransform
drawsolid
table 0 2 -.25 -.25 1 [3] newprisme
{-2 0 0 translatepoint3d} solidtransform
drawsolid