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: %| (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: %| ('', 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)));
