MaxX=100;MaxY=100;
M=zeros(MaxX,MaxY);
color=9;
color2=23;
color3=301;
color4=1234;

Ax=axes;
image(M');set(Ax,'YDir','normal');

[X]=ginput(1);

X=floor(X)
xc=(X(1));yc=(X(2));

prompt = 'What is the radius? ';
R=input(prompt);

MichenerCircle;

WideMeMich;

image(M');
set(Ax,'YDir','normal');