%% PhS
%% fig_conique_01

50 setxunit
0 6.5 setxrange
-4 3 setyrange

/a {}3 def

/A {2 3} def
/B {2 -3.5} def
/H {2 1.2} def
/M {4 1.2} def
/F {5.5 -0.5} def
/D {2.5 -3} def

[H M F] points
[A B] ligne
[H M F] ligne

bleu

setTimesItalic
   (H) H [2 dup] cltext
   (M) M [2 dup] uctext
   (F) F [2 dup] drtext
   (D) D [2 dup] urtext