job_view_lf_change_filter_radius

 Change filter radius
 
 --- Syntax
 function job_view_lf_change_filter_radius(inst_id)

 --- History
 2009-01-27 Taku Yoshioka

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

0001 function job_view_lf_change_filter_radius(inst_id)
0002 % Change filter radius
0003 %
0004 % --- Syntax
0005 % function job_view_lf_change_filter_radius(inst_id)
0006 %
0007 % --- History
0008 % 2009-01-27 Taku Yoshioka
0009 %
0010 % Copyright (C) 2011, ATR All Rights Reserved.
0011 % License : New BSD License(see VBMEG_LICENSE.txt)
0012 
0013 global vbmeg_inst;
0014 
0015 %
0016 % Global variables
0017 %
0018 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0019 h_fig = vbmeg_inst.viewlf{inst_id}.h_fig;
0020 brainfile = vbmeg_inst.viewlf{inst_id}.brainfile;
0021 ed3 = vbmeg_inst.viewlf{inst_id}.ed3; % Filter radius
0022 basis_org = vbmeg_inst.viewlf{inst_id}.basis_org;
0023 
0024 if isempty(brainfile), return; end;
0025 
0026 %
0027 % Filter calculation
0028 %
0029 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0030 Rfilt = str2num(get(ed3,'String'));
0031 if Rfilt<0, Rfilt = 0; end
0032 ix = 1:size(basis_org,2);
0033 
0034 set(h_fig,'Pointer','watch');
0035 W = vb_spatial_gauss_filter(brainfile,Rfilt,Rfilt*2,ix);
0036 vbmeg_inst.viewlf{inst_id}.basis_org_smoothed = basis_org*W;
0037 set(h_fig,'Pointer','arrow');
0038 
0039 %
0040 % Update graphics
0041 %
0042 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
0043 job_view_lf_update_cortexpattern(inst_id);
0044 job_view_lf_update_sensorpattern(inst_id);