filcord.m

来自「德国人开发的地震处理分析软件」· M 代码 · 共 24 行

function filcord

global filcordaxes;
global CordfilX;
global CordfilY;
global filaxes;
global filfig;

figure(filfig);
%axes(filaxes);
%hold on;
%plot(CordfilX, CordfilY, 'k+');

[CordfilX,CordfilY] = ginput(1);
%plot(CordfilX, CordfilY, 'r+');
CordfilXY = ['X= ' num2str(CordfilX) '  Y= ' num2str(CordfilY)];

axes(filcordaxes);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',CordfilXY(1,:));
axes(filaxes);
hold off;