function [ im_main ] = createmainimage(Xus,r,theta,num_pixel)

%%%this code block is used to create the images %%%%%
%%%later part of this code block is used to save images %%%%%%%

%%theta=(2*pi)/180; %in radian
%%r=2;
%%Xus=10;
angle=-(pi/10):theta:(pi/10);  %%outf this angle no images are taken 
[alpha,beta]=size(angle);
%num_pixel=Xus/0.1;

im=zeros(Xus/0.1,Xus/0.1,beta);
for alpha=1:beta
    notice=waitbar(0,'loading visualization at an angle, please wait...');
    % Define the input grid (in 3D) %%that sutta code
    figure;
    
    [x3, y3, z3] = meshgrid(linspace(-10,10));
    % Compute the implicitly defined function x^2 + (y-6)^2 + z^3 - 2^2 = 0
    f1 = x3.^2 + (y3-6).^2 + z3.^2 - 2^2;                    %%why is this taking an elipse 

    % This surface plane, which can also be expressed as
    f2 = z3-tan(angle(alpha))*y3 - 0*x3.^3 ;
    % Also compute plane in the 'traditional' way.
    [x2, y2] = meshgrid(linspace(-10,10));
    z2 = tan(angle(alpha))*y2 - 0*x2;
    % Visualize the two surfaces.
    patch(isosurface(x3, y3, z3, f1, 0), 'FaceColor', [0.5 1.0 0.5], 'EdgeColor', 'none');
    patch(isosurface(x3, y3, z3, f2, 0), 'FaceColor', [1.0 0.0 0.0], 'EdgeColor', 'none');
    view(3); camlight; axis vis3d;
    set(gca,'xlim',[-5 5 ], 'ylim',[1 11], 'zlim',[-5 5]);
    xlabel('X');ylabel('Y');zlabel('Z');
    
    %title('visualization at',angle(alpha),'radians');
    
    
    % Find the difference field.
    f3 = f1 - f2;
    % Interpolate the difference field on the explicitly defined surface.
    f3s = interp3(x3, y3, z3, f3, x2, y2, z2);

    % Find the contour where the difference (on the surface) is zero.
    C = contours(x2, y2, f3s, [0 0]);
    % Extract the x- and y-locations from the contour matrix C.
    xL = C(1, 2:end);
    yL = C(2, 2:end);
    % Interpolate on the first surface to find z-locations for the intersection
    % line.
    
    if ~isempty(xL) & ~isempty(yL) 
        zL = interp2(x2, y2, z2, xL, yL);
        % Visualize the line.
        line(xL,yL,zL,'Color','k','LineWidth',3);

        %xL_1=ceil(xL/0.2)+50; %conversion to pixels
        %yL_1=ceil(yL/0.2)+50; %conversion to pixels   %%commented since errors

        max_xL=max(xL);
        min_xL=min(xL);
        max_yL=max(yL);
        min_yL=min(yL);

        
        %%direct substuition into eclipse formula
        a=(max_xL-min_xL)/2; %average to reduce errors
        b=(max_yL-min_yL)/2; 

        a=a/0.1;        %convertion to pixels
        b=b/0.1;

        H=0;Y=0; %center of the eclipse
        for i=1:num_pixel
            for j=1:num_pixel
                    if ((i-num_pixel/2)/a)^2+((j-num_pixel/2)/b)^2 <= 1 %no need to worry about the world cordinates for now
                        im(i,j,alpha)=255;
                    end
            end
        end
    end
    
%figure, 
%imshow(im);
    close(notice)
end


%%%%%%image save%%%%%%%%

%%% a total of 61 image slices will be saved <as 0 is included as well>%%%%%%%%
%%% need to add a total of 21 empty images both at the front and back %%%%%%%%% 

im_main=zeros(Xus/0.1,Xus/0.1,61);
for i=[22:40]
    im_main(:,:,i)=im(:,:,i-21);
end

%%run this loop if you wish to save the images
 %%image_index=1;
 %%filename = 'p%d.bmp';
 %%filename = sprintf(filename,image_index);
 %%image_index = image_index + 1;
 %%imwrite(im,filename);
    
im_main=uint8(im_main);
end

