QPFit/animate_star.m
3bfb25b5e70amaster

animate_star.m
View Options

			function animate_star(p, q, radius, X, colors, filename)

			if nargin >= 5
			% v = VideoWriter([filename '.avi'],'Motion JPEG AVI');
			v = VideoWriter([filename '.m4v'],'MPEG-4');
			v.Quality = 100;
			% v.FrameRate = 50;
			open(v);
			end

			[~,seg] = star(p, q, 100, 0.01, false);

			clf
			pts = [];
			for i = 1:length(seg)
			pts(:,end+1) = seg(i).line(:,1);
			end
			pts(:,end+1) = pts(:,1);
			pts = pts * radius;
			plot(pts(1,:),pts(2,:),'-','linewidth',2,'color',0.6*[1 1 1]);
			axis square
			axis off

			axis tight manual
			set(gca,'nextplot','replacechildren');

			f = gcf;
			f.Color = [1 1 1];
			% f.Color = 'none';
			ax = gca;
			ax.Units = 'centimeters';
			ax.Position = [0 0 12.4 8.76];

			for i = 1:length(X)
			l{i} = animatedline('Color',colors(i,:), 'linewidth', 3);
			end

			for i = 1:2:size(X{1},2)
			% for k = 1:100
			for j = 1:length(X)
			addpoints(l{j},X{j}(1,i),X{j}(2,i));
			end
			frame = getframe(gca);
			writeVideo(v,frame);
			drawnow
			% drawnow limitrate
			% end
			end

			if nargin >= 5
			close(v);
			end