/intermark 3 def
 /anglemark -30 def
 /hauteurmark 7 def
 
 /tr@itm@rk {
2 dict begin
   currentpoint
   /ypt exch def
   /xpt exch def
   gsave
   xpt ypt translate
   anglemark rotate
   newpath
      0 0 moveto
      0 hauteurmark 2 div rmoveto
      0 hauteurmark neg rlineto
      0 hauteurmark 2 div rmoveto
   stroke
   grestore
   xpt ypt moveto
end
} def

%% syntaxe : A B n marked
/marked {
   /n exch def
   4 copy
   gsave
   milieu stranslate
   angle rotate
   thin setlinewidth
   newpath
      0 0 smoveto
      n 1 sub 2 div intermark mul neg 0 rmoveto
      n
      {
   	 tr@itm@rk
   	 intermark 0 rmoveto
      }
      repeat
   stroke
   grestore
} def