uselabo
15 setxunit
autocrop

-6 23  setxrange
-1 9 setyrange
1 setlinewidth

/aspectLiquides [{cyan}] def
/niveauLiquides [60] def

withbouchon

%%%%%%%%%%%%%%%% simple %%%%%%%%%%%%%%%% 
-5 0 (TubeEssais) bbpict

/Tubes [(TubeDroit)] def
-3 0 (TubeEssais) bbpict

/Tubes [(EntonnoirRobinet) (TubeRecourbeCourt)] def
O (Ballon) bbpict

%%%%%%%%%%%%%%%% avec 'scaling' %%%%%%%%%%%%%%%% 
/Tubes [{[-1 1] (TubeRecourbeCourt)}] def
11 0 (Flacon) bbpict

/Tubes [{[1 .5] (TubeDroit)}] def
14 0 (Erlen) bbpict

%%%%%%%%%%%%%%%% avec 'scaling' et deplacement %%%%%%%%%%%%%%%% 
%% Remarque : deplacement de (0, -.5) dans le repere jps
/Tubes [{(0 -.5 jtoppoint) [1 .5] (TubeDroit)}] def
17 0 (Erlen) bbpict

%%%%%%%%%%%%%%%% avec 'relax' %%%%%%%%%%%%%%%% 
/Tubes [(relax) (relax)] def
19.5 0 (TubeEssais) bbpict