%% auteur : Florent Braisaz

-5.9 4.9 setxrange
-4.9 4.9 setyrange
15 setxunit
15 setyunit

/A {4 4} def
/B {4 -4} def
/O {-3 0} def
/M {3 0} def

/P {M O A orthoproj} def
/Q {M O B orthoproj} def

1.25 setlinewidth


O A demidroite
O B demidroite





gsave
bleu
M P A angledroit
B Q M angledroit
[M P M Q]{2 marked} dapply
pointilles
[M P] ligne
[M Q] ligne
grestore


gsave
rouge
O M droite
#latex# ${\Delta}$ 
-5.5 0 [1.5 dup] dctexlabel
grestore


gsave
setTimesItalic
(A) A [1.5 1.5] ultext
(B) B [1.5 1.5] dltext
(O) O [1.5 1.5] ultext
(M) M [1.5 1.5] urtext
grestore

vert
M O A 1 (-) tripointarcarrow
B O M 1 (-) tripointarcarrow