uselabo
20 setxunit
autocrop
-7 12  setxrange
-2 15 setyrange
1 setlinewidth

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

/Tubes [(ColonneVigreux)] def

withbouchon
%% Chauffe ballon place tel que son centre (ccpict) soit au point (0, 0)
0 0 (ChauffeBallon) ccpict

%/fleches_Refrigerant false def
/bouchon_Vigreux true def

%% Ballon place tel que son point de base (bbpict) soit au point (0, 0)
0 0 (Ballon) bbpict

%% Refrigerant place tel que sa sortie (/Out spict) soit placee au
%% point de sortie de la colonne Vigreux (/SortieVigreux pictget)
%% L'angle (90 - 25.641) doit être connu de l'utilisateur, il vient de
%% la construction de la colonne et ne change jamais
/SortieVigreux pictget {90 25.641 sub} (Refrigerant) /Out spict

/Tubes [] def
withoutbouchon

%% on place l'eprouvette centree en dessous (dcpict) de l'entree du
%% refrigerant (/In pictget) en l'agrandissant d'un facteur 1.5 sur
%% les ordonnees
/In pictget [1 1.5] (Eprouvette) dcpict