magicwand(X, m, n, Tol, eight_or_four);

function Y = magicwand(X, m, n, Tol, eight_or_four);
%*****************************************************************************
%                                                                             
% MAGICWAND                                                                   
%      Given an image and a pixel cooridinate, this function isolates all     
%      neighboring pixels with values within a preset tolerance. This function
%      mimics the behavoir of Adobe's Photoshop magic wand tool.              
%                                                                             
% Synopsis:                                                                   
%      Y=magicwand(X, m, n);                                                  
%              Y=output image of type uint8(logical)                          
%              X=input image of type double                                   
%              m=pixel cooridinate(row)                                       
%              n=pixel cooridinate(col)                                       
%                                                                             
%      Y=magicwand(X, m, n, Tol);                                             
%              Tol=Tolerance value for locating pixel neighbors(default=0.01) 
%                                                                             
%      Y=magicwand(X, m, n, Tol, eight_or_four);                              
%              eight_or_four=string such that if =='eigh', magicwand locates  
%              all eight-neighborhood pixels (default=four-neighborhood)      
%                                                                             
% Daniel Leo Lau                                                              
% [e-mail]                                                            
%                                                                             
% Copyright April 7, 1997                                                     
%                                                                             
% June 30 2003                                                                
% ------------                                                                
% Adapted to   MATLAB 6.5   (sorry, no backward compatibility)                
% Some changes in the main function due to the change in the definition of    
% logical variables in v6.5.                                                  
%                                                                             
% Yoram Tal                                                                   
% [e-mail]                                                       
%
%*****************************************************************************
%
% MAGICWAND is a mex file