% Cmovie
    figure
    set(gcf,'DoubleBuffer','on')    % Keep screen from blinking
	[n,nn]=size(y);frames=n;
	M=moviein(frames);
	r=.2;width=.3;height=r;
	x=y(:,1);theta=y(:,2);
	px=x-sin(theta);py=height+cos(theta);
	track=[min([px-r;x-width]),max([px+r;x+width])];
	rise=[min([0;py])-r,max([0;py])+r];
	phi=(2*pi/12)*[0:12];rx=r*cos(phi);ry=r*sin(phi);
	for j=1:frames
		fill([x(j)-width,x(j)+width,x(j)+width,x(j)-width],[height,height,0,0],'g')
		hold on
		plot([x(j) px(j)],[height py(j)],'y',[track,0,0],[0 0 0 -.1],'c')
		fill(px(j)+rx,py(j)+ry,'r')
		hold off
		axis([track rise]),axis('square'),axis('off')
		M(:,j)=getframe;
	end