Présentation de 2711.jps

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

/C' {-.5 7.5} def
/C {A pop 7.5} def
[C C'] (->) ligne

/D' {-2 0} def
/D {-3 0} def
[D D'] (->) ligne

/dotscale {.8 dup} def
/E' {-.2 .7} def
/E {-3 2} def
[E E'] (-*) ligne