-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 2 def /aretescachees false def n r newgeode dup [.5 .6] solidputhuecolors drawsolid* setTimesItalic (Géode : n=) n ( ) cvs append (, r=) append r ( ) cvs append xmin xmax add 2 div ymin uctext