Source
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
<tex>
$\beta$
</tex>
X rtp2xyz [2 2] crtexlabel3d