%% /hachurecourbes {
%% gsave
%% Masque
%% newpath
%% Xmin dup g smoveto
%% Xmin dup f slineto
%% courbepath
%% Xmax dup g slineto
%% courbegpath
%% closepath
%% clip
%% hachure
%% grestore
%% } def
%%
%% /hachurecourbes {
%% (f) (g) hachcourbes
%% } def
|