0001 function job_edit_area_erosion(inst_id)
0002
0003
0004
0005
0006
0007
0008
0009 global vbmeg_inst;
0010
0011
0012 job_edit_area_stack(inst_id);
0013
0014
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 ed2 = vbmeg_inst.editarea{inst_id}.ed2;
0019 ed3 = vbmeg_inst.editarea{inst_id}.ed3;
0020
0021
0022 Rfilt = 1e-3*str2num(get(ed2,'String'));
0023 Iextract{1} = vb_cut_area(Iextract{1},Rfilt,nextIX,nextDD);
0024 vbmeg_inst.editarea{inst_id}.Iextract = Iextract;
0025
0026
0027 job_edit_area_update_spatialpattern(inst_id);
0028 set(ed3,'String',num2str(length(Iextract{1})));
0029