uselabo
20 setxunit
quadrillage

-10 11  setxrange
-5 4 setyrange
1 setlinewidth
marks

rouge
/linearc .05 def
[
   -3 -1 
   -3 2
   1 2
   1 -1
] ConstruitTube

bleu
/linearc .5 def
[
   3 -1 
   3 2 
   9 2 
   8 -3 
   8 -4
   9 -4
   9 -3
] ConstruitTube

%% on reutilise le 1er tube, et on l'inclut dans l'environnement
%% 'picture'
/mon_tube_dim {
   -3 -1 jtoppoint 
   1 2 jtoppoint
} def

/mon_tube {
gsave
currentpoint translate
1 dict begin
   /linearc .05 def
   [
      -3 -1 
      -3 2
      1 2
      1 -1
   ] ConstruitTube
end
grestore
} def

%% maintenant on peut l'utiliser avec l'environnement 'picture' :
orange

-7 0 {30} (mon_tube) ccpict