function sierpdemo(x,y,n,c)

if isempty(x)|isempty(y)
	x=[0 1 .5]; y=[0.1 0.1 .866];	% valeurs par défaut
end
fill(x,y,c)
sierp2(2*(x-x(1)),2*(y-y(1)),x(1),y(1),n)

