selectscans

 SELECTSCANS is a debugging function.
 
 SELECTSCANS is a debugging function.

0001 function scannos=selectscans(angleVector,rangeMatrix,speed)
0002 % SELECTSCANS is a debugging function.
0003 %
0004 % SELECTSCANS is a debugging function.
0005 
0006 scannos=[];
0007 figure;
0008 axis;
0009 mov=1;
0010 if ~exist('speed','var')
0011     mov=0;
0012 end
0013 
0014 if mov
0015     for cntr=1:speed:size(rangeMatrix,1);
0016         polar(angleVector,rangeMatrix(cntr,:),'.');
0017         title(num2str(cntr));
0018         drawnow;
0019         cla;
0020     end
0021 else
0022     cntr=1;
0023     while 1
0024         dispclstrscore(angleVector,rangeMatrix(cntr,:),ones(size(angleVector)));
0025 %         imdistline;
0026         title(num2str(cntr));
0027         b=waitforbuttonpress;
0028         if b~=0
0029             btnprsd=get(gcf,'CurrentCharacter');
0030             if btnprsd=='n'
0031                 cntr=cntr+1;
0032                 if cntr>size(rangeMatrix,1)
0033                     cntr=size(rangeMatrix,1);
0034                 end
0035             elseif btnprsd=='b'
0036                 cntr=cntr-1;
0037                 if cntr<1
0038                     cntr=1;
0039                 end
0040             elseif btnprsd=='e'
0041                 break;
0042             elseif btnprsd=='s'
0043                 scannos=[scannos,cntr];
0044             end
0045         end
0046         cla;
0047     end
0048 end
0049 
0050 % remove repetitions
0051 scannos=unique(scannos);