%% d'apres http://culturesciences.chimie.ens.fr/
%% dossiers-structure-macroscopique-article-SolubiliteAmmoniac.html

autocrop
uselabo
-6 15 setxrange
-6 15 setyrange
20 setxunit

-1 0 (Potence) bbpict

withbouchon
/Tubes [{(0 -45) [1 .8] (TubeDroit)} (TubeCoin)] def
/aspectLiquides [{cyan}] def
/niveauLiquides [40] def
%% on renomme le point Out de TubeCoin 
%% en Sortie
TubeCoin_dic 
   /Sortie TubeCoin_dic /Out get
put
2.5 0 (Ballon) bbpict
/Out pictget /A defpoint
/col pictget /B defpoint

/niveauLiquides [] def
/Sortie pictget [-.7 .7] (Seringue) /Out spict
-1 B pince

/Tubes [{[1 .25] (TubeDroit)}] def
2.5 8 {180} (Ballon) dcpict
/Out pictget /B defpoint
-1 /col pictget pince

A 90 B 90 raccordsouple