function [newdata] = data_maker(dataout)

Nmax = max(size(dataout));
r = 1:1000;

newdata = [[r'],[r']];

s=0;
for i = 1:2000;
    newdata(i,:) = interp_data(s,dataout);
    s = s+max(newdata(i,1)*2*pi/30,.005);
    if s > dataout(Nmax,3)
        'done'
        i
        break;
    end;
%    if newdata(i,1)==0
%        'done'
%        i
%        break;
%    end;
end;

newdata = newdata(1:i,:);