uselabo
-12 23  setxrange
-10 11.3 setyrange
20 setxunit
/dx_boxit 2 def
/dy_boxit 2 def

setTimesBold
0 7 (EntonnoirRobinetCourt) bbpict
circleit
   (1) 0 5 cctext

4 7 (TubeCoin) bbpict
circleit
   (2) 4 5 cctext

7 7 (RobinetTube) bbpict
circleit
   (3) 7 5 cctext

9 7 (TubeU) bbpict
circleit
   (4) 9 5 cctext



circleit_all

setCourierBold
   (1) -11 8 bctext
   (  EntonnoirRobinetCourt) show
   (2) -11 7 bctext
   (  TubeCoin) show
   (3) -11 6 bctext
   (  RobinetTube) show
   (4) -11 5 bctext
   (  TubeU) show