-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 4 def /r 3 def %/aretescachees false def n r newdualgeode 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