%% script M-file show animation
clear all
t = 0; x=zeros(10,1); y=zeros(10,1); z=zeros(10,1);
for t = 1:10
	[x(t), y(t), z(t)] = per_func(t);
end	
figure(1)
display('Plot starting');

hold off;

%% p = plot3(x,y,z,'or','EraseMode','background','Markersize',4);
% Options for EraseMode are normal, none, xor, background
p = plot3(x,y,z,'or','EraseMode','normal','Markersize',8);
set(p,'MarkerFaceColor',[1 1 0])
set(p,'MarkerEdgeColor',[0 0 1])

axis([-10 10 -10 10 -10 10])
hold on
grid on
tic;
%%
for t = 10: 1000
    ind = mod(t,10) + 1;
	[x(ind), y(ind), z(ind)] = per_func(t);
	set(p,'Xdata',x,'Ydata',y,'Zdata',z);
    %if t > 500 
    %    set(p,'EraseMode','normal');
    %end
	drawnow;
end
toc
hold off; grid on
%%
display('Plot finished');