28.4527 setxunit %% 10 mm
autocrop
-2 10 setxrange
/A {3 0} def
/C {5 0} def
/F {10 0} def
/d {O 35 dir} def
5 d xdpoint /G defpoint
/B {2 d xdpoint} def
A B C paral
d interdroite
/D defpoint
B C D paral
O C interdroite
/E defpoint

[G O F] ligne
10 setfontsize
setTimesItalic
   (O) O dltext
   (A) A drtext
   (B) B ultext
   (C) C drtext
   (D) D ultext
   (E) E drtext

bleu
[A B C D E] ligne