-10.5 10.5 setxrange
-1.5 7.5 setyrange
25 setxunit

/A1 {-2 3} def
/A2 {2 7} def

/B1 {-3 1} def
/B2 {-10 -1} def

/C1 {B1 O sympoint} def
/C2 {B2 O sympoint} def

/dx_boxit 5 def
/dy_boxit 5 def
/fillstyle {blanc fill} def

[A1 A2 milieu O] ligne
A1 A2 frame*

[B1 B2 milieu O] ligne
B1 B2 frame*

[C1 C2 milieu O] ligne
C1 C2 frame*

[B1 pop B2 pop 10 nto] 
[B1 exch pop 9 {dup} repeat] fuz 
{dupp 0 B2 exch pop B1 exch pop sub addv 1 trait}
papply

[C1 pop C2 pop 10 nto] 
[C1 exch pop 9 {dup} repeat] fuz 
{dupp 0 C2 exch pop C1 exch pop sub addv 1 trait}
papply

setTimesRoman
   (Réservoir) A1 A2 milieu cctext
circleit
   (Machine) O cctext
   (File d'entrée) B1 B2 milieu pop B1 exch pop (0 7) uctext
   (File de sortie) C1 C2 milieu pop C2 exch pop (0 7) uctext