Fichier 5155.jps — Modifié le 23 Septembre 2009 à 17 h 49
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