usecolor -2 2 setxrange -2 3 setyrange %% echelle 100 setxunit %% position de la camera 8 8 8 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 %% les axes %0 2 2 axesRVB %% r, theta, phi /O {0 0 0} def /N {2 0 0} def /B {2 0 47.75} def /S {2 0 113.16} def /X {2 4 74} def %% les essais 1.2 setlinewidth noir N S (->) arcspherique 3.2 setlinewidth blue B S (->) arcspherique noir .5 setlinewidth pointilles N S geodesique_sphere %% on marque les points noir N rtp2xyz point3d blue B rtp2xyz point3d S rtp2xyz point3d noir O rtp2xyz point3d %X rtp2xyz point3d noir .5 setlinewidth pointilles [0 0 0 B rtp2xyz] (->) ligne3d [0 0 0 S rtp2xyz] (->) ligne3d [0 0 0 N rtp2xyz] (->) ligne3d %% et on inscrit leurs noms noir 18 setfontsize setTimesItalic (O) O rtp2xyz urtext3d (N) N rtp2xyz uctext3d blue (Boston) B rtp2xyz cltext3d (Santiago) S rtp2xyz cltext3d blue $\beta$ X rtp2xyz [2.5 2.5] crtexlabel3d