Question

我有一个关于我的GUI的问题，现在困扰我几个小时，我无法修复它。功能：我加载一个图像，将其子集化并将其绘制成冲浪图。然后我启动一个GUI，让我选择矩形的左上角和右下角坐标。矩形被绘制在冲浪地块上。

我有两个问题：我想通过小红色补丁指示鼠标点击，用红线指示矩形。

1）小红色补丁工作正常，除了第一个非常大，几乎填满整个情节窗口。一旦我选择第一个坐标的第二个点，一切都恢复正常，补丁以我想要的小方式绘制。我调试了代码以查看坐标是否有问题，但它们似乎没问题！

2）线条的绘制是不准确的！特别是前几行的mousclick偏移最多100个像素，通常在左边。有时他们甚至会在添加下一行时移动。以这种方式放置几个矩形后，它们通常会变得更好并且就位。知道为什么会这样吗？这是代码：

function resampdem
clc;clear;clear all

%% read DEMs and header
img1 = imread('srtm_55_06.tif');

% subset
img1 = img1(1:500,1:500);
[x y] = meshgrid(1:500,1:500);



%%
f = figure;
imageHandle = surfl(x,y,img1);
colormap jet
shading interp
view(0,90);
set(imageHandle,'ButtonDownFcn',@ImageClickCallback)
hold on

a = axes;
set(a, 'Visible', 'off');


%# Create controls.
uicontrol('Parent', f, 'Style', 'edit', 'String', 'Input...');

m = 1;
bin = [];



%%%  Funktion zur Auswertung des Mouseklicks
helpdlg('Corner: Upper Left');
    function ImageClickCallback ( objectHandle , eventData )

%         if mod(m,2) == 0
%             string = 'Upper Left';
%         else
%             string = 'Lower Right';
%             
%         end
%         message = sprintf('Corner: %s',string);
%         helpdlg(message);

        axesHandle  = get(objectHandle,'Parent');
        coordinates = get(axesHandle,'CurrentPoint');
        coordinates = coordinates(1,1:2);


        bin(m,1) = coordinates(1)

        bin(m,2) = coordinates(2)




        patch([bin(m,1)-3 bin(m,1)+3 bin(m,1)+3 bin(m,1)-3], [bin(m,2)+3 bin(m,2)+3 bin(m,2)-3 bin(m,2)-3],'r','Parent',a);


        if mod(size(bin,1),2) == 0
            resamp_area(bin,m);
        end
        m = m+1
    end

%%%  Funktion zum Zeichnen der Rechtecke
    function resamp_area(coords,m)

        x1 = coords(m-1,1);
        x2 = coords(m,1);
        y1 = coords(m-1,2);
        y2 = coords(m,2);

        patch([x1 x1+20 x1+20 x1], [y1 y1 y1-20 y1-20],'w','Parent',a);
        %horizontal lines
        line([x1, x2], [y1, y1], 'Parent', a, 'Color',[1 0 0], 'LineWidth',2.0);
        line([x1, x2], [y2, y2], 'Parent', a, 'Color',[1 0 0], 'LineWidth',2.0);
        %vertical lines
        line([x1, x1], [y1, y2], 'Parent', a, 'Color',[1 0 0], 'LineWidth',2.0);
        line([x2, x2], [y1, y2], 'Parent', a, 'Color',[1 0 0], 'LineWidth',2.0);
        %get(t)

    end    

end

Matlab GUI：绘制线条偏离它们应该的位置

0 个答案: