job_edit_area_remove_corpus

 Remove corpus


 Copyright (C) 2011, ATR All Rights Reserved.
 License : New BSD License(see VBMEG_LICENSE.txt)

0001 function job_edit_area_remove_corpus(inst_id)
0002 %
0003 % Remove corpus
0004 %
0005 %
0006 % Copyright (C) 2011, ATR All Rights Reserved.
0007 % License : New BSD License(see VBMEG_LICENSE.txt)
0008 
0009 global vbmeg_inst; 
0010 
0011 % Stack
0012 job_edit_area_stack(inst_id);
0013 
0014 % Global variables
0015 Iextract = vbmeg_inst.editarea{inst_id}.Iextract;
0016 nextDD = vbmeg_inst.editarea{inst_id}.nextDD;
0017 nextIX = vbmeg_inst.editarea{inst_id}.nextIX;
0018 F0 = vbmeg_inst.editarea{inst_id}.F0;
0019 V0 = vbmeg_inst.editarea{inst_id}.V0;
0020 ed3 = vbmeg_inst.editarea{inst_id}.ed3;
0021 h_fig = vbmeg_inst.editarea{inst_id}.h_fig;
0022 
0023 % Remove parameters
0024 Dmax  = 0.02;   % Max distance to find large triangle in corpus callosal
0025 Rmax  = 0.035;  % Max radius to extend remove region
0026 Rstep = 0.007;  % Radius for single erosion
0027                 % erosion is repeated (Rmax/Rstep) times
0028 
0029 % Remove corpus
0030 set(h_fig,'Pointer','watch');
0031 [Vindx, Iremove] = vb_remove_corpus(F0,V0,nextIX,nextDD,Rmax,Rstep,Dmax);
0032 Iextract{1} = intersect(Vindx,Iextract{1});
0033 vbmeg_inst.editarea{inst_id}.Iextract = Iextract;
0034 set(h_fig,'Pointer','arrow');
0035 
0036 % Update screen and vertex number
0037 job_edit_area_update_spatialpattern(inst_id);
0038 set(ed3,'String',num2str(length(Iextract{1})));