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:59if 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;	endelseif 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);	endend%| 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 hr(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));hrefresh;% --------------------------------------------------------------------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';endimwrite(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;endim = 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+1r= [1 1 size(im)];refresh;function refreshglobal im;global r;imshow(im(r(1):r(3),r(2):r(4)));