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(0.4, 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