Source
/A {-3 -6} def
/B {2 4} def
/C {4 0} def

%% les projetes orthogonaux
/A' {A B C orthoproj} def
/B' {B A C orthoproj} def
/C' {C B A orthoproj} def

%% les hauteurs
/dA {A' A} def
/dB {B' B} def

%% l'orthocentre
/H {dA dB interdroite} def

%% les angles droits
H A' C angledroit
H B' A angledroit
H C' B angledroit

1.7 setcurvelinewidth
[A B C] polygone

pointilles
.7 setcurvelinewidth
[A' A] ligne
[B' B] ligne
[C' C] ligne

H point

bleu
setTimesItalic
   (H) H rtext
   (A) A dltext
   (B) B urtext
   (C) C drtext
   (A') A' urtext
   (B') B' drtext
   (C') C' ultext