Fichier triangle_spherique_05.jps — Modifié le 8 Janvier 2008 à 10 h 48
usecolor
-2 2 setxrange
-2 3 setyrange
%% echelle
100 setxunit
%% position de la camera
3 10 6 SetCamPos
0 0 0 SetCamView
2 setlinejoin
%% dessin de la sphere
%%/aretescachees false def
.2 setlinewidth %% epaisseur du trait
.7 setgray %% niveau de gris
2 [18 36] newsphere
drawsolid
%% r, theta, phi
/A {2 90 20} def
/B {2 60 40} def
/C {2 120 70} def
%% les geodesiques
noir
.5 setlinewidth
pointilles
A B geodesique_sphere
A C geodesique_sphere
B C geodesique_sphere
/fillstyle {AntiqueWhite fill} def
continu bleu
A B C trianglespherique*
%% on marque les points
orange
A rtp2xyz point3d
C rtp2xyz point3d
B rtp2xyz point3d
%% et on inscrit leurs noms
noir
18 setfontsize
setTimesItalic
(A) A rtp2xyz uctext3d
(B) B rtp2xyz cltext3d
(C) C rtp2xyz urtext3d