Présentation de bouchon_tube.jps

-1 10 setxrange
-1 7 setyrange

/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

/pst@TubeEssais@Coude {
   [0.05 -1 0.05 0] ligne
   [-0.05 -1 -0.05 0] ligne
   pst@TubeEssais@Bouchon
   [-0.05 0.5 -0.05 2 8 2 8 1.9 0.05 1.9 0.05 0.5] polygone
   gsave
      blanc
      1.4 setlinewidth
      [7.95 1.9 8.05 2] ligne
   grestore
} def

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \def\pst@TubeEssais@CoudeU{%
%% \psline[linewidth=0.5\pslinewidth](0.05,-1)(0.05,0)%
%% \psline[linewidth=0.5\pslinewidth](-0.05,-1)(-0.05,0)%
%% \pst@TubeEssais@Bouchon
%% \pspolygon[fillstyle=solid,linearc=0.05,linewidth=0.5\pslinewidth](-0.05,0.5)(-0.05,2)(4.5,2)(4.5,-3)
%% (4.4,-3)(4.4,1.9)(0.05,1.9)(0.05,0.5)%
%% \psline[linecolor=white,linewidth=0.14](4.3,-3)(4.6,-3)}

/pst@TubeEssais@CoudeU {
   [0.05 -1 0.05 0] ligne  
   [-0.05 -1 -0.05 0] ligne
   pst@TubeEssais@Bouchon
   [-0.05 0.5  -0.05 2  4.5 2  4.5 -3 4.4 -3  4.4 1.9  0.05 1.9  0.05 0.5] ligne
   gsave
      blanc
      1.4 setlinewidth
      [4.3 -3 4.6 -3] ligne
   grestore
} def

pst@TubeEssais@Coude 
4 4 stranslate
pst@TubeEssais@CoudeU