inecord.m

德国人开发的地震处理分析软件

function inecord

global inecordaxes;
global CordineX;
global CordineY;
global ineaxes;
global inefig;

figure(inefig);
%axes(ineaxes);
%hold on;
%plot(CordineX, CordineY, 'k+');

[CordineX,CordineY] = ginput(1);
%plot(CordineX, CordineY, 'r+');
CordineXY = ['X= ' num2str(CordineX) '  Y= ' num2str(CordineY)];

axes(inecordaxes);hold off;
fill([0 0 1 1 0],[0 1 1 0 0],'k');
axis('off')
text('Position',[0.0 0.0],'Units','normalized','Color','w','String',CordineXY(1,:));
axes(ineaxes);
hold off;