-1 5 setxrange
-1 5 setyrange

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \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)}}

/pst@TubeEssais@Corps {
   .53 setlinewidth
   [-0.5 3.5 -0.5 0.5] ligne
   [0.5 0.5 0.5 3.5] ligne
   0 0.5 0.5 -180 0 sarc
   .8 setlinewidth
   [0 3.5 0.5 0.1 0] ellipse
} def

/GrisClair {.8 .8 .8 setrgbcolor} def

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \def\pst@TubeEssais@Bouchon{%
%% \begingroup
%% \psset{fillstyle=solid,fillcolor=GrisClair}
%% \psellipse(0,-0.3)(0.4,0.1)
%% \pspolygon(-0.4,-0.3)(-0.6,0.5)(0.6,0.5)(0.4,-0.3)%
%% \psellipse[linestyle=none,dimen=outer,linewidth=0.07](0,-0.3)(0.4,0.1)%
%% \psellipse(0,0.5)(0.6,0.1)
%% \endgroup
%% \pscurve[linewidth=0.07](-0.5,0)(0,-0.07)(0.5,0)}

/pst@TubeEssais@Bouchon {
   1 dict begin
   /fillstyle {GrisClair fill} def
   %[0 -0.3 0.4 0.1 0] ellipse*
   [-0.4 -0.3 -0.6 0.5 0.6 0.5 0.4 -0.3] polygone*
   -180 0 [0 -0.3 0.4 0.1 0] Ellipse*
   [0 0.5 0.6 0.1 0] ellipse*
   end
   .7 setlinewidth
   [-0.5 0 .. 0 -0.07 .. 0.5 0] draw
} def

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \def\pst@TubeEssais@Droit{%
%% \psline[linewidth=0.5\pslinewidth](0.05,-1)(0.05,5)%
%% \psline[linewidth=0.5\pslinewidth](-0.05,-1)(-0.05,5)%
%% \pst@TubeEssais@Bouchon
%% \psframe[framearc=0.5,fillstyle=solid,dimen=middle,linewidth=0.5\pslinewidth](-0.05,5)(0.05,0.5)%
%% \psline[linecolor=white,linewidth=0.14](-0.1,5)(0.1,5)}

/pst@TubeEssais@Droit {
   [0.05 -1 0.05 5] ligne
   [-0.05 -1 -0.05 5] ligne
   pst@TubeEssais@Bouchon
   -0.05 5 0.05 0.5 frame
   gsave
      blanc
      1.4 setlinewidth
      [-0.1 5 0.1 5] ligne
   grestore
} def

pst@TubeEssais@Corps
2 0 stranslate
pst@TubeEssais@Bouchon 
2 0 stranslate
pst@TubeEssais@Droit