-3 4 setxrange
-4 1 setyrange

/A {-2 -3} def
/B {3 -3} def
/I {A B milieu} def
/C {3 0} def

B A C 1 (-) tripointarc

A B C angledroit

1.7 setcurvelinewidth
[A B C] polygone

%% on rajoute 2 points a la taille de fonte courante
/fontsize fontsize 2 add store
bleu
setTimesItalic
   (A) A dltext
   (B) B drtext
   (C) C urtext
setTimes
noir
   (côté adjacent) A B milieu dctext
   (hypothénuse) A C milieu {A C angle} uctext
   (côté opposé) C B milieu {C B angle} uctext
setSymbol
   (a) A C angle 1.5 div A 1 cpoint crtext