Fichier test_02.jps — Modifié le 8 Janvier 2008 à 11 h 12
-7 7 setxrange
-3.5 2.5 setyrange
30 setxunit
0 10 6 SetCamPos
0 0 1 SetCamUp
0 0 0 SetCamView
-10 10 setxrange3d
-3 3 setyrange3d
%-1 2 1 axesRVB
qplanxy
2 setlinejoin
solidgridOff
{orange} setlight
0 6 6 setlightsrc
2 setlightintensity
/aretescachees false def
.5 setlinewidth
1 {5} newsphere
{0 0 1 translatepoint3d} solidtransform
{3 1.5 1 scaleOpoint3d} solidtransform
{0 0 60 rotateOpoint3d} solidtransform
drawsolid*