%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/p0rect {.9 1 pr@ct} def
/p0rect1 {.9 2 pr@ct} def
/p0rect2 {.9 3 pr@ct} def
/p0rect3 {.9 4 pr@ct} def
/prect {.7 2 pr@ct} def
/prect0 {.7 .5 pr@ct} def
/prect1 {.7 1 pr@ct} def
/prect2 {.7 3 pr@ct} def
/prect3 {.7 4 pr@ct} def
/p1rect {.5 1 pr@ct} def
/p1rect1 {.5 2 pr@ct} def
/p1rect2 {.5 3 pr@ct} def
/p1rect3 {.5 4 pr@ct} def
/p2rect {.3 1 pr@ct} def
/p2rect1 {.3 2 pr@ct} def
/p2rect2 {.3 3 pr@ct} def
/p2rect3 {.3 4 pr@ct} def
/p3rect {.1 1 pr@ct} def
/p3rect1 {.1 2 pr@ct} def
/p3rect2 {.1 3 pr@ct} def
/p3rect3 {.1 4 pr@ct} def
%% syntaxe : x y e1 e2 pr@ct ou e1 = niveau de gris et e2 = epaisseur du trait
/pr@ct {
4 copy %% x y e1 e2 x y e1 e2
pop pl@in
exch pop r@ct
} def
|