Présentation de ballon.jps

-2 8 setxrange
-1 5 setyrange

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \def\pst@ballon{
%% {\psset{linewidth=0.053}
%% \psarcn(-0.7,3.4){0.2}{90}{0}
%% \psline(-0.5,3.4)(-0.5,2.4)
%% \psarc(0,1.25){1.25}{113}{67}
%% \psline(0.5,2.4)(0.5,3.4)
%% \psarcn(0.7,3.4){0.2}{180}{90}
%% \psellipse(0,3.6)(0.7,0.1)}}

/pst@ballon {
   0.53 setlinewidth
   -0.7 3.4  0.2 90 0 sarcn
   [-0.5 3.4  -0.5 2.4]  ligne
   0 1.25  1.25 113 67 sarc
   [0.5 2.4  0.5 3.4]  ligne
   0.7 3.4  0.2 180 90 sarcn
   [ 0 3.6  0.7 0.1 0]   ellipse
} def

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \def\pst@FIOLEJAUGE{%
%% \psline[linearc=0.1,linewidth=0.053](-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)
%% \psline[linewidth=0.02](-0.1,2.5)(0.1,2.5)}

/pst@FIOLEJAUGE {
   .53 setlinewidth
   [-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
   .2 setlinewidth
   [-0.1 2.5 0.1 2.5] ligne
} def

%% code PSTricks (D. Girou, C. Jorsen, M. Luque)
%% \def\Cristallisoir{%
%% \psline(-1.9,2)(-2,2)
%% \psarc(-2,1.95){0.05}{90}{270}
%% \psline(-2,1.9)(-2,1)
%% \psarc(-1,1){1}{180}{270}
%% \psline(-1,0)(1,0)
%% \psarc(1,1){1}{270}{0}
%% \psline(2,1)(2,1.9)
%% \psarc(2,1.95){0.05}{270}{90}
%% \psline(2,2)(1.9,2)
%% \psline(1.9,2)(1.9,1)
%% \psarcn(1,1){0.9}{0}{-90}
%% \psline(1,0.1)(-1,0.1)
%% \psarcn(-1,1){0.9}{270}{180}
%% \psline(-1.9,1)(-1.9,2)}

/Cristallisoir {
   [ -1.9 2  -2 2 ] ligne
   -2 1.95  0.05 90 270 sarc
   [ -2 1.9  -2 1 ] ligne
    -1 1  1 180  270 sarc
   [ -1 0  1 0 ] ligne
    1 1  1 -90  0 sarc
   [ 2 1  2 1.9 ] ligne
   2 1.95  0.05 -90  90 sarc
   [ 2 2  1.9 2 ] ligne
   [ 1.9 2  1.9 1 ] ligne 
   1 1  0.9 0  -90 sarcn
   [1 0.1  -1 0.1 ] ligne
   -1 1  0.9 270  180 sarcn
   [ -1.9 1  -1.9 2  ] ligne
} def

pst@ballon 
2 0 stranslate
pst@FIOLEJAUGE 
3 0 stranslate
Cristallisoir