%% auteur : 
-2 12 setxrange
-3 10 setyrange
20 setxunit
20 setyunit
.7 setlinewidth

/A{0 0} def
/B{0 7} def
/C{10 0} def

[A B C] polygone
%[A B C] points

B A C angledroit


6 B C xdpoint /D defpoint
% D point
/E {D A C orthoproj} def
[D E] ligne
D E C angledroit

setTimes
(A)  A [1.5 1.5] dltext
(B) B [1.5 1.5] urtext
(C) C [1.5 1.5] drtext
(D) D [1.5 1.5] urtext
(E) E [1.5 1.5 ] dtext