usecolor -2 2 setxrange -2 3 setyrange %% echelle 100 setxunit %% position de la camera 5 28 6 SetCamPos 0 0 0 SetCamView 2 setlinejoin %% dessin de la sphere /aretescachees false def .5 setlinewidth %% epaisseur du trait .6 setgray %% niveau de gris 2 [18 36] newsphere %% rayon + nb d'horizontales et verticales drawsolid %% r, theta, phi /A {2 0 0} def /B {2 0 90} def /C {2 90 90} def /D {2 180 90} def /E {2 90 180} def %% les essais 0.8 setlinewidth %pointilles noir A C geodesique_sphere B C geodesique_sphere %% on marque les points noir %A rtp2xyz point3d C rtp2xyz point3d %B rtp2xyz point3d %D rtp2xyz point3d %E rtp2xyz point3d %% et on inscrit leurs noms noir 18 setfontsize setTimesItalic (Nord) A rtp2xyz uctext3d (Ouest) B rtp2xyz cltext3d (O) C rtp2xyz urtext3d (Est) D rtp2xyz urtext3d (Sud) E rtp2xyz dctext3d