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