Fichier dualgeode-35.jps — Modifié le 24 Janvier 2008 à 22 h 44

dualgeode-35.pdf
Source
-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 3 def
/r 5 def

/aretescachees false def

[(geode-35-dual-sommets.dat) run]
[(geode-35-dual-faces.dat) run] generesolid
dup [.5 .6] solidputhuecolors
drawsolid*

setTimesItalic
(Dual de géode : n=)
n ( ) cvs append
(, r=) append r ( ) cvs append
xmin xmax add 2 div ymin uctext