-6 4 setyrange

/A {-5 -2} def
/B {-3 2} def
/C {-1 -4} def

%% on se donne un vecteur
/u {5 1} def
%% et une origine pour le representer
/U {C .1 -.1 addv} def

%% on calcule les images
[A B C] {u translatepoint} papply   
%% et on les nomme
[/A' /B' /C'] exch mapnp

1.2 setcurvelinewidth
[A B C] polygone
[A' B' C'] polygone

rouge
U dupp u addv (->) line

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