-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
|