usecolor -2 2 setxrange -2 3 setyrange %% echelle 100 setxunit %% position de la camera 8 10 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 %% les axes %0 2 2 axesRVB %% r, theta, phi /O {0 0 0} def /N {2 0 0} def /X {2 12 48} def /H {2 10 36.67} def /T {2 10 53.53} def %% les essais 1.2 setlinewidth noir N T (->) arcspherique 3.2 setlinewidth bleu H T (->) arcspherique noir .5 setlinewidth pointilles N T geodesique_sphere %% on marque les points noir N rtp2xyz point3d bleu H rtp2xyz point3d T rtp2xyz point3d noir O rtp2xyz point3d %X rtp2xyz point3d noir .5 setlinewidth pointilles [0 0 0 H rtp2xyz] (->) ligne3d [0 0 0 T 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 bleu (Hamburg) H rtp2xyz cltext3d (Tunis) T rtp2xyz cltext3d bleu $\beta$ X rtp2xyz [2 2] crtexlabel3d