--- /dev/null
+function test_hough_simple(images_path, image_name)
+ i = imread([images_path image_name]);
+ green = i(:, :, 2);
+ green_filtered = imgaussfilt(cast(i(:, :, 2), 'double'), 1.0);
+ edges = edge(green_filtered);
+
+ disp('Applying Houg...');
+ tic
+ [acc_votes, acc_radius] = HTCircle(edges, [20, 40]);
+ toc
+
+ disp('Finding ellipses...');
+ tic
+ ellipses = find_ellipses(acc_votes, acc_radius);
+ toc
+
+ show_figures(['Hough simple - ' image_name], {...
+ {green, 'original'},...
+ {green_filtered, 'original filtered with a gaussian, sigma=1'},...
+ {edges, 'edges (sobel)'},...
+ {acc_votes, 'votes'}}, green, ellipses);
+end
\ No newline at end of file