tomwalters@0: % support file for 'aim-mat'
tomwalters@0: %
tomwalters@0: % This external file is included as part of the 'aim-mat' distribution package
bleeck@3: % (c) 2011, University of Southampton
bleeck@3: % Maintained by Stefan Bleeck (bleeck@gmail.com)
bleeck@3: % download of current version is on the soundsoftware site: 
bleeck@3: % http://code.soundsoftware.ac.uk/projects/aimmat
bleeck@3: % documentation and everything is on http://www.acousticscale.org
bleeck@3: 
tomwalters@0: 
tomwalters@0: % publishtoword
tomwalters@0: 
tomwalters@0: % publish the figures on the screen
tomwalters@0: % this is a script, not a function
tomwalters@0: 
tomwalters@0: 
tomwalters@0: % exclude the windows with the following names:
tomwalters@0: exclude{1}='browser';
tomwalters@0: 
tomwalters@0: global publish_parameters;
tomwalters@0: % if publish_parameters==1
tomwalters@0: exclude{2}='parameter';
tomwalters@0: % end
tomwalters@0: 
tomwalters@0: global extra_publish
tomwalters@0: 
tomwalters@0: % first search through all windows for the parameter ones
tomwalters@0: % all_windows=get(0,'children');
tomwalters@0: all_windows=allchild(0);
tomwalters@0: for i=1:length(all_windows)
tomwalters@0:     if strcmp(get(all_windows(i),'type'),'figure');
tomwalters@0:         titl=get(all_windows(i),'name');
tomwalters@0:         if strcmp(titl,'browser')
tomwalters@0:             browserwindow=all_windows(i);
tomwalters@0:         end
tomwalters@0:         %         for j=1:length(exclude)  TODO
tomwalters@0:         if ~isempty(strfind(lower(titl),exclude{2})) && publish_parameters==1
tomwalters@0: 
tomwalters@0:             hand=all_windows(i);
tomwalters@0:             dat=guidata(hand);
tomwalters@0:             params=dat.params;
tomwalters@0:             disp(params);
tomwalters@0:         end
tomwalters@0:         %         end
tomwalters@0:     end
tomwalters@0: end
tomwalters@0: 
tomwalters@0: clear createdfigs
tomwalters@0: global createdfigs
tomwalters@0: global was_unit_info
tomwalters@0: createdfigs=[];
tomwalters@0: createtits=[];
tomwalters@0: count=0;
tomwalters@0: for i=1:length(all_windows)
tomwalters@0:     if strcmp(get(all_windows(i),'type'),'figure');
tomwalters@0:         titl=get(all_windows(i),'name');
tomwalters@0: 
tomwalters@0:         % special
tomwalters@0:         if strfind(titl,'unitinfo')==1
tomwalters@0:             handles=guidata(browserwindow);
tomwalters@0:             cur_un=handles.info.current_unit;
tomwalters@0:             cur_an=handles.info.current_animal;
tomwalters@0:             unitinfo=getunitinfo(handles,cur_an,cur_un);
tomwalters@0:             nr_coms=length(unitinfo.comment);
tomwalters@0:             for ii=1:nr_coms
tomwalters@0:                 alcoms=unitinfo.comment{ii};
tomwalters@0:                 nr_comm=length(alcoms);
tomwalters@0:                 disp(sprintf('\n'));
tomwalters@0:                 thres=unitinfo.thresh;
tomwalters@0:                 atten=unitinfo.stimulus_parameter{unitinfo.ex_number(i)}.attenuation_db_power_atten.values;
tomwalters@0:                 abovethres=thres-atten;
tomwalters@0:                 disp(sprintf('Automatic classification of Unit %d of Animal %d Experiment %d (%2.0f dB above threshold)',cur_un,cur_un,unitinfo.ex_number(i),abovethres));
tomwalters@0:                 for iii=1:nr_comm
tomwalters@0:                     disp(alcoms{iii});
tomwalters@0:                 end
tomwalters@0:                 disp(sprintf('--> Unit was classified automatically as %s',unitinfo.found_type{ii}));
tomwalters@0:                 disp(sprintf('\n'));
tomwalters@0:             end
tomwalters@0: 
tomwalters@0:             was_unit_info=1;
tomwalters@0:         else
tomwalters@0:             was_unit_info=0;
tomwalters@0:         end
tomwalters@0:         can_be_published=1;
tomwalters@0:         for j=1:length(exclude)
tomwalters@0:             if ~isempty(strfind(titl,exclude{j}))
tomwalters@0:                 can_be_published=0;
tomwalters@0:                 break
tomwalters@0:             end
tomwalters@0:         end
tomwalters@0:         if can_be_published
tomwalters@0:             %             disp(titl)
tomwalters@0:             fig=all_windows(i);
tomwalters@0: 
tomwalters@0:             nfignam=sprintf('c:\\temp\\tempfig%d.fig',count);
tomwalters@0:             saveas(fig,nfignam)
tomwalters@0:             %             open('c:\temp\tempfig.fig');
tomwalters@0:             %             refresh
tomwalters@0:             count=count+1;
tomwalters@0:             creatednames{count}=nfignam;
tomwalters@0:             createtits{count}=titl;
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0: end
tomwalters@0: 
tomwalters@0: %%
tomwalters@0: if length(createtits)>0
tomwalters@0:     [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     if nr_y<nr_x
tomwalters@0:         extra_publish=extra_publish';
tomwalters@0:         [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     end
tomwalters@0:     if nr_x>0
tomwalters@0:         if nr_y>0
tomwalters@0:             disp(extra_publish{1,1});
tomwalters@0:         end
tomwalters@0:         if nr_y>1
tomwalters@0:             disp(extra_publish{1,2});
tomwalters@0:         end
tomwalters@0:         if nr_y>2
tomwalters@0:             disp(extra_publish{1,3});
tomwalters@0:         end
tomwalters@0:         if nr_y>3
tomwalters@0:             disp(extra_publish{1,4});
tomwalters@0:         end
tomwalters@0:         if nr_y>4
tomwalters@0:             disp(extra_publish{1,5});
tomwalters@0:         end
tomwalters@0:         if nr_y>5
tomwalters@0:             disp(extra_publish{1,6});
tomwalters@0:         end
tomwalters@0:         if nr_y>6
tomwalters@0:             disp(extra_publish{1,7});
tomwalters@0:         end
tomwalters@0:         if nr_y>7
tomwalters@0:             disp(extra_publish{1,8});
tomwalters@0:         end
tomwalters@0:         if nr_y>8
tomwalters@0:             disp(extra_publish{1,9});
tomwalters@0:         end
tomwalters@0:         if nr_y>9
tomwalters@0:             disp(extra_publish{1,10});
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0:     disp(createtits{1})
tomwalters@0:     open(creatednames{1});
tomwalters@0:     createdfigs(1)=gcf;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: %%
tomwalters@0: if length(createtits)>1
tomwalters@0:     [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     if nr_y<nr_x
tomwalters@0:         extra_publish=extra_publish';
tomwalters@0:         [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     end
tomwalters@0: 
tomwalters@0:     if nr_x>1
tomwalters@0:         if nr_y>0
tomwalters@0:             disp(extra_publish{2,1});
tomwalters@0:         end
tomwalters@0:         if nr_y>1
tomwalters@0:             disp(extra_publish{2,2});
tomwalters@0:         end
tomwalters@0:         if nr_y>2
tomwalters@0:             disp(extra_publish{2,3});
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0:     disp(createtits(2))
tomwalters@0:     open(creatednames{2});
tomwalters@0:     createdfigs(2)=gcf;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: %%
tomwalters@0: if length(createtits)>2
tomwalters@0:     [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     if nr_y<nr_x
tomwalters@0:         extra_publish=extra_publish';
tomwalters@0:         [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     end
tomwalters@0: 
tomwalters@0:     if nr_x>2
tomwalters@0:         if nr_y>0
tomwalters@0:             disp(extra_publish{3,1});
tomwalters@0:         end
tomwalters@0:         if nr_y>1
tomwalters@0:             disp(extra_publish{3,2});
tomwalters@0:         end
tomwalters@0:         if nr_y>2
tomwalters@0:             disp(extra_publish{3,3});
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0:     disp(createtits(3))
tomwalters@0:     open(creatednames{3});
tomwalters@0:     createdfigs(3)=gcf;
tomwalters@0: end
tomwalters@0: 
tomwalters@0: %%
tomwalters@0: if length(createtits)>3
tomwalters@0:     [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     if nr_y<nr_x
tomwalters@0:         extra_publish=extra_publish';
tomwalters@0:         [nr_x,nr_y]=size(extra_publish);
tomwalters@0:     end
tomwalters@0: 
tomwalters@0:     if nr_x>3
tomwalters@0:         if nr_y>1
tomwalters@0:             disp(extra_publish{4,1});
tomwalters@0:         end
tomwalters@0:         if nr_y>1
tomwalters@0:             disp(extra_publish{4,2});
tomwalters@0:         end
tomwalters@0:         if nr_y>2
tomwalters@0:             disp(extra_publish{4,3});
tomwalters@0:         end
tomwalters@0:     end
tomwalters@0: 
tomwalters@0:     disp(createtits(4))
tomwalters@0:     open(creatednames{4});
tomwalters@0:     createdfigs(4)=gcf;
tomwalters@0: end