-7 4 setyrange
-3 5 setxrange

/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