Source
%% auteur : 

-2 6 setxrange
-1 3 setyrange
50 setxunit
50 setyunit
/H{0 0} def
/A{0 2} def
/B{-1 0} def
/C{4 0} def

[A B C] polygone
[A H] ligne

A H C angledroit
B A C angledroit
setTimes
(A)  A  utext
(B) B  dltext
(H) H dtext
(C) C  drtext