crop_it1.m

it is very good program for developers

function [rect_pos] = Crop_it2(I)

%
% Crops the Image from a resizable & draggable rectangle 
% & displays it (after the figure is closed)
%
% I is the Image to be cropped, assumed to be in the 
% matlab workspace
%
% EXAMPLES
%

   [ans,pathname]=uigetfile( ...
{'*.jpg';'*.jpeg'...

   }, ...
   'Select an IMAGE');
I=imread([pathname ans]);

% [rect_pos] = Crop_it(I);
%
% RGB = imread('peppers.png');
% [rect_pos] = Crop_it(RGB);
%
% See also IMPIXEL, IMPROFILE, ANNOTATION, IMCROP.

% $author Shripad Kondra, SISSA, Trieste, Italy
% $acknowledgments Diana Bedolla (SISSA),  Erion Hasanbelliu (UFL)
% $date 21-Aug-2008
%
%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
r=size(I,1);
c=size(I,2);

% 1) get the screensize 
Screen_size = get(0,'ScreenSize');
min_Screen_size = min(Screen_size(3:4));
% 2) imagine the screen as a aquare with this size
% 3) find the length of diagonal
diag_Screen_size =  round(sqrt(2*min_Screen_size.^2));
% 3) Lets say you have to fit a figure which is half the screen size
scale_screen = diag_Screen_size/2;
d=sqrt(r.^2+c.^2);  % find the size of the diagonal of the image 
scale_fig = (scale_screen/d); 

%% Figure resizing
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Don't use IMSHOW as it doesn't strecth the image in same proportion     % 
% as the figure when the figure is strecthed.                             %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

figure, imagesc(I); colormap gray;
rect_pos_fig = get(gcf,'position');
rect_pos_fig(3) = round(c*scale_fig);
rect_pos_fig(4) = round(r*scale_fig);
% set the figure position so that it is proportional to the image
set(gcf,'Units','pixels')
set(gcf,'position',rect_pos_fig);
% set axis to fill the figure. 
set(gca,'position',[0 0 1 1]);

%% Creating the rectangle
% create the rectangle
plotedit on

h1=annotation('rectangle',[0.4  0.35 0.18 0.18]);
set(h1,'EdgeColor','r','LineStyle','--','LineWidth',2);

% fancy stuff -> slower if image is gray or is too big
if(size(I,3)>1 && scale_fig>1) 
set(h1,'FaceAlpha',.2,'FaceColor','yellow'); 
end
 
% here is the key for resizable rectangle

% set the delete callback
set(gcf,'DeleteFcn',{@myCallback,I,h1});
waitfor(h1);

% recover the value of the position of rectangle from root.
rect_pos=get(0,'UserData');
return;



%% Callback subfunction 
function myCallback(src,eventdata,I,h1)
r=size(I,1);
c=size(I,2);

rect_pos = get(h1,'position');
rect_pos = (floor(rect_pos.*[c r c r]))+1;
rect_pos(2) = r - (rect_pos(2) + rect_pos(4));

try
I2=imcrop(I,rect_pos); % uses imageprocessing toolbox
catch
I2=myCrop(I,rect_pos);    
end    

figure, 
imshow(I2); 
hold on


M = size(I2,1);
N = size(I2,2);

for k = 1:10:M
    x = [1 N];
    y = [k k];
    plot(x,y,'Color','w','LineStyle','-');
    plot(x,y,'Color','k','LineStyle',':');
end

for k = 1:10:N
    x = [k k];
    y = [1 M];
    plot(x,y,'Color','w','LineStyle','-');
    plot(x,y,'Color','k','LineStyle',':');
end

hold off

colormap gray; % remove this line if you don't want
set(gca,'position',[0 0 1 1]);
array =(1:4);
% save the position of rectangle in root.
set(0,'UserData',rect_pos);
for n = 1:4
[x,y]=ginput(1)
a=x;
b=y;
[x,y]=ginput(1)
c=x;
d=y;
e=a-c;
f=b-d; 
g=hypot(e,f)
array(n)=g


xlswrite('Dist_database.xls',array,1,'B2')
 %xlswrite('D:\Final Year Project\Lip Reading\Book1.xls', g)
end

% or put imwrite function to save the
% cropped image

% e.g. 
%imwrite(I);
% see imwrite

%% croping function
function I2 = myCrop(I,rect)
% copied from imcrop -> see IMCROP
m = size(I,1);
n = size(I,2);
pixelHeight = rect(4);
pixelWidth = rect(3);

r1 = round(rect(2) + 1 );
c1 = round(rect(1) + 1 );
r2 = round(rect(4) + r1);
c2 = round(rect(3) + c1);

% Check for selected rectangle completely outside the image
if ((r1 > m) || (r2 < 1) || (c1 > n) || (c2 < 1))
    b = [];
else
    r1 = max(r1, 1);
    r2 = min(r2, m);
    c1 = max(c1, 1);
    c2 = min(c2, n);
    I2 = I(r1:r2, c1:c2, :);

end

return;