crop an image per words

Question

Dwi Putra Alexander 2013-3-19

0
链接

此问题的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/67860-crop-an-image-per-words

移动：DGM 2023-2-12

i wanna crop an image per words,,,example : in image i have a sentence : "everybody going crazy"..and i wanna crop it per words so the result has 3 parts : parts 1 is an image with "everybody' words,parts 2 is an image with "going' words,and part3 is an image with "crazy' words,..what should i do to separated that words ?

11 个评论
显示 9更早的评论隐藏 9更早的评论

Dwi Putra Alexander 2013-3-19

在 MATLAB Online 中打开

the first step i do is crop the image with 4 boundary:,left,right,bottom and top with this code :

% %%========================pre processing===============================

bacagraylurus1 = rgb2gray(bacalurus1);

mlurus1=fspecial('unsharp');

xlurus1=imfilter(bacagraylurus1,mlurus1);

figure,imshow(xlurus1), title ('Citra awal tulisan garis dasar lurus');

% %convert to binary

glurus1=im2double(xlurus1);

bacabwlurus1 = im2bw(glurus1,graythresh(glurus1));

figure,imshow (bacabwlurus1), title ('Citra black and white dari tulisan garis dasar lurus');

%%*************THINNING*************************

bacabwlurus1 = bwmorph(~bacabwlurus1, 'thin', inf);

%thining the image

bacabwlurus1=~bacabwlurus1;

% %%******************

[baris kolom] = size(bacabwlurus1);

for kolom1=1:kolom

    for baris1=1:baris
        if bacabwlurus1(baris1,kolom1)==0     
          bataskanan=kolom1;
            end
    end

end

for kolom2=kolom:-1:1

    for baris2=1:baris
    if bacabwlurus1(baris2,kolom2)==0
        batas_kiri=kolom2;
        end
    end

end

for baris3=1:baris

     for kolom3=1:kolom
          if bacabwlurus1(baris3,kolom3)==0
              batas_bawah=baris3;
            end
        end
end
    for baris4=baris:-1:1
        for kolom4=1:kolom
            if bacabwlurus1(baris4,kolom4)==0
                batas_atas=baris4;
            end
        end
    end
   height=((batas_bawah-batas_atas))
   width=((bataskanan-batas_kiri))

Gamcrop_lurus1 = imcrop(bacabwlurus1,[batas_kiri batas_atas width

height]);%%position vector, [xmin ymin width height].

figure,imshow (Gamcrop_lurus1), title ('Citra setelah proses Crop');

after that step,later i divided become 3 parts of image like i ask first

Matt Kindig 2013-3-19

Also, I think part of your problem is that you are working with the RGB (color) images directly, whereas performing the word separation on the black and white images directly is probably easier. As a reminder, the bwmorph() operations work on the white pixels, so you might want to invert the black and white matrix so that the text is white and the background is black, rather than the way you have shown it here.

Image Analyst 2013-3-20

Dwi, see my code in my Answer below. Basically I did it for you. At least it works for that one image you uploaded.

请先登录，再进行评论。

请先登录，再回答此问题。

Answer 1

Image Analyst 2013-3-19

4
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/67860-crop-an-image-per-words#answer_79275

编辑：Image Analyst 2013-3-20

在 MATLAB Online 中打开

Whole companies of people have been working on this for decades, so as you can guess it's not trivial. Go here : http://iris.usc.edu/Vision-Notes/bibliography/contentschar.html#OCR,%20Document%20Analysis%20and%20Character%20Recognition%20Systems and pick an algorithm, then code it up in MATLAB. We can't help you until you get to that point. There is no OCR toolbox for MATLAB that I'm aware of.

Here's what I would do

threshold
call imdilate
call regionprops
crop the bounding boxes.

EDIT:

Dwi, I haven't heard from you so I assume you are having trouble. Run my code to see how it's done.

clc;    % Clear the command window.
close all;  % Close all figures (except those of imtool.)
imtool close all;  % Close all imtool figures if you have the Image Processing Toolbox.
clear;  % Erase all existing variables. Or clearvars if you want.
workspace;  % Make sure the workspace panel is showing.
format long g;
format compact;
fontSize = 20;
% Read in a standard MATLAB gray scale demo image.
folder = 'C:\Users\DWI\Documents\Temporary';
baseFileName = '9jmwll.jpg';
% Get the full filename, with path prepended.
fullFileName = fullfile(folder, baseFileName);
% Check if file exists.
if ~exist(fullFileName, 'file')
  % File doesn't exist -- didn't find it there.  Check the search path for it.
  fullFileName = baseFileName; % No path this time.
  if ~exist(fullFileName, 'file')
    % Still didn't find it.  Alert user.
    errorMessage = sprintf('Error: %s does not exist in the search path folders.', fullFileName);
    uiwait(warndlg(errorMessage));
    return;
  end
end
grayImage = imread(fullFileName);
% Get the dimensions of the image.  
% numberOfColorBands should be = 1.
[rows columns numberOfColorBands] = size(grayImage);
% Display the original gray scale image.
subplot(2, 3, 1);
imshow(grayImage, []);
title('Original Grayscale Image', 'FontSize', fontSize);
% Enlarge figure to full screen.
set(gcf, 'units','normalized','outerposition',[0 0 1 1]);
% Give a name to the title bar.
set(gcf,'name','Demo by ImageAnalyst for Dwi Putra Alexander','numbertitle','off') 
% Convert to grayscale
if numberOfColorBands > 1
  grayImage = grayImage(:,:,2); % Take green channel
end
% Let's compute and display the histogram.
[pixelCount grayLevels] = imhist(grayImage);
subplot(2, 3, 2); 
bar(pixelCount);
grid on;
title('Histogram of original image', 'FontSize', fontSize);
xlim([0 grayLevels(end)]); % Scale x axis manually.
% Threshold the image.
binaryImage = grayImage < 175;
% Display the image.
subplot(2, 3, 3);
imshow(binaryImage, []);
title('Binary Image', 'FontSize', fontSize);
% Dilate to connect all the letters
binaryImage = imdilate(binaryImage, true(7));
% Get rid of blobs less than 200 pixels (the dot of the i).
binaryImage = bwareaopen(binaryImage, 200);
% Display the image.
subplot(2, 3, 3);
imshow(binaryImage, []);
title('Binary Image', 'FontSize', fontSize);
% Find the areas and bounding boxes.
measurements = regionprops(binaryImage, 'Area', 'BoundingBox');
allAreas = [measurements.Area]
% Crop out each word
for blob = 1 : length(measurements)
  % Get the bounding box.
  thisBoundingBox = measurements(blob).BoundingBox;
  % Crop it out of the original gray scale image.
  thisWord = imcrop(grayImage, thisBoundingBox);
  % Display the cropped image
  subplot(2,3, 3+blob); % Switch to proper axes.
  imshow(thisWord); % Display it.
  % Put a caption above it.
  caption = sprintf('Word #%d', blob);
  title(caption, 'FontSize', fontSize);
end

23 个评论
显示 21更早的评论隐藏 21更早的评论

Image Analyst 2015-12-13

在 MATLAB Online 中打开

sindhu, you didn't change the dilation to correspond to your particular image. When I do that it works just great. Can you at least "Vote" for my answer? Thanks in advance. Here is your code:

clc;    % Clear the command window.
close all;  % Close all figures (except those of imtool.)
imtool close all;  % Close all imtool figures if you have the Image Processing Toolbox.
clear;  % Erase all existing variables. Or clearvars if you want.
workspace;  % Make sure the workspace panel is showing.
format long g;
format compact;
fontSize = 20;
% Read in a standard MATLAB gray scale demo image.
folder = pwd;
baseFileName = 'secondline.png';
% Get the full filename, with path prepended.
fullFileName = fullfile(folder, baseFileName);
% Check if file exists.
if ~exist(fullFileName, 'file')
  % File doesn't exist -- didn't find it there.  Check the search path for it.
  fullFileName = baseFileName; % No path this time.
  if ~exist(fullFileName, 'file')
    % Still didn't find it.  Alert user.
    errorMessage = sprintf('Error: %s does not exist in the search path folders.', fullFileName);
    uiwait(warndlg(errorMessage));
    return;
  end
end
grayImage = imread(fullFileName);
% Get the dimensions of the image.  
% numberOfColorBands should be = 1.
[rows columns numberOfColorBands] = size(grayImage);
% Display the original gray scale image.
subplot(2, 2, 1);
imshow(grayImage, []);
title('Original Grayscale Image', 'FontSize', fontSize);
% Enlarge figure to full screen.
set(gcf, 'units','normalized','outerposition',[0 0 1 1]);
% Give a name to the title bar.
set(gcf,'name','Demo by ImageAnalyst for Dwi Putra Alexander','numbertitle','off') 
% Convert to grayscale
if numberOfColorBands > 1
  grayImage = grayImage(:,:,2); % Take green channel
end
% Let's compute and display the histogram.
[pixelCount grayLevels] = imhist(grayImage);
subplot(2, 2, 2); 
bar(pixelCount);
grid on;
title('Histogram of original image', 'FontSize', fontSize);
xlim([0 grayLevels(end)]); % Scale x axis manually.
% Threshold the image.
binaryImage = grayImage < 175;
% Display the image.
subplot(2, 2, 3);
imshow(binaryImage, []);
title('Binary Image', 'FontSize', fontSize);
% Dilate to connect all the letters
binaryImage = imdilate(binaryImage, true(1, 40));
% Get rid of blobs less than 200 pixels (the dot of the i).
binaryImage = bwareaopen(binaryImage, 200);
% Display the image.
subplot(2, 2, 3);
imshow(binaryImage, []);
title('Binary Image', 'FontSize', fontSize);
% Find the areas and bounding boxes.
measurements = regionprops(binaryImage, 'Area', 'BoundingBox');
allAreas = [measurements.Area]
% Crop out each word
for blob = 1 : length(measurements)
  % Get the bounding box.
  thisBoundingBox = measurements(blob).BoundingBox;
  % Crop it out of the original gray scale image.
  thisWord = imcrop(grayImage, thisBoundingBox);
  % Display the cropped image
  subplot(2, 2, 4); % Switch to proper axes.
  imshow(thisWord); % Display it.
  % Put a caption above it.
  caption = sprintf('Word #%d', blob);
  title(caption, 'FontSize', fontSize);
  promptMessage = sprintf('This is word #%d\nDo you want to Continue processing,\nor Cancel processing?', blob);
  titleBarCaption = 'Continue?';
  button = questdlg(promptMessage, titleBarCaption, 'Continue', 'Cancel', 'Continue');
  if strcmpi(button, 'Cancel')
    return;
  end  
end

Image Analyst 2018-8-14

移动：DGM 2023-2-12

No algorithm works on all possible images.

Juzer 2018-8-14

移动：DGM 2023-2-12

Doesn't work correctly on IAM handwriting dataset. Please find the attached result. Can you recommend what changes can I do for the improvement?

请先登录，再进行评论。

Answer 2

sayar chit 2017-10-16

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/67860-crop-an-image-per-words#answer_285939

编辑：Image Analyst 2017-10-16

Hi Sir. I used your code with my images. But both of your codes are not working. So, help me please. Figure 1 is my image, figure 2 is what I got when your first code used and figure 3 is got when your second code used. I am waiting for your reply. Thanks you sir!

My input image is below:

10 个评论
显示 8更早的评论隐藏 8更早的评论

sayar chit 2017-10-25

移动：DGM 2023-2-12

Sir! I don't get my result. So Sir help me please, if Sir has free. Thanks in advanced.

sayar chit 2017-10-31

移动：DGM 2023-2-12

Sir! I got line and word segmentation for your codes and your suggestion. Thanks Sir. But I have a little problem. If my input paragraph images is incline (skew, my code do not work as well. So how do I need to overcome it problem? Help me please Sir. Thanks for all REALLY! my inclination input image is below as a sample.

请先登录，再进行评论。

Answer 3

SS Jabeen 2018-2-8

0
链接

此回答的直接链接

https://ww2.mathworks.cn/matlabcentral/answers/67860-crop-an-image-per-words#answer_304045

wrd.png

How do I use the above given code to segment the words in my image, can someone please explain me why is the code not working for my image?

6 个评论
显示 4更早的评论隐藏 4更早的评论

SS Jabeen 2018-3-20

Thanks for the help, and impoint() would be helpful in verifying but while finding for multiple images manually moving the cursor would be a tad bit difficult. Is there any another alternative?

Image Analyst 2018-3-20

Another manual way is to use ginput(). If it's automatic, you can use find() to get the leftmost, topmost, rightmost, and bottom most black pixels in the image. If you want it by letter, then you'll have to get the locations of pixels in each letter, like you can get from calling regionprops() and asking for "PixelList'.

请先登录，再进行评论。