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
/FlecheEntree pictget /A defpoint
/FlecheSortie pictget /B defpoint
/troug pictget /F defpoint
F {45} (AmpouleCoulée) /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
|