-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
|