% this little script lets me see how the curve changes as we
% slide along the floor surface. (in x)

x = 16;
y = 14.5;
res = 512;
radius = 6;
focus=0.5;

out = [];
f = create_sim(pads, x, y, res, radius, focus, 0);
figure(2);
h = plot(f,'erasemode','xor');
set(gca,'ylim',[-3,3]);
for dx = linspace(0,10,250),
	f = create_sim(pads, x+dx, y, res, radius, focus, 0);
	out = [out, f];
	set(h, 'ydata', f);
	drawnow;
end
% out = out(1:size(out,1)/4,:);
% surf(out);
% colormap(repmat(linspace(0,1,64)',1,3));