%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/hachrect {.5 2 h@chr@ct} def
/hachrect0 {.5 .5 h@chr@ct} def
/hachrect1 {.5 1 h@chr@ct} def
/hachrect2 {.5 3 h@chr@ct} def
/hachrect3 {.5 4 h@chr@ct} def
/hach1rect {1 1 h@chr@ct} def
/hach1rect0 {1 1 h@chr@ct} def
/hach1rect1 {1 2 h@chr@ct} def
/hach1rect2 {1 3 h@chr@ct} def
/hach1rect3 {1 4 h@chr@ct} def
/hach2rect {1.5 1 h@chr@ct} def
/hach2rect0 {1.5 1 h@chr@ct} def
/hach2rect1 {1.5 2 h@chr@ct} def
/hach2rect2 {1.5 3 h@chr@ct} def
/hach2rect3 {1.5 4 h@chr@ct} def
/hach3rect {1.25 1 h@chr@ct} def
/hach3rect0 {1.25 1 h@chr@ct} def
/hach3rect1 {1.25 2 h@chr@ct} def
/hach3rect2 {1.25 3 h@chr@ct} def
/hach3rect3 {1.25 4 h@chr@ct} def
%% dessine un rectangle hachure
%% syntaxe : x y e1 e2 h@chr@ct ou e1 = epaisseur des hachures, e2 = epaisseur
%% du contour
/h@chr@ct {
4 copy %% x y e1 e2 x y e1 e2
pop h@ch
exch pop r@ct
} def
|