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' {-1 8} def
/B {-5 8} def
[B B'] (->) ligne
/C' {-4 5} def
/C {-5 5} def
[C C'] (->) ligne
/D' {-1 2} def
/D {-5 2} def
[D D'] (->) ligne
/E' {-2 0} def
/E {-5 0} def
[E E'] (->) ligne
|