uselabo
20 setxunit
-9 3 setxrange
-2 12 setyrange
1 setlinewidth
/aspectLiquides [{cyan}] def
/niveauLiquides [30] def
/Tubes [(RefrigerantBoules)] def
withbouchon
0 0 (ChauffeBallon) ccpict
0 0 (Bicol) bbpict
/troug pictget /A defpoint
A {45} (Bouchon) bbpict
/Tubes [] def
/niveauLiquides [40] def
A {45} (AmpouleCoulee) /ConnectIn spict
/B' {-0.5 8} def
/B {-7 8} def
[B B'] (->) ligne
/C' {-4.5 5} def
/C {-7 5} def
[C C'] (->) ligne
/D' {-1.5 2} def
/D {-7 2} def
[D D'] (->) ligne
/E' {-2 0} def
/E {-7 0} def
[E E'] (->) ligne
|