/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
|