/A {-3 -3} def
/B {-1 4} def
/C {4 0} def
C A B 1 (-) tripointarcarrow


1.7 setcurvelinewidth
[A B C] polygone




bleu
setTimesItalic
   
   (A) A dltext
   (B) B urtext
   (C) C drtext