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

/arrowscale {.8 dup} def
1 dict begin
   1 setlinewidth
   0 0 (RefrigerantBoules) bbpict
end
Pictdic currentdict copy 

setCourier
   (In) In dctext
   (Out) Out uctext
   (Entree) Entree uctext
   (Sortie) Sortie uctext
   (FlecheEntree) FlecheEntree dltext
   (FlecheSortie) FlecheSortie dltext

bleu
[In Out Entree Sortie FlecheEntree FlecheSortie] {times} plot