Fichier 1175.jps — Modifié le 21 Avril 2009 à 11 h 16
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
<tex>
$\beta$
</tex>
X rtp2xyz [2.5 2.5] crtexlabel3d