%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/hach0 {.1 h@ch} def
/hach1 {.25 h@ch} def
/hach {.5 h@ch} def
/hach2 {1.5 h@ch} def
/hach3 {2.25 h@ch} def
%% dessine les hachures a l'interieur d'un rectangle
%% syntaxe : x, y, e ou e = epaisseur des hachures
/h@ch {
gsave
setlinewidth
exch %% y, x
newpath
rectwidth 2 div sub Oy smoveto
rectpath
clip
hachure
grestore
} def
|