-6.2 3.2 setyrange
-3 4 setxrange
20 setxunit
/d .75 def %% distance pour la cotation
/h 5 def
/R 2 def
/H R h add def
/A {R neg h neg} def
/B {R h neg} def
/C {B 0 h addv} def
/D {A 0 h addv} def
/B1 {B d 0 addv} def
/C1 {C d 0 addv} def
/B2 {B 2 d mul 0 addv} def
/Top {C 2 d mul R addv} def
/R1 {C O 30 rotatepoint} def
gsave
mixte
[0 -6 0 3] ligne
[-3 0 3 0] ligne
pointilles
[B B2] ligne
[0 R Top] ligne
grestore
[A B C D] points
B1 C1 (<->) line
B2 Top (<->) line
O R1 (<->) line
180 0 O R Cercle
[D A B C] ligne
setTimesItalic
(h) B1 C1 milieu rtext
(H) B2 Top milieu rtext
(R) O R1 milieu ultext
|