% démonstration du fonctionnement correct du jeu d'Engel
% M coups sont joués au hasard et mémorisés. Les coups
% inverses sont ensuite rejoués dans l'ordre inverse.
% On doit retrouver la configuration de base.

% J.-B. Roux, collège de Saussure, octobre 2000

obj=findobj('style','pushbutton');
set(obj,'enable','off')
m=10;						% nombre de coups
n=fix(rand(1,m)*4)+1;		% M coups au hasard
for i=1:m					% on les joue en simulant des clics
	clicengel(n(i))
	pause(1)
end
for i=m:-1:1				% on les rejoue à l'envers
	switch n(i)
	case 1
		clicengel(2)
	case 2
		clicengel(1)
	case 3
		clicengel(4)
	case 4
		clicengel(3)
	end
	pause(1)
end

% on rétablit l'état des boutons et on remplace DEMO par QUITTER
set(obj,'enable','on')
set(gco,'string','Quitter','callback','close(gcf)')
