autocrop
-10 10 setxrange
-10 10 setyrange
uselabo
20 setxunit
8 setfontsize

/arrowscale {.8 dup} def
0 0 {-90} (Seringue) bbpict
Pictdic currentdict copy 

setCourier
   (Anneau) Anneau cltext
   (Piston) Piston dctext
   (Out) Out dctext

bleu
[Anneau Out Piston] {times} plot