Présentation de solide_03.jps

/syracuse/texpng/jpv/guide_jps/solide_03.jpg
-4.5 5 setxrange -2 3 setyrange 20 setxunit 0 10 6 SetCamPos 0 0 1 SetCamUp 0 0 0 SetCamView qplanxy 2 setlinejoin 2 newcube 3 tronque_cube dup [(bleu)] solidputncolors {3 0 1 translatepoint3d} solidtransform drawsolid* /moncube 2 newcube dup [(jaune) (orange) (bleu) (rouge) (vert) (0 0 0 1 setcymkcolor)] solidputfcolors def moncube {0 0 20 rotateOpoint3d} solidtransform {0 0 1 translatepoint3d} solidtransform drawsolid* moncube {0 0 120 rotateOpoint3d} solidtransform {-3 0 0 translatepoint3d} solidtransform drawsolid*