clc
clear
close all
image = imread('bubble.png');
figure, imshow(image);
cropped = imcrop(image,[552.9 0 639.2 1080]);
figure, imshow(cropped);
gray = rgb2gray(cropped);
figure, imshow(gray);
thresh = im2bw(gray, 0.5);
figure, imshow(thresh);
remove = bwareaopen(thresh, 13200);
figure, imshow(remove);
se = strel('line',300,0);
closing = imclose(remove,se);
figure, imshow(closing);
OriginalLine = closing(1 , :);
OriginalLine2 = closing(end , :);
closing(1, :) = true;
closing(end, :) = true;
fill = imfill(closing, 'holes');
closing(end,:) = false;
closing(1,:) = false;
fill(1, :) = OriginalLine;
fill(end, :) = OriginalLine2;
figure, imshow(fill);