cropimage.m

eye detection sample in matlab. Eyetrackers can analyze a driver’s level of attentiveness while driv

function varargout = cropimage(varargin)
% CROPIMAGE Application M-file for cropimage.fig
%    FIG = CROPIMAGE launch cropimage GUI.
%    CROPIMAGE('callback_name', ...) invoke the named callback.

% Last Modified by GUIDE v2.0 17-Aug-2003 19:25:59

if nargin == 0  % LAUNCH GUI

	fig = openfig(mfilename,'reuse');

	% Use system color scheme for figure:
	set(fig,'Color',get(0,'defaultUicontrolBackgroundColor'));

	% Generate a structure of handles to pass to callbacks, and store it. 
	handles = guihandles(fig);
	guidata(fig, handles);

	if nargout > 0
		varargout{1} = fig;
	end

elseif ischar(varargin{1}) % INVOKE NAMED SUBFUNCTION OR CALLBACK

	try
		if (nargout)
			[varargout{1:nargout}] = feval(varargin{:}); % FEVAL switchyard
		else
			feval(varargin{:}); % FEVAL switchyard
		end
	catch
		disp(lasterr);
	end

end


%| ABOUT CALLBACKS:
%| GUIDE automatically appends subfunction prototypes to this file, and 
%| sets objects' callback properties to call them through the FEVAL 
%| switchyard above. This comment describes that mechanism.
%|
%| Each callback subfunction declaration has the following form:
%| <SUBFUNCTION_NAME>(H, EVENTDATA, HANDLES, VARARGIN)
%|
%| The subfunction name is composed using the object's Tag and the 
%| callback type separated by '_', e.g. 'slider2_Callback',
%| 'figure1_CloseRequestFcn', 'axis1_ButtondownFcn'.
%|
%| H is the callback object's handle (obtained using GCBO).
%|
%| EVENTDATA is empty, but reserved for future use.
%|
%| HANDLES is a structure containing handles of components in GUI using
%| tags as fieldnames, e.g. handles.figure1, handles.slider2. This
%| structure is created at GUI startup using GUIHANDLES and stored in
%| the figure's application data using GUIDATA. A copy of the structure
%| is passed to each callback.  You can store additional information in
%| this structure at GUI startup, and you can change the structure
%| during callbacks.  Call guidata(h, handles) after changing your
%| copy to replace the stored original so that subsequent callbacks see
%| the updates. Type "help guihandles" and "help guidata" for more
%| information.
%|
%| VARARGIN contains any extra arguments you have passed to the
%| callback. Specify the extra arguments by editing the callback
%| property in the inspector. By default, GUIDE sets the property to:
%| <MFILENAME>('<SUBFUNCTION_NAME>', gcbo, [], guidata(gcbo))
%| Add any extra arguments after the last argument, before the final
%| closing parenthesis.



% --------------------------------------------------------------------
function varargout = markface_Callback(h, eventdata, handles, varargin)
global r;
r1=getrect; % returns x y w h
r(1)= r(1)+ r1(2)-1;
r(2)= r(2)+ r1(1)-1;
r(3)= r(1)+ r1(4)-1;
r(4)= r(2)+ r1(3)-1;
disp(r1(3));
disp(r1(4));h
refresh;

% --------------------------------------------------------------------
function varargout = save_Callback(h, eventdata, handles, varargin)
global im;
global r;
if (exist('cropped_images','dir'))
    d=dir('cropped_images\face_*.jpg');
    maxnum=0;
    for i=1:length(d)
        [num,c] = sscanf(d(i).name,'face_%d.jpg');
        if (c==1)
            maxnum=max(maxnum,num);
        end;
    end;
    fname=sprintf('cropped_images\\face_%.4d.jpg',maxnum+1);
else
    fname= 'cropped_images\face_0000.jpg';
    mkdir 'cropped_images';
end
imwrite(im(r(1):r(3),r(2):r(4)),fname,'jpg');
% --------------------------------------------------------------------
function varargout = zoomout_Callback(h, eventdata, handles, varargin)
global r;
global im;
r = [1 1 size(im)];
refresh;
% --------------------------------------------------------------------
function varargout = nextfile_Callback(h, eventdata, handles, varargin)
shownext(handles);

% --------------------------------------------------------------------
function shownext(handles)
persistent d;
persistent i;
global im;
global r;
if (isempty(d))
    d = dir('*.jpg');
    i=1;
end
im = double(imread(d(i).name,'jpg'))/255;
if (length(size(im))==3)
    im1 = 77*im(:,:,1)+150*im(:,:,2)+29*im(:,:,3);
    im = im1/256;
end;
axes(handles.axes1);
i=i+1
r= [1 1 size(im)];
refresh;

function refresh
global im;
global r;
imshow(im(r(1):r(3),r(2):r(4)));