Source PostScript (hachcourbe.pps)

/Hachcourbes {
1 dict begin
   /fillstyle {hachure} def
   Fillcourbes
end
} def

%% syntaxe : {f} {g} hachcourbes
/hachcourbes {
1 dict begin
   /fillstyle {hachure} def
   fillcourbes
end
} def

%% syntaxe : {f} hachcourbe
/hachcourbe {
   {pop 0} hachcourbes
} def

%% syntaxe : mini maxi {f} Hachcourbe
/Hachcourbe {
   {pop 0} Hachcourbes
} def

%% %% ========= pour compatibilite avec les 1eres versions ============
%% 
%% /Hachurecourbe {   
%%    {f} Hachcourbe
%% } def
%% 
%% /Hachurecourbes {   
%%    {f} {g} Hachcourbes
%% } def
%% 
%% /hachurecourbe {   
%%    {f} hachcourbe
%% } def
%% 
%% /hachurecourbes {   
%%    {f} {g} hachcourbes
%% } def