Présentation de distillation.jps

uselabo
20 setxunit
-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

%% les legendes ont ete faites a partir du quadrillage + graduations

%quadrillage
%marks
setTimes
   (eau tiède) 4.5 12.7 brtext
   (eau froide) 4.7 6.7 dctext

/dotscale {.8 dup} def
/A {6 3} def 
/A' {8.2 2} def
[A A'] (-*) ligne
(distillat) A ultext

/B {-2 8.5} def
/B' {-.5 8.5} def
[B B'] (->) ligne
(colonne Vigreux) B cltext

/C {-3 0} def
/C' {-2 0} def
[C C'] (->) ligne
(chauffe ballon) C cltext

/D {-2 2} def
/D' {-1 2} def
[D D'] (->) ligne
(ballon) D cltext

/F {-2 14} def
/F' {-.1 14} def
[F F'] (->) ligne
(thermomètre) F cltext

/G {8 11} def
/G' {6 9.7} def
[G G'] (->) ligne
(réfrigérant) G urtext