function hopalong(a,b,c,n)
%HOPALONG(A,B,C,N) représente un motif de tapisserie

% La fonction représente un motif intéressant. A, B et C sont des constantes.
% N est le nombre d'itérations.

% Exemples: (1) A=-200, B=0.1, C=-80 (agrandir une zone)
%           (2) A=0.4, B=1, C=0
%           (3) A=-3.14, B=0.3, C=0.3

% Attention: la patience s'impose, 10 000 ou 100 000 itérations
% produisent de meilleurs dessins.

xp=zeros(1,n+1);
yp=zeros(1,n+1);
x=0;
y=0;
for i=1:n
	xx=y-signe(x)*sqrt(abs(b*x-c));
	yy=a-x;
	xp(i)=xx;
	yp(i)=yy;
	%drawnow
	x=xx;
	y=yy;
end

plot(xp,yp,'.')
axis equal
axis off


