%% syntaxe : xmin xmax {f} {g} Fillcourbes
/Fillcourbes {
4 dict begin
/fct@2 exch def
/fct@1 exch def
/xmax@ exch def
/xmin@ exch def
gsave
newpath
xmin@ dup fct@1 smoveto
xmin@ xmax@ {fct@1} Courbe_
xmax@ dup fct@2 slineto
xmax@ xmin@ {fct@2} Courbe_
closepath
clip
fillstyle
grestore
end
} def
%% syntaxe : {f} {g} fillcourbes
/fillcourbes {
xmin xmax
4 -1 roll
4 -1 roll
Fillcourbes
} def
%% syntaxe : {f} fillcourbe
/fillcourbe {
{pop 0} fillcourbes
} def
%% syntaxe : mini maxi {f} Fillcourbe
/Fillcourbe {
{pop 0} Fillcourbes
} def
|