function altmovie(data, fps)
load(data);
%vidObj = VideoWriter(['test' data '.avi'],'Motion JPEG AVI');
vidObj = VideoWriter(['test' data '.avi'],'uncompressed AVI');
%vidObj.Quality = 100;
vidObj.FrameRate = fps;
%return
open(vidObj);
for k = 1:length(Q)
    f1 = figure(1); set(f1, 'Color' ,[1 1 1]);
    imshow(Q(k).cdata(:,[1:445 555:end],:));
    k
    %imshow(Q(k).cdata);
    truesize; axis off;
%    currFrame = getframe(gcf);
%    currFrame = getframe(gcf,[110 50 500 560]);
    currFrame = getframe(gcf,[90 50 860 360]);
    writeVideo(vidObj,currFrame);
end
close(vidObj);
end