Fichier dualgeode-54.jps — Modifié le 28 Janvier 2008 à 17 h 50
-2 2 setxrange
-1.5 1.5 setyrange
100 setxunit
5 -3 6 SetCamPos
%0.1 0.1 8 SetCamPos
0 0 0 SetCamView
-10 10 setxrange3d
-3 3 setyrange3d
5 -3 10 setlightsrc
1.5 setlightintensity
2 setlinejoin
20 setfontsize
setTimes
/n 5 def
/r 4 def
/aretescachees false def
(geode-54-dual.obj) newobjfile
dup [.5 .6] solidputhuecolors
drawsolid*
setTimesItalic
(Dual de géode : n=)
n ( ) cvs append
(, r=) append r ( ) cvs append
0 ymin uctext