/Oy 0 def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/baton0 {.5 bat@n} def
/baton1 {1 bat@n} def
/baton2 {3 bat@n} def
/baton3 {4 bat@n} def
/baton {2 bat@n} def

%% syntaxe : x y e bat@n --> e = epaisseur du trait
 /bat@n {
   gsave
   newpath
      setlinewidth
      0 setlinecap
      2 copy
      pop Oy smoveto
      slineto
   stroke
   grestore
} def

/batons {
   aload length 2 idiv 
   {baton} repeat
} def