Source
0.5 5 setxrange
0.5 4.5 setyrange
50 setxunit
/A {1 1} def
/B {3.5 2} def
/C {2 3} def
C A B orthoproj /H defpoint
B A C parallelopoint /D defpoint
[A B C H D] points
[A B C] polygone
[B D] (->) ligne
[C D] (->) ligne
0.5 setlinewidth
B A C .5 (<-) tripointarcarrow
pointilles
[C H] ligne
C H A angledroit