%% /hachurecourbe { %% gsave %% Masque %% newpath %% Xmin 0 smoveto %% Xmin dup f slineto %% courbepath %% Xmax 0 slineto %% closepath %% clip %% hachure %% grestore %% } def %% %% /hachurecourbe { %% (f) hachcourbe %% } def