


% FILE: how2patch.m begin
% Plot the disk  {z  : |z-z0|<r } and a cross in it
z0=1+i*2;
r=1.5;
% The points on the circle are: z0+ r*exp(i*theta)
the=0:(0.01*2*pi): 2*pi;
w=z0+r*exp(i*the);
figure
hold on
patch(real(w), imag(w),'y')
plot(1.5, 2,'k+','MarkerSize',25)
axis equal
myax= axis;
% myax is [x1    x2  y1   y2]
dx= myax(2)-myax(1);
dy= myax(4)-myax(3);
% make margins
axis([ myax(1)-0.05*dx  myax(2)+0.05*dx  myax(3)-0.05*dy   myax(4)+0.05*dy])

% FILE: how2patch.m end
