Présentation de ammoniac_02.jps

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

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

0 0 (Potence) bbpict

withbouchon
/Tubes [{(0 -45) [1 .8] (TubeDroit)} (TubeCoin)] def
/aspectLiquides [{cyan}] def
/niveauLiquides [40] def
%% on renomme en /Sortie le point /Out de TubeCoin  
TubeCoin_dic 
   /Sortie TubeCoin_dic /Out get
put
%% dessin du ballon
2.5 0 (Ballon) bbpict
%% on recup les points cles
/Out pictget /A defpoint
/col pictget /B defpoint
/Sortie pictget /C defpoint
%% legende ballon
<tex>
\hsize 50mm
Ballon rempli d'eau avec quel\-ques gouttes de phénolphtaléine
</tex>
/cr pictget crtexlabel
%% dessin de la seringue
/niveauLiquides [] def
C [-.7 .7] (Seringue) /Out spict
%% legende seringue
(seringue remplie d'air) /uc pictget uctext
%% on accroche la ballon a la potence
0 B pince

/Tubes [{[1 .25] (TubeDroit)}] def
%% le ballon a l'envers
2.5 8 {180} (Ballon) dcpict
/Out pictget /B defpoint
/col pictget /D defpoint
(ballon rempli d'ammoniac gazeux) /cl pictget urtext
%% on accroche la ballon a la potence
0 D pince
A 90 B 90 raccordsouple