/longueurmarque {7.5} def
/anglemarque {10} def
%% syntaxe : r m@rques@gment --> ajoute le chemin d'1 marque angle r (en degre)
/m@rques@gment {
rotate
longueurmarque 2 div 0 rmoveto
longueurmarque neg 0 rlineto
} def
%% syntaxe : r A m@rquesegment --> 1 marque en A, angle r (en degre)
/m@rquesegment {
gsave
newpath
smoveto
m@rques@gment
stroke
grestore
} def
%% syntaxe : A B marquesegment --> 1 marque
/marquesegment {
4 copy anglevecteur %% A B r
anglemarque add %% A B angle+r
5 1 roll milieu %% angle+r I
m@rquesegment
} def
|