root/trunk/jps2ps/package/labo.pps

%%  Ce fichier est un essai de transcription dans le format jps
%%  du formidable travail qu'ont accompli Manuel Luque, Denis Girou et
%%  Christophe Jorsen pour l'extension pst-labo pour PSTricks. (voir
%%  http://members.aol.com/Mluque5130/). Merci à eux
/uselabo {} def

/aspectLiquides [] def
/niveauLiquides [] def
/Solides [] def
/Gazs [] def
/Tubes [] def

/linewidth .5 def

/m@depl@n true def
/mode2D {
   /m@depl@n true store
} def
/mode3D {
   /m@depl@n false store
} def

/b@uch@n false def
/withbouchon {
   /b@uch@n true store
} def
/withoutbouchon {
   /b@uch@n false store
} def

%% liste des problemes a resoudre :
%%    * les pscustom
%%    * les psclip
%%    * les linestyle=none

/Beige {0.96 0.96 0.86 setrgbcolor}  def
/GrisClair {0.8 0.8 0.8 setrgbcolor}  def
/GrisTresClair {0.9 0.9 0.9 setrgbcolor}  def
/OrangeTresPale {0 0.1 0.3 0 setcmykcolor} def
/OrangePale {0 0.2 0.4 0 setcmykcolor} def
/BleuClair {0.2 0 0 0 setcmykcolor} def
/LightBlue {.68 .85 .9 setrgbcolor}  def
/Copper {0 0.9 0.9 0.2 setcmykcolor} def
/Marron {0 0.3 0.5 .3 setcmykcolor} def

/le_max 2 31 exp 1 sub def
/relax_dim {0 0 0 0} def
/relax {} def

/RobinetTube_dim {
   -.3 -.35 jtoppoint
   .3 .35 jtoppoint
} def

/RobinetTube {
gsave
currentpoint translate
2 dict begin
   /fillstyle {.6 setgray fill} def
   /linearc .05 def
   [-0.3 0.35 0.3 0.35 0.3 0.2 0.1 0.2
   0.1 -0.35 -0.1 -0.35 -0.1 0.2 -0.3 0.2 -0.3 0.3] polygone*
end
grestore
} def

/oeil_dim {
   -2 -1 jtoppoint
   0 1 jtoppoint
} def

/oeil { 
gsave
currentpoint translate
1 dict begin
   0 2.5 2.5 215 270 sarc
   0 -2.5 2.5 90 140 sarc
   -2.5 0 1 -30 30 sarc
   0 0 1.75 160 200 sarc
   newpath
      0 0 smoveto
      0 0 1.75 cercle_
      /fillstyle {.5 setgray fill} def
   clip
   -2.5 0 0.9 cercle*
end
grestore
} def

/Boulon_dim {
   -.2 -.2 jtoppoint
   .2 .2 jtoppoint
} def

/Boulon {
gsave
currentpoint translate
1 dict begin
   /fillstyle {.8 setgray fill} def
   0 0 .2 cercle*
   [0.15 60 0.15 120 0.15 180 0.15 240 0.15 300 0.15 360] {polcar} papply polygone
end
grestore
} def

/Supportboy_dim {
1 dict begin
   3 copy
   pop pop
   7.3 min /h exch def
   -2.75 0 jtoppoint 
   2.75 h jtoppoint 
end
} def

%% d'apres une idee et un code original de Manuel Luque
%% http://melusine.eu.org/syracuse/mluque/transformations_geometriques_beta2/
/Supportboy {
gsave
currentpoint translate
18 dict begin

   /vis_supportboy_dic 1 dict def
   vis_supportboy_dic /pointfixe {-1.5 0} put
   
   /vis_supportboy_dim {
      -2.5 -.75 jtoppoint
      3 .75 jtoppoint
   } def
   
   /vis_supportboy {
   gsave
   currentpoint translate
   1 dict begin
      -2.5 -0.1 2.5 0.1 frame
      /fillstyle {
         /hangle 45 store 
         /hstep 5 store
         hachure
         /hangle 135 store 
         hachure
      } def
      2.5 -0.75 3 0.75 frame*
      /fillstyle {
         /hangle 60 store 
         /hstep 3 store
         hachure
      } def
      -1 -0.1 2 0.1 frame*
   end
   grestore
   } def

   /axe_dim {
      -.15 -.15 jtoppoint
      .15 .15 jtoppoint
   } def
   
   /axe {
   gsave
   currentpoint translate
   1 dict begin
      /fillstyle {.8 setgray fill} def
      0 0 .15 cercle*
   end
   grestore
   } def
   
   /languette_supportboy_dic 2 dict def
   languette_supportboy_dic /oeildroit {1.75 .25} put
   languette_supportboy_dic /oeilgauche {-1.75 .25} put
   
   /languette_supportboy_dim {
      -2 0 jtoppoint 
      2 .5 jtoppoint
   } def
   
   /languette_supportboy {
   gsave
   currentpoint translate
   2 dict begin
      /fillstyle {.6 setgray fill} def
      /linearc .25 def
      -2 0 2 .5 frame*
   end
   grestore
   } def
   
   /basesupportboy_dim {
      -2 0 jtoppoint
      2 .5 jtoppoint
   } def
   
   /basesupportboy_dic 1 dict def
   basesupportboy_dic /oeil {-1.75 .25} put
   
   /basesupportboy {
   gsave
   currentpoint translate
      newpath 
         0 .25 stranslate 
         %% le tour
         -2 -.25 smoveto
         -2 .25 slineto
         2 .25 slineto
         2 -.25 slineto
         -2 -.25 slineto
      
         %% la fente ajouree
         -0.95 0.15 smoveto
         -0.95 0 0.15 90 270 sarc_
         [-0.8 -0.15 1.7 -0.15] ligne_
         1.7 0 0.15 -90 90 sarc_
      closepath
      gsave
         .6 setgray fill
      grestore
      stroke
   grestore
   } def

   7.3 min /h exch def
   h .5 sub 7 div arcsin /inclinaison exch def
   
   /point1 {-1.75 .25} def
   point1 inclinaison cos 3.5 mul 0 addv /point2 defpoint
   point2 inclinaison sin 3.5 mul add /point5 defpoint
   point1 point5 milieu /point3 defpoint
   point1 inclinaison sin 3.5 mul add /point4 defpoint
   point4 inclinaison sin 3.5 mul add /point7 defpoint
   point5 point7 milieu /point6 defpoint
   
   point4 (vis_supportboy) /pointfixe spict
   point1 {inclinaison} (languette_supportboy) /oeilgauche spict
   point3 {inclinaison neg} (languette_supportboy) ccpict
   point3 {inclinaison neg} (languette_supportboy) ccpict
   point5 {inclinaison neg} (languette_supportboy) /oeildroit spict
   point6 {inclinaison} (languette_supportboy) ccpict
   /oeildroit pictget /point8 defpoint
   point7 (basesupportboy) /oeil spict
   0 0 (basesupportboy) bbpict
   
   %% on pose les boulons et les axes
   point1 (Boulon) ccpict
   point2 (axe) ccpict
   point3 (Boulon) ccpict
   point4 (Boulon) ccpict
   point5 (Boulon) ccpict
   point6 (Boulon) ccpict
   point7 (Boulon) ccpict
   point8 (axe) ccpict

end
grestore
} def

/Manometre_dim {
   -1 -1 jtoppoint
   1 1 jtoppoint
} def

/Manometre_dic 5 dict def
Manometre_dic /Connect {0 -1} put

/Manometre {
gsave
currentpoint translate
3 dict begin
   /position exch def
   /fillstyle {blanc fill} def
   0 0 1 cercle
   0 0 .9 cercle*
   0 0 0.65 -60 240 sarc
   /i -60 def
   11 {
      [.65 i polcar .45 i polcar] ligne
      /i i 30 add store
   } repeat
   2 dict begin
      2 currentlinewidth mul setlinewidth
      /arrowscale {1.2 dup} def
      [0.5 position 180 sub polcar 0.65 position polcar] (->) ligne
   end
   O .1 cercle* 
end
grestore
} def

%% \newdimen{\FilamentWidth}
%% 
%% \newcommand{\Filaments}[2][5]{%
%% \multido{\iFilament=1+1}{#1}{%
%% \setrandim{\FilamentWidth}{0pt}{0.05pt}
%% \rput{\psk@TubeEssais@tubePenche}{%
%% \pscustom[linewidth=\pointless\FilamentWidth,linecolor=#2]{%
%% \code{/MyRand rand 2 31 exp div def} \pscurve(! MyRand 1 sub MyRand 2 mul 1
%% sub) (! MyRand 0.2 add MyRand 2 add)(! MyRand MyRand 1 sub)(! MyRand 0.5 add
%% MyRand 4 add)}}}}

/Clous { 
gsave
9 dict begin
   /n exch def
   /uuy exch def
   /uux exch def
   /lly exch def
   /llx exch def
   /L uux llx sub def
%% {\psset{linecolor=blue} \psarc[linewidth=0.1](0,0.5){.4}{190}{260}
%% \psline(-0.28,0.2)(0.5,1)}}
%% 
%% \newdimen\ClouX
%% \newdimen\ClouY
%% \newcount\AngleRotation
%% \newcommand{\Clous}[1][60]{%
   n {
      /ClouX rand 2 31 exp 1 sub div L mul llx add def
      /ClouY rand 2 31 exp 1 sub div .6 mul lly add def
      /AngleRotation rand 2 31 exp 1 sub div 180 mul 90 sub def
      gsave
         ClouX ClouY stranslate
         AngleRotation rotate
         .5 dup scale
         1 1 1 1 ClouFer
      grestore
   } repeat
end
grestore
} def

/Zinc {
gsave
9 dict begin
   /n exch def
   /uuy exch def
   /uux exch def
   /lly exch def
   /llx exch def
   /L uux llx sub def
   n {
      /GrenailleX rand 2 31 exp 1 sub div L mul llx add def
      /GrenailleY rand 2 31 exp 1 sub div .5 mul lly add def
      /AngleRotation rand 2 31 exp 1 sub div 369 mul 180 sub def
      gsave
         GrenailleX GrenailleY stranslate
         AngleRotation rotate
         .5 dup scale
         1 1 1 1 GrenailleZinc
      grestore
   } repeat
end
grestore
} def

/Cuivre {
gsave
9 dict begin
   /n exch def
   /uuy exch def
   /uux exch def
   /lly exch def
   /llx exch def
   /L uux llx sub def
   n {
      /TournureX rand 2 31 exp 1 sub div L mul llx add def
      /TournureY rand 2 31 exp 1 sub div .5 mul lly add def
      /AngleRotation rand 2 31 exp 1 sub div 360 mul 180 sub def
      gsave
         TournureX TournureY stranslate
         AngleRotation rotate
         .5 dup scale
         1 1 1 1 TournureCuivre      
      grestore
   } repeat
end
grestore
} def

/Filaments {
gsave
9 dict begin
   /n exch def
   /uuy exch def
   /uux exch def
   /lly exch def
   /llx exch def
   /H uuy lly sub def
   /L uux llx sub def
   /arg {argc} def
   /MyRand {rand le_max div} def
   0 -1.5 stranslate
   llx lly uux uuy milieu stranslate
   L 6 div H 7 div scale
   n {
      /FilamentWidth rand le_max div 5 mul def
      FilamentWidth setlinewidth
      [MyRand 1 sub MyRand 2 mul 1 sub .. MyRand 0.2 add MyRand 2 add
      .. MyRand MyRand 1 sub .. MyRand 0.5 add MyRand 4 add] draw
   } repeat
grestore
} def

%-2 -2 3 3 10 Filaments

/TournureCuivre {
1 dict begin
gsave
   pop pop pop pop
%   Copper
   1 setlinewidth
   [.25 0.25 0 0 -0.25 .25 0.25 0.75 0 .5 -0.25 0.75 0.25 1.25 0 1
   -0.25 1.25 0.25 1.75] bezier_curve 
grestore
end
} def

%TournureCuivre

/ClouFer {
%% \rput{\psk@TubeEssais@tubePenche}{{\psset{linecolor=blue}
1 dict begin
gsave
%   bleu
   pop pop pop pop
   0 0.5 .4 190 260 sarc
   1 setlinewidth
   [-0.28 0.2 0.5 1] ligne
grestore
end
} def

%ClouFer

/GrenailleZinc {
pop pop pop pop
1 dict begin
gsave
   GrisClair
%%   [0 0 .. -0.25 0.25 .. 0 .5 .. 0.25 0.75 .. 0.5 0.5 .. 0.15 0.4 .. 0 0] draw
   /fillstyle {GrisClair fill} def
   [0   0   -0.151479   -0.0395512   -0.289551   0.0985209   -0.25   0.25
   -0.218889   0.369153   -0.0871553   0.416129   0   0.5 0.0864664
   0.583208   0.134834   0.710268   0.25   0.75   0.428504 0.811584
   0.580305   0.638883   0.5   0.5   0.433004   0.384134 0.272038
   0.436138   0.15   0.4   -0.0204054   0.34954   -0.0952084 0.150065   0
   0] bezier_curve*
grestore
end
} def

%GrenailleZinc

/FioleJauge_ {
1 dict begin
   [-0.21 3.5 -0.1 3.5 -0.1 1.5 -0.75 0 0.75 0 0.1 1.5 0.1 3.5 0.21 3.5 ] ligne_
end
} def

/FioleJauge_dim {
   -.75 0 jtoppoint
   .75 3.5 jtoppoint
} def

/FioleJauge_dic 5 dict def
FioleJauge_dic /bb {0 0} put

/FioleJauge {
gsave
currentpoint translate
1 dict begin
   newpath 
      -.21 3.5 smoveto
      FioleJauge_
      gsave
         clip
         -.75 0 .75 3.5 afficheLiquides
         -.75 0 .75 3.5 afficheSolides
         -.75 0 .75 3.5 afficheGazs
      grestore
    stroke
   gsave
      currentlinewidth .3 mul setlinewidth
      [-0.1 2.5 0.1 2.5] ligne
   grestore
%   0 3.5 stranslate
   3.5 afficheBouchage
   3.5 afficheTubes
end
grestore
} def

/Bicol_ {
1 dict begin
   [-0.7 2.7 -0.5 2.5 -0.5 1.5] ligne_
   0 0 1.58114 108.435 71.565 sarc_
   [0.5 1.5 0.5 2.5 0.7 2.7 ] ligne_
end
} def

/Bicol_dim {
   -1.58 0 jtoppoint
   1.58 4.28 jtoppoint
} def

/Bicol_dic 5 dict def
Bicol_dic /bb {0 0} put
Bicol_dic /col {0 3.8} put
Bicol_dic /trou {0 4.28} put
Bicol_dic /trou1 {-.2 4.28} put
Bicol_dic /trou2 {.2 4.28} put
Bicol_dic /trou1g {-1.55563 2.85279} put
Bicol_dic /troug {-1.41421 2.99421} put
Bicol_dic /trou2g {-1.27279 3.13563} put
%% 
%% /Bicol {
%% gsave
%% currentpoint translate
%% 0 1.58 stranslate
%% 1 dict begin
%%    gsave
%%    newpath 
%%       -.7 2.7 smoveto
%%       Bicol_
%%       gsave
%%          clip
%%          -1.58 -1.58 1.58 2.6 afficheLiquides
%%          -1.58 -1.58 1.58 2 afficheSolides
%%          -1.58 -1.58 1.58 2.6 afficheGazs
%%       grestore
%%       stroke
%%    grestore
%%    gsave
%%    45 rotate
%%    newpath
%%          -0.7 2.2 smoveto
%%          [-0.7 2.2 -0.5 1.8 -0.5 1.5 0.5 1.5 0.5 1.8 0.7 2.2] ligne_
%%          blanc fill 
%%    grestore
%%    gsave
%%    45 rotate
%%       [-0.7 2.2 -0.5 2 -0.5 1.5] ligne
%%       [0.7 2.2 0.5 2 0.5 1.5] ligne
%%    grestore
%%    .8 setlinewidth
%%    m@depl@n
%%       {}
%%       {0 2.7 0.7 0.1 ellipse}
%%    ifelse
%%    0 -.9 stranslate
%%    3.5 afficheTubes
%% %   afficheBouchage
%% end
%% grestore
%% } def


/Bicol {
gsave
currentpoint translate
0 1.58 stranslate
1 dict begin
   gsave
   newpath 
      -.7 2.7 smoveto
      Bicol_
      gsave
         clip
         -1.58 -1.58 1.58 2.6 afficheLiquides
         -1.58 -1.58 1.58 2 afficheSolides
         -1.58 -1.58 1.58 2.6 afficheGazs
      grestore
      stroke
   grestore
   gsave
   45 rotate
   newpath
         -0.7 2.2 smoveto
         [-0.7 2.2 -0.5 1.8 -0.5 1.5 0.5 1.5 0.5 1.8 0.7 2.2] ligne_
         blanc fill 
   grestore
   gsave
   45 rotate
      [-0.7 2.2 -0.5 2 -0.5 1.5] ligne
      [0.7 2.2 0.5 2 0.5 1.5] ligne
   grestore
   .8 setlinewidth
   m@depl@n
      {}
      {0 2.7 0.7 0.1 ellipse}
   ifelse
   %% on annule la translation en cours
   0 -1.58 stranslate
   4.18 afficheBouchage
   4.18 afficheTubes
   gsave
      -1.41421 2.99421 stranslate
      45 rotate
      0 afficheBouchage
   grestore
end
grestore
} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ù

/Tricol_ {
1 dict begin
   [-0.7 2.7 -0.5 2.5 -0.5 1.5] ligne_
   0 0 1.58114 108.435 71.565 sarc_
   [0.5 1.5 0.5 2.5 0.7 2.7 ] ligne_
end
} def

/Tricol_dim {
   -1.58 0 jtoppoint
   1.58 4.28 jtoppoint
} def

/Tricol_dic 6 dict def
Tricol_dic /bb {0 0} put
Tricol_dic /col {0 3.8} put
Tricol_dic /trou {0 4.28} put
Tricol_dic /trou1 {-.2 4.28} put
Tricol_dic /trou2 {.2 4.28} put
Tricol_dic /trou1g {-1.55563 2.85279} put
Tricol_dic /troug {-1.41421 2.99421} put
Tricol_dic /trou2g {-1.27279 3.13563} put
Tricol_dic /trou1d {1.27279 3.13563} put
Tricol_dic /troud {1.41421 2.99421} put
Tricol_dic /trou2d{1.55563 2.85279} put
 

/Tricol {
gsave
currentpoint translate
0 1.58 stranslate
1 dict begin
   currentlinewidth setlinewidth
   newpath 
      -.7 2.7 smoveto
      Tricol_
      gsave
         clip
         -1.58 -1.58 1.58 2.6 afficheLiquides
         -1.58 -1.58 1.58 2 afficheSolides
         -1.58 -1.58 1.58 2.6 afficheGazs
      grestore
      stroke
   gsave
      45 rotate
      newpath
         -0.7 2.2 smoveto
         [-0.7 2.2 -0.5 1.8 -0.5 1.5 0.5 1.5 0.5 1.8 0.7 2.2] ligne_
      blanc fill 
   grestore
   gsave
      45 rotate
      [-0.7 2.2 -0.5 2 -0.5 1.5] ligne
      [0.7 2.2 0.5 2 0.5 1.5] ligne
   grestore
   gsave
      -45 rotate
      newpath
         -0.7 2.2 smoveto
         [-0.7 2.2 -0.5 1.8 -0.5 1.5 0.5 1.5 0.5 1.8 0.7 2.2] ligne_
      blanc fill 
   grestore
   gsave
      -45 rotate
      [-0.7 2.2 -0.5 2 -0.5 1.5] ligne
      [0.7 2.2 0.5 2 0.5 1.5] ligne
   grestore
   .8 setlinewidth
   m@depl@n
      {}
      {0 2.7 0.7 0.1 ellipse}
   ifelse
   %% on annule la translation en cours
   0 -1.58 stranslate
   4.18 afficheBouchage
   4.18 afficheTubes
end
grestore
} def

/Ampoule_ {
   [0.1 0 0.1 1.5 0.5 1.8 
   0.5 3.5 0.6 3.6 -0.6 3.6 
   -0.5 3.5 -0.5 1.8 -0.1 1.5 
   -0.1 0] ligne_
} def


/Ampoule_dim {
   -.6 0 jtoppoint
   .6 3.6 jtoppoint
} def

/Ampoule_dic 5 dict def
Ampoule_dic /bb {0 0} put
Ampoule_dic /In {0 0} put
Ampoule_dic /ConnectIn {0 .5} put
Ampoule_dic /Out {0 3.6} put

/Ampoule {
gsave
currentpoint translate
1 dict begin
   newpath 
      .1 0 smoveto
      Ampoule_
      gsave
         clip
         -.6 0 .6 3.6 afficheLiquides
         -.6 0 .6 3.6 afficheSolides
         -.6 0 .6 3.6 afficheGazs
      grestore
   currentlinewidth setlinewidth
   stroke
%   0 3.5 stranslate
   3.5 afficheTubes
   3.5 afficheBouchage
end
grestore
} def

/RebordBecher {
1 dict begin
   .53 setlinewidth
   0 2.55 1.1 .1 ellipse
   .3 setlinewidth
   /nDiv .5 def
   4 {
   [-.75 nDiv -.4 nDiv] ligne
      /nDiv .5 nDiv add store
   } repeat
   .2 setlinewidth
   /nSubDiv .5 def
   16 {
   [-0.75 nSubDiv -.5 nSubDiv] ligne
      /nSubDiv .1 nSubDiv add store
   } repeat
end
} def
 
/Becher_ {
   [-1 2.5 -1 0 1 0 1 2.5] ligne_
} def

/Becher_dic 5 dict def
Becher_dic /bb {0 0} put

/Becher_dim {
   -1 0 jtoppoint
   1 2.5 jtoppoint
} def

/Becher {
gsave
currentpoint translate
2 dict begin
   /linearc .5 def
   newpath 
      -1 2.5 smoveto
      Becher_
      gsave
         clip
         -1 0 1 2.5 afficheLiquides
         -1 0 1 2.5 afficheSolides
         -1 0 1 2.5 afficheGazs
       grestore
   stroke
   m@depl@n not
      {RebordBecher}
   if
   3 afficheTubes
%   3 afficheBouchage
end
grestore
} def

/Erlen_ {
   [-0.5 3.5 -0.5 2.5 -1.5 0 1.5 0 0.5 2.5 0.5 3.5] ligne_
} def
 
/Erlen_dim {
  -1.5 0 jtoppoint
   1.5 3.5 jtoppoint
} def

/Erlen_dic 6 dict def
Erlen_dic /bb {0 0} put
Erlen_dic /col {0 2.8} put
Erlen_dic /trou {0 3.6} put
Erlen_dic /trou1 {-.2 3.6} put
Erlen_dic /trou2 {.2 3.6} put

/Erlen {
gsave
currentpoint translate
2 dict begin
   currentlinewidth setlinewidth
   /linearc .5 def
   newpath 
      -.5 3.5 smoveto
      Erlen_
      gsave
         clip
         -1.5 0 1.5 3.5 afficheLiquides
         -1.5 0 1.5 3.5 afficheSolides
         -1.5 0 1.5 3.5 afficheGazs
       grestore
   stroke
   /linearc 0 store
%   0 3.5 stranslate
   3.5 afficheBouchage
   3.5 afficheTubes
end
grestore
} def
 
/TrompeEau_ {
   [-0.5 3.5 -0.5 2.5 -1.5 0 1.5 0 0.5 2.5] ligne_ 
   /linearc .05 def
   [.5 2.9 1.5 2.9] ligne_
   [1.5 3 .5 3 0.5 3.5] ligne_
} def
 
/TrompeEau_dim {
  -1.5 0 jtoppoint
   1.5 3.5 jtoppoint
} def

/TrompeEau_dic 6 dict def
TrompeEau_dic /bb {0 0} put
TrompeEau_dic /trou {0 3.6} put
TrompeEau_dic /trou1 {-.2 3.6} put
TrompeEau_dic /trou2 {.2 3.6} put
TrompeEau_dic /Sortie {1.5 2.95} put

/TrompeEau {
gsave
currentpoint translate
2 dict begin
   currentlinewidth setlinewidth
   /linearc .25 def
   newpath 
      -.5 3.5 smoveto
      TrompeEau_
      gsave
         clip
         -1.5 0 1.5 3.5 afficheLiquides
         -1.5 0 1.5 3.5 afficheSolides
         -1.5 0 1.5 3.5 afficheGazs
       grestore
   stroke
   /linearc 0 store
%   0 3.5 stranslate
   3.5 afficheBouchage
   3.5 afficheTubes
end
grestore
} def

%% \def\pst@TubeEssais@Corps{{%
%% \psset{linewidth=0.053}
%% \psline(-0.5,3.5)(-0.5,0.5)
%% \psarc(0,0.5){0.5}{180}{0}
%% \psline(0.5,0.5)(0.5,3.5)
%% \psellipse[linewidth=0.08](0,3.5)(0.5,0.1)}}

/Flacon_ {
   -0.6 3.4 0.1 90 0 sarcn_
   [-0.5 3.4 -0.5 3.1] ligne_
   -0.6 3.1 0.1 0 -90 sarcn_
   -0.6 2.6 0.4 90 180 sarc_
   [-1 2.6 -1 0.2] ligne_
   -.8 0.2 0.2 180 270 sarc_ 
   [-.8 0 .8 0] ligne_
   .8 0.2 0.2 -90 0 sarc_
   [1 0.2 1 2.6] ligne_
   0.6 2.6 0.4 0 90 sarc_
   0.6 3.1 0.1 -90 180 sarcn_
   [0.5 3.1 0.5 3.4] ligne_
   0.6 3.4 0.1 180 90 sarcn_
} def

/Flacon_dim {
   -1 0 jtoppoint
   1 3.5 jtoppoint
} def

/Flacon_dic 5 dict def
Flacon_dic /bb {0 0} put
Flacon_dic /trou {0 3.6} put
Flacon_dic /trou1 {-.2 3.6} put
Flacon_dic /trou2 {.2 3.6} put

/Flacon {
gsave
currentpoint translate
1 dict begin
   currentlinewidth setlinewidth
   newpath 
      -.6 3.5 smoveto
      Flacon_
      gsave
         clip
         -1 0 1 3.5 afficheLiquides
         -1 0 1 3.5 afficheSolides
         -1 0 1 3.5 afficheGazs
       grestore
   stroke
%   0 3.5 stranslate
   3.5 afficheBouchage
   3.5 afficheTubes
end
grestore
} def
 
%Interieur@TubeEssais@Corps

/afficheBouchage {
1 dict begin
   /y exch def
   dsave1 
      b@uch@n {0 y (Bouchon) bbpict} if
   drestore1 
end
} def

/afficheTubes {
7 dict begin
   /y exch def
   dsave1 
   /n Tubes length def
   %% il y a 1 seul tube
   n 1 eq
      {
         0 y
         Tubes 0 get 
         dup xcheck 
            {exec}
         if
         bbpict
      } 
   if
   %% il y a 2 tubes
   n 2 eq
      {
         -.2 y 
         Tubes 0 get 
         dup xcheck 
            {exec}
         if
         bbpict
         dsave2
         .2 y
         Tubes 1 get 
         dup xcheck 
            {exec}
         if
         bbpict
         drestore2
      }
   if
   drestore1 
end
} def

%% syntaxe : llx lly uux uuy afficheGazss
/afficheGazs {
16 dict begin
   niveauLiquides length 0 ne {
      /angle_rot where 
         {pop} 
         {/angle_rot 0 def}
      ifelse
      /uuy exch def
      /uux exch def
      /lly exch def
      /llx exch def
      /les_points
         [llx lly llx uuy uux lly uux uuy] 
         {0 0 angle_rot rotatepoint} papply
      def 
      /H les_points 3 get les_points 1 get sub def
      /nlx 
         les_points 0 get les_points 2 get min
         les_points 4 get les_points 6 get min
         min
      def
      /nly
         les_points 1 get les_points 3 get min
         les_points 5 get les_points 7 get min
         min                               
      def                                          
      /nux                                 
         les_points 0 get les_points 2 get max
         les_points 4 get les_points 6 get max
         max
      def
      /nuy
         les_points 1 get les_points 3 get max
         les_points 5 get les_points 7 get max
         max
      def
      gsave
         angle_rot neg rotate
         /i 0 def
         Gazs length {
            newpath
               nlx nly smoveto
               nlx nly 
               nux niveauLiquides dup length 1 sub 0 max get H mul 100 div nly add frame_
            clip
         gsave
            angle_rot 2 div rotate
%           llx lly uux uuy Gazs i get exec 
            nlx nly nux nuy Gazs i get exec 
         grestore
            /i i 1 add store
         } repeat
      grestore
   } 
      {pop pop pop pop}
   ifelse
end
} def

%% syntaxe : llx lly uux uuy afficheSolides
/afficheSolides {
6 dict begin
   /uuy exch def
   /uux exch def
   /lly exch def
   /llx exch def
   /n Solides length def
   /i 0 def
   n {
      gsave
         llx lly uux uuy Solides i get exec
      grestore
      /i i 1 add store
   } repeat
end
} def

%% syntaxe : llx lly uux uuy afficheLiquides
/afficheLiquides {
16 dict begin
   niveauLiquides length 0 ne {
      /angle_rot where 
         {pop} 
         {/angle_rot 0 def}
      ifelse
      /uuy exch def
      /uux exch def
      /lly exch def
      /llx exch def
      /les_points
         [llx lly llx uuy uux lly uux uuy] 
         {0 0 angle_rot rotatepoint} papply
      def
      /H les_points 3 get les_points 1 get sub def
      /nlx 
         les_points 0 get les_points 2 get min
         les_points 4 get les_points 6 get min
         min
      def
      /nly
         les_points 1 get les_points 3 get min
         les_points 5 get les_points 7 get min
         min                               
      def                                          
      /nux                                 
         les_points 0 get les_points 2 get max
         les_points 4 get les_points 6 get max
         max
      def
      /nuy
         les_points 1 get les_points 3 get max
         les_points 5 get les_points 7 get max
         max
      def

      gsave
         angle_rot neg rotate
         /i niveauLiquides length 1 sub def
         niveauLiquides length {
            newpath
               nlx nly smoveto
               nlx nly 
               nux niveauLiquides i get H mul 100 div nly add frame_
%           clip
            [ 
               aspectLiquides i get exec 
            counttomark 0 eq {
               fill pop
            } {
               gradientfill pop
            } ifelse
            /i i 1 sub store
         } repeat
         %% affichage du niveau
         currentlinewidth .5 mul setlinewidth
         noir
         /j niveauLiquides length 1 sub def
         m@depl@n
            {
              newpath
                  [nlx niveauLiquides j get H mul 100 div nly add 
                  dup nux exch] ligne
              stroke
            }
            {}
         ifelse
      grestore
   } 
      {pop pop pop pop}
   ifelse
end
} def

/dosage@support {
1 dict begin
gsave
   -1.5 0 1.5 1.5 frame
   -1.30 0.25 -0.70 1.25 frame
   -1.20 0.35 -0.80 1.15 frame
   1 0.75 0.20 cercle
   1 0.75 0.30 cercle
   /fillstyle {rouge fill} def
   0 0.75 0.2 cercle*
grestore
end
} def

/dosage@aimant {
2 dict begin
   /linearc .05 def
   /fillstyle {blanc fill} def
   -0.5 0.1 0.5 0.4 frame*
   -0.05 0 0.05 0.5 frame*
end
} def
 
/AgitateurMagnetique_dim {
   -1.5 0 jtoppoint
   1.5 2 jtoppoint
} def

/AgitateurMagnetique {
gsave
   currentpoint translate
   gsave
      0 1.5 stranslate
      dosage@aimant
   grestore
   dosage@support
grestore
} def

/pHmetre_dim {
   -1 0 jtoppoint
   2.75 5 jtoppoint
} def

/pHmetre {
2 dict begin
gsave
   currentpoint translate
   % boitier   
   1 dict begin
      /linearc .25 def
      -1 0 1 3 frame
   end
   /fillstyle {GrisClair fill} def
   -0.75 2 0.75 2.75 frame*
   gsave
   blanc
   setTimes
      (PH) 0 2.375 cctext
   grestore
   0 1.25 0.3 cercle
   [0 1.25 0 1.5] (->) ligne
%% \rput(0.65,1.5){$^\circ$C}%
   -0.5 0.5 0.2 cercle
   0.5 0.5 0.2 cercle
    % électrode
   1 dict begin
      /linearc .25 def
      2.25 2.5 2.75 4.5 frame
   end
   2.25 4 2.75 4.5 frame*
   2.5 2.25 0.25 cercle
   % fil
   /linearc .4 def
   1 setlinewidth
   LightBlue
   [2.5 4.5 2.5 5 1.25 4.75 0 5 0 3] ligne
grestore
end
} def
 
/vumetre {
gsave
6 dict begin
   /fillstyle {blanc fill} def
   -2 0 2 2.2 frame*
   /fillstyle {rouge fill} def
   [-.1 .1 .1 .1 0 1.8] polygone*
   /angled 45 def
   /anglef 135 def
   angled anglef 0 0 2 Cercle
   /n 10 def
   /step anglef angled sub n 1 sub div def
   /i step def
   angled 0 0 2 cpoint
   angled 0 0 1.8 cpoint 1 trait
   anglef 0 0 2 cpoint
   anglef 0 0 1.8 cpoint 1 trait
   n 2 sub {
      angled i add 0 0 2 cpoint
      angled i add 0 0 1.9 cpoint
      1 trait
      /i step i add store
   } repeat
   newpath
      .4 0 smoveto
      0 0 .4 0 180 sarc_
      .4 setgray
   fill
grestore
end
} def

/bouton {
gsave
1 dict begin
   -1.25 -.25 stranslate
   /fillstyle {gris fill} def
   1 0 1.5 0.5 frame
   1.1 0.1 1.4 0.4 frame*
end
grestore
} def

/electrodeConductimetre {
gsave
3 dict begin
   /fillstyle {bleu fill} def
   /borderline false def
   -.15 0 .15 .5 frame*
   currentlinewidth .5 mul setlinewidth
   [-.05 .5 -.1 3] ligne
   [.05 .5 .1 3] ligne
   .4 dup jtoppoint pop setlinewidth
   /linearc .5 def
   .4 setgray
   [-1.5 4 0 4 0 3] ligne
end
grestore
} def

/Conductimetre_dim {
   -2 0 jtoppoint
   5.2 7.2 jtoppoint
} def

/Conductimetre_dic 2 dict def
Conductimetre_dic /Cellule {4 2.25} put
Conductimetre_dic /bb {0 0} put

/Conductimetre {
3 dict begin
gsave
currentpoint translate
   /fillstyle {blanc fill} def
   -1.5 0 1.5 2 frame*
   gsave
      -1 1.25 stranslate
      .8 dup scale
      potentiometre
   grestore
   gsave
      -1 .5 stranslate
      bouton
   grestore
   gsave
      .5 .8 stranslate
      .4 dup scale
      vumetre
   grestore
   gsave
      4 2 stranslate
      electrodeConductimetre
   grestore
   /linearc .4 def
   1 setlinewidth
   .4 setgray 
   [2.5   6.1   -0.661274   6.1   4.66127   0.6   1.5   0.6] bezier_curve
   [2.5   5.9   -0.661274   5.9   4.66127   0.4   1.5   0.4] bezier_curve
grestore
end
} def

/electrodeConductimetreDigital {
gsave
3 dict begin
   currentlinewidth .5 mul setlinewidth
   -.1 .6 .1 3 frame
   [-.1 .6 -.15 .5] ligne
   [.1 .6 .15 .5] ligne
   0 3 .1 0 180 sarc
   /fillstyle {bleu fill} def
   /borderline false def
   -.15 0 .15 .5 frame*
end
grestore
} def

/ConductimetreDigital_dim {
   -1 0 jtoppoint
   3.65 6 jtoppoint
} def

/ConductimetreDigital_dic 2 dict def
ConductimetreDigital_dic /Cellule {3.5 2.25} put
ConductimetreDigital_dic /bb {0 0} put

/ConductimetreDigital {
1 dict begin
gsave
dsave2
currentpoint translate
   /fillstyle {blanc fill} def
   -1 0 1 3 frame*
   0 2 1.5 .75 cframe
   -.75 .25 .75 1.5 frame
   -.75 2.6 .75 2.8 frame
   2 -.2 2 [.1 dup] (digit) ccpict
   0 .1 2 [.1 dup] (digit) ccpict
   1 .3 /bb pictget exch pop [.1 dup] (digital_point) ccpict
   9 .5 2 [.1 dup] (digit) ccpict
   setCourrierBold
   (CONDUCTIMETRE) 0 .5 [.25 dup] cctext
   gsave
      3.5 2 stranslate
      electrodeConductimetreDigital
   grestore
   1 setlinewidth
   .4 setgray 
%%   [3.45 5.1 {up} .. {left} 2.5 6 .. {left} 1 .6] draw
   [3.45   5.1   3.45   5.60641   3.01582   6.0   2.5   6
   -0.447443   6.0   3.94744   0.6   1   0.6] bezier_curve
%%   [3.55 5.1 {up} .. {left} 2.5 6 .. {left} 1 .4] draw
   [3.55   5.1   3.55   5.62671   3.05454   6.0   2.5   6   -0.570494
   6.0   4.07049   0.4   1   0.4] bezier_curve
drestore2
grestore
end
} def

/goutte_dim {
   -0.083 -0.25 jtoppoint
   0.083 0 jtoppoint
} def

/goutte {
gsave
1 dict begin