Global Index (short | long) | Local contents | Local Index (short | long)
[dat,dat_n,dat_i,do_com]=iduidrop(ax1,ax2)
IDUIDROP Manages dropping one axes on another in ident window. Drops axes ax1 onto axes ax2 and handles all consequences of the drop.
| This function calls | This function is called by |
|---|---|
function [dat,dat_n,dat_i,do_com]=iduidrop(ax1,ax2)
% L. Ljung 9-27-94
% Copyright (c) 1986-98 by The MathWorks, Inc.
% $Revision: 3.7 $ $Date: 1997/12/02 03:40:29 $
global XIDcounters XIDsumb XIDplotw XIDparest XIDmse XIDhw XIDsbmen
dat=[];dat_n=[];dat_i=[];do_com=[];
newax=0;
if nargin<2,return,end
iduistat('');
do_com='';
if ax1==ax2,return,end
par1=get(ax1,'parent');par2=get(ax2,'parent');
tag2=get(ax2,'tag');tag1=get(ax1,'tag');
if length(tag2)<5,tag2=' ';end
pos2=get(ax2,'pos');pos1=get(ax1,'pos');
testtag1=findobj(ax1,'tag','modelline0');
testtag2=findobj(ax1,'tag','dataline0');
if strcmp(get(par1,'name'),idlaytab('figname',34))
fromwaste=1;
else
fromwaste=0;
end
if (strcmp(get(par2,'name'),idlaytab('figname',34))&par1~=par2)...
|strcmp(tag2(1:5),'waste')
towaste=1;
else
towaste=0;
end
if ~isempty(testtag1)|~isempty(testtag2)
nodrop=1;
else
nodrop=0;
end
if towaste
if nodrop
iduistat('Cannot drop empty icon into Trash.');
return
end
stopp=iduiwast('throw',ax1);
if stopp,return,end
newax=1;
elseif strcmp(tag2(1:5),'modst')
hstr=findobj(ax1,'tag','name');
if strcmp(tag1(1:5),'data ')|nodrop
errordlg('You can only drop a model here.');
return
elseif strcmp(tag1(1:5),'model')
modn=get(hstr,'string');mod_info=get(hstr,'userdata');
type=mod_info(1,1:3);
if strcmp(type,'spa')|strcmp(type,'cra')
errordlg(['You cannot drop a spectral model or a correlation', ...
' model here']);
return
end
if get(XIDparest(4),'value')~=6
set(XIDparest(4),'value',6);
eval('idparest(''mstype'')');
end
set(XIDparest(3),'string',modn,'userdata',tag1);drawnow
set(XIDparest(7),'string',[modn,'n']);
iduistat(['The model ',modn,' is the current model structure.'])
end
elseif strcmp(tag2(1:5),'ltivi')
if nodrop
iduistat('Empty icon.');
return
end
if fromwaste
iduistat('First drop trash item on regular icon.'),return
end
color=get(ax2,'color');
hstr=findobj(ax1,'tag','name');
if strcmp(tag1(1:5),'data ')
%%%%% hl=findobj(ax1,'tag','dataline');
ismodel=0; iduistat('Cannot use LTI Viewer for data.'),return
elseif strcmp(tag1(1:5),'model')
hl=findobj(ax1,'tag','modelline');
ismodel=1;
end
dat=get(hl,'UserData');dat_info=get(hstr,'userdata');
if ismodel,
type=dat_info(1,1:3);
if ~(strcmp(type,'cra')|strcmp(type,'spa'))
eval('dat=iduicalc(''unpack'',dat,1);');
else
iduistat('Cannot use LTI Viewer for CRA and SPA models.'),return
end
end
set(ax2,'color','r'),drawnow
dat_n=get(hstr,'String');
% dat_i=get(hstr,'UserData');
% dat_i=str2mat(dat_i,['Export ',dat_n]);
% do_com=[dat_n,'=dat;',dat_n,'_info=dat_i;clear dat_n dat_i dat outarg'];
[a,b,c,d]=th2ss(dat);T=gett(dat);
if T>0
eval([dat_n,'=ss(a,b,c,d,T);'],'')
else
eval([dat_n,'=ss(a,b,c,d);'],'')
end
kk=findobj('name','LTI Viewer');
if ~exist('ltiview'),iduistat('No LTI Viewer available.'),return,end
if isempty(kk) ltiview('step',eval(dat_n)),else
ltiview('current',eval(dat_n),kk);end
iduistat('Model inserted into LTI Viewer.' )
newax=0;
set(ax2,'color',color);
elseif strcmp(tag2(1:5),'expor')
if nodrop
iduistat('Cannot export empty icon.');
return
end
if fromwaste
iduistat('First drop trash item on regular icon.'),return
end
color=get(ax2,'color');
set(ax2,'color','r'),drawnow
hstr=findobj(ax1,'tag','name');
if strcmp(tag1(1:5),'data ')
hl=findobj(ax1,'tag','dataline');
ismodel=0;
elseif strcmp(tag1(1:5),'model')
hl=findobj(ax1,'tag','modelline');
ismodel=1;
end
dat=get(hl,'UserData');dat_info=get(hstr,'userdata');
if ismodel,
type=dat_info(1,1:3);
if ~(strcmp(type,'cra')|strcmp(type,'spa'))
eval('dat=iduicalc(''unpack'',dat,1);');
end
end
dat_n=get(hstr,'String');
dat_i=get(hstr,'UserData');
dat_i=str2mat(dat_i,['Export ',dat_n]);
do_com=[dat_n,'=dat;',dat_n,'_info=dat_i;clear dat_n dat_i dat outarg'];
iduistat([dat_n,' and its info variable have been exported.'])
newax=0;
set(ax2,'color',color);
elseif strcmp(tag2(1:5),'seles')|strcmp(tag2(1:5),'selva')
if fromwaste
iduistat('First drop trash item on regular icon.'),return
end
if ~strcmp(tag1(1:5),'data ')|nodrop
errordlg('You can only drop data here.');
return
end
idinseva(ax1,tag2(1:5));
else % we are now dropping icon on icon
if ~strcmp(tag1(1:5),tag2(1:5))&~(fromwaste&par1==par2)
errordlg('Cannot drop models onto data icons or vice versa.');
return
end
XIDcounters(5)=1; % To tell that there is a change in the board.
if par1~=par2
iswaste=0;
if fromwaste
testtag1=findobj(ax2,'tag','modelline');
testtag2=findobj(ax2,'tag','dataline');
if ~isempty(testtag1)|~isempty(testtag2)
iduistat('Cannot drop trash contents on non-empty icon.')
return
end
iswaste=1;
wbas=findobj(get(XIDsumb(1),'children'),'flat','tag','waste');
wslist=idnonzer(get(wbas,'userdata'));
nr=findobj(wslist,'tag',tag1);
delete(nr)
wslist=wslist(find(wslist~=nr));
set(wbas,'userdata',wslist);
axnr=get(par1,'userdata'); % The list of available axes in trash
set(par1,'userdata',[ax1,axnr(:)'])
if isempty(wslist)
hfull=findobj(wbas,'tag','full');
hem=findobj(wbas,'tag','empty');
set(hfull,'vis','off');set(hem,'vis','on');
set(XIDsbmen(10),'enable','off');
end
end
hl1=findobj(ax1,'type','line');hl2=findobj(ax2,'type','line');
hstr1=findobj(ax1,'tag','name');hstr2=findobj(ax2,'tag','name');
if ~iswaste
ax2tag=get(ax2,'tag');ax2usd=get(ax2,'userdata');
ax2xlim=get(ax2,'xlim');ax2ylim=get(ax2,'ylim');
s2str=get(hstr2,'string');s2usd=get(hstr2,'userdata');
h2xdata=get(hl2,'xdata');h2ydata=get(hl2,'ydata');
h2lw=get(hl2,'linewidth');
h2color=get(hl2,'color');h2usd=get(hl2,'userdata');
h2colax=get(ax2,'color');
h2tag=get(hl2,'tag');h2vis=get(hl2,'vis');h2vv=get(hstr2,'vis');
end
set(ax2,'tag',get(ax1,'tag'),'userdata',get(ax1,'userdata'),...
'xlim',get(ax1,'xlim'),'ylim',get(ax1,'ylim'),...
'color',get(ax1,'color'));
set(hstr2,'string',get(hstr1,'string'),'userdata',get(hstr1,...
'userdata'),'vis',get(hstr1,'vis'));
set(hl2,'xdata',get(hl1,'xdata'),'ydata',get(hl1,'ydata'),...
'color',get(hl1,'color'),'userdata',get(hl1,'userdata'),...
'vis',get(hl1,'vis'),...
'tag',get(hl1,'tag'),'linewidth',get(hl1,'linewidth'))
if ~iswaste
set(ax1,'tag',ax2tag,'userdata',ax2usd,...
'xlim',ax2xlim,'ylim',ax2ylim,'color',h2colax);
set(hstr1,'string',s2str,'userdata',s2usd,'vis',h2vv);
set(hl1,'xdata',h2xdata,'ydata',h2ydata,...
'color',h2color,'userdata',h2usd,...
'tag',h2tag,'vis',h2vis,'linewidth',h2lw)
else
platecol=get(0,'DefaultUIcontrolBackgroundcolor');
set(ax1,'color',platecol)
set(get(ax1,'children'),'vis','off')
end
else
set(ax1,'pos',pos2);
set(ax2,'pos',pos1);newax=0; drawnow
end
end
if newax
fig=get(ax1,'parent');
figure(fig)
newh=axes('units','norm','color',...
get(fig,'color'),'xtick',[],...
'ytick',[],'xticklabel',[],'yticklabel',[],'box','on',...
'drawmode','fast');
set(newh,'pos',pos1);
newht=text('pos',[0.5 0],'units','norm','fontsize',10,'tag','name',...
'horizontalalignment','center','verticalalignment','bottom');
newhl=line('vis','off','erasemode','normal');
map=idlayout('colors');
if strcmp(tag1(1:5),'model')
XIDcounters(2)=XIDcounters(2)+1;
kk=XIDcounters(2);
set(newh,'tag',['model',int2str(kk)]);
set(newhl,'color',map(rem(kk,20)+1,:),'tag','modelline0');
else
XIDcounters(1)=XIDcounters(1)+1;
kk=XIDcounters(1);
set(newh,'tag',['data ',int2str(kk)]);
set(newhl,'color',map(rem(kk,20)+1,:),'tag','dataline0');
end
end