pa_leadfield_create

 This function creates leafield parameter gui.
 [USAGE]
    fig = pa_leadfield_create([proj_root]);
 [IN]
    proj_root : project root directory.
 [OUT]
    fig : figure handle of leadfield gui.

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

0001 function [fig] = pa_leadfield_create(proj_root)
0002 % This function creates leafield parameter gui.
0003 % [USAGE]
0004 %    fig = pa_leadfield_create([proj_root]);
0005 % [IN]
0006 %    proj_root : project root directory.
0007 % [OUT]
0008 %    fig : figure handle of leadfield gui.
0009 %
0010 % Copyright (C) 2011, ATR All Rights Reserved.
0011 % License : New BSD License(see VBMEG_LICENSE.txt)
0012 
0013 %
0014 % --- Previous check
0015 %
0016 if ~exist('proj_root', 'var')
0017     proj_root = [];
0018 end
0019 
0020 %
0021 % --- Main Procedure
0022 %
0023 fig = openfig('pa_leadfield.fig');
0024 
0025 data = struct;
0026 data.H = guihandles(fig);
0027 data.H.figure = fig;
0028 data.basis_parm = vb_set_basis_parm;
0029 data.adv_fig = -1; % figure handle of leadfield advanced parameter gui.
0030 
0031 % save data to figure
0032 guidata(fig, data);
0033 
0034 set(data.H.prjroot_edit, 'String', proj_root);
0035 pa_leadfield_set_parm(fig, data.basis_parm);