function quat2net_test

%quat2net_test  test for quat2net
%
%See also: quat2net

del = [3 10];

subplot(1,2,1)
[x,y]=ndgrid(1:3,1:4);
plot(x(del),y(del),'rx','markersize',15,'linewidth',2)
hold on
x(del)=nan;y(del)=nan;% nans are taken care off, and not included
[q,bi]=quat2net(x,y);
pcolor(x,y,x.*0);
text(x(:),y(:),num2str([1:12]'),'color','b')
poly_bi_plot(bi,x   ,y   ,'r--')
poly_bi_plot(bi,x(:),y(:),'b:','linewidth',2)
title({'ndgrid',''})

subplot(1,2,2)
[xm,ym]=meshgrid(1:3,1:4);
plot(xm(del),ym(del),'rx','markersize',15,'linewidth',2)
hold on
xm(del)=nan;ym(del)=nan;% nans are taken care off, and not included
[qm,bim]=quat2net(xm,ym);
pcolor(xm,ym,xm.*0);
text(x(:),y(:),num2str([1:12]'),'color','b')
poly_bi_plot(bim,xm   ,ym   ,'r--')
poly_bi_plot(bim,xm(:),ym(:),'b:','linewidth',2)
title({'meshgrid',''})

print2screensizeoverwrite(mfilename)

close