Ignore:
Timestamp:
Jul 3, 2013, 12:07:26 PM (8 years ago)
Author:
sommeria
Message:

a few bugs corrected

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/src/mouse_motion.m

    r650 r657  
    378378    if  ~isempty(xy) && isfield(hh_geometry_calib,'ListCoord')
    379379        h_ListCoord=hh_geometry_calib.ListCoord; %findobj(h_geometry_calib,'Tag','ListCoord');
    380         Coord=get(h_ListCoord,'String');
    381         data=read_geometry_calib(Coord);%transform char cell to numbers
    382         if size(data.Coord,2)>=5
     380        data.Coord=get(h_ListCoord,'Data');
     381%         data.Coord(:,6)=[];
     382       % data=read_geometry_calib(Coord);%transform char cell to numbers
     383        if isnumeric(data.Coord)&&~isempty(data.Coord)
    383384            XCoord=(data.Coord(:,4));
    384385            YCoord=(data.Coord(:,5));
     
    397398                hh=findobj('Tag','calib_points');%look for handle of calibration points
    398399               if ~isempty(hh) && ~isempty(get(hh,'UserData')) && get(hh_geometry_calib.edit_append,'Value')
     400                   %set(hh,'UserData',index_point)
    399401                    index_point=get(hh,'UserData');
    400402                    XCoord(index_point)=xy(1,1);
     
    404406               end
    405407                if ~isempty(index_point)
    406                     set(h_ListCoord,'Value',index_point)%mrk the point on the GUI geometry_calib
     408                    Data=get(h_ListCoord,'Data');
     409                    Data(:,6)=zeros(size(Data,1),1);
     410                    Data(index_point,6)=1;%mrk the point on the GUI geometry_calib
     411                    set(h_ListCoord,'Data',Data);
     412                   % set(h_ListCoord,'Value',index_point)%mrk the point on the GUI geometry_calib
    407413                    hhh=findobj('Tag','calib_marker');%look for handle of point marker (circle)
    408414                    if ~isempty(hhh)
    409415                        set(hhh,'Position',[XCoord(index_point)-ind_range/2 YCoord(index_point)-ind_range/2 ind_range ind_range])
     416                    else
     417                                    rectangle('Curvature',[1 1],...
     418                'Position',[xy(1,1)-ind_range/2 xy(1,2)-ind_range/2 ind_range ind_range],'EdgeColor','m',...
     419                'LineStyle','-','Tag','calib_marker');
    410420                    end
    411421                end
Note: See TracChangeset for help on using the changeset viewer.