From be666f7aa94bea98b3f427b36c9defa6d8bffc59 Mon Sep 17 00:00:00 2001
From: guanghuizhang0328 <64248281+guanghuizhang0328@users.noreply.github.com>
Date: Fri, 7 Apr 2023 15:24:21 -0700
Subject: [PATCH 01/33] initial commit of erplab wave branch
example
---
GUIs/DQ_Spectra_GUI.fig | Bin
GUIs/DQ_Spectra_GUI.m | 0
GUIs/DQ_Table_GUI.fig | Bin
GUIs/DQ_Table_GUI.m | 0
GUIs/DQ_preavg.fig | Bin
GUIs/DQ_preavg.m | 0
GUIs/averagerGUI.fig | Bin
GUIs/averagerGUI.m | 0
GUIs/averagerxGUI.fig | Bin
GUIs/averagerxGUI.m | 0
GUIs/avg_data_quality.fig | Bin
GUIs/avg_data_quality.m | 0
GUIs/continuousFFT.fig | Bin
GUIs/continuousFFT.m | 0
GUIs/continuousartifactGUI.m | 0
GUIs/gui_remove_response_mistakes.fig | Bin
README.md | 0
eegplugin_erplab.m | 192 ++-
erplab_Box/erplab_box_readme.md | 0
erplab_default_values.m | 0
functions/averager.m | 0
functions/chanlocs_matcherEEG.m | 0
functions/checkeegzerolat.m | 0
functions/dq_baseline.m | 0
functions/dq_sdacrosstrials.m | 0
functions/dq_summary.m | 0
functions/erp2memory.m | 89 +-
functions/erphistory.m | 0
functions/make_DQ_spec.m | 0
functions/make_bootstrap_ERPSETs.m | 0
functions/ploterps.m | 0
functions/save_data_quality.m | 0
functions/save_spectral_dq.m | 0
functions/sme_analytic.m | 0
functions/updatemenuerp.m | 147 +-
images/colormap_lic/colormap_lic_viridis.txt | 0
images/viridis.m | 0
pop_functions/pop_DQ_preavg.m | 0
pop_functions/pop_averager.m | 0
pop_functions/pop_basicfilter.m | 0
pop_functions/pop_continuousFFT.m | 0
pop_functions/pop_eegchanoperator.m | 0
pop_functions/pop_erplabDeleteTimeSegments.m | 0
pop_functions/pop_scalplot.m | 1466 +++++++++---------
44 files changed, 980 insertions(+), 914 deletions(-)
mode change 100644 => 100755 GUIs/DQ_Spectra_GUI.fig
mode change 100644 => 100755 GUIs/DQ_Spectra_GUI.m
mode change 100644 => 100755 GUIs/DQ_Table_GUI.fig
mode change 100644 => 100755 GUIs/DQ_Table_GUI.m
mode change 100644 => 100755 GUIs/DQ_preavg.fig
mode change 100644 => 100755 GUIs/DQ_preavg.m
mode change 100644 => 100755 GUIs/averagerGUI.fig
mode change 100644 => 100755 GUIs/averagerGUI.m
mode change 100644 => 100755 GUIs/averagerxGUI.fig
mode change 100644 => 100755 GUIs/averagerxGUI.m
mode change 100644 => 100755 GUIs/avg_data_quality.fig
mode change 100644 => 100755 GUIs/avg_data_quality.m
mode change 100644 => 100755 GUIs/continuousFFT.fig
mode change 100644 => 100755 GUIs/continuousFFT.m
mode change 100644 => 100755 GUIs/continuousartifactGUI.m
mode change 100644 => 100755 GUIs/gui_remove_response_mistakes.fig
mode change 100644 => 100755 README.md
mode change 100644 => 100755 eegplugin_erplab.m
mode change 100644 => 100755 erplab_Box/erplab_box_readme.md
mode change 100644 => 100755 erplab_default_values.m
mode change 100644 => 100755 functions/averager.m
mode change 100644 => 100755 functions/chanlocs_matcherEEG.m
mode change 100644 => 100755 functions/checkeegzerolat.m
mode change 100644 => 100755 functions/dq_baseline.m
mode change 100644 => 100755 functions/dq_sdacrosstrials.m
mode change 100644 => 100755 functions/dq_summary.m
mode change 100644 => 100755 functions/erphistory.m
mode change 100644 => 100755 functions/make_DQ_spec.m
mode change 100644 => 100755 functions/make_bootstrap_ERPSETs.m
mode change 100644 => 100755 functions/ploterps.m
mode change 100644 => 100755 functions/save_data_quality.m
mode change 100644 => 100755 functions/save_spectral_dq.m
mode change 100644 => 100755 functions/sme_analytic.m
mode change 100644 => 100755 images/colormap_lic/colormap_lic_viridis.txt
mode change 100644 => 100755 images/viridis.m
mode change 100644 => 100755 pop_functions/pop_DQ_preavg.m
mode change 100644 => 100755 pop_functions/pop_averager.m
mode change 100644 => 100755 pop_functions/pop_basicfilter.m
mode change 100644 => 100755 pop_functions/pop_continuousFFT.m
mode change 100644 => 100755 pop_functions/pop_eegchanoperator.m
mode change 100644 => 100755 pop_functions/pop_erplabDeleteTimeSegments.m
diff --git a/GUIs/DQ_Spectra_GUI.fig b/GUIs/DQ_Spectra_GUI.fig
old mode 100644
new mode 100755
diff --git a/GUIs/DQ_Spectra_GUI.m b/GUIs/DQ_Spectra_GUI.m
old mode 100644
new mode 100755
diff --git a/GUIs/DQ_Table_GUI.fig b/GUIs/DQ_Table_GUI.fig
old mode 100644
new mode 100755
diff --git a/GUIs/DQ_Table_GUI.m b/GUIs/DQ_Table_GUI.m
old mode 100644
new mode 100755
diff --git a/GUIs/DQ_preavg.fig b/GUIs/DQ_preavg.fig
old mode 100644
new mode 100755
diff --git a/GUIs/DQ_preavg.m b/GUIs/DQ_preavg.m
old mode 100644
new mode 100755
diff --git a/GUIs/averagerGUI.fig b/GUIs/averagerGUI.fig
old mode 100644
new mode 100755
diff --git a/GUIs/averagerGUI.m b/GUIs/averagerGUI.m
old mode 100644
new mode 100755
diff --git a/GUIs/averagerxGUI.fig b/GUIs/averagerxGUI.fig
old mode 100644
new mode 100755
diff --git a/GUIs/averagerxGUI.m b/GUIs/averagerxGUI.m
old mode 100644
new mode 100755
diff --git a/GUIs/avg_data_quality.fig b/GUIs/avg_data_quality.fig
old mode 100644
new mode 100755
diff --git a/GUIs/avg_data_quality.m b/GUIs/avg_data_quality.m
old mode 100644
new mode 100755
diff --git a/GUIs/continuousFFT.fig b/GUIs/continuousFFT.fig
old mode 100644
new mode 100755
diff --git a/GUIs/continuousFFT.m b/GUIs/continuousFFT.m
old mode 100644
new mode 100755
diff --git a/GUIs/continuousartifactGUI.m b/GUIs/continuousartifactGUI.m
old mode 100644
new mode 100755
diff --git a/GUIs/gui_remove_response_mistakes.fig b/GUIs/gui_remove_response_mistakes.fig
old mode 100644
new mode 100755
diff --git a/README.md b/README.md
old mode 100644
new mode 100755
diff --git a/eegplugin_erplab.m b/eegplugin_erplab.m
old mode 100644
new mode 100755
index 45b36e3f..ef7f33d9
--- a/eegplugin_erplab.m
+++ b/eegplugin_erplab.m
@@ -28,11 +28,30 @@
function currvers = eegplugin_erplab(fig, trystrs, catchstrs)
+try
+ clearvars observe_ERPDAT;
+ clearvars v_ERPDAT;
+catch
+end
+
erplab_default_values % script
currvers = ['erplab' erplabver];
+erplab_running_version('Version',erplabver,'tooltype','ERPLAB');%%GH,Mar 2023
+global observe_ERPDAT;
+observe_ERPDAT = o_ERPDAT;
+observe_ERPDAT.Two_GUI = 0;
+observe_ERPDAT.ALLERP = [];
+observe_ERPDAT.CURRENTERP = [];
+observe_ERPDAT.ERP = [];
+observe_ERPDAT.Count_ERP = 0;
+observe_ERPDAT.Count_currentERP = 0;
+observe_ERPDAT.Process_messg = 0;%%change end
+
+
+
if nargin < 3
- error('eegplugin_erplab requires 3 arguments');
+ error('eegplugin_erplab requires 3 arguments');
end
%
@@ -40,7 +59,7 @@
%
p = which('eegplugin_erplab','-all');
if length(p)>1
- fprintf('\nERPLAB WARNING: More than one ERPLAB folder was found.\n\n');
+ fprintf('\nERPLAB WARNING: More than one ERPLAB folder was found.\n\n');
end
p = p{1};
p = p(1:findstr(p,'eegplugin_erplab.m')-1);
@@ -70,19 +89,19 @@
% CHECK EEGLAB Version
%
if exist('memoryerp.erpm','file')==2
- iserpmem = 1; % file for memory exists
+ iserpmem = 1; % file for memory exists
else
- iserpmem = 0; % does not exist file for memory
+ iserpmem = 0; % does not exist file for memory
end
egv = regexp(eeg_getversion,'^(\d+)\.+','tokens','ignorecase');
eegversion = str2num(char(egv{:}));
check_matlab_version;
if eegversion==11
- if iserpmem==1
- warning('ERPLAB:Warning', 'ERPLAB is not compatible with EEGLAB 11. Please try either a newer or an older version of EEGLAB.')
- else
- warndlg(sprintf('ERPLAB is not compatible with EEGLAB 11.\nPlease try either a newer or an older version of EEGLAB.'),'!! Warning !!', 'modal')
- end
+ if iserpmem==1
+ warning('ERPLAB:Warning', 'ERPLAB is not compatible with EEGLAB 11. Please try either a newer or an older version of EEGLAB.')
+ else
+ warndlg(sprintf('ERPLAB is not compatible with EEGLAB 11.\nPlease try either a newer or an older version of EEGLAB.'),'!! Warning !!', 'modal')
+ end
end
%
@@ -93,13 +112,13 @@
filenames = {filst.name};
if length(filenames)>3 % '.' '..' 'erplab_box_readme.md'
- recycle on;
- delete(fullfile(dirBox,'*'))
- fprintf('\nERPLAB WARNING: Temporary files (from your last session) within erplab_Box folder were sent to recycle bin.\n\n')
-
- file_id = fopen(fullfile(dirBox, 'erplab_box_readme.md'), 'w');
- fprintf(file_id, 'This is a placeholder file, so that git does not delete the `erplab_Box` folder.');
- fclose(file_id);
+ recycle on;
+ delete(fullfile(dirBox,'*'))
+ fprintf('\nERPLAB WARNING: Temporary files (from your last session) within erplab_Box folder were sent to recycle bin.\n\n')
+
+ file_id = fopen(fullfile(dirBox, 'erplab_box_readme.md'), 'w');
+ fprintf(file_id, 'This is a placeholder file, so that git does not delete the `erplab_Box` folder.');
+ fclose(file_id);
end
%
@@ -108,70 +127,70 @@
% Check erpmem version matches current version
if iserpmem
- oldmem = load(fullfile(p,'memoryerp.erpm'), '-mat');
- memver = oldmem.erplabver;
- if strcmp(memver,erplabver) == 0
- disp('Updating erpmem with current version number')
- mshock = oldmem.mshock;
- save(fullfile(p,'memoryerp.erpm'),'erplabrel','erplabver','ColorB','ColorF','errorColorB', 'errorColorF','fontsizeGUI','fontunitsGUI','mshock');
- end
+ oldmem = load(fullfile(p,'memoryerp.erpm'), '-mat');
+ memver = oldmem.erplabver;
+ if strcmp(memver,erplabver) == 0
+ disp('Updating erpmem with current version number')
+ mshock = oldmem.mshock;
+ save(fullfile(p,'memoryerp.erpm'),'erplabrel','erplabver','ColorB','ColorF','errorColorB', 'errorColorF','fontsizeGUI','fontunitsGUI','mshock');
+ end
end
if iserpmem==0
- mshock = 0;
- try
- % saves memory file
- %
- % IMPORTANT: If this file (saved variables inside memoryerp.erpm) is modified then also must be modified the same line at erplabamnesia.m
- %
- save(fullfile(p,'memoryerp.erpm'),'erplabrel','erplabver','ColorB','ColorF','errorColorB', 'errorColorF','fontsizeGUI','fontunitsGUI','mshock');
- catch
- % saves memory variable at workspace
- msgboxText = ['\nERPLAB could not find a file for storing its GUI memory or \n'...
- 'does not have permission for writting on it.\n\n'...
- 'Therefore, ERPLAB''s memory will be stored at Matlab''s workspace and will last 1 session.\n\n'];
-
- % message on command window
- fprintf('%s\n', repmat('*',1,50));
- fprintf('"Houston, we''ve had a problem here": \n %s\n', sprintf(msgboxText));
- bottomline = 'If you think this is a bug, please report the error to erplabtoolbox@gmail.com and not to the EEGLAB developers.';
- disp(bottomline)
- fprintf('%s\n', repmat('*',1,50));
-
- %
- % IMPORTANT: If this strucure (vmemoryerp) is modified then also must be modified the same line at erplabamnesia.m
- %
- vmemoryerp = struct('erplabrel',erplabrel,'erplabver',erplabver,'ColorB',ColorB,'ColorF',ColorF,'fontsizeGUI',fontsizeGUI,...
- 'fontunitsGUI',fontunitsGUI,'mshock',mshock, 'errorColorF', errorColorF, 'errorColorB', errorColorB);
- assignin('base','vmemoryerp',vmemoryerp);
- end
+ mshock = 0;
+ try
+ % saves memory file
+ %
+ % IMPORTANT: If this file (saved variables inside memoryerp.erpm) is modified then also must be modified the same line at erplabamnesia.m
+ %
+ save(fullfile(p,'memoryerp.erpm'),'erplabrel','erplabver','ColorB','ColorF','errorColorB', 'errorColorF','fontsizeGUI','fontunitsGUI','mshock');
+ catch
+ % saves memory variable at workspace
+ msgboxText = ['\nERPLAB could not find a file for storing its GUI memory or \n'...
+ 'does not have permission for writting on it.\n\n'...
+ 'Therefore, ERPLAB''s memory will be stored at Matlab''s workspace and will last 1 session.\n\n'];
+
+ % message on command window
+ fprintf('%s\n', repmat('*',1,50));
+ fprintf('"Houston, we''ve had a problem here": \n %s\n', sprintf(msgboxText));
+ bottomline = 'If you think this is a bug, please report the error to erplabtoolbox@gmail.com and not to the EEGLAB developers.';
+ disp(bottomline)
+ fprintf('%s\n', repmat('*',1,50));
+
+ %
+ % IMPORTANT: If this strucure (vmemoryerp) is modified then also must be modified the same line at erplabamnesia.m
+ %
+ vmemoryerp = struct('erplabrel',erplabrel,'erplabver',erplabver,'ColorB',ColorB,'ColorF',ColorF,'fontsizeGUI',fontsizeGUI,...
+ 'fontunitsGUI',fontunitsGUI,'mshock',mshock, 'errorColorF', errorColorF, 'errorColorB', errorColorB);
+ assignin('base','vmemoryerp',vmemoryerp);
+ end
end
%
% ERPLAB's VARIABLES TO WORKSPACE
%
ERP = []; % Start ERP Structure on workspace
-%ALLERP = []; %Start ALLERP Structure on workspace
-ALLBEST = [];
+ALLERP = []; %Start ALLERP Structure on workspace
+ALLBEST = [];
ALLERPCOM = [];
CURRENTERP = 0;
BEST = []; %Start BEST structure on workspace
-CURRENTBEST = 0;
+CURRENTBEST = 0;
plotset.ptime = [];
plotset.pscalp = [];
plotset.pfrequ = [];
-MVPA = [];
+MVPA = [];
assignin('base','ERP',ERP);
-%assignin('base','ALLERP', ALLERP);
-assignin('base','ALLBEST', ALLBEST);
+assignin('base','ALLERP', ALLERP);
+assignin('base','ALLBEST', ALLBEST);
assignin('base','ALLERPCOM', ALLERPCOM);
assignin('base','CURRENTERP', CURRENTERP);
assignin('base','CURRENTBEST', CURRENTBEST);
-assignin('base','BEST',BEST);
+assignin('base','BEST',BEST);
assignin('base','plotset', plotset);
-assignin('base','MVPA', MVPA);
+assignin('base','MVPA', MVPA);
% ALLERP should be created with EEGLAB Globals in eeg_globals.m
%global ALLERP ALLBEST
@@ -185,7 +204,7 @@
e_catch = 'catch, eeglab_error; LASTCOM= ''''; clear EEGTMP ALLEEGTMP STUDYTMP; end;';
nocheck = e_try;
storeallcall = [ 'if ~isempty(ALLEEG) & ~isempty(ALLEEG(1).data), ALLEEG = eeg_checkset(ALLEEG);' ...
- 'EEG = eeg_retrieve(ALLEEG, CURRENTSET); eegh(''ALLEEG = eeg_checkset(ALLEEG); EEG = eeg_retrieve(ALLEEG, CURRENTSET);''); end;' ];
+ 'EEG = eeg_retrieve(ALLEEG, CURRENTSET); eegh(''ALLEEG = eeg_checkset(ALLEEG); EEG = eeg_retrieve(ALLEEG, CURRENTSET);''); end;' ];
ifeeg = 'if ~isempty(LASTCOM) & ~isempty(EEG),';
e_storeall_nh = [e_catch 'eegh(LASTCOM);' ifeeg storeallcall 'disp(''Done.''); end; eeglab(''redraw'');'];
% cb_loaderplabset = [ nocheck '[ALLEEG EEG CURRENTSET LASTCOM] = pop_loadmerplabset(ALLEEG, EEG);' e_storeall_nh];
@@ -203,14 +222,14 @@
% ERPLAB NEST-MENU (ERPLAB at the EEGLAB's Main Menu)
%
if ispc % windows
- wfactor1 = 1.20;
- wfactor2 = 1.21;
+ wfactor1 = 1.20;
+ wfactor2 = 1.21;
elseif ismac % Mac OSX
- wfactor1 = 1.45;
- wfactor2 = 1.46;
+ wfactor1 = 1.45;
+ wfactor2 = 1.46;
else
- wfactor1 = 1.30;
- wfactor2 = 1.31;
+ wfactor1 = 1.30;
+ wfactor2 = 1.31;
end
posmainfig = get(gcf,'Position');
hframe = findobj('parent', gcf,'tag','Frame1');
@@ -318,14 +337,14 @@
comDQQsave = ['save_data_quality(ERP);'];
comDQQprint = ['dataquality_measure = print_data_quality(ERP);'];
comDQQinfo = ['erpset_summary;'];
-comDQQpreavg = ['pop_DQ_preavg(ALLEEG)'];
+comDQQpreavg = ['pop_DQ_preavg(ALLEEG)'];
%% MVPA callbacks
-%comExtractBest = ['[BEST] = pop_extractbest(ALLEEG);'];
-%comSpatDecode = ['[MVPA] = pop_decoding('''');'];
+%comExtractBest = ['[BEST] = pop_extractbest(ALLEEG);'];
+%comSpatDecode = ['[MVPA] = pop_decoding('''');'];
%comSaveBEST = ['[BEST] = pop_savemybest(BEST, ''gui'', ''saveas'');'];
-%comLoadBEST = ['[BEST, ALLBEST] = pop_loadbest('''');'];
+%comLoadBEST = ['[BEST, ALLBEST] = pop_loadbest('''');'];
@@ -352,6 +371,7 @@
comBOP = ['[ERP, ERPCOM] = pop_binoperator(ERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
comCHOP2 = ['[ERP, ERPCOM] = pop_erpchanoperator(ERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
comPLOT = ['[ERP, ERPCOM] = pop_ploterps(ERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
+comPLOTV =['ERPLAB_ERP_Viewer(ALLERP,CURRENTERP);'];
comSCALP = ['[ERP, ERPCOM] = pop_scalplot(ERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
comCHLOCTABLE= ['[ERP] = chanloc(ERP);'];
comCHLOC = ['[ERP, ERPCOM] = pop_erpchanedit(ERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
@@ -381,7 +401,7 @@
comGAVG = ['[ERP, ERPCOM] = pop_gaverager(ALLERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
comERPMT = ['[ALLERP, Amp, Lat, ERPCOM] = pop_geterpvalues(ALLERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
comERPView = ['[ALLERP, Amp, Lat, ERPCOM] = pop_geterpvalues(ALLERP,[],[],[],''Erpsets'', 0,''Viewer'', ''on'');' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
-
+comERPSL = ['[ERP, ERPCOM] = pop_ERP_simulation(ALLERP);' ];%'[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'
%% export figure
comEXPPDF = ['[ERP, ERPCOM] = pop_exporterplabfigure(ERP);' '[ERP, ALLERPCOM] = erphistory(ERP, ALLERPCOM, ERPCOM);'];
@@ -415,16 +435,16 @@
erpverMenu = uimenu( submenu, ...
'Label' , [' *** ERPLAB v' erplabver ' ***'], ...
- 'tag' , 'erpver', ...
- 'separator', 'off', ...
+ 'tag' , 'erpver', ...
+ 'separator', 'off', ...
'userdata' , 'startup:off;continuous:off;epoch:off;study:off;erpset:off');
%% Continuous EEG Preprocessing Submenu
preProcMenu = uimenu( submenu, ...
'Label' , 'Preprocess EEG', ...
- 'tag' , 'PreprocessContinuousEEG', ...
- 'separator', 'on', ...
+ 'tag' , 'PreprocessContinuousEEG', ...
+ 'separator', 'on', ...
'userdata' , [ ...
'startup:on;' ...
'continuous:on;' ...
@@ -446,7 +466,7 @@
'userdata' , preProcFunctions_userdata);
% Shift Event Codes
uimenu( preProcMenu, ...
- 'Label' , 'Shift Event Codes (continuous EEG)', ...
+ 'Label' , 'Shift Event Codes (continuous EEG)', ...
'CallBack', comShiftEvents, ...
'userdata', preProcFunctions_userdata);
% Delete Time Segments
@@ -462,13 +482,13 @@
% Selective Electrode Interpolation
uimenu( preProcMenu, ...
'Label' , 'Selective Electrode Interpolation', ...
- 'CallBack', comInterpolateElectrodes, ...
+ 'CallBack', comInterpolateElectrodes, ...
'userdata', preProcFunctions_userdata);
%Continuous Spectral EEG Data Quality
uimenu( preProcMenu, ...
'Label', 'Spectral Data Quality (continuous EEG)', ...
'CallBack', comDFT, ...
- 'userdata', preProcFunctions_userdata);
+ 'userdata', preProcFunctions_userdata);
@@ -544,17 +564,17 @@
uimenu(submenu,'Label','Compute data quality metrics (without averaging)', 'CallBack', comDQQpreavg,'separator','on','userdata','startup:off;continuous:off;epoch:on;study:off;erpset:off');
-%% BIN-EPOCHED Data (BEST sets)
+%% BIN-EPOCHED Data (BEST sets)
%uimenu(submenu,'Label','Extract Bin-Epoched Single Trial (BEST) Data','CallBack',comExtractBest,'separator','on','userdata','startup:off;continuous:off;epoch:on;study:off;erpset:on');
-%uimenu(submenu,'Label','Save current BESTset as','CallBack',comSaveBEST,'userdata','startup:off;continuous:off;epoch:on;study:off;erpset:on');
-%uimenu(submenu,'Label','Load BEST','CallBack',comLoadBEST,'userdata','startup:on;continuous:on;epoch:on;study:off;erpset:on');
+%uimenu(submenu,'Label','Save current BESTset as','CallBack',comSaveBEST,'userdata','startup:off;continuous:off;epoch:on;study:off;erpset:on');
+%uimenu(submenu,'Label','Load BEST','CallBack',comLoadBEST,'userdata','startup:on;continuous:on;epoch:on;study:off;erpset:on');
%% Multivariate Pattern Analysis
%MVPAmenu = uimenu( submenu,'Label','MVPA','separator','on','tag','MVPAset','userdata','startup:on;continuous:on;epoch:on;study:off;erpset:off');
% BESTmenu = uimenu(MVPAmenu,'Label','Currently loaded BESTsets','tag','LoadedBEST','separator','on','userdata','startup:off;continuous:off;epoch:off;study:off;erpset:off');
-%uimenu(MVPAmenu,'Label','ERP Decoding','separator','on','CallBack',comSpatDecode,'userdata','startup:on;continuous:on;epoch:on;study:off;erpset:off');
-%set(MVPAmenu, 'enable','off');
+%uimenu(MVPAmenu,'Label','ERP Decoding','separator','on','CallBack',comSpatDecode,'userdata','startup:on;continuous:on;epoch:on;study:off;erpset:off');
+%set(MVPAmenu, 'enable','off');
@@ -579,6 +599,7 @@
%
mERPLOT = uimenu( submenu,'Label','Plot ERP','tag','ERPlot','separator','on','userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
uimenu( mERPLOT,'Label','Plot ERP waveforms ','CallBack', comPLOT,'userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
+uimenu( mERPLOT,'Label','ERP Waveform Viewer ','CallBack', comPLOTV,'userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
uimenu( mERPLOT,'Label','Plot ERP scalp maps ','CallBack', comSCALP,'userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
uimenu( mERPLOT,'Label','Print plotted figure(s) to a file','CallBack', comEXPPDF,'separator','on','userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
uimenu( mERPLOT,'Label','Edit ERP channel location table','CallBack', comCHLOCTABLE,'separator','on','userdata','startup:on;continuous:on;epoch:on;study:off;erpset:on');
@@ -616,6 +637,7 @@
%% GRAND AVERAGE
%
uimenu( submenu,'Label','Average across ERPsets (Grand Average) ','CallBack', comGAVG,'separator','on','userdata','startup:on;continuous:on;epoch:on;study:off;erpset:on');
+uimenu( submenu,'Label','Create Artificial ERP Waveform','CallBack', comERPSL,'separator','on','userdata','startup:on;continuous:on;epoch:on;study:off;erpset:on');
@@ -655,7 +677,7 @@
uimenu( mUTI,'Label','Reset event code bytes','CallBack', comRECB,'separator','on','userdata','startup:off;continuous:on;epoch:off;study:off;erpset:off');
uimenu( mUTI,'Label','Save current ERPset history for scripting','CallBack', comSaveH,'separator','on','userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
uimenu( mUTI,'Label','Find more here! (for scripting) ','CallBack','web(''https://github.com/lucklab/erplab/wiki/Scripting-Guide'',''-browser'');','separator','on',...
- 'userdata','startup:on;continuous:on;epoch:on;study:on;erpset:on');
+ 'userdata','startup:on;continuous:on;epoch:on;study:on;erpset:on');
uimenu( mUTI,'Label','Simulate EEG/ERP data (alpha version)','CallBack',comESIM,'separator','on' );
@@ -706,7 +728,7 @@
%set(erpmenu,'position', 9); % Requesting a specific postion confuses the EEGLAB file menu order as of Matlab R2020a. Let's leave this off for now. AXS Nov 2020
set(erpmenu,'enable','off');
-%% Create BEST Main Menu
+%% Create BEST Main Menu
%bestmenu = uimenu( menuERPLAB,'Label','BESTsets','separator','on','tag','bestsets','userdata','startup:off;continuous:off;epoch:off;study:off;erpset:on');
%set(erpmenu,'position', 9); % Requesting a specific postion confuses the EEGLAB file menu order as of Matlab R2020a. Let's leave this off for now. AXS Nov 2020
@@ -715,7 +737,7 @@
%% Create MVPA MAIN MENU
-% %
+% %
diff --git a/erplab_Box/erplab_box_readme.md b/erplab_Box/erplab_box_readme.md
old mode 100644
new mode 100755
diff --git a/erplab_default_values.m b/erplab_default_values.m
old mode 100644
new mode 100755
diff --git a/functions/averager.m b/functions/averager.m
old mode 100644
new mode 100755
diff --git a/functions/chanlocs_matcherEEG.m b/functions/chanlocs_matcherEEG.m
old mode 100644
new mode 100755
diff --git a/functions/checkeegzerolat.m b/functions/checkeegzerolat.m
old mode 100644
new mode 100755
diff --git a/functions/dq_baseline.m b/functions/dq_baseline.m
old mode 100644
new mode 100755
diff --git a/functions/dq_sdacrosstrials.m b/functions/dq_sdacrosstrials.m
old mode 100644
new mode 100755
diff --git a/functions/dq_summary.m b/functions/dq_summary.m
old mode 100644
new mode 100755
diff --git a/functions/erp2memory.m b/functions/erp2memory.m
index 4392a8ca..c45082b7 100755
--- a/functions/erp2memory.m
+++ b/functions/erp2memory.m
@@ -39,23 +39,23 @@
% along with this program. If not, see .
function erp2memory(ERP, indx)
-
+global observe_ERPDAT;
erpm = findobj('tag', 'linerp');
nerpset = length(erpm);
-for s=1:nerpset
- if s == nerpset-indx+1 % bottom-up to top-down counting
- set(erpm(s), 'checked', 'on' );
- menutitle = ['Erpset '...
- num2str(nerpset-s+1) ': ' ERP.erpname ''];
- set( erpm(s), 'Label', menutitle);
- else
- set(erpm(s), 'checked', 'off' );
- currname = get(erpm(s),'Label');
- menutitle = regexprep(currname,'|','', 'ignorecase');
- menutitle = regexprep(menutitle, '\s+', ' ');
- menutitle = regexprep(menutitle,'Erpset \d+',['Erpset ' num2str(nerpset-s+1)], 'ignorecase');
- set( erpm(s), 'Label', menutitle);
- end
+for s=1:nerpset
+ if s == nerpset-indx+1 % bottom-up to top-down counting
+ set(erpm(s), 'checked', 'on' );
+ menutitle = ['Erpset '...
+ num2str(nerpset-s+1) ': ' ERP.erpname ''];
+ set( erpm(s), 'Label', menutitle);
+ else
+ set(erpm(s), 'checked', 'off' );
+ currname = get(erpm(s),'Label');
+ menutitle = regexprep(currname,'|','', 'ignorecase');
+ menutitle = regexprep(menutitle, '\s+', ' ');
+ menutitle = regexprep(menutitle,'Erpset \d+',['Erpset ' num2str(nerpset-s+1)], 'ignorecase');
+ set( erpm(s), 'Label', menutitle);
+ end
end
CURRENTERP = indx;
assignin('base','CURRENTERP', CURRENTERP); % save to workspace
@@ -64,49 +64,64 @@ function erp2memory(ERP, indx)
% check ploterps GUI
perpgui = findobj('Tag', 'ploterp_fig');
if ~isempty(perpgui)
- close(perpgui)
- pause(0.1)
- pop_ploterps(ERP);
+ close(perpgui)
+ pause(0.1)
+ pop_ploterps(ERP);
else
- fprintf('\n------------------------------------------------------\n');
- fprintf('ERPSET #%g is ACTIVE\n', indx);
- fprintf('------------------------------------------------------\n');
- ERP
+ fprintf('\n------------------------------------------------------\n');
+ fprintf('ERPSET #%g is ACTIVE\n', indx);
+ fprintf('------------------------------------------------------\n');
+ ERP
+
+ %%changed by GZ Mar 2023
+
+ CURRENTERP = indx;
+ ALLERP = observe_ERPDAT.ALLERP;
+ if ~isempty(ALLERP)
+ if isempty(CURRENTERP) || CURRENTERP<=0 || CURRENTERP> length(ALLERP)
+ CURRENTERP= length(ALLERP);
+ end
+ observe_ERPDAT.CURRENTERP = CURRENTERP;
+ observe_ERPDAT.ERP = ALLERP(CURRENTERP);
+ observe_ERPDAT.Two_GUI = observe_ERPDAT.Two_GUI+1;
+ end
+
+
end
-% %% check DQ options of erpset & make changes to ERPlab menu
-%
-% erplabmenu = findobj('tag', 'ERPLAB');
+% %% check DQ options of erpset & make changes to ERPlab menu
+%
+% erplabmenu = findobj('tag', 'ERPLAB');
% %W_MAIN = findobj('tag', 'EEGLAB');
% allmenus = findobj( erplabmenu, 'type', 'uimenu');
% allstrs = get(allmenus, 'Label');
option1 = findobj('Label', 'Show Data Quality measures in table');
-option2 = findobj('Label', 'Summarize Data Quality (min, median, max)');
-option3 = findobj('Label', 'Save Data Quality measures to file');
+option2 = findobj('Label', 'Summarize Data Quality (min, median, max)');
+option3 = findobj('Label', 'Save Data Quality measures to file');
if isfield(ERP,'dataquality') & ~strcmp(ERP.dataquality(1).type,'empty')
- %if there is dataquality measures, make DQ menu options available
+ %if there is dataquality measures, make DQ menu options available
set(option1, 'enable', 'on');
set(option2, 'enable', 'on');
- set(option3, 'enable', 'on');
-
+ set(option3, 'enable', 'on');
+
else
set(option1, 'enable', 'off');
set(option2, 'enable', 'off');
- set(option3, 'enable', 'off');
+ set(option3, 'enable', 'off');
end
-%
-%
-% if any(strcmp(menustatus, 'erp_dataset'))
-% eval('indmatchvar = cellfun(@(x)(~isempty(findstr(num2str(x), ''erpset:on''))), allstrs);');
+%
+%
+% if any(strcmp(menustatus, 'erp_dataset'))
+% eval('indmatchvar = cellfun(@(x)(~isempty(findstr(num2str(x), ''erpset:on''))), allstrs);');
% set(allmenus(indmatchvar), 'enable', 'on');
% end
-% mainerplab = findobj(W_MAIN, 'tag', submenu);
-% erpmenu = findobj('erpmenu','type', 'uimenu');
+% mainerplab = findobj(W_MAIN, 'tag', submenu);
+% erpmenu = findobj('erpmenu','type', 'uimenu');
end
diff --git a/functions/erphistory.m b/functions/erphistory.m
old mode 100644
new mode 100755
diff --git a/functions/make_DQ_spec.m b/functions/make_DQ_spec.m
old mode 100644
new mode 100755
diff --git a/functions/make_bootstrap_ERPSETs.m b/functions/make_bootstrap_ERPSETs.m
old mode 100644
new mode 100755
diff --git a/functions/ploterps.m b/functions/ploterps.m
old mode 100644
new mode 100755
diff --git a/functions/save_data_quality.m b/functions/save_data_quality.m
old mode 100644
new mode 100755
diff --git a/functions/save_spectral_dq.m b/functions/save_spectral_dq.m
old mode 100644
new mode 100755
diff --git a/functions/sme_analytic.m b/functions/sme_analytic.m
old mode 100644
new mode 100755
diff --git a/functions/updatemenuerp.m b/functions/updatemenuerp.m
index a6094894..35c9ba13 100755
--- a/functions/updatemenuerp.m
+++ b/functions/updatemenuerp.m
@@ -11,7 +11,7 @@
%
%
% *** This function is part of ERPLAB Toolbox ***
-% Author: Javier Lopez-Calderon
+% Author: Javier Lopez-Calderon
% Center for Mind and Brain
% University of California, Davis,
% Davis, CA
@@ -40,109 +40,124 @@
function updatemenuerp(ALLERP, overw)
if nargin<2
- overw=0; % overwrite erpset menu? 0=no; 1=yes; -1=delete
+ overw=0; % overwrite erpset menu? 0=no; 1=yes; -1=delete
end
%
% Checks ERPpsets menu status
%
+global observe_ERPDAT;
+
+
erpmenu = findobj('tag', 'erpsets');
staterpm = get(erpmenu, 'Enable');
if strcmp(staterpm,'off')
- set(erpmenu, 'Enable', 'on'); % activates erpsets menu
+ set(erpmenu, 'Enable', 'on'); % activates erpsets menu
end
maxindexerp = length(ALLERP);
ERPSETMENU = zeros(1,maxindexerp);
erpsetlist = findobj('tag', 'linerp'); % size of the list at erpset menu
if isempty(erpsetlist)
- nerpset = 0;
- overw = 0; % add a new erpset
+ nerpset = 0;
+ overw = 0; % add a new erpset
elseif length(erpsetlist)>maxindexerp %10-25-11
- nerpset = length(erpsetlist);
- overw=-1; % delete erpset
+ nerpset = length(erpsetlist);
+ overw=-1; % delete erpset
elseif length(erpsetlist)Erpset ' num2str(indexerp) ': ' erpn ''];
- set( ERPSETMENU(indexerp), 'Label', menutitle);
- set( ERPSETMENU(indexerp), 'CallBack', ferp );
- set( ERPSETMENU(indexerp), 'Enable', 'on' );
- indexerp = indexerp + 1;
- end
- if maxindexerp~=0
- erp2memory(ALLERP(maxindexerp), maxindexerp);
- end
+ if overw==0 % add a new erpset to the erpset menu
+ indexerp = nerpset + 1;
+ else % delete erpset from the menu
+ menux = findobj(0, 'tag', 'erpsets');
+ h = get(menux);
+ delete(h.Children);
+ indexerp = 1;
+ if maxindexerp==0
+ assignin('base','CURRENTERP', 0); % save to workspace
+ set(erpmenu, 'enable', 'off');
+ return
+ end
+ end
+ while indexerp <= maxindexerp
+ ERPSETMENU(indexerp) = uimenu( erpmenu, 'tag', 'linerp');
+ ferp = [ 'erp2memory(ALLERP(' num2str(indexerp) '),' num2str(indexerp) ');' ];
+ erpn = ALLERP(indexerp).erpname;
+ if iscell(erpn)
+ erpn = '';
+ end
+ menutitle = ['Erpset ' num2str(indexerp) ': ' erpn ''];
+ set( ERPSETMENU(indexerp), 'Label', menutitle);
+ set( ERPSETMENU(indexerp), 'CallBack', ferp );
+ set( ERPSETMENU(indexerp), 'Enable', 'on' );
+ indexerp = indexerp + 1;
+ end
+ if maxindexerp~=0
+ erp2memory(ALLERP(maxindexerp), maxindexerp);
+ end
else
- error('ERPLAB says: Wrong input parameter')
+ error('ERPLAB says: Wrong input parameter')
end
eeglab redraw;
-%% check DQ options of erpset & make changes to ERPlab menu
+%% check DQ options of erpset & make changes to ERPlab menu
-% erplabmenu = findobj('tag', 'ERPLAB');
+% erplabmenu = findobj('tag', 'ERPLAB');
% %W_MAIN = findobj('tag', 'EEGLAB');
% allmenus = findobj( erplabmenu, 'type', 'uimenu');
% allstrs = get(allmenus, 'Label');
option1 = findobj('Label', 'Show Data Quality measures in table');
-option2 = findobj('Label', 'Summarize Data Quality (min, median, max)');
-option3 = findobj('Label', 'Save Data Quality measures to file');
+option2 = findobj('Label', 'Summarize Data Quality (min, median, max)');
+option3 = findobj('Label', 'Save Data Quality measures to file');
-ERP = ALLERP(maxindexerp);
+ERP = ALLERP(maxindexerp);
if isfield(ERP,'dataquality') & ~strcmp(ERP.dataquality(1).type,'empty')
- %if there is dataquality measures, make DQ menu options available
+ %if there is dataquality measures, make DQ menu options available
set(option1, 'enable', 'on');
set(option2, 'enable', 'on');
- set(option3, 'enable', 'on');
-
+ set(option3, 'enable', 'on');
+
else
set(option1, 'enable', 'off');
set(option2, 'enable', 'off');
- set(option3, 'enable', 'off');
+ set(option3, 'enable', 'off');
end
-
+
+
+%%changed GZ Mar. 2023
+CURRENTERP = maxindexerp;
+if ~isempty(ALLERP)
+ observe_ERPDAT.ALLERP =ALLERP;
+ if isempty(CURRENTERP) || CURRENTERP<=0 || CURRENTERP> length(ALLERP)
+ CURRENTERP= length(ALLERP);
+ end
+ observe_ERPDAT.CURRENTERP = CURRENTERP;
+ observe_ERPDAT.ERP = ALLERP(CURRENTERP);
+ observe_ERPDAT.Two_GUI = observe_ERPDAT.Two_GUI+1;
+end
end
-
-
-
-
-
+
+
+
+
+
diff --git a/images/colormap_lic/colormap_lic_viridis.txt b/images/colormap_lic/colormap_lic_viridis.txt
old mode 100644
new mode 100755
diff --git a/images/viridis.m b/images/viridis.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_DQ_preavg.m b/pop_functions/pop_DQ_preavg.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_averager.m b/pop_functions/pop_averager.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_basicfilter.m b/pop_functions/pop_basicfilter.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_continuousFFT.m b/pop_functions/pop_continuousFFT.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_eegchanoperator.m b/pop_functions/pop_eegchanoperator.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_erplabDeleteTimeSegments.m b/pop_functions/pop_erplabDeleteTimeSegments.m
old mode 100644
new mode 100755
diff --git a/pop_functions/pop_scalplot.m b/pop_functions/pop_scalplot.m
index f152cb63..384598cc 100755
--- a/pop_functions/pop_scalplot.m
+++ b/pop_functions/pop_scalplot.m
@@ -114,273 +114,273 @@
function [ERP, erpcom] = pop_scalplot(ERP, binArray, latencyArray, varargin)
erpcom = '';
if nargin < 1
- help pop_scalplot
- return
+ help pop_scalplot
+ return
end
if nargin==1
+ if isempty(ERP)
+ ERP = preloadERP;
if isempty(ERP)
- ERP = preloadERP;
- if isempty(ERP)
- msgboxText = 'No ERPset was found!';
- title_msg = 'ERPLAB: pop_scalplot() error:';
- errorfound(msgboxText, title_msg);
- return
- end
- end
- if ~isfield(ERP, 'bindata')
- msgboxText = 'Error: pop_scalplot cannot operate an empty ERP dataset';
- title_msg = 'ERPLAB: pop_scalplot() error:';
- errorfound(msgboxText, title_msg);
- return
- end
- if isempty(ERP.bindata)
- msgboxText = 'Error: pop_scalplot cannot operate an empty ERP dataset';
- title_msg = 'ERPLAB: pop_scalplot() error:';
- errorfound(msgboxText, title_msg);
- return
- end
-
- %
- % Searching channel location
- %
- if isfield(ERP.chanlocs, 'theta') && ~isempty([ERP.chanlocs.theta])
- [ERP, serror] = borrowchanloc(ERP);
- else
- question = ['This averaged ERP has not channel location info.\n'...
- 'Would you like to load it now?'];
- title_msg = 'ERPLAB: Channel location';
- button = askquest(sprintf(question), title_msg);
- if ~strcmpi(button,'yes')
- disp('User selected Cancel')
- return
- else
- [ERP, serror] = borrowchanloc(ERP);
- end
- if ~isempty(serror) && serror==0
- ERP = pop_savemyerp(ERP, 'gui', 'erplab', 'History', 'off');
- end
- end
- if isempty(serror)
- disp('User selected Cancel')
- return
- end
- if serror~=0
- msgboxText = ['pop_scalplot could not find channel locations info.\n\n'...
- 'Hint: Identify channel(s) without location looking at '...
- 'command window comments (Channel lookup). Try again excluding this(ese) channel(s).'];
- tittle = 'pop_scalplot: error:';
- errorfound(sprintf(msgboxText), tittle);
- return
- end
-
- %
- % Call GUI
- %
- [plotset, ERP] = scalplotGUI(ERP, ERP.chanlocs); %GUI
-
- if isempty(plotset.pscalp)
- disp('User selected Cancel')
- return
- elseif strcmpi(plotset.pscalp,'pdf')
- %erpcom2 = pop_fig2pdf;
- [ERP, erpcom2] = pop_exporterplabfigure(ERP);
- % if countp>0
- disp('pop_exporterplabfigure was called')
- % else
- % disp('WARNING: Matlab figure(s) might have been generated during a previous round....')
- % end
- erpcom = [erpcom ' ' erpcom2];
- return
- elseif strcmpi(plotset.pscalp,'time')
- disp('User called pop_ploterps()')
- return
+ msgboxText = 'No ERPset was found!';
+ title_msg = 'ERPLAB: pop_scalplot() error:';
+ errorfound(msgboxText, title_msg);
+ return
end
-
- plotset.pscalp.binArray = plotset.pscalp.binArray(plotset.pscalp.binArray<=ERP.nbin);
-
- if ~isfield(plotset.pscalp, 'posfig')
- plotset.pscalp.posfig = [];
- end
-
- findplot = findobj('Tag','Scalp_figure');
-
- if ~isempty(findplot)
- lastfig = figure(findplot(1));
- posfx = get(lastfig,'Position');
- plotset.pscalp.posfig = [posfx(1)+10 posfx(2)-15 posfx(3) posfx(4) ];
- end
-
- %
- % read plotset into variables
- %
- binArray = plotset.pscalp.binArray;
- latencyArray = plotset.pscalp.latencyArray;
- measurestr = plotset.pscalp.measurement;
- baseline = plotset.pscalp.baseline;
- maplimit = plotset.pscalp.cscale;
- ismoviex = plotset.pscalp.agif.value;
- FPS = plotset.pscalp.agif.fps;
- fullgifname = plotset.pscalp.agif.fname;
- posfig = plotset.pscalp.posfig;
- mtype = plotset.pscalp.mtype; % map type: 2D or 3D
- smapstyle = plotset.pscalp.smapstyle; % map style: 'fill' 'both'
- mapoutside = plotset.pscalp.mapoutside;
- mapview = plotset.pscalp.mapview;
- splineinfo = plotset.pscalp.splineinfo;
- plegend = plotset.pscalp.plegend;
- binleg = plegend.binnum; % show bin number at legend
- bindesc = plegend.bindesc; % show bin description at legend
- vtype = plegend.type ; % show type of measurement at legend
- vlatency = plegend.latency; % show latency(ies) at legend
- showelec = plegend.electrodes; % show electrodes on scalp
- elestyle = plegend.elestyle ; %
- elec3D = plegend.elec3D;
- clrbar = plegend.colorbar; % show color bar
- ismaxim = plegend.maximize; % show color bar
- clrmap = plegend.colormap; % show color bar
-
- if strcmpi(mtype, '3d')
- % if isempty(ERP.splinefile)
- % if isempty(splineinfo.path)
- % splinefile = fullfile(cd(), 'temp_splinefile');%default temp spline
- % else
- % splinefile = splineinfo.path;
- % end
- % else
- % splinefile = ERP.splinefile;
- % end
- if isempty(ERP.splinefile) && isempty(splineinfo.path)
- %disp('A')
- msgboxText = ['Current ERPset is not linked to any spline file.\n'...
- 'At the Scal plot GUI, use "spline file" button, under the Map type menu, to find/create one.'];
- title_msg = 'ERPLAB: pop_scalplot() missing info:';
- errorfound(sprintf(msgboxText), title_msg);
- return
- elseif isempty(ERP.splinefile) && ~isempty(splineinfo.path)
- %if splineinfo.new==1
- headplot('setup', ERP.chanlocs, splineinfo.path); %Builds the new spline file.
- % splineinfo.new = 0;
- %plotset.pscalp.splineinfo = splineinfo;
- %end
- %if splineinfo.save
- % ERP.splinefile = splineinfo.path;
- % ERP = pop_savemyerp(ERP, 'gui', 'erplab', 'History', 'off');
- % erplab redraw
- % splineinfo.save = 0;
- % %plotset.pscalp.splineinfo = splineinfo;
- %end
- splinefile = splineinfo.path;
- %disp('A2')
- elseif ~isempty(ERP.splinefile) && ~isempty(splineinfo.path)
- headplot('setup', ERP.chanlocs, splineinfo.path); %Builds the new spline file.
- splinefile = splineinfo.path;
- %disp('B')
-
- % if splineinfo.new==1
- % headplot('setup', ERP.chanlocs, splineinfo.path); %Builds the new spline file.
- % splineinfo.new = 0;
- % %plotset.pscalp.splineinfo = splineinfo;
- % end
- % if splineinfo.save
- % question = ['This ERPset already has spline file info.\n'...
- % 'Would you like to replace it?'];
- % title_msg = 'ERPLAB: spline file';
- % button = askquest(sprintf(question), title_msg);
- %
- % if ~strcmpi(button,'yes')
- % disp('User selected Cancel')
- % return
- % else
- % ERP.splinefile = splineinfo.path;
- % ERP = pop_savemyerp(ERP, 'gui', 'erplab', 'History', 'off');
- % erplab redraw
- % end
- % end
- % splinefile = splineinfo.path;
- else
- %disp('C')
- splinefile = ERP.splinefile;
- end
- else
- %splinefile = '';
- splinefile = ERP.splinefile;
- %disp('D')
- end
-
- %
- % save plotset at command window
- %
- assignin('base','plotset', plotset);
-
- if clrbar==1
- colorbari = 'on';
- else
- colorbari = 'off';
- end
- if mapoutside==1 % 'plotrad',mplotrad,
- mplotrad = [];
- else
- mplotrad = 0.55;
- end
-
- %'jet|hsv|hot|cool|gray'
- switch clrmap
- case 1
- cmap = 'jet';
- case 2
- cmap = 'hsv';
- case 3
- cmap = 'hot';
- case 4
- cmap = 'cool';
- case 5
- cmap = 'gray';
- case 6
- cmap = 'viridis';
- otherwise
- cmap = 'jet';
- end
- if ismoviex==0
- ismoviexx = 'off';
- aff = 'off'; % adjust first frame (aff)
+ end
+ if ~isfield(ERP, 'bindata')
+ msgboxText = 'Error: pop_scalplot cannot operate an empty ERP dataset';
+ title_msg = 'ERPLAB: pop_scalplot() error:';
+ errorfound(msgboxText, title_msg);
+ return
+ end
+ if isempty(ERP.bindata)
+ msgboxText = 'Error: pop_scalplot cannot operate an empty ERP dataset';
+ title_msg = 'ERPLAB: pop_scalplot() error:';
+ errorfound(msgboxText, title_msg);
+ return
+ end
+
+ %
+ % Searching channel location
+ %
+ if isfield(ERP.chanlocs, 'theta') && ~isempty([ERP.chanlocs.theta])
+ [ERP, serror] = borrowchanloc(ERP);
+ else
+ question = ['This averaged ERP has not channel location info.\n'...
+ 'Would you like to load it now?'];
+ title_msg = 'ERPLAB: Channel location';
+ button = askquest(sprintf(question), title_msg);
+ if ~strcmpi(button,'yes')
+ disp('User selected Cancel')
+ return
else
- if ismoviex==1
- aff = 'off'; % adjust first frame (aff)
- else
- aff = 'on';
- end
- ismoviexx = 'on';
+ [ERP, serror] = borrowchanloc(ERP);
end
- if binleg==1
- binlegx = 'on';
- else
- binlegx = 'off';
+ if ~isempty(serror) && serror==0
+ ERP = pop_savemyerp(ERP, 'gui', 'erplab', 'History', 'off');
end
- if showelec==1
- showelecx = elestyle;
+ end
+ if isempty(serror)
+ disp('User selected Cancel')
+ return
+ end
+ if serror~=0
+ msgboxText = ['pop_scalplot could not find channel locations info.\n\n'...
+ 'Hint: Identify channel(s) without location looking at '...
+ 'command window comments (Channel lookup). Try again excluding this(ese) channel(s).'];
+ tittle = 'pop_scalplot: error:';
+ errorfound(sprintf(msgboxText), tittle);
+ return
+ end
+
+ %
+ % Call GUI
+ %
+ [plotset, ERP] = scalplotGUI(ERP, ERP.chanlocs); %GUI
+
+ if isempty(plotset.pscalp)
+ disp('User selected Cancel')
+ return
+ elseif strcmpi(plotset.pscalp,'pdf')
+ %erpcom2 = pop_fig2pdf;
+ [ERP, erpcom2] = pop_exporterplabfigure(ERP);
+ % if countp>0
+ disp('pop_exporterplabfigure was called')
+ % else
+ % disp('WARNING: Matlab figure(s) might have been generated during a previous round....')
+ % end
+ erpcom = [erpcom ' ' erpcom2];
+ return
+ elseif strcmpi(plotset.pscalp,'time')
+ disp('User called pop_ploterps()')
+ return
+ end
+
+ plotset.pscalp.binArray = plotset.pscalp.binArray(plotset.pscalp.binArray<=ERP.nbin);
+
+ if ~isfield(plotset.pscalp, 'posfig')
+ plotset.pscalp.posfig = [];
+ end
+
+ findplot = findobj('Tag','Scalp_figure');
+
+ if ~isempty(findplot)
+ lastfig = figure(findplot(1));
+ posfx = get(lastfig,'Position');
+ plotset.pscalp.posfig = [posfx(1)+10 posfx(2)-15 posfx(3) posfx(4) ];
+ end
+
+ %
+ % read plotset into variables
+ %
+ binArray = plotset.pscalp.binArray;
+ latencyArray = plotset.pscalp.latencyArray;
+ measurestr = plotset.pscalp.measurement;
+ baseline = plotset.pscalp.baseline;
+ maplimit = plotset.pscalp.cscale;
+ ismoviex = plotset.pscalp.agif.value;
+ FPS = plotset.pscalp.agif.fps;
+ fullgifname = plotset.pscalp.agif.fname;
+ posfig = plotset.pscalp.posfig;
+ mtype = plotset.pscalp.mtype; % map type: 2D or 3D
+ smapstyle = plotset.pscalp.smapstyle; % map style: 'fill' 'both'
+ mapoutside = plotset.pscalp.mapoutside;
+ mapview = plotset.pscalp.mapview;
+ splineinfo = plotset.pscalp.splineinfo;
+ plegend = plotset.pscalp.plegend;
+ binleg = plegend.binnum; % show bin number at legend
+ bindesc = plegend.bindesc; % show bin description at legend
+ vtype = plegend.type ; % show type of measurement at legend
+ vlatency = plegend.latency; % show latency(ies) at legend
+ showelec = plegend.electrodes; % show electrodes on scalp
+ elestyle = plegend.elestyle ; %
+ elec3D = plegend.elec3D;
+ clrbar = plegend.colorbar; % show color bar
+ ismaxim = plegend.maximize; % show color bar
+ clrmap = plegend.colormap; % show color bar
+
+ if strcmpi(mtype, '3d')
+ % if isempty(ERP.splinefile)
+ % if isempty(splineinfo.path)
+ % splinefile = fullfile(cd(), 'temp_splinefile');%default temp spline
+ % else
+ % splinefile = splineinfo.path;
+ % end
+ % else
+ % splinefile = ERP.splinefile;
+ % end
+ if isempty(ERP.splinefile) && isempty(splineinfo.path)
+ %disp('A')
+ msgboxText = ['Current ERPset is not linked to any spline file.\n'...
+ 'At the Scal plot GUI, use "spline file" button, under the Map type menu, to find/create one.'];
+ title_msg = 'ERPLAB: pop_scalplot() missing info:';
+ errorfound(sprintf(msgboxText), title_msg);
+ return
+ elseif isempty(ERP.splinefile) && ~isempty(splineinfo.path)
+ %if splineinfo.new==1
+ headplot('setup', ERP.chanlocs, splineinfo.path); %Builds the new spline file.
+ % splineinfo.new = 0;
+ %plotset.pscalp.splineinfo = splineinfo;
+ %end
+ %if splineinfo.save
+ % ERP.splinefile = splineinfo.path;
+ % ERP = pop_savemyerp(ERP, 'gui', 'erplab', 'History', 'off');
+ % erplab redraw
+ % splineinfo.save = 0;
+ % %plotset.pscalp.splineinfo = splineinfo;
+ %end
+ splinefile = splineinfo.path;
+ %disp('A2')
+ elseif ~isempty(ERP.splinefile) && ~isempty(splineinfo.path)
+ headplot('setup', ERP.chanlocs, splineinfo.path); %Builds the new spline file.
+ splinefile = splineinfo.path;
+ %disp('B')
+
+ % if splineinfo.new==1
+ % headplot('setup', ERP.chanlocs, splineinfo.path); %Builds the new spline file.
+ % splineinfo.new = 0;
+ % %plotset.pscalp.splineinfo = splineinfo;
+ % end
+ % if splineinfo.save
+ % question = ['This ERPset already has spline file info.\n'...
+ % 'Would you like to replace it?'];
+ % title_msg = 'ERPLAB: spline file';
+ % button = askquest(sprintf(question), title_msg);
+ %
+ % if ~strcmpi(button,'yes')
+ % disp('User selected Cancel')
+ % return
+ % else
+ % ERP.splinefile = splineinfo.path;
+ % ERP = pop_savemyerp(ERP, 'gui', 'erplab', 'History', 'off');
+ % erplab redraw
+ % end
+ % end
+ % splinefile = splineinfo.path;
else
- showelecx = 'off';
+ %disp('C')
+ splinefile = ERP.splinefile;
end
- if ismaxim==1
- maxim = 'on';
+ else
+ %splinefile = '';
+ splinefile = ERP.splinefile;
+ %disp('D')
+ end
+
+ %
+ % save plotset at command window
+ %
+ assignin('base','plotset', plotset);
+
+ if clrbar==1
+ colorbari = 'on';
+ else
+ colorbari = 'off';
+ end
+ if mapoutside==1 % 'plotrad',mplotrad,
+ mplotrad = [];
+ else
+ mplotrad = 0.55;
+ end
+
+ %'jet|hsv|hot|cool|gray'
+ switch clrmap
+ case 1
+ cmap = 'jet';
+ case 2
+ cmap = 'hsv';
+ case 3
+ cmap = 'hot';
+ case 4
+ cmap = 'cool';
+ case 5
+ cmap = 'gray';
+ case 6
+ cmap = 'viridis';
+ otherwise
+ cmap = 'jet';
+ end
+ if ismoviex==0
+ ismoviexx = 'off';
+ aff = 'off'; % adjust first frame (aff)
+ else
+ if ismoviex==1
+ aff = 'off'; % adjust first frame (aff)
else
- maxim = 'off';
+ aff = 'on';
end
-
- % legend
- logstring = ['bn'*binleg '-'*binleg 'bd'*bindesc '-'*bindesc 'me'*vtype '-'*vtype 'la'*vlatency];
- logstring = nonzeros(logstring)';
- mapleg = strtrim(char(logstring));
-
- %
- % Somersault
- %
- [ERP, erpcom] = pop_scalplot(ERP, binArray, latencyArray, 'Value', measurestr, 'Blc', baseline, 'Maplimit', maplimit, 'Colorbar', colorbari,...
- 'Colormap', cmap,'Animated', ismoviexx, 'AdjustFirstFrame', aff, 'FPS', FPS, 'Filename', fullgifname, 'Legend', mapleg, 'Electrodes', showelecx,...
- 'Position', posfig, 'Maptype', mtype, 'Mapstyle', smapstyle, 'Plotrad', mplotrad,'Mapview', mapview, 'Splinefile', splinefile,...
- 'Maximize', maxim, 'Electrodes3d', elec3D,'History', 'gui');
- pause(0.1)
- return
+ ismoviexx = 'on';
+ end
+ if binleg==1
+ binlegx = 'on';
+ else
+ binlegx = 'off';
+ end
+ if showelec==1
+ showelecx = elestyle;
+ else
+ showelecx = 'off';
+ end
+ if ismaxim==1
+ maxim = 'on';
+ else
+ maxim = 'off';
+ end
+
+ % legend
+ logstring = ['bn'*binleg '-'*binleg 'bd'*bindesc '-'*bindesc 'me'*vtype '-'*vtype 'la'*vlatency];
+ logstring = nonzeros(logstring)';
+ mapleg = strtrim(char(logstring));
+
+ %
+ % Somersault
+ %
+ [ERP, erpcom] = pop_scalplot(ERP, binArray, latencyArray, 'Value', measurestr, 'Blc', baseline, 'Maplimit', maplimit, 'Colorbar', colorbari,...
+ 'Colormap', cmap,'Animated', ismoviexx, 'AdjustFirstFrame', aff, 'FPS', FPS, 'Filename', fullgifname, 'Legend', mapleg, 'Electrodes', showelecx,...
+ 'Position', posfig, 'Maptype', mtype, 'Mapstyle', smapstyle, 'Plotrad', mplotrad,'Mapview', mapview, 'Splinefile', splinefile,...
+ 'Maximize', maxim, 'Electrodes3d', elec3D,'History', 'gui');
+ pause(0.1)
+ return
end
%
@@ -411,7 +411,7 @@
p.addParamValue('Legend', 'bn-la', @ischar); % all -> 'bn-bd-me-lat' (at legend:bin number (bn), bin desc (bd), measure (me), latency (la))
p.addParamValue('Maximize', 'off', @ischar); % off | on
p.addParamValue('Position', [], @isnumeric);
-p.addParamValue('Maptype', '2D', @ischar); %
+p.addParamValue('Maptype', '2D', @ischar); %
p.addParamValue('Mapstyle', 'both', @ischar); % 'fill' 'both'
p.addParamValue('Plotrad', 0.55, @isnumeric); % 'fill' 'both'
p.addParamValue('Mapview', '+X');
@@ -423,11 +423,11 @@
datatype = checkdatatype(ERP);
if strcmpi(datatype, 'ERP')
- kktime = 1000;
- srate = ERP.srate;
+ kktime = 1000;
+ srate = ERP.srate;
else
- kktime = 1;
- srate = ERP.pnts/ERP.xmax;
+ kktime = 1;
+ srate = ERP.pnts/ERP.xmax;
end
%
@@ -436,32 +436,32 @@
serror = 0;
chanlocfile = p.Results.Chanlocfile;
if isempty(chanlocfile)
- if isfield(ERP.chanlocs, 'theta')
- [ERP, serror] = borrowchanloc(ERP);
- else
- msgboxText = 'No channel location found.';
- error(msgboxText);
- end
+ if isfield(ERP.chanlocs, 'theta')
+ [ERP, serror] = borrowchanloc(ERP);
+ else
+ msgboxText = 'No channel location found.';
+ error(msgboxText);
+ end
else
- [ERP, serror] = borrowchanloc(ERP, chanlocfile);
+ [ERP, serror] = borrowchanloc(ERP, chanlocfile);
end
if serror~=0
- msgboxText = 'ERPLAB says: pop_scalplot could not load channel locations info.';
- error(msgboxText);
+ msgboxText = 'ERPLAB says: pop_scalplot could not load channel locations info.';
+ error(msgboxText);
end
if length(latencyArray)>ERP.pnts
- msgboxText = 'ERPLAB says: latency array cannot be longer than number of points';
- error(msgboxText)
+ msgboxText = 'ERPLAB says: latency array cannot be longer than number of points';
+ error(msgboxText)
end
if max(binArray)>ERP.nbin
- msgboxText = ['Bin(s) %g do(es) not exist within this erpset.\n'...
- 'Please, check your bin list'];
- error(sprintf(msgboxText, chanArray(chanArray>ERP.nchan)));
+ msgboxText = ['Bin(s) %g do(es) not exist within this erpset.\n'...
+ 'Please, check your bin list'];
+ error(sprintf(msgboxText, chanArray(chanArray>ERP.nchan)));
end
if min(binArray)<1
- msgboxText = ['Invalid bin indexing.\n'...
- 'Bin index(ices) must be positive integer(s) but zero.'];
- error(sprintf(msgboxText, ERP.erpname));
+ msgboxText = ['Invalid bin indexing.\n'...
+ 'Bin index(ices) must be positive integer(s) but zero.'];
+ error(sprintf(msgboxText, ERP.erpname));
end
measurestr = p.Results.Value;
@@ -477,34 +477,34 @@
vname = p.Results.VideoIntro;
if strcmpi(colorbari,'on')
- clrbar = 1;
+ clrbar = 1;
else
- clrbar = 0;
+ clrbar = 0;
end
if strcmpi(ismoviexx,'on')
- ismoviex = 1;
- if strcmpi(p.Results.AdjustFirstFrame,'on')
- %ismoviex = 2;
- adj1frame = 1;
- else
- %ismoviex = 1;
- adj1frame = 0;
- end
-
- [pth, fn, ext] = fileparts(fullgifname);
- if strcmpi(ext,'.gif')
- movtype = 'gif';
- elseif strcmpi(ext,'.mat')
- movtype = 'mat';
- elseif strcmpi(ext,'.avi')
- movtype = 'avi';
- else
- error('invalid file format')
- end
-else
- ismoviex = 0;
- movtype = '';
+ ismoviex = 1;
+ if strcmpi(p.Results.AdjustFirstFrame,'on')
+ %ismoviex = 2;
+ adj1frame = 1;
+ else
+ %ismoviex = 1;
adj1frame = 0;
+ end
+
+ [pth, fn, ext] = fileparts(fullgifname);
+ if strcmpi(ext,'.gif')
+ movtype = 'gif';
+ elseif strcmpi(ext,'.mat')
+ movtype = 'mat';
+ elseif strcmpi(ext,'.avi')
+ movtype = 'avi';
+ else
+ error('invalid file format')
+ end
+else
+ ismoviex = 0;
+ movtype = '';
+ adj1frame = 0;
end
elestyle = p.Results.Electrodes;
@@ -524,9 +524,9 @@
fontnamel = p.Results.FontName;
if strcmpi(p.Results.Maximize,'on')
- ismaxim = 1;
+ ismaxim = 1;
else
- ismaxim = 0;
+ ismaxim = 0;
end
legstr = p.Results.Legend;
@@ -535,58 +535,58 @@
[binleg, bindesc, vtype, vlatency] = deal(bb{:});
if isempty(ERP.splinefile) && isempty(splinefile) && strcmpi(mtype, '3d')
- error('ERPLAB says: no spline file info was found.')
+ error('ERPLAB says: no spline file info was found.')
end
indxh = find(latencyArray>ERP.xmax*kktime,1);
if ~isempty(indxh)
- msgboxText = ['Latency of ' num2str(latencyArray(indxh)) ' is greater than ERP.xmax = ' num2str(ERP.xmax*kktime) ' msec!'];
- error(msgboxText);
+ msgboxText = ['Latency of ' num2str(latencyArray(indxh)) ' is greater than ERP.xmax = ' num2str(ERP.xmax*kktime) ' msec!'];
+ error(msgboxText);
end
indxl = find(latencyArray> Plot ERP map by Bins x latency'],...
- 'NumberTitle','on', 'Tag','Scalp_figure');erplab_figtoolbar(hsig, mtype);
+ hsig = figure('Position',pos1, 'Name',['<< ' fnamet ' >> Plot ERP map by Bins x latency'],...
+ 'NumberTitle','on', 'Tag','Scalp_figure');
else % FFT
- hsig = figure('Position',pos1, 'Name',['<< ' fnamet ' >> Plot ERP map by Bins x frequency'],...
- 'NumberTitle','on', 'Tag','Scalp_figure');erplab_figtoolbar(hsig, mtype);
+ hsig = figure('Position',pos1, 'Name',['<< ' fnamet ' >> Plot ERP map by Bins x frequency'],...
+ 'NumberTitle','on', 'Tag','Scalp_figure');
end
-
- if ~isempty(posfig)
- set(hsig, 'Position', posfig)
- end
- nadj = 1;
- if ismaxim == 1;
- maximize(hsig)
+ else
+ if strcmpi(datatype, 'ERP')
+ hsig = figure('Position',pos1, 'Name',['<< ' fnamet ' >> Plot ERP map by Bins x latency'],...
+ 'NumberTitle','on', 'Tag','Scalp_figure');erplab_figtoolbar(hsig, mtype);
+ else % FFT
+ hsig = figure('Position',pos1, 'Name',['<< ' fnamet ' >> Plot ERP map by Bins x frequency'],...
+ 'NumberTitle','on', 'Tag','Scalp_figure');erplab_figtoolbar(hsig, mtype);
end
+ end
+ if ~isempty(posfig)
+ set(hsig, 'Position', posfig)
+ end
+ nadj = 1;
+ if ismaxim == 1;
+ maximize(hsig)
+ end
else
- secondframe = 1;
- fra = 1;
- if adj1frame==1 % adjust first frame size
- nadj = 2;
- else
- nadj = 1;
- end
-
- hsig = figure('Position',pos2, 'Name',['<< Frame ' num2str(fra) ' >>'],...
- 'NumberTitle','off', 'Tag','Scalp_figure');
- if ~isempty(posfig)
- set(hsig, 'Position', posfig)
- end
+ secondframe = 1;
+ fra = 1;
+ if adj1frame==1 % adjust first frame size
+ nadj = 2;
+ else
+ nadj = 1;
+ end
+
+ hsig = figure('Position',pos2, 'Name',['<< Frame ' num2str(fra) ' >>'],...
+ 'NumberTitle','off', 'Tag','Scalp_figure');
+ if ~isempty(posfig)
+ set(hsig, 'Position', posfig)
+ end
end
set(hsig,'Color', [1 1 1])
% set(hsig, 'Renderer', 'painters');
@@ -689,9 +703,9 @@
clrmap = cmap; % cmap is an m-by-3 matrix of real numbers between 0.0 and 1.0.
end
if ischar(maplimit)
- clrbarcustom = 0; %
+ clrbarcustom = 0; %
else
- clrbarcustom = 1; % for plotting just 1 colorbar when custom scale is specified
+ clrbarcustom = 1; % for plotting just 1 colorbar when custom scale is specified
end
%
@@ -700,307 +714,307 @@
iadj = 1;
continueplot = 1;
while iadj<=nadj && continueplot
- ksub = 1;
- for ilat =1:nlat
- if ismoviex>0 && fra>secondframe
- %disp('creando figura')
- hsig = figure('Position',pos2, 'Name',['<< Frame ' num2str(fra) ' >>'],...
- 'NumberTitle','off', 'Tag','Scalp_figure');
- set(hsig,'Color', [1 1 1])
- if ~isempty(posfig)
- set(hsig, 'Position', posfig)
- end
- %set(hsig, 'Renderer', 'painters');
+ ksub = 1;
+ for ilat =1:nlat
+ if ismoviex>0 && fra>secondframe
+ %disp('creando figura')
+ hsig = figure('Position',pos2, 'Name',['<< Frame ' num2str(fra) ' >>'],...
+ 'NumberTitle','off', 'Tag','Scalp_figure');
+ set(hsig,'Color', [1 1 1])
+ if ~isempty(posfig)
+ set(hsig, 'Position', posfig)
+ end
+ %set(hsig, 'Renderer', 'painters');
+ end
+ for ibin=1:nbin
+ if ismoviex>0
+ axes('position',[0.05 0.05+hi*(nbin-ibin) 0.9 hi])
+ else
+ axes('position',[0.05+wi*(ilat-1) 0.05+hi*(nbin-ibin) wi hi])
+ end
+ if nlat>=1 && ~strcmp(measurestr, 'insta') && ~strcmp(measurestr, 'instalapla')
+ latetitle = [num2str(latencyArray(ilat,1)) '-' num2str(latencyArray(ilat,2))];
+ else
+ latetitle = num2str(latencyArray(ilat));
+ end
+ if ~isnumeric(baseline)
+ if ismember_bc2(baseline, {'pre' 'post' 'all' 'none'})
+ for c=1:ERP.nchan
+ blv = blvalue(ERP, c, binArray(ibin), baseline);
+ datap(c,:) = ERP.bindata(c,:,binArray(ibin)) - blv;
+ end
+ else
+ error(['ERPLAB says: error at pop_scalplot(). Invalid option: ' baselin])
end
- for ibin=1:nbin
- if ismoviex>0
- axes('position',[0.05 0.05+hi*(nbin-ibin) 0.9 hi])
- else
- axes('position',[0.05+wi*(ilat-1) 0.05+hi*(nbin-ibin) wi hi])
- end
- if nlat>=1 && ~strcmp(measurestr, 'insta') && ~strcmp(measurestr, 'instalapla')
- latetitle = [num2str(latencyArray(ilat,1)) '-' num2str(latencyArray(ilat,2))];
- else
- latetitle = num2str(latencyArray(ilat));
- end
- if ~isnumeric(baseline)
- if ismember_bc2(baseline, {'pre' 'post' 'all' 'none'})
- for c=1:ERP.nchan
- blv = blvalue(ERP, c, binArray(ibin), baseline);
- datap(c,:) = ERP.bindata(c,:,binArray(ibin)) - blv;
- end
- else
- error(['ERPLAB says: error at pop_scalplot(). Invalid option: ' baselin])
- end
- else
- if length(baseline)==2
- for c=1:ERP.nchan
- blv = blvalue(ERP, c, binArray(ibin), baseline);
- datap(c,:) = ERP.bindata(c,:,binArray(ibin)) - blv;
- end
- else
- error(['ERPLAB says: error at pop_scalplot(). Invalid option: ' num2str(baseline)])
- end
- end
-
- %
- % Measurement setting
- %
- switch measurestr
- case 'insta'
- data2plot = datap(:,latArray(ilat));% ERP.bindata(:,latArray(ilat),binArray(ibin));
- case 'mean'
- data2plot = mean(datap(:,latArray(ilat,1):latArray(ilat,2)), 2);
- case 'rms'
- data2plot = sqrt(mean(datap(:,latArray(ilat,1):latArray(ilat,2)).^2, 2));
- case {'area','areat','areap','arean','ninteg'}
- data2plot = geterpvalues(ERP, [latArray(ilat,1) latArray(ilat,2)],...
- binArray(ibin), 1:ERP.nchan, measurestr, baseline, 1)';
- case 'instalapla'
- data2plot = del2map( datap(:,latArray(ilat)), ERP.chanlocs);
- case 'meanlapla'
- data2plot = mean(datap(:,latArray(ilat,1):latArray(ilat,2)), 2);
- data2plot = del2map(data2plot, ERP.chanlocs);
- end
- if ischar(maplimit)
- if strcmpi(maplimit,'auto') && ilat==1
- maplimit = [min(data2plot) max(data2plot)];
- end
- end
-
- %
- % Legend
- %
- titulo = titlemaker(ERP, binleg, bindesc, vtype, vlatency, binArray, measurestr, latetitle, ibin);
-
- %
- % Plot head(s)
- %
- % try
- if strcmpi(mtype, '3d')
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % Plot 3D scalp map, at current latency, current bin %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- if strcmpi(elestyle, 'off')
- auxelestyle = 'off';
- elclbls = 0;
- else
- auxelestyle = 'on';
- switch elestyle
- case 'on'
- elclbls = 0;
- case {'numbers','ptsnumbers'}
- elclbls = 1;
- case {'labels','ptslabels'}
- elclbls = 2;
- otherwise
- elclbls = 0;
- end
-
- end
-
- % colorbar and plot
- cb3d = 0;
- %
- % Plot ERP on a 3D head
- %
- [HeadAxes(ksub), ColorbarHandle] = headplot_erp(data2plot, splinefile, 'electrodes', auxelestyle, 'view', mview,...
- 'maplimits', maplimit, 'cbar', cb3d,'colormap', clrmap, 'title', titulo, 'electrodes3d', elec3D, 'labels', elclbls); %Plots the 3d scalp plot.
-
-
- if clrbar==1 && clrbarcustom==1
- %colorbar('hide');
- erpsinglecolorbar(HeadAxes, ColorbarHandle, nlat)
- drawnow
- elseif clrbar==0
- set(ColorbarHandle, 'Visible','off')
- set(get(ColorbarHandle, 'Children'), 'Visible','off')
- drawnow
- end
-
- %
- % Title
- %
- httle = get(gca,'Title');
- set(httle,'FontSize', fontsizel)
- set(httle,'FontName', fontnamel)
- %pttle = get(httle,'position');
- %set(httle,'position',[pttle(1) pttle(2) pttle(3)]*0.9)
-
- %
- % Copy object when click on axes
- %
- if ismoviex==0
- axcopy_modified(gca)
- end
- elseif strcmpi(mtype, '2d')
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
- % Plot 2D scalp map, at current latency, current bin %
- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
-
- %
- % Plot ERP on a 2D map
- %
- mapnumcontour = 12;
- mheadrad = 0.5;
- topoplot( data2plot, ERP.chanlocs,...
- 'style', smapstyle, 'plotrad',mplotrad, 'headrad', mheadrad,'emarker', {'.','k',[],1},...
- 'numcontour', mapnumcontour, 'maplimits', maplimit, 'colormap', clrmap,'electrodes', elestyle, 'nosedir', mapview);
-
- HeadAxes(ksub) = gca;
-
- % Color Bar
- if clrbar==0 || (clrbar==1 && clrbarcustom==1)
- ColorbarHandle = [];
- else
- clrpos = 'EastOutSide';
- ColorbarHandle = colorbar('location', clrpos);
- %set(ColorbarHandle,'Visible','off')
- end
-
- %
- % Axes Title (Position)
- %
- httle = title(titulo , 'FontSize', fontsizel, 'FontName', fontnamel); % Two line title
- %set(httle,'Position', [-0.004 0.55 4]) % above
- set(httle,'Position', [-0.004 -0.58 4]) % below
- %set(httle,'Position', [-0.588 -0.004 4], 'rotation',90) % vertical left
- %set(httle,'Position', [0.588 -0.004 4], 'rotation',90) % vertical right
- %set(httle,'Position', [-0.42 0.4 4], 'rotation',45) % 45 deg
-
- if nbin>1 && nlat<=2 % shrink a little bit the haeds for minimizing the overlap with the title
- PP = get(HeadAxes(ksub), 'Position');
- set(HeadAxes(ksub), 'Position', [PP(1) PP(2) PP(3) PP(4)*0.9])
- end
- if ismoviex==0
- axcopy_modified(gca)
- end
- else
- close(hsig)
- msgboxText = 'pop_scalplot cannot plot a map in %s.';
- title_msg = 'ERPLAB: pop_scalplot() error:';
- errorfound(sprintf(msgboxText, upper(mtype)), title_msg);
- return
- end
- % catch
- % close(hsig)
- % serr = lasterror;
- % msgboxText = ['Something went wrong: \n\n'...
- % serr.message '\n'];
- % title_msg = 'ERPLAB: pop_scalplot() error:';
- % errorfound(sprintf(msgboxText), title_msg);
- % return
- % end
-
- ksub = ksub + 1;
+ else
+ if length(baseline)==2
+ for c=1:ERP.nchan
+ blv = blvalue(ERP, c, binArray(ibin), baseline);
+ datap(c,:) = ERP.bindata(c,:,binArray(ibin)) - blv;
+ end
+ else
+ error(['ERPLAB says: error at pop_scalplot(). Invalid option: ' num2str(baseline)])
+ end
+ end
+
+ %
+ % Measurement setting
+ %
+ switch measurestr
+ case 'insta'
+ data2plot = datap(:,latArray(ilat));% ERP.bindata(:,latArray(ilat),binArray(ibin));
+ case 'mean'
+ data2plot = mean(datap(:,latArray(ilat,1):latArray(ilat,2)), 2);
+ case 'rms'
+ data2plot = sqrt(mean(datap(:,latArray(ilat,1):latArray(ilat,2)).^2, 2));
+ case {'area','areat','areap','arean','ninteg'}
+ data2plot = geterpvalues(ERP, [latArray(ilat,1) latArray(ilat,2)],...
+ binArray(ibin), 1:ERP.nchan, measurestr, baseline, 1)';
+ case 'instalapla'
+ data2plot = del2map( datap(:,latArray(ilat)), ERP.chanlocs);
+ case 'meanlapla'
+ data2plot = mean(datap(:,latArray(ilat,1):latArray(ilat,2)), 2);
+ data2plot = del2map(data2plot, ERP.chanlocs);
+ end
+ if ischar(maplimit)
+ if strcmpi(maplimit,'auto') && ilat==1
+ maplimit = [min(data2plot) max(data2plot)];
+ end
+ end
+
+ %
+ % Legend
+ %
+ titulo = titlemaker(ERP, binleg, bindesc, vtype, vlatency, binArray, measurestr, latetitle, ibin);
+
+ %
+ % Plot head(s)
+ %
+ % try
+ if strcmpi(mtype, '3d')
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Plot 3D scalp map, at current latency, current bin %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ if strcmpi(elestyle, 'off')
+ auxelestyle = 'off';
+ elclbls = 0;
+ else
+ auxelestyle = 'on';
+ switch elestyle
+ case 'on'
+ elclbls = 0;
+ case {'numbers','ptsnumbers'}
+ elclbls = 1;
+ case {'labels','ptslabels'}
+ elclbls = 2;
+ otherwise
+ elclbls = 0;
+ end
+
end
- %set(gcf,'Color', [1 1 1])
- drawnow
+ % colorbar and plot
+ cb3d = 0;
%
- % Stack for AGIF
+ % Plot ERP on a 3D head
%
- if ismoviex>0
- if clrbar==1 && clrbarcustom==1 && strcmpi(mtype, '2d')
- %
- % When single colorbar is requiered (custom scale)
- %
- try
- if isempty(ColorbarHandle)
- ColorbarHandle = colorbar('Visible', 'off');
- end
- erpsinglecolorbar(HeadAxes(end), ColorbarHandle, 1)
- catch
- end
- drawnow
- end
- if adj1frame==1 && iadj==1 % agif --> Adjust frame size
- BackERPLABcolor = [1 0.9 0.3]; % yellow
- question = 'Press OK when ready to continue.';
- titlet = 'Adjusting frame size';
- oldcolor = get(0,'DefaultUicontrolBackgroundColor');
- set(0,'DefaultUicontrolBackgroundColor',BackERPLABcolor)
- button = questdlg(question, titlet,'OK', 'OK');
- set(0,'DefaultUicontrolBackgroundColor', oldcolor)
-
- if ~strcmpi(button,'OK')
- disp('User selected Cancel')
- continueplot = 0;
- ismoviex = 0;
- else
- findplot = findobj('Tag','Scalp_figure');
- if ~isempty(findplot)
- lastfig = figure(findplot(1));
- posfig = get(lastfig,'Position');
- plotset = evalin('base', 'plotset');
- plotset.pscalp.posfig = posfig;
- assignin('base','plotset', plotset);
- end
- %fra = fra + 1;
- end
- secondframe = 0;
- close(hsig)
- HeadAxes = [];
- break
- end
- if strcmpi(movtype,'gif') % gif
- if fra==1
- f = getframe(hsig);
- pause(0.01)
- [im,map] = rgb2ind(f.cdata,256,'nodither');
- pause(0.01)
- im(1,1,1,nlat) = 0;
- end
-
- fra = fra + 1;
- f = getframe(hsig);
- pause(0.01)
- im(:,:,1,fra) = rgb2ind(f.cdata, map,'nodither');
- pause(0.02)
- close(hsig)
- else % movie
- if fra==1
- % Preallocate movie structure.
- im(1:nlat) = struct('cdata', [],...
- 'colormap', []);
- pause(0.01)
- im(1) = getframe(hsig);
- pause(0.01)
- end
-
- fra = fra + 1;
- im(fra) = getframe(hsig);
- pause(0.01)
- close(hsig)
- end
- HeadAxes = [];
+ [HeadAxes(ksub), ColorbarHandle] = headplot_erp(data2plot, splinefile, 'electrodes', auxelestyle, 'view', mview,...
+ 'maplimits', maplimit, 'cbar', cb3d,'colormap', clrmap, 'title', titulo, 'electrodes3d', elec3D, 'labels', elclbls); %Plots the 3d scalp plot.
+
+
+ if clrbar==1 && clrbarcustom==1
+ %colorbar('hide');
+ erpsinglecolorbar(HeadAxes, ColorbarHandle, nlat)
+ drawnow
+ elseif clrbar==0
+ set(ColorbarHandle, 'Visible','off')
+ set(get(ColorbarHandle, 'Children'), 'Visible','off')
+ drawnow
end
- %ksub = ksub + 1;
- end
- iadj = iadj+1;
- if clrbar==1 && clrbarcustom==1 && ismoviex==0 && strcmpi(mtype, '2d')
+ %
+ % Title
+ %
+ httle = get(gca,'Title');
+ set(httle,'FontSize', fontsizel)
+ set(httle,'FontName', fontnamel)
+ %pttle = get(httle,'position');
+ %set(httle,'position',[pttle(1) pttle(2) pttle(3)]*0.9)
+
+ %
+ % Copy object when click on axes
+ %
+ if ismoviex==0
+ axcopy_modified(gca)
+ end
+ elseif strcmpi(mtype, '2d')
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Plot 2D scalp map, at current latency, current bin %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ %
+ % Plot ERP on a 2D map
+ %
+ mapnumcontour = 12;
+ mheadrad = 0.5;
+ topoplot( data2plot, ERP.chanlocs,...
+ 'style', smapstyle, 'plotrad',mplotrad, 'headrad', mheadrad,'emarker', {'.','k',[],1},...
+ 'numcontour', mapnumcontour, 'maplimits', maplimit, 'colormap', clrmap,'electrodes', elestyle, 'nosedir', mapview);
+
+ HeadAxes(ksub) = gca;
+
+ % Color Bar
+ if clrbar==0 || (clrbar==1 && clrbarcustom==1)
+ ColorbarHandle = [];
+ else
+ clrpos = 'EastOutSide';
+ ColorbarHandle = colorbar('location', clrpos);
+ %set(ColorbarHandle,'Visible','off')
+ end
+
+ %
+ % Axes Title (Position)
+ %
+ httle = title(titulo , 'FontSize', fontsizel, 'FontName', fontnamel); % Two line title
+ %set(httle,'Position', [-0.004 0.55 4]) % above
+ set(httle,'Position', [-0.004 -0.58 4]) % below
+ %set(httle,'Position', [-0.588 -0.004 4], 'rotation',90) % vertical left
+ %set(httle,'Position', [0.588 -0.004 4], 'rotation',90) % vertical right
+ %set(httle,'Position', [-0.42 0.4 4], 'rotation',45) % 45 deg
+
+ if nbin>1 && nlat<=2 % shrink a little bit the haeds for minimizing the overlap with the title
+ PP = get(HeadAxes(ksub), 'Position');
+ set(HeadAxes(ksub), 'Position', [PP(1) PP(2) PP(3) PP(4)*0.9])
+ end
+ if ismoviex==0
+ axcopy_modified(gca)
+ end
+ else
+ close(hsig)
+ msgboxText = 'pop_scalplot cannot plot a map in %s.';
+ title_msg = 'ERPLAB: pop_scalplot() error:';
+ errorfound(sprintf(msgboxText, upper(mtype)), title_msg);
+ return
+ end
+ % catch
+ % close(hsig)
+ % serr = lasterror;
+ % msgboxText = ['Something went wrong: \n\n'...
+ % serr.message '\n'];
+ % title_msg = 'ERPLAB: pop_scalplot() error:';
+ % errorfound(sprintf(msgboxText), title_msg);
+ % return
+ % end
+
+ ksub = ksub + 1;
+ end
+ %set(gcf,'Color', [1 1 1])
+ drawnow
+
+ %
+ % Stack for AGIF
+ %
+ if ismoviex>0
+ if clrbar==1 && clrbarcustom==1 && strcmpi(mtype, '2d')
%
% When single colorbar is requiered (custom scale)
%
- if isempty(ColorbarHandle)
+ try
+ if isempty(ColorbarHandle)
ColorbarHandle = colorbar('Visible', 'off');
+ end
+ erpsinglecolorbar(HeadAxes(end), ColorbarHandle, 1)
+ catch
end
- erpsinglecolorbar(HeadAxes, ColorbarHandle, nlat)
drawnow
+ end
+ if adj1frame==1 && iadj==1 % agif --> Adjust frame size
+ BackERPLABcolor = [1 0.9 0.3]; % yellow
+ question = 'Press OK when ready to continue.';
+ titlet = 'Adjusting frame size';
+ oldcolor = get(0,'DefaultUicontrolBackgroundColor');
+ set(0,'DefaultUicontrolBackgroundColor',BackERPLABcolor)
+ button = questdlg(question, titlet,'OK', 'OK');
+ set(0,'DefaultUicontrolBackgroundColor', oldcolor)
+
+ if ~strcmpi(button,'OK')
+ disp('User selected Cancel')
+ continueplot = 0;
+ ismoviex = 0;
+ else
+ findplot = findobj('Tag','Scalp_figure');
+ if ~isempty(findplot)
+ lastfig = figure(findplot(1));
+ posfig = get(lastfig,'Position');
+ plotset = evalin('base', 'plotset');
+ plotset.pscalp.posfig = posfig;
+ assignin('base','plotset', plotset);
+ end
+ %fra = fra + 1;
+ end
+ secondframe = 0;
+ close(hsig)
+ HeadAxes = [];
+ break
+ end
+ if strcmpi(movtype,'gif') % gif
+ if fra==1
+ f = getframe(hsig);
+ pause(0.01)
+ [im,map] = rgb2ind(f.cdata,256,'nodither');
+ pause(0.01)
+ im(1,1,1,nlat) = 0;
+ end
+
+ fra = fra + 1;
+ f = getframe(hsig);
+ pause(0.01)
+ im(:,:,1,fra) = rgb2ind(f.cdata, map,'nodither');
+ pause(0.02)
+ close(hsig)
+ else % movie
+ if fra==1
+ % Preallocate movie structure.
+ im(1:nlat) = struct('cdata', [],...
+ 'colormap', []);
+ pause(0.01)
+ im(1) = getframe(hsig);
+ pause(0.01)
+ end
+
+ fra = fra + 1;
+ im(fra) = getframe(hsig);
+ pause(0.01)
+ close(hsig)
+ end
+ HeadAxes = [];
end
+ %ksub = ksub + 1;
+ end
+ iadj = iadj+1;
+ if clrbar==1 && clrbarcustom==1 && ismoviex==0 && strcmpi(mtype, '2d')
+
+ %
+ % When single colorbar is requiered (custom scale)
+ %
+ if isempty(ColorbarHandle)
+ ColorbarHandle = colorbar('Visible', 'off');
+ end
+ erpsinglecolorbar(HeadAxes, ColorbarHandle, nlat)
+ drawnow
+ end
end
assignin('base','scalpicture', hsig);
binArraystr = vect2colon(binArray);
if size(latencyArray,1)==1
- latencystr = vect2colon(latencyArray);
+ latencystr = vect2colon(latencyArray);
else
- latencystr = mat2colon(latencyArray);
+ latencystr = mat2colon(latencyArray);
end
fprintf('Mapped Channels: ');
for j=1:ERP.nchan
- fprintf('%s - ', char(ERP.chanlocs(j).labels));
+ fprintf('%s - ', char(ERP.chanlocs(j).labels));
end
fprintf('\n');
@@ -1008,18 +1022,18 @@
% Create final Animation
%
if ismoviex>0
- if strcmpi(movtype,'gif')
- pause(0.1)
- imwrite(im, map, fullgifname,'DelayTime',1/FPS,'LoopCount',inf);% save animated gif file
- elseif strcmpi(movtype,'mat')
- pause(0.1)
- save(fullgifname, 'im', '-mat'); % save the MATLAB movie to a file
- elseif strcmpi(movtype,'avi')
- pause(0.1)
- movie2avi(im, fullgifname, 'compression', compression, 'fps', FPS, 'quality', quality, 'videoname', vname); % Create AVI file.
- else
- error('invalid file format')
- end
+ if strcmpi(movtype,'gif')
+ pause(0.1)
+ imwrite(im, map, fullgifname,'DelayTime',1/FPS,'LoopCount',inf);% save animated gif file
+ elseif strcmpi(movtype,'mat')
+ pause(0.1)
+ save(fullgifname, 'im', '-mat'); % save the MATLAB movie to a file
+ elseif strcmpi(movtype,'avi')
+ pause(0.1)
+ movie2avi(im, fullgifname, 'compression', compression, 'fps', FPS, 'quality', quality, 'videoname', vname); % Create AVI file.
+ else
+ error('invalid file format')
+ end
end
%
@@ -1027,55 +1041,55 @@
%
skipfields = {'ERP','binArray','latencyArray','History'};
if ismoviex==0
- skipfields = [skipfields {'FPS','Filename','Quality','Compression','VideoIntro'}];
+ skipfields = [skipfields {'FPS','Filename','Quality','Compression','VideoIntro'}];
end
if strcmpi(mtype, '2d')
- skipfields = [skipfields {'Electrodes3d'}];
+ skipfields = [skipfields {'Electrodes3d'}];
end
fn = fieldnames(p.Results);
erpcom = sprintf( '%s = pop_scalplot( %s, %s, %s ', inputname(1), inputname(1), binArraystr, latencystr);
for q=1:length(fn)
- fn2com = fn{q}; % inputname
- if ~ismember_bc2(fn2com, skipfields)
- fn2res = p.Results.(fn2com); % input value
- if ~isempty(fn2res)
- if ischar(fn2res)
- if ~strcmpi(fn2res,'off')
- erpcom = sprintf( '%s, ''%s'', ''%s''', erpcom, fn2com, fn2res);
- end
- elseif iscell(fn2res)
- nn = length(fn2res);
- erpcom = sprintf( '%s, ''%s'', {''%s'' ', erpcom, fn2com, fn2res{1});
- for ff=2:nn
- erpcom = sprintf( '%s, ''%s'' ', erpcom, fn2res{ff});
- end
- erpcom = sprintf( '%s}', erpcom);
- else
- if ~ismember_bc2(fn2com,{'Maplimit','Mapview'})
- erpcom = sprintf( '%s, ''%s'', %s', erpcom, fn2com, vect2colon(fn2res,'Repeat','on'));
- else
- xyscalestr = sprintf('[ %.1f %.1f %s ]', fn2res(1), fn2res(2), vect2colon(fn2res(3:end),'Delimiter','off'));
- erpcom = sprintf( '%s, ''%s'', %s', erpcom, fn2com, xyscalestr);
- end
- end
+ fn2com = fn{q}; % inputname
+ if ~ismember_bc2(fn2com, skipfields)
+ fn2res = p.Results.(fn2com); % input value
+ if ~isempty(fn2res)
+ if ischar(fn2res)
+ if ~strcmpi(fn2res,'off')
+ erpcom = sprintf( '%s, ''%s'', ''%s''', erpcom, fn2com, fn2res);
end
+ elseif iscell(fn2res)
+ nn = length(fn2res);
+ erpcom = sprintf( '%s, ''%s'', {''%s'' ', erpcom, fn2com, fn2res{1});
+ for ff=2:nn
+ erpcom = sprintf( '%s, ''%s'' ', erpcom, fn2res{ff});
+ end
+ erpcom = sprintf( '%s}', erpcom);
+ else
+ if ~ismember_bc2(fn2com,{'Maplimit','Mapview'})
+ erpcom = sprintf( '%s, ''%s'', %s', erpcom, fn2com, vect2colon(fn2res,'Repeat','on'));
+ else
+ xyscalestr = sprintf('[ %.1f %.1f %s ]', fn2res(1), fn2res(2), vect2colon(fn2res(3:end),'Delimiter','off'));
+ erpcom = sprintf( '%s, ''%s'', %s', erpcom, fn2com, xyscalestr);
+ end
+ end
end
+ end
end
erpcom = sprintf( '%s );', erpcom);
% get history from script. ERP
switch shist
- case 1 % from GUI
- displayEquiComERP(erpcom);
- case 2 % from script
- ERP = erphistory(ERP, [], erpcom, 1);
- case 3
- % implicit
- % ERP = erphistory(ERP, [], erpcom, 1);
- % fprintf('%%Equivalent command:\n%s\n\n', erpcom);
- otherwise %off or none
- erpcom = '';
- return
+ case 1 % from GUI
+ displayEquiComERP(erpcom);
+ case 2 % from script
+ ERP = erphistory(ERP, [], erpcom, 1);
+ case 3
+ % implicit
+ % ERP = erphistory(ERP, [], erpcom, 1);
+ % fprintf('%%Equivalent command:\n%s\n\n', erpcom);
+ otherwise %off or none
+ erpcom = '';
+ return
end
%
@@ -1088,37 +1102,37 @@
%-----------------base line mean value--------------------------------------------------------------
function blv = blvalue(ERP, chan, bin, bl)
if isfield(ERP, 'datatype')
- datatype = ERP.datatype;
+ datatype = ERP.datatype;
else
- datatype = 'ERP';
+ datatype = 'ERP';
end
if strcmpi(datatype, 'ERP')
- kktime = 1000;
- srate = ERP.srate;
+ kktime = 1000;
+ srate = ERP.srate;
else
- kktime = 1;
- srate = ERP.pnts/ERP.xmax;
+ kktime = 1;
+ srate = ERP.pnts/ERP.xmax;
end
if isnumeric(bl)
- toffsa = abs(round(ERP.xmin*srate))+1;
- baseline = round((bl/kktime)*srate) + toffsa; %msec to samples
- p1 = baseline(1);
- p2 = baseline(2);
+ toffsa = abs(round(ERP.xmin*srate))+1;
+ baseline = round((bl/kktime)*srate) + toffsa; %msec to samples
+ p1 = baseline(1);
+ p2 = baseline(2);
else
- switch bl
- case 'none'
- blv = 0;
- return
- case 'pre'
- p1=1;
- p2 = find(ERP.times==0); % zero-time locked sample
- case 'post'
- p1 = find(ERP.times==0); % zero-time locked sample
- p2 = ERP.pnts;
- case 'all'
- p1 = 1;
- p2 = ERP.pnts;
- end
+ switch bl
+ case 'none'
+ blv = 0;
+ return
+ case 'pre'
+ p1=1;
+ p2 = find(ERP.times==0); % zero-time locked sample
+ case 'post'
+ p1 = find(ERP.times==0); % zero-time locked sample
+ p2 = ERP.pnts;
+ case 'all'
+ p1 = 1;
+ p2 = ERP.pnts;
+ end
end
blv = mean(ERP.bindata(chan,p1:p2, bin));
@@ -1127,9 +1141,9 @@
%----------------- legend --------------------------------------------------------------
function titulo = titlemaker(ERP, binleg, bindesc, vtype, vlatency, binArray, measurestr, latetitle, ibin)
if isfield(ERP, 'datatype')
- datatype = ERP.datatype;
+ datatype = ERP.datatype;
else
- datatype = 'ERP';
+ datatype = 'ERP';
end
strbinnum = ['Bin' num2str(binArray(ibin))];
@@ -1140,12 +1154,12 @@
strvtype = ['''' measurestr ''''];
strcomma2 = ',';
if strcmpi(datatype, 'ERP')
- strvlate = [latetitle ' ms'];
+ strvlate = [latetitle ' ms'];
else %FFT
- strvlate = [latetitle ' Hz'];
+ strvlate = [latetitle ' Hz'];
end
t = [strbinnum*binleg strequal*binleg*bindesc strbindes*bindesc strcomma1*(vtype&(binleg|bindesc))...
- strvtype*vtype strcomma2*(vlatency&(binleg|bindesc|vtype)) strvlate*vlatency];
+ strvtype*vtype strcomma2*(vlatency&(binleg|bindesc|vtype)) strvlate*vlatency];
t = nonzeros(t)';
titulo = strtrim(char(t));
From f25af65b933dbbee36cfe4d273535eacd5e83eaa Mon Sep 17 00:00:00 2001
From: guanghuizhang0328 <64248281+guanghuizhang0328@users.noreply.github.com>
Date: Fri, 7 Apr 2023 15:29:01 -0700
Subject: [PATCH 02/33] second commit
added large STUDIO folder
---
Studio V1/EStudio.m | 378 ++
.../Functions/EEGLAB/CSD/eeg_checkchanlocs.m | 276 ++
Studio V1/Functions/EEGLAB/CSD/eeg_checkset.m | 1414 ++++++++
Studio V1/Functions/EEGLAB/CSD/eeg_emptyset.m | 104 +
Studio V1/Functions/EEGLAB/CSD/eeg_eval.m | 164 +
Studio V1/Functions/EEGLAB/CSD/eeg_retrieve.m | 96 +
Studio V1/Functions/EEGLAB/CSD/eeg_store.m | 176 +
Studio V1/Functions/EEGLAB/CSD/eegobj.m | 14 +
.../Functions/EEGLAB/CSD/pop_writelocs.m | 190 +
Studio V1/Functions/EEGLAB/CSD/questdlg2.m | 102 +
.../Functions/EEGLAB/Scalp/adjustcylinder2.m | 60 +
Studio V1/Functions/EEGLAB/Scalp/cbar.m | 244 ++
.../Functions/EEGLAB/Scalp/convertlocs.m | 240 ++
Studio V1/Functions/EEGLAB/Scalp/error_bc.m | 2 +
.../Functions/EEGLAB/Scalp/finputcheck.m | 262 ++
Studio V1/Functions/EEGLAB/Scalp/headplot.m | 894 +++++
Studio V1/Functions/EEGLAB/Scalp/icadefs.m | 232 ++
.../Functions/EEGLAB/Scalp/intersect_bc.m | 56 +
Studio V1/Functions/EEGLAB/Scalp/loadtxt.m | 177 +
.../Functions/EEGLAB/Scalp/pop_chanedit.m | 1040 ++++++
Studio V1/Functions/EEGLAB/Scalp/readlocs.m | 710 ++++
Studio V1/Functions/EEGLAB/Scalp/setdiff_bc.m | 56 +
Studio V1/Functions/EEGLAB/Scalp/sph2topo.m | 105 +
Studio V1/Functions/EEGLAB/Scalp/topoplot.m | 1728 ++++++++++
.../EEGLAB/Scalp/traditionaldipfit.m | 90 +
Studio V1/Functions/EEGLAB/Scalp/union_bc.m | 56 +
Studio V1/Functions/EEGLAB/Scalp/unique_bc.m | 56 +
.../supportfiles/EEGLAB_compile_splash.jpg | Bin 0 -> 220672 bytes
.../supportfiles/Standard-10-20-Cap81.ced | 82 +
.../supportfiles/Standard-10-5-Cap385.sfp | 348 ++
.../Standard-10-5-Cap385_witheog.elp | 357 ++
.../Functions/EEGLAB/supportfiles/chan_file | 21 +
.../EEGLAB/supportfiles/colin27headmesh.mat | Bin 0 -> 31571 bytes
.../EEGLAB/supportfiles/colin27headmesh.xyz | 3 +
.../supportfiles/colin27headmesh_license.txt | 3 +
.../EEGLAB/supportfiles/eeglab1020.ced | 80 +
.../eeglab_run_this_one_on_osx_or_linux | 4 +
.../eeglab_run_this_one_on_windows.bat | 1 +
...modelColin27_5003_Standard-10-5-Cap339.mat | Bin 0 -> 13588366 bytes
.../Functions/EEGLAB/supportfiles/ica_linux | Bin 0 -> 8250291 bytes
.../EEGLAB/supportfiles/mheadnew.elp | 372 ++
.../EEGLAB/supportfiles/mheadnew.mat | Bin 0 -> 365120 bytes
.../EEGLAB/supportfiles/mheadnew.transform | 4 +
.../EEGLAB/supportfiles/mheadnew.xyz | 75 +
.../supportfiles/test_compiled_version.m | 100 +
Studio V1/Functions/ERPLAB/lindetrend.m | 144 +
Studio V1/Functions/ERPLAB/olderpscan.m | 178 +
.../Functions/ERPLAB/save_data_quality.m | 215 ++
.../ERP wave viewer/ERPLAB_ERP_Viewer.m | 407 +++
.../ERP wave viewer/ERP_layoutstringGUI.fig | Bin 0 -> 10453 bytes
.../ERP wave viewer/ERP_layoutstringGUI.m | 251 ++
.../ERP wave viewer/default_amp_ticks.m | 84 +
.../default_amp_ticks_viewer.m | 128 +
.../ERP wave viewer/editlayoutstringGUI.fig | Bin 0 -> 9431 bytes
.../ERP wave viewer/editlayoutstringGUI.m | 161 +
.../ERP Tab/ERP wave viewer/erpAutoYLim.m | 152 +
.../f_ERP_Binchan_waviewer_GUI.m | 881 +++++
.../f_ERP_labelset_waveviewer_GUI.m | 602 ++++
.../f_ERP_lineset_waveviewer_GUI.m | 944 +++++
.../f_ERP_otherset_waveviewer_GUI.m | 844 +++++
.../f_ERP_plotorg_waveviewer_GUI.m | 1797 ++++++++++
.../f_ERP_plotorglayout_waveviewer_GUI.m | 414 +++
.../f_ERP_property_waveviewer_GUI.m | 292 ++
.../f_ERP_timeampscal_waveviewer_GUI.m | 2716 +++++++++++++++
.../ERP wave viewer/f_ERPsets_waviewer_GUI.m | 591 ++++
.../f_adjustbindtabasedtimedefd.m | 177 +
.../f_adjustdata_xyrange_xyticks.m | 41 +
.../f_adjustdata_xyrange_xyticks_overlay.m | 56 +
.../f_check_erpviewerpanelchanges.m | 53 +
.../ERP Tab/ERP wave viewer/f_decimal.m | 38 +
.../ERP Tab/ERP wave viewer/f_erpAutoYLim.m | 238 ++
.../f_erpwave_viewer_update_parameter.m | 770 +++++
.../ERP Tab/ERP wave viewer/f_existvector.m | 50 +
.../ERP wave viewer/f_get_lineset_ERPviewer.m | 80 +
.../ERP Tab/ERP wave viewer/f_geterpdata.m | 222 ++
.../ERP wave viewer/f_geterpschanbin.m | 216 ++
.../f_getrow_columnautowaveplot.m | 49 +
.../ERP wave viewer/f_ploterpserpviewer.m | 1358 ++++++++
.../ERP wave viewer/f_preparms_erpwaviewer.m | 739 ++++
.../ERP wave viewer/f_redrawERP_viewer_test.m | 1820 ++++++++++
.../ERP Tab/ERP wave viewer/f_setdiffstr.m | 26 +
.../neozeroaxesestudioviewer.m | 335 ++
.../ERP wave viewer/pop_plotERPwaviewer.m | 1149 +++++++
.../ERP Tab/ERP wave viewer/v_ERPDAT.m | 110 +
Studio V1/Functions/EStudio/ERP Tab/README.md | 14 +
.../ERP Tab/SignalProcessingToolboxCheck.m | 21 +
.../EStudio/ERP Tab/Tab/ERPLAB_ERP_Tab.m | 144 +
.../EStudio/ERP Tab/check_matlab_version.m | 35 +
.../ERP Tab/createrplabstudioparameters.m | 28 +
Studio V1/Functions/EStudio/ERP Tab/dummy.erp | Bin 0 -> 76622 bytes
.../EStudio/ERP Tab/erplabstudioamnesia.m | 114 +
.../ERP Tab/export2csv_spectranl_analysis.m | 220 ++
.../EStudio/ERP Tab/f_ERP_chckbinandchan.m | 55 +
.../EStudio/ERP Tab/f_ERP_chckerpindex.m | 31 +
.../EStudio/ERP Tab/f_ERP_duplicate.fig | Bin 0 -> 17041 bytes
.../EStudio/ERP Tab/f_ERP_duplicate.m | 361 ++
.../EStudio/ERP Tab/f_ERP_plot_wav.m | 310 ++
.../EStudio/ERP Tab/f_ERPplot_Parameter.m | 218 ++
.../EStudio/ERP Tab/f_baseline_geterpvalues.m | 309 ++
.../EStudio/ERP Tab/f_checkerpsets.m | 249 ++
.../Functions/EStudio/ERP Tab/f_dq_summary.m | 85 +
.../EStudio/ERP Tab/f_erp_remv_Calibrate.m | 53 +
.../EStudio/ERP Tab/f_erpset_geterpvalues.m | 289 ++
.../Functions/EStudio/ERP Tab/f_findstring.m | 43 +
.../EStudio/ERP Tab/f_getFFTfromERP.m | 79 +
.../ERP Tab/f_get_erp_xticklabel_time.m | 178 +
.../EStudio/ERP Tab/f_geterpxticklabel.m | 109 +
.../Functions/EStudio/ERP Tab/f_redrawERP.m | 1027 ++++++
.../EStudio/ERP Tab/f_redrawERP_mt_viewer.m | 1533 +++++++++
.../EStudio/ERP Tab/f_redrawERP_try.m | 942 +++++
.../ERP Tab/f_spectral_analysis_advance.fig | Bin 0 -> 24999 bytes
.../ERP Tab/f_spectral_analysis_advance.m | 814 +++++
.../EStudio/ERP Tab/f_testsyntaxtype.m | 94 +
.../EStudio/ERP Tab/geterplabstudiodef.m | 21 +
.../Functions/EStudio/ERP Tab/mini_viewer.m | 434 +++
.../Functions/EStudio/ERP Tab/ms_to_sample.m | 67 +
.../Functions/EStudio/ERP Tab/redrawERP.m | 769 +++++
.../Functions/EStudio/ERP Tab/sample_to_ms.m | 70 +
.../EStudio/ERP Tab/working_mem_save_load.m | 91 +
.../layout/+uiextras/BoxPanel.m | 144 +
.../layout/+uiextras/CardPanel.m | 92 +
.../layout/+uiextras/Empty.m | 29 +
.../layout/+uiextras/Grid.m | 142 +
.../layout/+uiextras/GridFlex.m | 160 +
.../layout/+uiextras/HBox.m | 113 +
.../layout/+uiextras/HBoxFlex.m | 122 +
.../layout/+uiextras/HButtonBox.m | 45 +
.../layout/+uiextras/Panel.m | 111 +
.../layout/+uiextras/TabPanel.m | 223 ++
.../layout/+uiextras/VBox.m | 113 +
.../layout/+uiextras/VBoxFlex.m | 122 +
.../layout/+uiextras/VButtonBox.m | 45 +
.../layout/+uiextras/get.m | 14 +
.../layout/+uiextras/set.m | 14 +
.../layout/+uiextras/unset.m | 14 +
.../layout/+uix/+mixin/Container.m | 319 ++
.../layout/+uix/+mixin/Flex.m | 70 +
.../layout/+uix/+mixin/Panel.m | 187 +
.../layout/+uix/Box.m | 44 +
.../layout/+uix/BoxPanel.m | 646 ++++
.../layout/+uix/ButtonBox.m | 95 +
.../layout/+uix/CardPanel.m | 59 +
.../layout/+uix/ChildEvent.m | 27 +
.../layout/+uix/ChildObserver.m | 223 ++
.../layout/+uix/Container.m | 8 +
.../layout/+uix/Divider.m | 346 ++
.../layout/+uix/Empty.m | 101 +
.../layout/+uix/FigureData.m | 25 +
.../layout/+uix/FigureObserver.m | 97 +
.../layout/+uix/Grid.m | 316 ++
.../layout/+uix/GridFlex.m | 473 +++
.../layout/+uix/HBox.m | 189 +
.../layout/+uix/HBoxFlex.m | 351 ++
.../layout/+uix/HButtonBox.m | 95 +
.../layout/+uix/Node.m | 93 +
.../layout/+uix/Panel.m | 58 +
.../layout/+uix/PointerManager.m | 152 +
.../+uix/Resources/tab_NoEdge_NotSelected.png | Bin 0 -> 228 bytes
.../+uix/Resources/tab_NoEdge_Selected.png | Bin 0 -> 216 bytes
.../+uix/Resources/tab_NotSelected_NoEdge.png | Bin 0 -> 228 bytes
.../Resources/tab_NotSelected_NotSelected.png | Bin 0 -> 243 bytes
.../Resources/tab_NotSelected_Selected.png | Bin 0 -> 243 bytes
.../+uix/Resources/tab_Selected_NoEdge.png | Bin 0 -> 230 bytes
.../Resources/tab_Selected_NotSelected.png | Bin 0 -> 238 bytes
.../layout/+uix/ScrollingPanel.m | 698 ++++
.../layout/+uix/SelectionData.m | 30 +
.../layout/+uix/TabPanel.m | 946 +++++
.../layout/+uix/Text.m | 545 +++
.../layout/+uix/VBox.m | 189 +
.../layout/+uix/VBoxFlex.m | 351 ++
.../layout/+uix/VButtonBox.m | 93 +
.../layout/+uix/calcPixelSizes.m | 46 +
.../layout/+uix/getPosition.m | 42 +
.../layout/+uix/loadIcon.m | 101 +
.../layout/+uix/set.m | 16 +
.../layout/+uix/setPosition.m | 36 +
.../layout/+uix/tracking.m | 228 ++
.../layout/Contents.m | 27 +
.../layout/layoutRoot.m | 17 +
.../layoutdoc/AxesExample.html | 1 +
.../layoutdoc/AxesLegendsColorbars.html | 1 +
.../layoutdoc/BoxPanelFancyStuff.html | 1 +
.../layoutdoc/Compiling.html | 1 +
.../layoutdoc/ExampleApp.html | 1 +
.../layoutdoc/Examples.html | 88 +
.../layoutdoc/Examples/axesexample.m | 41 +
.../layoutdoc/Examples/callbackexample.m | 47 +
.../layoutdoc/Examples/colorbarexample.m | 29 +
.../layoutdoc/Examples/demoBrowser.m | 209 ++
.../Examples/displayEndOfDemoMessage.m | 4 +
.../layoutdoc/Examples/dockexample.m | 74 +
.../layoutdoc/Examples/gridflexpositioning.m | 25 +
.../layoutdoc/Examples/guideApp.fig | Bin 0 -> 2408 bytes
.../layoutdoc/Examples/guideApp.m | 106 +
.../layoutdoc/Examples/hierarchyexample.m | 33 +
.../layoutdoc/Examples/minimizeexample.m | 54 +
.../layoutdoc/Examples/paneltabexample.m | 59 +
.../layoutdoc/Examples/visibleexample.m | 30 +
.../layoutdoc/Function_reference.html | 190 +
.../layoutdoc/Function_reference1_1.html | 83 +
.../layoutdoc/Function_reference1_2.html | 77 +
.../layoutdoc/Function_reference1_3.html | 87 +
.../layoutdoc/Function_reference1_4.html | 75 +
.../layoutdoc/Function_reference1_5.html | 76 +
.../layoutdoc/Function_reference2_1.html | 88 +
.../layoutdoc/Function_reference2_2.html | 87 +
.../layoutdoc/Function_reference2_3.html | 79 +
.../layoutdoc/Function_reference2_4.html | 78 +
.../layoutdoc/Function_reference2_5.html | 80 +
.../layoutdoc/Function_reference2_6.html | 81 +
.../layoutdoc/Function_reference3_1.html | 82 +
.../layoutdoc/Function_reference3_2.html | 84 +
.../layoutdoc/Function_reference4_1.html | 69 +
.../layoutdoc/Function_reference4_2.html | 63 +
.../layoutdoc/Function_reference4_3.html | 57 +
.../layoutdoc/GUI Layout.html | 5 +
.../layoutdoc/Getting_Started.html | 85 +
.../layoutdoc/Getting_Started1.html | 54 +
.../layoutdoc/Getting_Started2.html | 150 +
.../layoutdoc/Getting_Started3.html | 226 ++
.../layoutdoc/Getting_Started4.html | 51 +
.../layoutdoc/Getting_Started5.html | 55 +
.../layoutdoc/Getting_Started6.html | 49 +
.../layoutdoc/HierarchyExample.html | 1 +
.../layoutdoc/Images/Border.png | Bin 0 -> 3736 bytes
.../layoutdoc/Images/BoxInBox.png | Bin 0 -> 4359 bytes
.../layoutdoc/Images/BoxPanel.png | Bin 0 -> 2013 bytes
.../layoutdoc/Images/BoxPanel2.png | Bin 0 -> 4069 bytes
.../layoutdoc/Images/BoxPanelDockExample1.png | Bin 0 -> 3066 bytes
.../layoutdoc/Images/BoxPanelDockExample2.png | Bin 0 -> 3258 bytes
.../layoutdoc/Images/BoxPanelDockExample3.png | Bin 0 -> 2821 bytes
.../layoutdoc/Images/BoxPanelDockExample4.png | Bin 0 -> 2341 bytes
.../layoutdoc/Images/BoxPanelHelpExample.png | Bin 0 -> 2106 bytes
.../Images/BoxPanelMinimizeExample1.png | Bin 0 -> 5011 bytes
.../Images/BoxPanelMinimizeExample2.png | Bin 0 -> 5192 bytes
.../Images/BoxPanelMinimizeExample3.png | Bin 0 -> 3877 bytes
.../layoutdoc/Images/CardPanel.png | Bin 0 -> 971 bytes
.../layoutdoc/Images/CombineBoxes.png | Bin 0 -> 2139 bytes
.../layoutdoc/Images/DefaultsFigure.png | Bin 0 -> 3889 bytes
.../layoutdoc/Images/DefaultsSystem1.png | Bin 0 -> 3876 bytes
.../layoutdoc/Images/DefaultsSystem2.png | Bin 0 -> 4082 bytes
.../layoutdoc/Images/Empty.png | Bin 0 -> 3569 bytes
.../layoutdoc/Images/EnableExample1.png | Bin 0 -> 2936 bytes
.../layoutdoc/Images/EnableExample2.png | Bin 0 -> 4991 bytes
.../layoutdoc/Images/EnableExample3.png | Bin 0 -> 5009 bytes
.../layoutdoc/Images/Grid.png | Bin 0 -> 3561 bytes
.../layoutdoc/Images/GridFlex.png | Bin 0 -> 4129 bytes
.../layoutdoc/Images/HBox.png | Bin 0 -> 1024 bytes
.../layoutdoc/Images/HBoxFlex.png | Bin 0 -> 1288 bytes
.../layoutdoc/Images/HButtonBox.png | Bin 0 -> 1911 bytes
.../layoutdoc/Images/Panel.png | Bin 0 -> 1693 bytes
.../layoutdoc/Images/Panel2.png | Bin 0 -> 2839 bytes
.../layoutdoc/Images/ScrollingPanel.png | Bin 0 -> 146927 bytes
.../layoutdoc/Images/TabPanel.png | Bin 0 -> 3103 bytes
.../layoutdoc/Images/VBox.png | Bin 0 -> 1043 bytes
.../layoutdoc/Images/VBoxFlex.png | Bin 0 -> 1325 bytes
.../layoutdoc/Images/VButtonBox.png | Bin 0 -> 2235 bytes
.../layoutdoc/Images/VisibleExample1.png | Bin 0 -> 1484 bytes
.../layoutdoc/Images/VisibleExample2.png | Bin 0 -> 2932 bytes
.../layoutdoc/Images/VisibleExample3.png | Bin 0 -> 852 bytes
.../layoutdoc/Images/axes_inner.png | Bin 0 -> 1028 bytes
.../Images/axes_layout_example_2.png | Bin 0 -> 7491 bytes
.../Images/axes_layout_example_3.png | Bin 0 -> 28401 bytes
.../layoutdoc/Images/axes_outer.png | Bin 0 -> 4312 bytes
.../layoutdoc/Images/basics_example2.png | Bin 0 -> 982 bytes
.../layoutdoc/Images/basics_example3.png | Bin 0 -> 1222 bytes
.../layoutdoc/Images/basics_example4.png | Bin 0 -> 1368 bytes
.../layoutdoc/Images/basics_example5.png | Bin 0 -> 1370 bytes
.../layoutdoc/Images/basics_example6.png | Bin 0 -> 1370 bytes
.../layoutdoc/Images/basics_example_tab.png | Bin 0 -> 3154 bytes
.../layoutdoc/Images/basics_example_vbox.png | Bin 0 -> 1452 bytes
.../layoutdoc/Images/bigicon_BorderLayout.png | Bin 0 -> 389 bytes
.../layoutdoc/Images/bigicon_BoxPanel.png | Bin 0 -> 474 bytes
.../layoutdoc/Images/bigicon_CardPanel.png | Bin 0 -> 421 bytes
.../layoutdoc/Images/bigicon_Grid.png | Bin 0 -> 425 bytes
.../layoutdoc/Images/bigicon_GridFlex.png | Bin 0 -> 657 bytes
.../layoutdoc/Images/bigicon_HBox.png | Bin 0 -> 305 bytes
.../layoutdoc/Images/bigicon_HBoxFlex.png | Bin 0 -> 472 bytes
.../layoutdoc/Images/bigicon_HButtonBox.png | Bin 0 -> 359 bytes
.../layoutdoc/Images/bigicon_Panel.png | Bin 0 -> 428 bytes
.../Images/bigicon_ScrollingPanel.png | Bin 0 -> 594 bytes
.../layoutdoc/Images/bigicon_TabPanel.png | Bin 0 -> 420 bytes
.../layoutdoc/Images/bigicon_VBox.png | Bin 0 -> 343 bytes
.../layoutdoc/Images/bigicon_VBoxFlex.png | Bin 0 -> 490 bytes
.../layoutdoc/Images/bigicon_VButtonBox.png | Bin 0 -> 327 bytes
.../layoutdoc/Images/bookicon.gif | Bin 0 -> 171 bytes
.../layoutdoc/Images/colorbar_example_2.png | Bin 0 -> 10538 bytes
.../layoutdoc/Images/colorbar_example_3.png | Bin 0 -> 54781 bytes
.../layoutdoc/Images/demoBrowser1.png | Bin 0 -> 266658 bytes
.../layoutdoc/Images/demoBrowser2.png | Bin 0 -> 266658 bytes
.../layoutdoc/Images/demoBrowser3.png | Bin 0 -> 266658 bytes
.../layoutdoc/Images/demoBrowser4.png | Bin 0 -> 266658 bytes
.../layoutdoc/Images/demoicon.gif | Bin 0 -> 214 bytes
.../layoutdoc/Images/deploy.png | Bin 0 -> 14918 bytes
.../layoutdoc/Images/greenarrowicon.gif | Bin 0 -> 145 bytes
.../layoutdoc/Images/guide1.png | Bin 0 -> 20373 bytes
.../layoutdoc/Images/guide2.png | Bin 0 -> 7797 bytes
.../layoutdoc/Images/help_ex.png | Bin 0 -> 3330 bytes
.../layoutdoc/Images/help_fx.png | Bin 0 -> 47601 bytes
.../layoutdoc/Images/help_gs.png | Bin 0 -> 576 bytes
.../layoutdoc/Images/help_rn.png | Bin 0 -> 846 bytes
.../layoutdoc/Images/help_ug.png | Bin 0 -> 765 bytes
.../layoutdoc/Images/leftarrow.png | Bin 0 -> 343 bytes
.../layoutdoc/Images/pageicon.gif | Bin 0 -> 867 bytes
.../layoutdoc/Images/pagesicon.gif | Bin 0 -> 171 bytes
.../layoutdoc/Images/reficon.gif | Bin 0 -> 171 bytes
.../layoutdoc/Images/rightarrow.png | Bin 0 -> 332 bytes
.../layoutdoc/Images/titleimage.png | Bin 0 -> 11586 bytes
.../layoutdoc/Images/uparrow.png | Bin 0 -> 291 bytes
.../layoutdoc/Images/why_fixed1.png | Bin 0 -> 3805 bytes
.../layoutdoc/Images/why_fixed2.png | Bin 0 -> 4487 bytes
.../layoutdoc/Images/why_layout0_1.png | Bin 0 -> 2941 bytes
.../layoutdoc/Images/why_layout0_2.png | Bin 0 -> 2925 bytes
.../layoutdoc/Images/why_layout1.png | Bin 0 -> 2925 bytes
.../layoutdoc/Images/why_layout2.png | Bin 0 -> 4074 bytes
.../layoutdoc/Images/why_layout_anno1.png | Bin 0 -> 3687 bytes
.../layoutdoc/Images/why_layout_anno2.png | Bin 0 -> 3629 bytes
.../layoutdoc/Images/why_normalized1.png | Bin 0 -> 3202 bytes
.../layoutdoc/Images/why_normalized2.png | Bin 0 -> 5274 bytes
.../layoutdoc/LayoutsGUIDE.html | 1 +
.../layoutdoc/PanelDock.html | 1 +
.../layoutdoc/PanelHelp.html | 1 +
.../layoutdoc/PanelMinimize.html | 1 +
.../layoutdoc/User_guide.html | 95 +
.../layoutdoc/User_guide1.html | 76 +
.../layoutdoc/User_guide1_1.html | 88 +
.../layoutdoc/User_guide1_2.html | 65 +
.../layoutdoc/User_guide1_3.html | 94 +
.../layoutdoc/User_guide1_4.html | 92 +
.../layoutdoc/User_guide1_5.html | 105 +
.../layoutdoc/User_guide2.html | 68 +
.../layoutdoc/User_guide2_1.html | 62 +
.../layoutdoc/User_guide2_2.html | 92 +
.../layoutdoc/User_guide2_3.html | 85 +
.../layoutdoc/User_guide3.html | 57 +
.../layoutdoc/User_guide3_1.html | 84 +
.../layoutdoc/User_guide4.html | 71 +
.../layoutdoc/User_guide4_1.html | 62 +
.../layoutdoc/User_guide4_2.html | 140 +
.../layoutdoc/User_guide4_3.html | 154 +
.../layoutdoc/User_guide5.html | 84 +
.../layoutdoc/User_guide6.html | 56 +
.../layoutdoc/User_guide7.html | 90 +
.../layoutdoc/User_guide7_1.html | 105 +
.../layoutdoc/User_guide7_2.html | 105 +
.../layoutdoc/User_guide7_3.html | 70 +
.../layoutdoc/User_guide7_4.html | 70 +
.../layoutdoc/User_guide7_5.html | 61 +
.../layoutdoc/User_guide7_6.html | 60 +
.../layoutdoc/VisibleExample.html | 1 +
.../layoutdoc/about.html | 1 +
.../layoutdoc/atoz.html | 181 +
.../layoutdoc/compatibility.html | 1 +
.../layoutdoc/demoBrowserCreateInterface.html | 1 +
.../layoutdoc/demoBrowserOnListSelection.html | 1 +
.../layoutdoc/demoBrowserRun.html | 1 +
.../layoutdoc/demoBrowserScalability.html | 1 +
.../layoutdoc/demoBrowserStructure.html | 1 +
.../layoutdoc/demoBrowserUpdateInterface.html | 1 +
.../layoutdoc/doc.css | 95 +
.../layoutdoc/frames.html | 12 +
.../layoutdoc/helpindex.xml | 118 +
.../layoutdoc/helpsearch-v3/_0.cfe | Bin 0 -> 268 bytes
.../layoutdoc/helpsearch-v3/_0.cfs | Bin 0 -> 138292 bytes
.../layoutdoc/helpsearch-v3/_0.si | Bin 0 -> 258 bytes
.../layoutdoc/helpsearch-v3/segments.gen | Bin 0 -> 20 bytes
.../layoutdoc/helpsearch-v3/segments_1 | Bin 0 -> 81 bytes
.../layoutdoc/helptoc.html | 37 +
.../layoutdoc/helptoc.xml | 12 +
.../layoutdoc/index.html | 54 +
.../layoutdoc/info.xml | 11 +
.../layoutdoc/layoutDocRoot.m | 12 +
.../layoutdoc/layoutRoot.html | 1 +
.../layoutdoc/releasenotes.html | 1 +
.../layoutdoc/termsOfUse.m | 8 +
.../layoutdoc/uix.BoxPanel.html | 1 +
.../layoutdoc/uix.CardPanel.html | 1 +
.../layoutdoc/uix.Empty.html | 1 +
.../layoutdoc/uix.Grid.html | 1 +
.../layoutdoc/uix.GridFlex.html | 1 +
.../layoutdoc/uix.HBox.html | 1 +
.../layoutdoc/uix.HBoxFlex.html | 1 +
.../layoutdoc/uix.HButtonBox.html | 1 +
.../layoutdoc/uix.Panel.html | 1 +
.../layoutdoc/uix.ScrollingPanel.html | 1 +
.../layoutdoc/uix.TabPanel.html | 1 +
.../layoutdoc/uix.VBox.html | 1 +
.../layoutdoc/uix.VBoxFlex.html | 1 +
.../layoutdoc/uix.VButtonBox.html | 1 +
.../layoutdoc/uix.tracking.html | 1 +
.../GUI Layout Toolbox 2.3.5/license.txt | 26 +
Studio V1/GUIs/ERPLAB GUI/binoperGUI.fig | Bin 0 -> 28115 bytes
Studio V1/GUIs/ERPLAB GUI/binoperGUI.m | 888 +++++
Studio V1/GUIs/ERPLAB GUI/chanoperGUI.fig | Bin 0 -> 32309 bytes
Studio V1/GUIs/ERPLAB GUI/chanoperGUI.m | 1048 ++++++
Studio V1/GUIs/ERPLAB GUI/importERPSS_GUI.fig | Bin 0 -> 3757 bytes
Studio V1/GUIs/ERPLAB GUI/importERPSS_GUI.m | 200 ++
Studio V1/GUIs/ERPLAB GUI/importerpGUI.fig | Bin 0 -> 25450 bytes
Studio V1/GUIs/ERPLAB GUI/importerpGUI.m | 778 +++++
Studio V1/GUIs/ERPLAB GUI/splinefileGUI.fig | Bin 0 -> 12981 bytes
Studio V1/GUIs/ERPLAB GUI/splinefileGUI.m | 267 ++
.../ERP Simulation/f_ERP_simulation_GUI.fig | Bin 0 -> 76765 bytes
.../ERP Simulation/f_ERP_simulation_GUI.m | 2404 +++++++++++++
.../ERP Simulation/f_ERPsimulationGUI.fig | Bin 0 -> 76832 bytes
.../ERP Simulation/f_ERPsimulationGUI.m | 2462 +++++++++++++
.../ERP Tab/ERP Simulation/f_exgauss_pdf.m | 43 +
.../ERP Tab/ERP Simulation/f_gaussian.m | 30 +
.../ERP Tab/ERP Simulation/f_pinknoise.m | 66 +
.../ERP Simulation/pop_ERP_simulation.m | 740 ++++
.../Studio GUIs/ERP Tab/binoper_studioGUI.fig | Bin 0 -> 27977 bytes
.../Studio GUIs/ERP Tab/binoper_studioGUI.m | 862 +++++
.../ERP Tab/csd_chan_locations.fig | Bin 0 -> 31974 bytes
.../Studio GUIs/ERP Tab/csd_chan_locations.m | 338 ++
.../GUIs/Studio GUIs/ERP Tab/f_ERP_CSD_GUI.m | 300 ++
.../Studio GUIs/ERP Tab/f_ERP_append_GUI.m | 547 +++
.../ERP Tab/f_ERP_baselinecorr_detrend_GUI.m | 578 ++++
.../ERP Tab/f_ERP_bin_channel_GUI.m | 497 +++
.../ERP Tab/f_ERP_binoperation_GUI.m | 509 +++
.../ERP Tab/f_ERP_chanoperation_GUI.m | 630 ++++
.../Studio GUIs/ERP Tab/f_ERP_erpsetsGUI.m | 1505 ++++++++
.../Studio GUIs/ERP Tab/f_ERP_filtering_GUI.m | 1416 ++++++++
.../ERP Tab/f_ERP_grandaverageGUI.m | 475 +++
.../Studio GUIs/ERP Tab/f_ERP_history_GUI.m | 214 ++
.../ERP Tab/f_ERP_meas_basecorr.fig | Bin 0 -> 15732 bytes
.../Studio GUIs/ERP Tab/f_ERP_meas_basecorr.m | 276 ++
.../ERP Tab/f_ERP_meas_format_path.fig | Bin 0 -> 15379 bytes
.../ERP Tab/f_ERP_meas_format_path.m | 275 ++
.../ERP Tab/f_ERP_measurement_GUI.m | 1572 +++++++++
.../ERP Tab/f_ERP_plot_scalp_GUI.m | 1460 ++++++++
.../ERP Tab/f_ERP_plot_setting_GUI.m | 885 +++++
.../Studio GUIs/ERP Tab/f_ERP_rename_gui.fig | Bin 0 -> 12427 bytes
.../Studio GUIs/ERP Tab/f_ERP_rename_gui.m | 181 +
.../ERP Tab/f_ERP_save_multi_file.fig | Bin 0 -> 18023 bytes
.../ERP Tab/f_ERP_save_multi_file.m | 391 +++
.../ERP Tab/f_ERP_save_single_GUI.m | 231 ++
.../ERP Tab/f_ERP_save_single_file.fig | Bin 0 -> 16748 bytes
.../ERP Tab/f_ERP_save_single_file.m | 320 ++
.../ERP Tab/f_ERP_simulation_panel.m | 2126 ++++++++++++
.../Studio GUIs/ERP Tab/f_ERP_spectral_GUI.m | 883 +++++
.../Studio GUIs/ERP Tab/f_ERP_suffix_gui.fig | Bin 0 -> 11634 bytes
.../Studio GUIs/ERP Tab/f_ERP_suffix_gui.m | 176 +
.../Studio GUIs/ERP Tab/f_appenderpGUI.fig | Bin 0 -> 29034 bytes
.../GUIs/Studio GUIs/ERP Tab/f_appenderpGUI.m | 1157 +++++++
.../Studio GUIs/ERP Tab/f_basicfilterGUI2.fig | Bin 0 -> 72919 bytes
.../Studio GUIs/ERP Tab/f_basicfilterGUI2.m | 3054 +++++++++++++++++
.../ERP Tab/f_chan_testsyntaxtype.m | 92 +
.../Studio GUIs/ERP Tab/f_chanoperGUI.fig | Bin 0 -> 32313 bytes
.../GUIs/Studio GUIs/ERP Tab/f_chanoperGUI.m | 1021 ++++++
.../GUIs/Studio GUIs/ERP Tab/f_erp2ascGUI.fig | Bin 0 -> 15770 bytes
.../GUIs/Studio GUIs/ERP Tab/f_erp2ascGUI.m | 364 ++
.../ERP Tab/f_erp_dataquality_SME_GUI.m | 335 ++
.../ERP Tab/f_erp_informtion_GUI.m | 337 ++
.../Studio GUIs/ERP Tab/f_export2csvGUI.fig | Bin 0 -> 18515 bytes
.../Studio GUIs/ERP Tab/f_export2csvGUI.m | 352 ++
.../Studio GUIs/ERP Tab/f_export2textGUI.fig | Bin 0 -> 25140 bytes
.../Studio GUIs/ERP Tab/f_export2textGUI.m | 438 +++
.../ERP Tab/f_rerefassistantGUI.fig | Bin 0 -> 19052 bytes
.../Studio GUIs/ERP Tab/f_rerefassistantGUI.m | 383 +++
.../ERP Tab/f_scalplotadvanceGUI.fig | Bin 0 -> 24178 bytes
.../ERP Tab/f_scalplotadvanceGUI.m | 738 ++++
.../ERP Tab/geterpvaluesparasGUI2.fig | Bin 0 -> 35944 bytes
.../ERP Tab/geterpvaluesparasGUI2.m | 1212 +++++++
Studio V1/GUIs/default_time_ticks_studio.m | 87 +
Studio V1/Pop_functions/pop_blcerp.m | 296 ++
.../Pop_functions/pop_currentsourcedensity.m | 223 ++
Studio V1/Pop_functions/pop_erp2asc.m | 165 +
.../Pop_functions/pop_importerpss_studio.m | 337 ++
.../pop_summary_AR_erp_detection.m | 242 ++
Studio V1/displayEquiComERP.m | 74 +
Studio V1/erpgettoolversion.m | 43 +
Studio V1/erplab_running_version.m | 108 +
Studio V1/erplab_studio_default_values.m | 23 +
Studio V1/erpworkingmemory.m | 189 +
Studio V1/estudioworkingmemory.m | 144 +
Studio V1/geterplabstudioversion.m | 45 +
Studio V1/o_ERPDAT.m | 79 +
Studio V1/painterplabstudio.m | 89 +
Studio V1/setfonterplabestudio.m | 87 +
478 files changed, 89339 insertions(+)
create mode 100755 Studio V1/EStudio.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eeg_checkchanlocs.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eeg_checkset.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eeg_emptyset.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eeg_eval.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eeg_retrieve.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eeg_store.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/eegobj.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/pop_writelocs.m
create mode 100755 Studio V1/Functions/EEGLAB/CSD/questdlg2.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/adjustcylinder2.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/cbar.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/convertlocs.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/error_bc.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/finputcheck.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/headplot.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/icadefs.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/intersect_bc.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/loadtxt.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/pop_chanedit.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/readlocs.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/setdiff_bc.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/sph2topo.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/topoplot.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/traditionaldipfit.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/union_bc.m
create mode 100755 Studio V1/Functions/EEGLAB/Scalp/unique_bc.m
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/EEGLAB_compile_splash.jpg
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/Standard-10-20-Cap81.ced
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/Standard-10-5-Cap385.sfp
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/Standard-10-5-Cap385_witheog.elp
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/chan_file
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/colin27headmesh.mat
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/colin27headmesh.xyz
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/colin27headmesh_license.txt
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/eeglab1020.ced
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/eeglab_run_this_one_on_osx_or_linux
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/eeglab_run_this_one_on_windows.bat
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/head_modelColin27_5003_Standard-10-5-Cap339.mat
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/ica_linux
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/mheadnew.elp
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/mheadnew.mat
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/mheadnew.transform
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/mheadnew.xyz
create mode 100755 Studio V1/Functions/EEGLAB/supportfiles/test_compiled_version.m
create mode 100755 Studio V1/Functions/ERPLAB/lindetrend.m
create mode 100755 Studio V1/Functions/ERPLAB/olderpscan.m
create mode 100755 Studio V1/Functions/ERPLAB/save_data_quality.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/ERPLAB_ERP_Viewer.m
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/ERP_layoutstringGUI.fig
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/ERP_layoutstringGUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/default_amp_ticks.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/default_amp_ticks_viewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/editlayoutstringGUI.fig
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/editlayoutstringGUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/erpAutoYLim.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_Binchan_waviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_labelset_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_lineset_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_otherset_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_plotorg_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_plotorglayout_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_property_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERP_timeampscal_waveviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ERPsets_waviewer_GUI.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_adjustbindtabasedtimedefd.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_adjustdata_xyrange_xyticks.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_adjustdata_xyrange_xyticks_overlay.m
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_check_erpviewerpanelchanges.m
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_decimal.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_erpAutoYLim.m
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_erpwave_viewer_update_parameter.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_existvector.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_get_lineset_ERPviewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_geterpdata.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_geterpschanbin.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_getrow_columnautowaveplot.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_ploterpserpviewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_preparms_erpwaviewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_redrawERP_viewer_test.m
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/f_setdiffstr.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/neozeroaxesestudioviewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/pop_plotERPwaviewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ERP wave viewer/v_ERPDAT.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/README.md
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/SignalProcessingToolboxCheck.m
create mode 100644 Studio V1/Functions/EStudio/ERP Tab/Tab/ERPLAB_ERP_Tab.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/check_matlab_version.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/createrplabstudioparameters.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/dummy.erp
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/erplabstudioamnesia.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/export2csv_spectranl_analysis.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_ERP_chckbinandchan.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_ERP_chckerpindex.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_ERP_duplicate.fig
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_ERP_duplicate.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_ERP_plot_wav.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_ERPplot_Parameter.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_baseline_geterpvalues.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_checkerpsets.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_dq_summary.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_erp_remv_Calibrate.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_erpset_geterpvalues.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_findstring.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_getFFTfromERP.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_get_erp_xticklabel_time.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_geterpxticklabel.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_redrawERP.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_redrawERP_mt_viewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_redrawERP_try.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_spectral_analysis_advance.fig
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_spectral_analysis_advance.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/f_testsyntaxtype.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/geterplabstudiodef.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/mini_viewer.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/ms_to_sample.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/redrawERP.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/sample_to_ms.m
create mode 100755 Studio V1/Functions/EStudio/ERP Tab/working_mem_save_load.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/BoxPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/CardPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/Empty.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/Grid.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/GridFlex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/HBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/HBoxFlex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/HButtonBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/Panel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/TabPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/VBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/VBoxFlex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/VButtonBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/get.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/set.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uiextras/unset.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/+mixin/Container.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/+mixin/Flex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/+mixin/Panel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Box.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/BoxPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/ButtonBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/CardPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/ChildEvent.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/ChildObserver.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Container.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Divider.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Empty.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/FigureData.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/FigureObserver.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Grid.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/GridFlex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/HBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/HBoxFlex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/HButtonBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Node.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Panel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/PointerManager.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_NoEdge_NotSelected.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_NoEdge_Selected.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_NotSelected_NoEdge.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_NotSelected_NotSelected.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_NotSelected_Selected.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_Selected_NoEdge.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Resources/tab_Selected_NotSelected.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/ScrollingPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/SelectionData.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/TabPanel.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/Text.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/VBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/VBoxFlex.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/VButtonBox.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/calcPixelSizes.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/getPosition.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/loadIcon.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/set.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/setPosition.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/+uix/tracking.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/Contents.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layout/layoutRoot.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/AxesExample.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/AxesLegendsColorbars.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/BoxPanelFancyStuff.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Compiling.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/ExampleApp.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/axesexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/callbackexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/colorbarexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/demoBrowser.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/displayEndOfDemoMessage.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/dockexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/gridflexpositioning.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/guideApp.fig
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/guideApp.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/hierarchyexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/minimizeexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/paneltabexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Examples/visibleexample.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference1_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference1_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference1_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference1_4.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference1_5.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference2_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference2_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference2_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference2_4.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference2_5.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference2_6.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference3_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference3_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference4_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference4_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Function_reference4_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/GUI Layout.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started4.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started5.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Getting_Started6.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/HierarchyExample.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/Border.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxInBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanel2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelDockExample1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelDockExample2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelDockExample3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelDockExample4.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelHelpExample.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelMinimizeExample1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelMinimizeExample2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/BoxPanelMinimizeExample3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/CardPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/CombineBoxes.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/DefaultsFigure.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/DefaultsSystem1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/DefaultsSystem2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/Empty.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/EnableExample1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/EnableExample2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/EnableExample3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/Grid.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/GridFlex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/HBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/HBoxFlex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/HButtonBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/Panel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/Panel2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/ScrollingPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/TabPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/VBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/VBoxFlex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/VButtonBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/VisibleExample1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/VisibleExample2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/VisibleExample3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/axes_inner.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/axes_layout_example_2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/axes_layout_example_3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/axes_outer.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example4.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example5.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example6.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example_tab.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/basics_example_vbox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_BorderLayout.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_BoxPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_CardPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_Grid.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_GridFlex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_HBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_HBoxFlex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_HButtonBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_Panel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_ScrollingPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_TabPanel.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_VBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_VBoxFlex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bigicon_VButtonBox.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/bookicon.gif
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/colorbar_example_2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/colorbar_example_3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/demoBrowser1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/demoBrowser2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/demoBrowser3.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/demoBrowser4.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/demoicon.gif
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/deploy.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/greenarrowicon.gif
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/guide1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/guide2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/help_ex.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/help_fx.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/help_gs.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/help_rn.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/help_ug.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/leftarrow.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/pageicon.gif
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/pagesicon.gif
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/reficon.gif
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/rightarrow.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/titleimage.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/uparrow.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_fixed1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_fixed2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_layout0_1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_layout0_2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_layout1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_layout2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_layout_anno1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_layout_anno2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_normalized1.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/Images/why_normalized2.png
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/LayoutsGUIDE.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/PanelDock.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/PanelHelp.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/PanelMinimize.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide1_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide1_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide1_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide1_4.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide1_5.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide2_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide2_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide2_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide3_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide4.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide4_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide4_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide4_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide5.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide6.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7_1.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7_2.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7_3.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7_4.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7_5.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/User_guide7_6.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/VisibleExample.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/about.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/atoz.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/compatibility.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/demoBrowserCreateInterface.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/demoBrowserOnListSelection.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/demoBrowserRun.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/demoBrowserScalability.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/demoBrowserStructure.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/demoBrowserUpdateInterface.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/doc.css
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/frames.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helpindex.xml
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helpsearch-v3/_0.cfe
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helpsearch-v3/_0.cfs
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helpsearch-v3/_0.si
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helpsearch-v3/segments.gen
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helpsearch-v3/segments_1
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helptoc.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/helptoc.xml
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/index.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/info.xml
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/layoutDocRoot.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/layoutRoot.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/releasenotes.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/termsOfUse.m
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.BoxPanel.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.CardPanel.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.Empty.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.Grid.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.GridFlex.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.HBox.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.HBoxFlex.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.HButtonBox.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.Panel.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.ScrollingPanel.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.TabPanel.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.VBox.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.VBoxFlex.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.VButtonBox.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/layoutdoc/uix.tracking.html
create mode 100644 Studio V1/GUI Layout Toolbox 2.3.5/license.txt
create mode 100755 Studio V1/GUIs/ERPLAB GUI/binoperGUI.fig
create mode 100755 Studio V1/GUIs/ERPLAB GUI/binoperGUI.m
create mode 100755 Studio V1/GUIs/ERPLAB GUI/chanoperGUI.fig
create mode 100755 Studio V1/GUIs/ERPLAB GUI/chanoperGUI.m
create mode 100755 Studio V1/GUIs/ERPLAB GUI/importERPSS_GUI.fig
create mode 100755 Studio V1/GUIs/ERPLAB GUI/importERPSS_GUI.m
create mode 100755 Studio V1/GUIs/ERPLAB GUI/importerpGUI.fig
create mode 100755 Studio V1/GUIs/ERPLAB GUI/importerpGUI.m
create mode 100755 Studio V1/GUIs/ERPLAB GUI/splinefileGUI.fig
create mode 100755 Studio V1/GUIs/ERPLAB GUI/splinefileGUI.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_ERP_simulation_GUI.fig
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_ERP_simulation_GUI.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_ERPsimulationGUI.fig
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_ERPsimulationGUI.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_exgauss_pdf.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_gaussian.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/f_pinknoise.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/ERP Simulation/pop_ERP_simulation.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/binoper_studioGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/binoper_studioGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/csd_chan_locations.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/csd_chan_locations.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_CSD_GUI.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_append_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_baselinecorr_detrend_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_bin_channel_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_binoperation_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_chanoperation_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_erpsetsGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_filtering_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_grandaverageGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_history_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_meas_basecorr.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_meas_basecorr.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_meas_format_path.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_meas_format_path.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_measurement_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_plot_scalp_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_plot_setting_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_rename_gui.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_rename_gui.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_save_multi_file.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_save_multi_file.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_save_single_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_save_single_file.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_save_single_file.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_simulation_panel.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_spectral_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_suffix_gui.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_ERP_suffix_gui.m
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/f_appenderpGUI.fig
create mode 100644 Studio V1/GUIs/Studio GUIs/ERP Tab/f_appenderpGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_basicfilterGUI2.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_basicfilterGUI2.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_chan_testsyntaxtype.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_chanoperGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_chanoperGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_erp2ascGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_erp2ascGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_erp_dataquality_SME_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_erp_informtion_GUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_export2csvGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_export2csvGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_export2textGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_export2textGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_rerefassistantGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_rerefassistantGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_scalplotadvanceGUI.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/f_scalplotadvanceGUI.m
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/geterpvaluesparasGUI2.fig
create mode 100755 Studio V1/GUIs/Studio GUIs/ERP Tab/geterpvaluesparasGUI2.m
create mode 100755 Studio V1/GUIs/default_time_ticks_studio.m
create mode 100755 Studio V1/Pop_functions/pop_blcerp.m
create mode 100755 Studio V1/Pop_functions/pop_currentsourcedensity.m
create mode 100755 Studio V1/Pop_functions/pop_erp2asc.m
create mode 100755 Studio V1/Pop_functions/pop_importerpss_studio.m
create mode 100755 Studio V1/Pop_functions/pop_summary_AR_erp_detection.m
create mode 100755 Studio V1/displayEquiComERP.m
create mode 100755 Studio V1/erpgettoolversion.m
create mode 100755 Studio V1/erplab_running_version.m
create mode 100755 Studio V1/erplab_studio_default_values.m
create mode 100755 Studio V1/erpworkingmemory.m
create mode 100755 Studio V1/estudioworkingmemory.m
create mode 100755 Studio V1/geterplabstudioversion.m
create mode 100755 Studio V1/o_ERPDAT.m
create mode 100755 Studio V1/painterplabstudio.m
create mode 100755 Studio V1/setfonterplabestudio.m
diff --git a/Studio V1/EStudio.m b/Studio V1/EStudio.m
new file mode 100755
index 00000000..89ab4ef9
--- /dev/null
+++ b/Studio V1/EStudio.m
@@ -0,0 +1,378 @@
+% New GUI Layout - Simple ERP viewer 0.014
+%
+% Author: Guanghui Zhang & Steve J. Luck & Andrew Stewart
+% Center for Mind and Brain
+% University of California, Davis,
+% Davis, CA
+% 2022 & 2023
+
+% ERPLAB Studio Toolbox
+%
+
+%
+% This program is free software: you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation, either version 3 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program. If not, see .
+
+% Reqs:
+% - data loaded in valid ERPset
+% - GUI Layout Toolbox
+% - ERPLAB
+
+
+%
+% Demo to explore an ERP Viewer using the new GUI Layout Toolbox
+% Now with more in nested functions
+
+function [] = EStudio()
+
+EStudioversion = 9.0;
+erplab_running_version('Version',EStudioversion,'tooltype','EStudio');
+
+
+%%---------------ADD FOLDER TO PATH-------------------
+pathName = which('EStudio','-all');
+if length(pathName)>1
+ fprintf('\nEStudio WARNING: More than one EStudio folder was found.\n\n');
+end
+pathName = pathName{1};
+pathName= pathName(1:findstr(pathName,'EStudio.m')-1);
+% add all ERPLAB subfolders
+addpath(genpath(pathName));
+SignalProcessingToolboxCheck;
+
+
+
+Count_ERP = 1;
+Count_currentERP =0;
+% Sanity checks
+try
+ test = uix.HBoxFlex();
+catch
+ beep;
+ disp('The GUI Layout Toolbox might not be installed. Quitting')
+ return
+end
+
+%%close EEGLAB
+try
+ W_MAIN = findobj('tag', 'EEGLAB');
+ close(W_MAIN);
+ clearvars observe_ERPDAT;
+catch
+end
+
+% global CURRENTERP;
+global observe_ERPDAT;
+global viewer_ERPDAT;
+global EStudio_gui_erp_totl
+viewer_ERPDAT = v_ERPDAT;
+% global ERP;
+ERP = []; % Start ERP Structure on workspace
+ALLERP = []; %Start ALLERP Structure on workspace
+% ALLERPCOM = [];
+CURRENTERP = 1;
+
+estudioworkingmemory('EStudioColumnNum',1);
+
+assignin('base','ERP',ERP);
+assignin('base','ALLERP', ALLERP);
+% assignin('base','ALLERPCOM', ALLERPCOM);
+assignin('base','CURRENTERP', CURRENTERP);
+
+
+filepath = which('dummy.erp');
+[pathstr, fname, ext] = fileparts(filepath);
+[ERP, ALLERP] = pop_loaderp('filename','dummy.erp', 'filepath',pathstr ,'History', 'off');
+assignin('base','ALLERP',ALLERP);
+% clc;
+
+observe_ERPDAT = o_ERPDAT;
+observe_ERPDAT.ALLERP = ALLERP;
+observe_ERPDAT.CURRENTERP = CURRENTERP;
+observe_ERPDAT.ERP = ERP;
+observe_ERPDAT.Count_ERP = Count_ERP;
+observe_ERPDAT.Count_currentERP = Count_currentERP;
+observe_ERPDAT.Process_messg = 0;%0 is the default means there is no message for processing procedure;
+%1 means the processign procedure is running
+%2 means the processign procedure is done
+%3 means there are some errors for processing procedure
+observe_ERPDAT.Two_GUI = 0;
+
+
+addlistener(observe_ERPDAT,'cerpchange',@indexERP);
+addlistener(observe_ERPDAT,'drawui_CB',@onErpChanged);
+addlistener(observe_ERPDAT,'erpschange',@allErpChanged);
+addlistener(observe_ERPDAT,'Count_ERP_change',@CountErpChanged);
+addlistener(observe_ERPDAT,'Count_currentERP_change',@Count_currentERPChanged);
+addlistener(observe_ERPDAT,'Messg_change',@Process_messg_change_main);
+
+
+
+% Initialize data and interface
+
+
+%%Try to close existing GUI
+% global EStudio_gui_erp_totl_Window
+try
+ close(EStudio_gui_erp_totl.Window);
+catch
+end
+EStudio_gui_erp_totl = struct();
+
+EStudio_gui_erp_totl = createInterface(observe_ERPDAT.ERP);
+
+% Update the GUI with current data
+% updateInterface();
+
+f_redrawERP();
+
+ function EStudio_gui_erp_totl = createInterface(ERP)
+
+ try
+ [version reldate] = geterplabstudioversion;
+ erplabstudiover = version;
+ catch
+ erplabstudiover = '??';
+ end
+ currvers = ['ERPLAB Studio ' erplabstudiover];
+ try
+ [version reldate,ColorB_def,ColorF_def,errorColorF_def] = geterplabstudiodef;
+ catch
+ ColorB_def = [0.7020 0.77 0.85];
+ end
+ EStudio_gui_erp_totl = struct();
+ % First, let's start the window
+ EStudio_gui_erp_totl.Window = figure( 'Name', currvers, ...
+ 'NumberTitle', 'off', ...
+ 'MenuBar', 'none', ...
+ 'Toolbar', 'none', ...
+ 'HandleVisibility', 'off', 'tag', 'rollover');
+
+ % set the window size
+ %old_pos = get(EStudio_gui_erp_totl.Window, 'Position');
+ new_pos = [1 1 1200 1200];
+ set(EStudio_gui_erp_totl.Window, 'Position', new_pos);
+
+
+ % + File menu
+ EStudio_gui_erp_totl.FileMenu = uimenu( EStudio_gui_erp_totl.Window, 'Label', 'File');
+ uimenu( EStudio_gui_erp_totl.FileMenu, 'Label', 'Exit', 'Callback', @onExit);
+
+ % + View menu
+ EStudio_gui_erp_totl.ViewMenu = uimenu( EStudio_gui_erp_totl.Window, 'Label', 'ERPLAB Commands' );
+
+ %%-----------Setting------------------------------------------------
+ EStudio_gui_erp_totl.Setting = uimenu( EStudio_gui_erp_totl.Window, 'Label', 'Setting');
+
+ %%ERPStudio Memory
+ EStudio_gui_erp_totl.set_ERP_memory = uimenu( EStudio_gui_erp_totl.Setting, 'Label', 'EStudio Memory Setting','separator','off');
+ uimenu( EStudio_gui_erp_totl.set_ERP_memory, 'Label', 'Reset EStudio Working Memory', 'Callback', 'erplabstudioamnesia(1)','separator','off');
+ uimenu( EStudio_gui_erp_totl.set_ERP_memory, 'Label', 'Save a copy of the current working memory as...', 'Callback', 'working_mem_save_load(1)','separator','off');
+ comLoadWM = ['clear vmemoryerp; vmemoryerp = working_mem_save_load(2); assignin(''base'',''vmemoryerp'',vmemoryerp);'];
+ uimenu( EStudio_gui_erp_totl.set_ERP_memory,'Label','Load a previous working memory file','CallBack',comLoadWM,'separator','off');
+
+
+ %% Create tabs
+ context_tabs = uiextras.TabPanel('Parent', EStudio_gui_erp_totl.Window, 'Padding', 5,'BackgroundColor',ColorB_def,'FontSize',14);
+ % context_tabs = uix.TabPanel('Parent', EStudio_gui_erp_totl.Window, 'Padding', 5,'BackgroundColor',ColorB_def);
+ tab1 = uix.HBoxFlex( 'Parent', context_tabs, 'Spacing', 10 );
+ tab2 = uix.HBoxFlex( 'Parent', context_tabs, 'Spacing', 10 );
+ EStudio_gui_erp_totl.tabERP = uix.HBoxFlex( 'Parent', context_tabs, 'Spacing', 10,'BackgroundColor',ColorB_def);
+ tab4 = uix.HBoxFlex( 'Parent', context_tabs, 'Spacing', 10 );
+
+ context_tabs.TabNames = {'Continuous EEG','Epoched EEG','ERP', 'MVPA'};
+ context_tabs.SelectedChild = 3;
+ context_tabs.HighlightColor = [0 0 0];
+ context_tabs.FontWeight = 'bold';
+ context_tabs.TabSize = (new_pos(3)-20)/4;
+ context_tabs.BackgroundColor = ColorB_def;
+ %%set the layput for ERP Tab.
+ EStudio_gui_erp_totl = ERPLAB_ERP_Tab(EStudio_gui_erp_totl,ColorB_def);
+
+ %
+
+
+ end % createInterface
+
+
+%------------------------------------
+ function onErpChanged( ~, ~ )
+ assignin('base','ERP',observe_ERPDAT.ERP);
+ end
+
+
+ function indexERP( ~, ~ )
+ assignin('base','CURRENTERP',observe_ERPDAT.CURRENTERP);
+ if ~strcmp(observe_ERPDAT.CURRENTERP,CURRENTERP)
+ CURRENTERP = observe_ERPDAT.CURRENTERP;
+ end
+ observe_ERPDAT.ERP = observe_ERPDAT.ALLERP(observe_ERPDAT.CURRENTERP);
+ end
+
+ function allErpChanged(~,~)
+ assignin('base','ALLERP',observe_ERPDAT.ALLERP);
+ end
+
+
+ function Count_currentERPChanged(~,~)
+ S_ws_geterpset= estudioworkingmemory('selectederpstudio');
+ if isempty(S_ws_geterpset)
+ S_ws_geterpset = observe_ERPDAT.CURRENTERP;
+
+ if isempty(S_ws_geterpset)
+ msgboxText = 'No ERPset was selected!!!';
+ title = 'EStudio: ERPsets';
+ errorfound(msgboxText, title);
+ return;
+ end
+ S_erpplot = f_ERPplot_Parameter(observe_ERPDAT.ALLERP,S_ws_geterpset);
+ estudioworkingmemory('geterpbinchan',S_erpplot.geterpbinchan);
+ estudioworkingmemory('geterpplot',S_erpplot.geterpplot);
+ end
+ S_ws_getbinchan = estudioworkingmemory('geterpbinchan');
+
+ if length(S_ws_geterpset) ==1
+ Enable_minus = 'off';
+ Enable_plus = 'off';
+ else
+ if S_ws_getbinchan.Select_index ==1
+ Enable_minus = 'off';
+ Enable_plus = 'on';
+ elseif S_ws_getbinchan.Select_index == length(S_ws_geterpset)
+ Enable_minus = 'on';
+ Enable_plus = 'off';
+ else
+ Enable_minus = 'on';
+ Enable_plus = 'on';
+ end
+ end
+
+ EStudio_gui_erp_totl.pageinfo_minus.Enable = Enable_minus;
+ EStudio_gui_erp_totl.pageinfo_plus.Enable = Enable_plus;
+
+ try
+ try
+ S_ws_geterpvalues = estudioworkingmemory('geterpvalues');
+ S_ws_viewer = S_ws_geterpvalues.Viewer;
+ catch
+ S_ws_viewer = 'off';
+ end
+ moption = S_ws_geterpvalues.Measure;
+ latency = S_ws_geterpvalues.latency;
+ if strcmp(S_ws_viewer,'on')
+ if isempty(moption)
+ msgboxText = ['EStudio says: User must specify a type of measurement.'];
+ title = 'EStudio: ERP measurement tool- "Measurement type".';
+ errorfound(msgboxText, title);
+ return;
+ end
+ if ismember_bc2({moption}, {'instabl', 'areazt','areazp','areazn', 'nintegz'})
+ if length(latency)~=1
+ msgboxText = ['EStudio says: ' moption ' only needs 1 latency value.'];
+ title = 'EStudio: ERP measurement tool- "Measurement type".';
+ errorfound(msgboxText, title);
+ return;
+ end
+ else
+ if length(latency)~=2
+ msgboxText = ['EStudio says: ' moption ' needs 2 latency values.'];
+ title = 'EStudio: ERP measurement tool- "Measurement type".';
+ errorfound(msgboxText, title);
+ return;
+ else
+ if latency(1)>=latency(2)
+ msgboxText = ['For latency range, lower time limit must be on the left.\n'...
+ 'Additionally, lower time limit must be at least 1/samplerate seconds lesser than the higher one.'];
+ title = 'EStudio: ERP measurement tool-Measurement window';
+ errorfound(sprintf(msgboxText), title);
+ return
+ end
+ end
+ end
+ f_redrawERP_mt_viewer();
+ else
+ f_redrawERP();
+ end
+
+ catch
+ f_redrawERP();
+ end
+ end
+
+
+
+% %%%Display the processing procedure for some panels (e.g., Filter)------------------------
+ function Process_messg_change_main(~,~)
+
+ try
+ [version reldate,ColorB_def,ColorF_def,errorColorF_def] = geterplabstudiodef;
+ catch
+ ColorB_def = [0.95 0.95 0.95];
+ end
+ % ColorB_def = [1 1 1];
+ % EStudio_gui_erp_totl.Process_messg= erpworkingmemory('EStudio_proces_messg');
+ % EStudio_gui_erp_totl.Process_messg.ForegroundColor = [0 0 0];
+ Processed_Method=erpworkingmemory('f_ERP_proces_messg');
+ EStudio_gui_erp_totl.Process_messg.FontSize = 14;
+ if observe_ERPDAT.Process_messg ==1
+ EStudio_gui_erp_totl.Process_messg.String = strcat('1- ',Processed_Method,': Running....');
+ EStudio_gui_erp_totl.Process_messg.BackgroundColor = ColorB_def;%[1 1 1];
+ EStudio_gui_erp_totl.Process_messg.ForegroundColor = [0 0 0];
+ elseif observe_ERPDAT.Process_messg==2
+ EStudio_gui_erp_totl.Process_messg.String = strcat('2- ',Processed_Method,': Complete');
+ EStudio_gui_erp_totl.Process_messg.ForegroundColor = [0 0.5 0];
+ EStudio_gui_erp_totl.Process_messg.BackgroundColor = ColorB_def;%[1 1 1];
+ % pause(2);
+ % EStudio_gui_erp_totl.Process_messg.String = '';
+ % EStudio_gui_erp_totl.Process_messg.BackgroundColor = ColorB_def;%[0.95 0.95 0.95];
+ elseif observe_ERPDAT.Process_messg ==3
+ EStudio_gui_erp_totl.Process_messg.String = strcat('2- ',Processed_Method,': Error');
+ EStudio_gui_erp_totl.Process_messg.ForegroundColor = [1 0 0];
+ EStudio_gui_erp_totl.Process_messg.BackgroundColor = ColorB_def;%[1 1 1];
+ elseif observe_ERPDAT.Process_messg ==4
+ EStudio_gui_erp_totl.Process_messg.String = strcat('Warning: ',32,Processed_Method);
+ EStudio_gui_erp_totl.Process_messg.ForegroundColor = [1 0 0];
+ EStudio_gui_erp_totl.Process_messg.BackgroundColor = ColorB_def;%[1 1 1];
+ else
+
+ end
+ pause(0.1);
+ EStudio_gui_erp_totl.Process_messg.String = '';
+ EStudio_gui_erp_totl.Process_messg.BackgroundColor = ColorB_def;%[0.95 0.95 0.95];
+
+ end
+
+%%--------------------Function to close the toolbox------------------------
+ function onExit(~,~)
+ BackERPLABcolor = [1 0.9 0.3]; % yellow
+ question = ['Are you sure to quit EStudio?'];
+ title = 'Exit';
+ oldcolor = get(0,'DefaultUicontrolBackgroundColor');
+ set(0,'DefaultUicontrolBackgroundColor',BackERPLABcolor)
+ button = questdlg(sprintf(question), title,'Cancel','No', 'Yes','Yes');
+ set(0,'DefaultUicontrolBackgroundColor',oldcolor);
+ if strcmpi(button,'Yes')
+ try
+ close(EStudio_gui_erp_totl.Window);
+ catch
+ return;
+ end
+ else
+ return;
+ end
+ end
+
+
+
+%%%%%%%%%%%%%%%%%%%%%%%
+end % end of the function
\ No newline at end of file
diff --git a/Studio V1/Functions/EEGLAB/CSD/eeg_checkchanlocs.m b/Studio V1/Functions/EEGLAB/CSD/eeg_checkchanlocs.m
new file mode 100755
index 00000000..4ff19e7a
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eeg_checkchanlocs.m
@@ -0,0 +1,276 @@
+% eeg_checkchanlocs() - Check the consistency of the channel locations structure
+% of an EEGLAB dataset.
+%
+% Usage:
+% >> EEG = eeg_checkchanlocs(EEG);
+% >> [chanlocs chaninfo] = eeg_checkchanlocs( chanlocs, chaninfo);
+%
+% Inputs:
+% EEG - EEG dataset
+% chanlocs - EEG.chanlocs structure
+% chaninfo - EEG.chaninfo structure
+%
+% Outputs:
+% EEG - new EEGLAB dataset with updated channel location structures
+% EEG.chanlocs, EEG.urchanlocs, EEG.chaninfo
+% chanlocs - updated channel location structure
+% chaninfo - updated chaninfo structure
+%
+% Author: Arnaud Delorme, SCCN/INC/UCSD, March 2, 2011
+
+% Copyright (C) SCCN/INC/UCSD, March 2, 2011, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% Hey Arno -- this is a quick fix to make an analysis work for Makoto
+% I think the old version had a bug...
+
+function [chans, chaninfo, chanedit]= eeg_checkchanlocs(chans, chaninfo);
+
+if nargin < 1
+ help eeg_checkchanlocs;
+ return;
+end
+
+if nargin < 2
+ chaninfo = [];
+end
+
+processingEEGstruct = 0;
+if isfield(chans, 'data')
+ processingEEGstruct = 1;
+ tmpEEG = chans;
+ chans = tmpEEG.chanlocs;
+ chaninfo = tmpEEG.chaninfo;
+end
+
+if ~isfield(chans, 'datachan')
+ [chanedit,dummy,complicated] = insertchans(chans, chaninfo);
+else
+ chanedit = chans;
+ complicated = true;
+end
+
+nosevals = { '+X' '-X' '+Y' '-Y' };
+if ~isfield(chaninfo, 'plotrad'), chaninfo.plotrad = []; end
+if ~isfield(chaninfo, 'shrink'), chaninfo.shrink = []; end
+if ~isfield(chaninfo, 'nosedir'), chaninfo.nosedir = nosevals{1}; end
+
+% handles deprecated fields
+% -------------------------
+plotrad = [];
+if isfield(chanedit, 'plotrad'),
+ plotrad = chanedit(1).plotrad;
+ chanedit = rmfield(chanedit, 'plotrad');
+ if ischar(plotrad) && ~isempty(str2num(plotrad)), plotrad = str2num(plotrad); end
+ chaninfo.plotrad = plotrad;
+end
+if isfield(chanedit, 'shrink') && ~isempty(chanedit(1).shrink)
+ shrinkorskirt = 1;
+ if ~ischar(chanedit(1).shrink)
+ plotrad = 0.5/(1-chanedit(1).shrink); % convert old values
+ end
+ chanedit = rmfield(chanedit, 'shrink');
+ chaninfo.plotrad = plotrad;
+end
+
+% set non-existent fields to []
+% -----------------------------
+fields = { 'labels' 'theta' 'radius' 'X' 'Y' 'Z' 'sph_theta' 'sph_phi' 'sph_radius' 'type' 'ref' 'urchan' };
+fieldtype = { 'str' 'num' 'num' 'num' 'num' 'num' 'num' 'num' 'num' 'str' 'str' 'num' };
+check_newfields = true; %length(fieldnames(chanedit)) < length(fields);
+if ~isempty(chanedit)
+ for index = 1:length(fields)
+ if check_newfields && ~isfield(chanedit, fields{index})
+ % new field
+ % ---------
+ if strcmpi(fieldtype{index}, 'num')
+ chanedit = setfield(chanedit, {1}, fields{index}, []);
+ else
+ for indchan = 1:length(chanedit)
+ chanedit = setfield(chanedit, {indchan}, fields{index}, '');
+ end
+ end
+ else
+ % existing fields
+ % ---------------
+ allvals = {chanedit.(fields{index})};
+ if strcmpi(fieldtype{index}, 'num')
+ if ~all(cellfun('isclass',allvals,'double'))
+ numok = cellfun(@isnumeric, allvals);
+ if any(numok == 0)
+ for indConvert = find(numok == 0)
+ chanedit = setfield(chanedit, {indConvert}, fields{index}, []);
+ end
+ end
+ end
+ else
+ strok = cellfun('isclass', allvals,'char');
+ if strcmpi(fields{index}, 'labels'), prefix = 'E'; else prefix = ''; end
+ if any(strok == 0)
+ for indConvert = find(strok == 0)
+ try
+ strval = [ prefix num2str(getfield(chanedit, {indConvert}, fields{index})) ];
+ chanedit = setfield(chanedit, {indConvert}, fields{index}, strval);
+ catch
+ chanedit = setfield(chanedit, {indConvert}, fields{index}, '');
+ end
+ end
+ end
+ end
+ end
+ end
+end
+if ~isequal(fieldnames(chanedit)',fields)
+ try
+ chanedit = orderfields(chanedit, fields);
+ catch, end
+end
+
+
+% check channel labels
+if isfield(chanedit, 'labels')
+ % prefix (EDF format specification)?
+ if strfind([chanedit.labels], 'EEG') % `contains() is not back compatible
+ disp('Detected/removing ''EEG'' prefix from channel labels')
+ chanprefixes = {'EEG-', 'EEG ', 'EEG'}; % order matters
+ tmp = {chanedit.labels};
+ for idx = 1:length(chanprefixes)
+ tmp = strrep(tmp, chanprefixes(idx), '');
+ end
+ [chanedit.labels] = deal(tmp{:});
+ end
+
+ % duplicate labels?
+ tmp = sort({chanedit.labels});
+ if any(strcmp(tmp(1:end-1),tmp(2:end)))
+ disp('Warning: some channels have the same label');
+ end
+
+ % empty labels?
+ indEmpty = find(cellfun(@isempty, {chanedit.labels}));
+ if ~isempty(indEmpty)
+ tmpWarning = warning('backtrace');
+ warning backtrace off;
+ warning('channel labels should not be empty, creating unique labels');
+ warning(tmpWarning);
+ for index = indEmpty
+ chanedit(index).labels = sprintf('E%d', index);
+ end
+ end
+end
+
+% remove fields
+% -------------
+if isfield(chanedit, 'sph_phi_besa' ), chanedit = rmfield(chanedit, 'sph_phi_besa'); end
+if isfield(chanedit, 'sph_theta_besa'), chanedit = rmfield(chanedit, 'sph_theta_besa'); end
+
+% Populating channel location fields with all coordinates systems
+if (any( cellfun('isempty',{ chanedit.X })) || any( cellfun('isempty', { chanedit.theta})) || any( cellfun('isempty', { chanedit.sph_theta}))) &&...
+ (any(~cellfun('isempty',{ chanedit.X })) || any(~cellfun('isempty', { chanedit.theta})) || any(~cellfun('isempty', { chanedit.sph_theta})))
+ try
+ chanedit = convertlocs(chanedit,'auto');
+ if isfield(chanedit, 'sph_theta_besa') chanedit = rmfield(chanedit, 'sph_theta_besa'); end
+ if isfield(chanedit, 'sph_phi_besa' ) chanedit = rmfield(chanedit, 'sph_phi_besa' ); end
+ catch
+ disp('eeg_checkchanlocs: Unable to convert electrode locations between coordinate systems');
+ end
+end
+
+% reconstruct the chans structure
+% -------------------------------
+if complicated
+ [chans chaninfo.nodatchans] = getnodatchan( chanedit );
+ if ~isfield(chaninfo, 'nodatchans'), chaninfo.nodatchans = []; end
+ if isempty(chanedit)
+ for iField = 1:length(fields)
+ chanedit = setfield(chanedit, fields{iField}, []);
+ end
+ end
+else
+ chans = rmfield(chanedit,'datachan');
+ chaninfo.nodatchans = [];
+end
+
+if processingEEGstruct
+ tmpEEG.chanlocs = chans;
+ tmpEEG.chaninfo = chaninfo;
+ chans = tmpEEG;
+end
+
+% ---------------------------------------------
+% separate data channels from non-data channels
+% ---------------------------------------------
+function [chans, fidsval] = getnodatchan(chans)
+if isfield(chans,'datachan')
+ [chans(cellfun('isempty',{chans.datachan})).datachan] = deal(0);
+ fids = [chans.datachan] == 0;
+ fidsval = chans(fids);
+ chans = rmfield(chans(~fids),'datachan');
+else
+ fids = [];
+end
+
+% ----------------------------------------
+% fuse data channels and non-data channels
+% ----------------------------------------
+function [chans, chaninfo,complicated] = insertchans(chans, chaninfo, nchans)
+if nargin < 3, nchans = length(chans); end
+[chans.datachan] = deal(1);
+complicated = false; % whether we need complicated treatment of datachans & co further down the road.....
+
+if isfield(chans,'type')
+ mask = strcmpi({chans.type},'FID') | strcmpi({chans.type},'IGNORE');
+ if any(mask)
+ [chans(mask).datachan] = deal(0);
+ complicated = true;
+ end
+end
+if length(chans) > nchans && nchans ~= 0 % reference at the end of the structure
+ chans(end).datachan = 0;
+ complicated = true;
+end
+if isfield(chaninfo, 'nodatchans')
+ if ~isempty(chaninfo.nodatchans) && isstruct(chaninfo.nodatchans)
+ chanlen = length(chans);
+ for index = 1:length(chaninfo.nodatchans)
+ fields = fieldnames( chaninfo.nodatchans );
+ ind = chanlen+index;
+ for f = 1:length( fields )
+ chans = setfield(chans, { ind }, fields{f}, getfield( chaninfo.nodatchans, { index }, fields{f}));
+ end
+ chans(ind).datachan = 0;
+ complicated = true;
+ end
+ chaninfo = rmfield(chaninfo, 'nodatchans');
+
+ % put these channels first
+ % ------------------------
+ % tmp = chans(chanlen+1:end);
+ % chans(length(tmp)+1:end) = chans(1:end-length(tmp));
+ % chans(1:length(tmp)) = tmp;
+ end
+end
diff --git a/Studio V1/Functions/EEGLAB/CSD/eeg_checkset.m b/Studio V1/Functions/EEGLAB/CSD/eeg_checkset.m
new file mode 100755
index 00000000..832df7d4
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eeg_checkset.m
@@ -0,0 +1,1414 @@
+% eeg_checkset() - check the consistency of the fields of an EEG dataset
+% Also: See EEG dataset structure field descriptions below.
+%
+% Usage: >> [EEGOUT,changes] = eeg_checkset(EEG); % perform all checks
+% except 'makeur'
+% >> [EEGOUT,changes] = eeg_checkset(EEG, 'keyword'); % perform 'keyword' check(s)
+%
+% Inputs:
+% EEG - EEGLAB dataset structure or (ALLEEG) array of EEG structures
+%
+% Optional keywords:
+% 'icaconsist' - if EEG contains several datasets, check whether they have
+% the same ICA decomposition
+% 'epochconsist' - if EEG contains several datasets, check whether they have
+% identical epoch lengths and time limits.
+% 'chanconsist' - if EEG contains several datasets, check whether they have
+% the same number of channels and channel labels.
+% 'data' - check whether EEG contains data (EEG.data)
+% 'loaddata' - load data array (if necessary)
+% 'savedata' - save data array (if necessary - see EEG.saved below)
+% 'contdata' - check whether EEG contains continuous data
+% 'epoch' - check whether EEG contains epoched or continuous data
+% 'ica' - check whether EEG contains an ICA decomposition
+% 'besa' - check whether EEG contains component dipole locations
+% 'event' - check whether EEG contains an event array
+% 'makeur' - remake the EEG.urevent structure
+% 'checkur' - check whether the EEG.urevent structure is consistent
+% with the EEG.event structure
+% 'chanlocsize' - check the EEG.chanlocs structure length; show warning if
+% necessary.
+% 'chanlocs_homogeneous' - check whether EEG contains consistent channel
+% information; if not, correct it.This option
+% calls eeg_checkchanlocs.
+% 'eventconsistency' - check whether EEG.event information are consistent;
+% rebuild event* subfields of the 'EEG.epoch' structure
+% (can be time consuming).
+% Outputs:
+% EEGOUT - output EEGLAB dataset or dataset array
+% changes - change code: 'no' = no changes; 'yes' = the EEG
+% structure was modified
+%
+% ===========================================================
+% The structure of an EEG dataset under EEGLAB (as of v5.03):
+%
+% Basic dataset information:
+% EEG.setname - descriptive name|title for the dataset
+% EEG.filename - filename of the dataset file on disk
+% EEG.filepath - filepath (directory/folder) of the dataset file(s)
+% EEG.trials - number of epochs (or trials) in the dataset.
+% If data are continuous, this number is 1.
+% EEG.pnts - number of time points (or data frames) per trial (epoch).
+% If data are continuous (trials=1), the total number
+% of time points (frames) in the dataset
+% EEG.nbchan - number of channels
+% EEG.srate - data sampling rate (in Hz)
+% EEG.xmin - epoch start latency|time (in sec. relative to the
+% time-locking event at time 0)
+% EEG.xmax - epoch end latency|time (in seconds)
+% EEG.times - vector of latencies|times in milliseconds (one per time point)
+% EEG.ref - ['common'|'averef'|integer] reference channel type or number
+% EEG.history - cell array of ascii pop-window commands that created
+% or modified the dataset
+% EEG.comments - comments about the nature of the dataset (edit this via
+% menu selection Edit > About this dataset)
+% EEG.etc - miscellaneous (technical or temporary) dataset information
+% EEG.saved - ['yes'|'no'] 'no' flags need to save dataset changes before exit
+%
+% The data:
+% EEG.data - two-dimensional continuous data array (chans, frames)
+% ELSE, three-dim. epoched data array (chans, frames, epochs)
+%
+% The channel locations sub-structures:
+% EEG.chanlocs - structure array containing names and locations
+% of the channels on the scalp
+% EEG.urchanlocs - original (ur) dataset chanlocs structure containing
+% all channels originally collected with these data
+% (before channel rejection)
+% EEG.chaninfo - structure containing additional channel info
+% EEG.ref - type of channel reference ('common'|'averef'|+/-int]
+% EEG.splinefile - location of the spline file used by headplot() to plot
+% data scalp maps in 3-D
+%
+% The event and epoch sub-structures:
+% EEG.event - event structure containing times and nature of experimental
+% events recorded as occurring at data time points
+% EEG.urevent - original (ur) event structure containing all experimental
+% events recorded as occurring at the original data time points
+% (before data rejection)
+% EEG.epoch - epoch event information and epoch-associated data structure array (one per epoch)
+% EEG.eventdescription - cell array of strings describing event fields.
+% EEG.epochdescription - cell array of strings describing epoch fields.
+% --> See the http://sccn.ucsd.edu/eeglab/maintut/eeglabscript.html for details
+%
+% ICA (or other linear) data components:
+% EEG.icasphere - sphering array returned by linear (ICA) decomposition
+% EEG.icaweights - unmixing weights array returned by linear (ICA) decomposition
+% EEG.icawinv - inverse (ICA) weight matrix. Columns gives the projected
+% topographies of the components to the electrodes.
+% EEG.icaact - ICA activations matrix (components, frames, epochs)
+% Note: [] here means that 'compute_ica' option has been set
+% to 0 under 'File > Memory options' In this case,
+% component activations are computed only as needed.
+% EEG.icasplinefile - location of the spline file used by headplot() to plot
+% component scalp maps in 3-D
+% EEG.chaninfo.icachansind - indices of channels used in the ICA decomposition
+% EEG.dipfit - array of structures containing component map dipole models
+%
+% Variables indicating membership of the dataset in a studyset:
+% EEG.subject - studyset subject code
+% EEG.group - studyset group code
+% EEG.condition - studyset experimental condition code
+% EEG.run - studyset run number
+% EEG.session - studyset session number
+%
+% Variables used for manual and semi-automatic data rejection:
+% EEG.specdata - data spectrum for every single trial
+% EEG.specica - data spectrum for every single trial
+% EEG.stats - statistics used for data rejection
+% EEG.stats.kurtc - component kurtosis values
+% EEG.stats.kurtg - global kurtosis of components
+% EEG.stats.kurta - kurtosis of accepted epochs
+% EEG.stats.kurtr - kurtosis of rejected epochs
+% EEG.stats.kurtd - kurtosis of spatial distribution
+% EEG.reject - statistics used for data rejection
+% EEG.reject.entropy - entropy of epochs
+% EEG.reject.entropyc - entropy of components
+% EEG.reject.threshold - rejection thresholds
+% EEG.reject.icareject - epochs rejected by ICA criteria
+% EEG.reject.gcompreject - rejected ICA components
+% EEG.reject.sigreject - epochs rejected by single-channel criteria
+% EEG.reject.elecreject - epochs rejected by raw data criteria
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 2001
+%
+% See also: eeglab()
+
+% Copyright (C) 2001 Arnaud Delorme, Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% 01-25-02 reformated help & license -ad
+% 01-26-02 chandeg events and trial condition format -ad
+% 01-27-02 debug when trial condition is empty -ad
+% 02-15-02 remove icawinv recompute for pop_epoch -ad & ja
+% 02-16-02 remove last modification and test icawinv separatelly -ad
+% 02-16-02 empty event and epoch check -ad
+% 03-07-02 add the eeglab options -ad
+% 03-07-02 corrected typos and rate/point calculation -ad & ja
+% 03-15-02 add channel location reading & checking -ad
+% 03-15-02 add checking of ICA and epochs with pop_up windows -ad
+% 03-27-02 recorrected rate/point calculation -ad & sm
+
+function [EEG, res] = eeg_checkset( EEG, varargin );
+msg = '';
+res = 'no';
+com = sprintf('EEG = eeg_checkset( EEG );');
+
+if nargin < 1
+ help eeg_checkset;
+ return;
+end
+
+if isempty(EEG), return; end
+if ~isfield(EEG, 'data'), return; end
+
+% checking multiple datasets
+% --------------------------
+if length(EEG) > 1
+
+ if nargin > 1
+ switch varargin{1}
+ case 'epochconsist', % test epoch consistency
+ % ----------------------
+ res = 'no';
+ datasettype = unique_bc( [ EEG.trials ] );
+ if datasettype(1) == 1 && length(datasettype) == 1, return; % continuous data
+ elseif datasettype(1) == 1, return; % continuous and epoch data
+ end
+
+ allpnts = unique_bc( [ EEG.pnts ] );
+ allxmin = unique_bc( [ EEG.xmin ] );
+ if length(allpnts) == 1 && length(allxmin) == 1, res = 'yes'; end
+ return;
+
+ case 'chanconsist' % test channel number and name consistency
+ % ----------------------------------------
+ res = 'yes';
+ chanlen = unique_bc( [ EEG.nbchan ] );
+ anyempty = unique_bc( cellfun( 'isempty', { EEG.chanlocs }) );
+ if length(chanlen) == 1 && all(anyempty == 0)
+ tmpchanlocs = EEG(1).chanlocs;
+ channame1 = { tmpchanlocs.labels };
+ for i = 2:length(EEG)
+ tmpchanlocs = EEG(i).chanlocs;
+ channame2 = { tmpchanlocs.labels };
+ if length(intersect(channame1, channame2)) ~= length(channame1), res = 'no'; end
+ end
+ else res = 'no';
+ end
+
+ % Field 'datachan in 'urchanlocs' is removed, if exist
+ if isfield(EEG, 'urchanlocs') && ~all(cellfun(@isempty,{EEG.urchanlocs})) && isfield([EEG.urchanlocs], 'datachan')
+ [EEG.urchanlocs] = deal(rmfield([EEG.urchanlocs], 'datachan'));
+ end
+ return;
+
+ case 'icaconsist' % test ICA decomposition consistency
+ % ----------------------------------
+ res = 'yes';
+ anyempty = unique_bc( cellfun( 'isempty', { EEG.icaweights }) );
+ if length(anyempty) == 1 && anyempty(1) == 0
+ ica1 = EEG(1).icawinv;
+ for i = 2:length(EEG)
+ if ~isequal(EEG(1).icawinv, EEG(i).icawinv)
+ res = 'no';
+ end
+ end
+ else res = 'no';
+ end
+ return;
+
+ end
+ end
+
+end
+
+% reading these option take time because
+% of disk access
+% --------------
+eeglab_options;
+
+% standard checking
+% -----------------
+ALLEEG = EEG;
+for inddataset = 1:length(ALLEEG)
+
+ EEG = ALLEEG(inddataset);
+
+ % additional checks
+ % -----------------
+ res = -1; % error code
+ if ~isempty( varargin)
+ for index = 1:length( varargin )
+ switch varargin{ index }
+ case 'data',; % already done at the top
+ case 'contdata',;
+ if EEG.trials > 1
+ errordlg2(strvcat('Error: function only works on continuous data'), 'Error');
+ return;
+ end
+ case 'ica',
+ if isempty(EEG.icaweights)
+ errordlg2(strvcat('Error: no ICA decomposition. use menu "Tools > Run ICA" first.'), 'Error');
+ return;
+ end
+ case 'epoch',
+ if EEG.trials == 1
+ errordlg2(strvcat('Extract epochs before running that function', 'Use Tools > Extract epochs'), 'Error');
+ return
+ end
+ case 'besa',
+ if ~isfield(EEG, 'sources')
+ errordlg2(strvcat('No dipole information', '1) Export component maps: Tools > Localize ... BESA > Export ...' ...
+ , '2) Run BESA to localize the equivalent dipoles', ...
+ '3) Import the BESA dipoles: Tools > Localize ... BESA > Import ...'), 'Error');
+ return
+ end
+ case 'event',
+ if isempty(EEG.event)
+ errordlg2(strvcat('Requires events. You need to add events first.', ...
+ 'Use "File > Import event info" or "File > Import epoch info"', ...
+ 'Install plugin VidEd to manually add events as you scroll the data.' ), 'Error');
+ return;
+ end
+ case 'chanloc',
+ tmplocs = EEG.chanlocs;
+ if isempty(tmplocs) || ~isfield(tmplocs, 'theta') || all(cellfun('isempty', { tmplocs.theta }))
+ errordlg2( strvcat('This functionality requires channel location information.', ...
+ 'Enter the channel file name via "Edit > Edit dataset info".', ...
+ 'For channel file format, see ''>> help readlocs'' from the command line.'), 'Error');
+ return;
+ end
+ case 'chanlocs_homogeneous',
+ tmplocs = EEG.chanlocs;
+ if isempty(tmplocs) || ~isfield(tmplocs, 'theta') || all(cellfun('isempty', { tmplocs.theta }))
+ errordlg2( strvcat('This functionality requires channel location information.', ...
+ 'Enter the channel file name via "Edit > Edit dataset info".', ...
+ 'For channel file format, see ''>> help readlocs'' from the command line.'), 'Error');
+ return;
+ end
+ if ~isfield(EEG.chanlocs, 'X') || isempty(EEG.chanlocs(1).X)
+ EEG = eeg_checkchanlocs(EEG);
+ % EEG.chanlocs = convertlocs(EEG.chanlocs, 'topo2all');
+ res = ['EEG = eeg_checkset(EEG, ''chanlocs_homogeneous''); ' ];
+ end
+ case 'chanlocsize',
+ if ~isempty(EEG.chanlocs)
+ if length(EEG.chanlocs) > EEG.nbchan
+ questdlg2(strvcat('Warning: there is one more electrode location than', ...
+ 'data channels. EEGLAB will consider the last electrode to be the', ...
+ 'common reference channel. If this is not the case, remove the', ...
+ 'extra channel'), 'Warning', 'Ok', 'Ok');
+ end
+ end
+ case 'makeur',
+ if ~isempty(EEG.event)
+ if isfield(EEG.event, 'urevent'),
+ EEG.event = rmfield(EEG.event, 'urevent');
+ disp('eeg_checkset note: re-creating the original event table (EEG.urevent)');
+ else
+ disp('eeg_checkset note: creating the original event table (EEG.urevent)');
+ end
+ EEG.urevent = EEG.event;
+ for index = 1:length(EEG.event)
+ EEG.event(index).urevent = index;
+ end
+ end
+ case 'checkur',
+ if ~isempty(EEG.event)
+ if isfield(EEG.event, 'urevent') && ~isempty(EEG.urevent)
+ urlatencies = [ EEG.urevent.latency ];
+ [newlat tmpind] = sort(urlatencies);
+ if ~isequal(newlat, urlatencies)
+ EEG.urevent = EEG.urevent(tmpind);
+ [tmp tmpind2] = sort(tmpind);
+ for index = 1:length(EEG.event)
+ EEG.event(index).urevent = tmpind2(EEG.event(index).urevent);
+ end
+ end
+ end
+ end
+ case 'eventconsistency',
+ [EEG res] = eeg_checkset(EEG);
+ if isempty(EEG.event), return; end
+
+ % check events (slow)
+ % ------------
+ if isfield(EEG.event, 'type')
+ eventInds = arrayfun(@(x)isempty(x.type), EEG.event);
+ if any(eventInds)
+ if all(arrayfun(@(x)isnumeric(x.type), EEG.event))
+ for ind = find(eventInds), EEG.event(ind).type = NaN; end
+ else for ind = find(eventInds), EEG.event(ind).type = 'empty'; end
+ end
+ end
+ if ~all(arrayfun(@(x)ischar(x.type), EEG.event)) && ~all(arrayfun(@(x)isnumeric(x.type), EEG.event))
+ disp('Warning: converting all event types to strings');
+ for ind = 1:length(EEG.event)
+ EEG.event(ind).type = num2str(EEG.event(ind).type);
+ end
+ EEG = eeg_checkset(EEG, 'eventconsistency');
+ end
+
+ end
+
+ % Removing events with NaN latency
+ % --------------------------------
+ if isfield(EEG.event, 'latency')
+ nanindex = find(isnan([ EEG.event.latency ]));
+ if ~isempty(nanindex)
+ EEG.event(nanindex) = [];
+ trialtext = '';
+ for inan = 1:length(nanindex)
+ trialstext = [trialtext ' ' num2str(nanindex(inan))];
+ end
+ disp(sprintf(['eeg_checkset: Event(s) with NaN latency were deleted \nDeleted event index(es):[' trialstext ']']));
+ end
+ end
+
+ % remove the events which latency are out of boundary
+ % ---------------------------------------------------
+ if isfield(EEG.event, 'latency')
+ if isfield(EEG.event, 'type') && ischar(EEG.event(1).type)
+ if strcmpi(EEG.event(1).type, 'boundary') && isfield(EEG.event, 'duration')
+ if EEG.event(1).duration < 1
+ EEG.event(1) = [];
+ elseif EEG.event(1).latency > 0 && EEG.event(1).latency < 1
+ EEG.event(1).latency = 0.5;
+ end
+ end
+ end
+
+ try, tmpevent = EEG.event; alllatencies = [ tmpevent.latency ];
+ catch, error('Checkset: error empty latency entry for new events added by user');
+ end
+ I1 = find(alllatencies < 0.5);
+ I2 = find(alllatencies > EEG.pnts*EEG.trials+1); % The addition of 1 was included
+ % because, if data epochs are extracted from -1 to
+ % time 0, this allow to include the last event in
+ % the last epoch (otherwise all epochs have an
+ % event except the last one
+ if (length(I1) + length(I2)) > 0
+ fprintf('eeg_checkset warning: %d/%d events had out-of-bounds latencies and were removed\n', ...
+ length(I1) + length(I2), length(EEG.event));
+ EEG.event(union(I1, I2)) = [];
+ end
+ end
+ if isempty(EEG.event), return; end
+
+ % save information for non latency fields updates
+ % -----------------------------------------------
+ difffield = [];
+ if ~isempty(EEG.event) && isfield(EEG.event, 'epoch')
+ % remove fields with empty epochs
+ % -------------------------------
+ removeevent = [];
+ try
+ tmpevent = EEG.event;
+ allepochs = [ tmpevent.epoch ];
+ removeevent = find( allepochs < 1 | allepochs > EEG.trials);
+ if ~isempty(removeevent)
+ disp([ 'eeg_checkset warning: ' int2str(length(removeevent)) ' event had invalid epoch numbers and were removed']);
+ end
+ catch
+ for indexevent = 1:length(EEG.event)
+ if isempty( EEG.event(indexevent).epoch ) || ~isnumeric(EEG.event(indexevent).epoch) ...
+ || EEG.event(indexevent).epoch < 1 || EEG.event(indexevent).epoch > EEG.trials
+ removeevent = [removeevent indexevent];
+ disp([ 'eeg_checkset warning: event ' int2str(indexevent) ' has an invalid epoch number: removed']);
+ end
+ end
+ end
+ EEG.event(removeevent) = [];
+ end
+ if isempty(EEG.event), return; end
+
+ % Duration set to 0 if empty
+ % --------------------------
+ if isfield(EEG.event, 'duration')
+ emptyDur = cellfun(@isempty, { EEG.event.duration });
+ if any(emptyDur)
+ for indexevent = find(emptyDur)
+ EEG.event(indexevent).duration = 0;
+ end
+ end
+ end
+
+ % uniformize fields (str or int) if necessary
+ % -------------------------------------------
+ fnames = fieldnames(EEG.event);
+ for fidx = 1:length(fnames)
+ fname = fnames{fidx};
+ if ~strcmpi(fname, 'mffkeys') && ~strcmpi(fname, 'mffkeysbackup')
+ tmpevent = EEG.event;
+ allvalues = { tmpevent.(fname) };
+ try
+ % find indices of numeric values among values of this event property
+ valreal = ~cellfun('isclass', allvalues, 'char');
+ catch
+ valreal = mycellfun('isclass', allvalues, 'double');
+ end
+
+ format = 'ok';
+ if ~all(valreal) % all valreal ok
+ format = 'str';
+ if all(valreal == 0) % all valreal=0 ok
+ format = 'ok';
+ end
+ end
+ if strcmp(format, 'str')
+ fprintf('eeg_checkset note: event field format ''%s'' made uniform\n', fname);
+ allvalues = cellfun(@num2str, allvalues, 'uniformoutput', false);
+ [EEG.event(valreal).(fname)] = deal(allvalues{find(valreal)});
+ end
+ end
+ end
+
+ % check boundary events
+ % ---------------------
+ tmpevent = EEG.event;
+ if isfield(tmpevent, 'type') && ~isnumeric(tmpevent(1).type)
+ allEventTypes = { tmpevent.type };
+ boundsInd = strmatch('boundary', allEventTypes);
+ if ~isempty(boundsInd),
+ bounds = [ tmpevent(boundsInd).latency ];
+ % remove last event if necessary
+ if EEG.trials==1;%this if block added by James Desjardins (Jan 13th, 2014)
+ if round(bounds(end)-0.5+1) >= size(EEG.data,2), EEG.event(boundsInd(end)) = []; bounds(end) = []; end; % remove final boundary if any
+ end
+ % The first boundary below need to be kept for
+ % urevent latency calculation
+ % if bounds(1) < 0, EEG.event(bounds(1)) = []; end; % remove initial boundary if any
+ indDoublet = find(bounds(2:end)-bounds(1:end-1)==0);
+ if ~isempty(indDoublet)
+ disp('Warning: duplicate boundary event removed');
+ if isfield(EEG.event, 'duration')
+ for indBound = 1:length(indDoublet)
+ EEG.event(boundsInd(indDoublet(indBound)+1)).duration = EEG.event(boundsInd(indDoublet(indBound)+1)).duration+EEG.event(boundsInd(indDoublet(indBound))).duration;
+ end
+ end
+ EEG.event(boundsInd(indDoublet)) = [];
+ end
+ end
+ end
+ if isempty(EEG.event), return; end
+
+ % check that numeric format is double (Matlab 7)
+ % -----------------------------------
+ allfields = fieldnames(EEG.event);
+ if ~isempty(EEG.event)
+ for index = 1:length(allfields)
+ tmpval = EEG.event(1).(allfields{index});
+ if isnumeric(tmpval) && ~isa(tmpval, 'double')
+ for indexevent = 1:length(EEG.event)
+ tmpval = getfield(EEG.event, { indexevent }, allfields{index} );
+ EEG.event = setfield(EEG.event, { indexevent }, allfields{index}, double(tmpval));
+ end
+ end
+ end
+ end
+
+ % check duration field, replace empty by 0
+ % ----------------------------------------
+ if isfield(EEG.event, 'duration')
+ tmpevent = EEG.event;
+ try, valempt = cellfun('isempty' , { tmpevent.duration });
+ catch, valempt = mycellfun('isempty', { tmpevent.duration });
+ end
+ if any(valempt),
+ for index = find(valempt)
+ EEG.event(index).duration = 0;
+ end
+ end
+ end
+
+ % resort events
+ % -------------
+ if isfield(EEG.event, 'latency')
+ try,
+ if isfield(EEG.event, 'epoch')
+ TMPEEG = pop_editeventvals(EEG, 'sort', { 'epoch' 0 'latency' 0 });
+ else
+ TMPEEG = pop_editeventvals(EEG, 'sort', { 'latency' 0 });
+ end
+ if ~isequal(TMPEEG.event, EEG.event)
+ EEG = TMPEEG;
+ disp('Event resorted by increasing latencies.');
+ end
+ catch,
+ disp('eeg_checkset: problem when attempting to resort event latencies.');
+ end
+ end
+
+ % check latency of first event
+ % ----------------------------
+ if ~isempty(EEG.event)
+ if isfield(EEG.event, 'latency')
+ if EEG.event(1).latency < 0.5
+ EEG.event(1).latency = 0.5;
+ end
+ end
+ end
+
+ % build epoch structure
+ % ---------------------
+ try,
+ if EEG.trials > 1 && ~isempty(EEG.event)
+ % erase existing event-related fields
+ % ------------------------------
+ if ~isfield(EEG,'epoch')
+ EEG.epoch = [];
+ end
+ if ~isempty(EEG.epoch)
+ if length(EEG.epoch) ~= EEG.trials
+ disp('Warning: number of epoch entries does not match number of dataset trials;');
+ disp(' user-defined epoch entries will be erased.');
+ EEG.epoch = [];
+ else
+ fn = fieldnames(EEG.epoch);
+ EEG.epoch = rmfield(EEG.epoch,fn(strncmp('event',fn,5)));
+ end
+ end
+
+ % set event field
+ % ---------------
+ tmpevent = EEG.event;
+ eventepoch = [tmpevent.epoch];
+ epochevent = cell(1,EEG.trials);
+ destdata = epochevent;
+ EEG.epoch(length(epochevent)).event = [];
+ for k=1:length(epochevent)
+ epochevent{k} = find(eventepoch==k);
+ end
+ tmpepoch = EEG.epoch;
+ [tmpepoch.event] = epochevent{:};
+ EEG.epoch = tmpepoch;
+ maxlen = max(cellfun(@length,epochevent));
+
+ % copy event information into the epoch array
+ % -------------------------------------------
+ eventfields = fieldnames(EEG.event)';
+ eventfields = eventfields(~strcmp(eventfields,'epoch'));
+ tmpevent = EEG.event;
+ for k = 1:length(eventfields)
+ fname = eventfields{k};
+ switch fname
+ case 'latency'
+ sourcedata = round(eeg_point2lat([tmpevent.(fname)],[tmpevent.epoch],EEG.srate, [EEG.xmin EEG.xmax]*1000, 1E-3) * 10^8 )/10^8;
+ sourcedata = num2cell(sourcedata);
+ case 'duration'
+ sourcedata = num2cell([tmpevent.(fname)]/EEG.srate*1000);
+ otherwise
+ sourcedata = {tmpevent.(fname)};
+ end
+ if maxlen == 1
+ destdata = cell(1,length(epochevent));
+ destdata(~cellfun('isempty',epochevent)) = sourcedata([epochevent{:}]);
+ else
+ for l=1:length(epochevent)
+ destdata{l} = sourcedata(epochevent{l});
+ end
+ end
+ tmpepoch = EEG.epoch;
+ [tmpepoch.(['event' fname])] = destdata{:};
+ EEG.epoch = tmpepoch;
+ end
+ end
+ catch,
+ errordlg2(['Warning: minor problem encountered when generating' 10 ...
+ 'the EEG.epoch structure (used only in user scripts)']); return;
+ end
+ case { 'loaddata' 'savedata' 'chanconsist' 'icaconsist' 'epochconsist' }, res = '';
+ otherwise, error('eeg_checkset: unknown option');
+ end
+ end
+ end
+
+ res = [];
+
+ % check name consistency
+ % ----------------------
+ if ~isempty(EEG.setname)
+ if ~ischar(EEG.setname)
+ EEG.setname = '';
+ else
+ if size(EEG.setname,1) > 1
+ disp('eeg_checkset warning: invalid dataset name, removed');
+ EEG.setname = '';
+ end
+ end
+ else
+ EEG.setname = '';
+ end
+
+ % checking history and convert if necessary
+ % -----------------------------------------
+ if isfield(EEG, 'history') && size(EEG.history,1) > 1
+ allcoms = cellstr(EEG.history);
+ EEG.history = deblank(allcoms{1});
+ for index = 2:length(allcoms)
+ EEG.history = [ EEG.history 10 deblank(allcoms{index}) ];
+ end
+ end
+
+ % read data if necessary
+ % ----------------------
+ if ischar(EEG.data) && nargin > 1
+ if strcmpi(varargin{1}, 'loaddata')
+
+ EEG.data = eeg_getdatact(EEG);
+
+ end
+ end
+
+ % save data if necessary
+ % ----------------------
+ if nargin > 1
+
+ % datfile available?
+ % ------------------
+ datfile = 0;
+ if isfield(EEG, 'datfile')
+ if ~isempty(EEG.datfile)
+ datfile = 1;
+ end
+ end
+
+ % save data
+ % ---------
+ if strcmpi(varargin{1}, 'savedata') && option_storedisk
+ error('eeg_checkset: cannot call savedata any more');
+
+ % the code below is deprecated
+ if ~ischar(EEG.data) % not already saved
+ disp('Writing previous dataset to disk...');
+
+ if datfile
+ tmpdata = reshape(EEG.data, EEG.nbchan, EEG.pnts*EEG.trials);
+ floatwrite( tmpdata', fullfile(EEG.filepath, EEG.datfile), 'ieee-le');
+ EEG.data = EEG.datfile;
+ end
+ EEG.icaact = [];
+
+ % saving dataset
+ % --------------
+ filename = fullfile(EEG(1).filepath, EEG(1).filename);
+ if ~ischar(EEG.data) && option_single, EEG.data = single(EEG.data); end
+ v = version;
+ if str2num(v(1)) >= 7, save( filename, '-v6', '-mat', 'EEG'); % Matlab 7
+ else save( filename, '-mat', 'EEG');
+ end
+ if ~ischar(EEG.data), EEG.data = 'in set file'; end
+
+ % res = sprintf('%s = eeg_checkset( %s, ''savedata'');', inputname(1), inputname(1));
+ res = ['EEG = eeg_checkset( EEG, ''savedata'');'];
+ end
+ end
+ end
+
+ % numerical format
+ % ----------------
+ if isnumeric(EEG.data)
+ v = version;
+ EEG.icawinv = double(EEG.icawinv); % required for dipole fitting, otherwise it crashes
+ EEG.icaweights = double(EEG.icaweights);
+ EEG.icasphere = double(EEG.icasphere);
+ if ~isempty(findstr(v, 'R11')) || ~isempty(findstr(v, 'R12')) || ~isempty(findstr(v, 'R13'))
+ EEG.data = double(EEG.data);
+ EEG.icaact = double(EEG.icaact);
+ else
+ try,
+ if isa(EEG.data, 'double') && option_single
+ EEG.data = single(EEG.data);
+ EEG.icaact = single(EEG.icaact);
+ end
+ catch,
+ disp('WARNING: EEGLAB ran out of memory while converting dataset to single precision.');
+ disp(' Save dataset (preferably saving data to a separate file; see File > Memory options).');
+ disp(' Then reload it.');
+ end
+ end
+ end
+
+ % verify the type of the variables
+ % --------------------------------
+ % data dimensions -------------------------
+ if isnumeric(EEG.data) && ~isempty(EEG.data)
+ if ~isequal(size(EEG.data,1), EEG.nbchan)
+ disp( [ 'eeg_checkset warning: number of columns in data (' int2str(size(EEG.data,1)) ...
+ ') does not match the number of channels (' int2str(EEG.nbchan) '): corrected' ]);
+ res = com;
+ EEG.nbchan = size(EEG.data,1);
+ end
+
+ if (ndims(EEG.data)) < 3 && (EEG.pnts > 1)
+ if mod(size(EEG.data,2), EEG.pnts) ~= 0
+ fprintf(2, 'eeg_checkset error: binary data file likely truncated, importing anyway...\n');
+ if EEG.trials > 1
+ EEG.trials = floor(size(EEG.data,2)/EEG.pnts);
+ EEG.data(:,EEG.trials*EEG.pnts+1:end) = [];
+ res = com;
+ else
+ EEG.pnts = size(EEG.data,2);
+ res = com;
+ end
+ else
+ if EEG.trials > 1
+ disp( 'eeg_checkset note: data array made 3-D');
+ res = com;
+ end
+ if size(EEG.data,2) ~= EEG.pnts
+ EEG.data = reshape(EEG.data, EEG.nbchan, EEG.pnts, size(EEG.data,2)/EEG.pnts);
+ end
+ end
+ end
+
+ % size of data -----------
+ if size(EEG.data,3) ~= EEG.trials
+ disp( ['eeg_checkset warning: 3rd dimension size of data (' int2str(size(EEG.data,3)) ...
+ ') does not match the number of epochs (' int2str(EEG.trials) '), corrected' ]);
+ res = com;
+ EEG.trials = size(EEG.data,3);
+ end
+ if size(EEG.data,2) ~= EEG.pnts
+ disp( [ 'eeg_checkset warning: number of columns in data (' int2str(size(EEG.data,2)) ...
+ ') does not match the number of points (' int2str(EEG.pnts) '): corrected' ]);
+ res = com;
+ EEG.pnts = size(EEG.data,2);
+ end
+ end
+
+ % parameters consistency
+ % -------------------------
+ if round(EEG.srate*(EEG.xmax-EEG.xmin)+1) ~= EEG.pnts
+ fprintf( 'eeg_checkset note: upper time limit (xmax) adjusted so (xmax-xmin)*srate+1 = number of frames\n');
+ if EEG.srate == 0
+ EEG.srate = 1;
+ end
+ EEG.xmax = (EEG.pnts-1)/EEG.srate+EEG.xmin;
+ res = com;
+ end
+
+ % deal with event arrays
+ % ----------------------
+ if ~isfield(EEG, 'event'), EEG.event = []; res = com; end
+ if ~isempty(EEG.event)
+ if EEG.trials > 1 && ~isfield(EEG.event, 'epoch')
+ if popask( [ 'eeg_checkset error: the event info structure does not contain an ''epoch'' field.' ...
+ 'Should EEGLAB attempt to abort operation ?' 10 '(press Cancel to fix the problem from the commandline)'])
+ error('eeg_checkset error(): user abort');
+ %res = com;
+ %EEG.event = [];
+ %EEG = eeg_checkset(EEG);
+ %return;
+ else
+ res = com;
+ return;
+ %error('eeg_checkset error: no epoch field in event structure');
+ end
+ end
+ else
+ EEG.event = [];
+ end
+ if isempty(EEG.event)
+ EEG.eventdescription = {};
+ end
+ if ~isfield(EEG, 'eventdescription') || ~iscell(EEG.eventdescription)
+ EEG.eventdescription = cell(1, length(fieldnames(EEG.event)));
+ res = com;
+ else
+ if ~isempty(EEG.event)
+ if length(EEG.eventdescription) > length( fieldnames(EEG.event))
+ EEG.eventdescription = EEG.eventdescription(1:length( fieldnames(EEG.event)));
+ elseif length(EEG.eventdescription) < length( fieldnames(EEG.event))
+ EEG.eventdescription(end+1:length( fieldnames(EEG.event))) = {''};
+ end
+ end
+ end
+ % create urevent if continuous data
+ % ---------------------------------
+ %if ~isempty(EEG.event) && ~isfield(EEG, 'urevent')
+ % EEG.urevent = EEG.event;
+ % disp('eeg_checkset note: creating the original event table (EEG.urevent)');
+ % for index = 1:length(EEG.event)
+ % EEG.event(index).urevent = index;
+ % end
+ %end
+ if isfield(EEG, 'urevent') && isfield(EEG.urevent, 'urevent')
+ EEG.urevent = rmfield(EEG.urevent, 'urevent');
+ end
+
+ % deal with epoch arrays
+ % ----------------------
+ if ~isfield(EEG, 'epoch'), EEG.epoch = []; res = com; end
+
+ % check if only one epoch
+ % -----------------------
+ if EEG.trials == 1
+ if isfield(EEG.event, 'epoch')
+ EEG.event = rmfield(EEG.event, 'epoch'); res = com;
+ end
+ if ~isempty(EEG.epoch)
+ EEG.epoch = []; res = com;
+ end
+ end
+
+ if ~isfield(EEG, 'epochdescription'), EEG.epochdescription = {}; res = com; end
+ if ~isempty(EEG.epoch)
+ if isstruct(EEG.epoch), l = length( EEG.epoch);
+ else l = size( EEG.epoch, 2);
+ end
+ if l ~= EEG.trials
+ if popask( [ 'eeg_checkset error: the number of epoch indices in the epoch array/struct (' ...
+ int2str(l) ') is different from the number of epochs in the data (' int2str(EEG.trials) ').' 10 ...
+ 'Should EEGLAB attempt to abort operation ?' 10 '(press Cancel to fix the problem from the commandline)'])
+ error('eeg_checkset error: user abort');
+ %res = com;
+ %EEG.epoch = [];
+ %EEG = eeg_checkset(EEG);
+ %return;
+ else
+ res = com;
+ return;
+ %error('eeg_checkset error: epoch structure size invalid');
+ end
+ end
+ else
+ EEG.epoch = [];
+ end
+
+ % check ica
+ % ---------
+ if ~isfield(EEG, 'icachansind')
+ if isempty(EEG.icaweights)
+ EEG.icachansind = []; res = com;
+ else
+ EEG.icachansind = [1:EEG.nbchan]; res = com;
+ end
+ elseif isempty(EEG.icachansind)
+ if isempty(EEG.icaweights)
+ EEG.icachansind = []; res = com;
+ else
+ EEG.icachansind = [1:EEG.nbchan]; res = com;
+ end
+ end
+ if ~isempty(EEG.icasphere)
+ if ~isempty(EEG.icaweights)
+ if size(EEG.icaweights,2) ~= size(EEG.icasphere,1)
+ if popask( [ 'eeg_checkset error: number of columns in weights array (' int2str(size(EEG.icaweights,2)) ')' 10 ...
+ 'does not match the number of rows in the sphere array (' int2str(size(EEG.icasphere,1)) ')' 10 ...
+ 'Should EEGLAB remove ICA information ?' 10 '(press Cancel to fix the problem from the commandline)'])
+ res = com;
+ EEG.icasphere = [];
+ EEG.icaweights = [];
+ EEG = eeg_checkset(EEG);
+ return;
+ else
+ error('eeg_checkset error: user abort');
+ res = com;
+ return;
+ %error('eeg_checkset error: invalid weight and sphere array sizes');
+ end
+ end
+ if isnumeric(EEG.data)
+ if length(EEG.icachansind) ~= size(EEG.icasphere,2)
+ if popask( [ 'eeg_checkset error: number of elements in ''icachansind'' (' int2str(length(EEG.icachansind)) ')' 10 ...
+ 'does not match the number of columns in the sphere array (' int2str(size(EEG.icasphere,2)) ')' 10 ...
+ 'Should EEGLAB remove ICA information ?' 10 '(press Cancel to fix the problem from the commandline)'])
+ res = com;
+ EEG.icasphere = [];
+ EEG.icaweights = [];
+ EEG = eeg_checkset(EEG);
+ return;
+ else
+ error('eeg_checkset error: user abort');
+ res = com;
+ return;
+ %error('eeg_checkset error: invalid weight and sphere array sizes');
+ end
+ end
+ if isempty(EEG.icaact) || (size(EEG.icaact,1) ~= size(EEG.icaweights,1)) || (size(EEG.icaact,2) ~= size(EEG.data,2))
+ EEG.icaweights = double(EEG.icaweights);
+ EEG.icawinv = double(EEG.icawinv);
+
+ % scale ICA components to RMS microvolt
+ if option_scaleicarms
+ if ~isempty(EEG.icawinv)
+ if mean(mean(abs(pinv(EEG.icaweights * EEG.icasphere)-EEG.icawinv))) < 0.0001
+ disp('Scaling components to RMS microvolt');
+ scaling = repmat(sqrt(mean(EEG(1).icawinv(:,:).^2))', [1 size(EEG.icaweights,2)]);
+ EEG.etc.icaweights_beforerms = EEG.icaweights;
+ EEG.etc.icasphere_beforerms = EEG.icasphere;
+
+ EEG.icaweights = EEG.icaweights .* scaling;
+ EEG.icawinv = pinv(EEG.icaweights * EEG.icasphere);
+ end
+ end
+ end
+
+ if ~isempty(EEG.data) && option_computeica
+ fprintf('eeg_checkset: recomputing the ICA activation matrix ...\n');
+ res = com;
+ % Make compatible with Matlab 7
+ if any(isnan(EEG.data(:)))
+ tmpdata = EEG.data(EEG.icachansind,:);
+ fprintf('eeg_checkset: recomputing ICA ignoring NaN indices ...\n');
+ tmpindices = find(~sum(isnan(tmpdata))); % was: tmpindices = find(~isnan(EEG.data(1,:)));
+ EEG.icaact = zeros(size(EEG.icaweights,1), size(tmpdata,2)); EEG.icaact(:) = NaN;
+ EEG.icaact(:,tmpindices) = (EEG.icaweights*EEG.icasphere)*tmpdata(:,tmpindices);
+ else
+ EEG.icaact = (EEG.icaweights*EEG.icasphere)*EEG.data(EEG.icachansind,:); % automatically does single or double
+ end
+ EEG.icaact = reshape( EEG.icaact, size(EEG.icaact,1), EEG.pnts, EEG.trials);
+ end
+ end
+ end
+ if isempty(EEG.icawinv)
+ EEG.icawinv = pinv(EEG.icaweights*EEG.icasphere); % a priori same result as inv
+ res = com;
+ end
+ else
+ disp( [ 'eeg_checkset warning: weights matrix cannot be empty if sphere matrix is not, correcting ...' ]);
+ res = com;
+ EEG.icasphere = [];
+ end
+ if option_computeica
+ if ~isempty(EEG.icaact) && ndims(EEG.icaact) < 3 && (EEG.trials > 1)
+ disp( [ 'eeg_checkset note: independent component made 3-D' ]);
+ res = com;
+ EEG.icaact = reshape(EEG.icaact, size(EEG.icaact,1), EEG.pnts, EEG.trials);
+ end
+ else
+ if ~isempty(EEG.icaact)
+ fprintf('eeg_checkset: removing ICA activation matrix (as per edit options) ...\n');
+ end
+ EEG.icaact = [];
+ end
+ else
+ if ~isempty( EEG.icaweights ), EEG.icaweights = []; res = com; end
+ if ~isempty( EEG.icawinv ), EEG.icawinv = []; res = com; end
+ if ~isempty( EEG.icaact ), EEG.icaact = []; res = com; end
+ end
+ if isempty(EEG.icaact)
+ EEG.icaact = [];
+ end
+
+ % -------------
+ % check chanlocs
+ % -------------
+ if ~isfield(EEG, 'chaninfo')
+ EEG.chaninfo = [];
+ end
+ if ~isempty( EEG.chanlocs )
+
+ % reference (use EEG structure)
+ % ---------
+ if ~isfield(EEG, 'ref')
+ EEG.ref = '';
+ end
+ if isfield(EEG.chanlocs, 'ref') && ~isempty(EEG.chanlocs(1).ref)
+ if ~isequal(EEG.chanlocs(1).ref, EEG.ref)
+ EEG.ref = EEG.chanlocs(1).ref;
+ res = com;
+ end
+ end
+ if strcmpi(EEG.ref, 'averef')
+ ref = 'average';
+ else ref = '';
+ end
+ if ~isfield( EEG.chanlocs, 'ref')
+ EEG.chanlocs(1).ref = ref;
+ end
+ charrefs = cellfun('isclass',{EEG.chanlocs.ref},'char');
+ if any(charrefs) ref = ''; end
+ for tmpind = find(~charrefs)
+ EEG.chanlocs(tmpind).ref = ref;
+ end
+ if ~isstruct( EEG.chanlocs)
+ if exist( EEG.chanlocs ) ~= 2
+ disp( [ 'eeg_checkset warning: channel file does not exist or is not in Matlab path: filename removed from EEG struct' ]);
+ EEG.chanlocs = [];
+ res = com;
+ else
+ res = com;
+ try, EEG.chanlocs = readlocs( EEG.chanlocs );
+ disp( [ 'eeg_checkset: channel file read' ]);
+ catch, EEG.chanlocs = []; end
+ end
+ else
+ if ~isfield(EEG.chanlocs,'labels')
+ disp('eeg_checkset warning: no field label in channel location structure, removing it');
+ EEG.chanlocs = [];
+ res = com;
+ end
+ end
+ if isstruct( EEG.chanlocs)
+ if length( EEG.chanlocs) ~= EEG.nbchan && length( EEG.chanlocs) ~= EEG.nbchan+1 && ~isempty(EEG.data)
+ disp( [ 'eeg_checkset warning: number of channels different in data and channel file/struct: channel file/struct removed' ]);
+ EEG.chanlocs = [];
+ res = com;
+ end
+ end
+
+ % force Nosedir to +X (done here because of DIPFIT)
+ % -------------------
+ if isfield(EEG.chaninfo, 'nosedir')
+ if ~strcmpi(EEG.chaninfo.nosedir, '+x') && all(isfield(EEG.chanlocs,{'X','Y','theta','sph_theta'}))
+ disp(['Note for expert users: Nose direction is now set from ''' upper(EEG.chaninfo.nosedir) ''' to default +X in EEG.chanlocs']);
+ [tmp chaninfo chans] = eeg_checkchanlocs(EEG.chanlocs, EEG.chaninfo); % Merge all channels for rotation (FID and data channels)
+ if strcmpi(chaninfo.nosedir, '+y')
+ rotate = 270;
+ elseif strcmpi(chaninfo.nosedir, '-x')
+ rotate = 180;
+ else
+ rotate = 90;
+ end
+ for index = 1:length(chans)
+ rotategrad = rotate/180*pi;
+ coord = (chans(index).Y + chans(index).X*sqrt(-1))*exp(sqrt(-1)*-rotategrad);
+ chans(index).Y = real(coord);
+ chans(index).X = imag(coord);
+
+ if ~isempty(chans(index).theta)
+ chans(index).theta = chans(index).theta -rotate;
+ chans(index).sph_theta = chans(index).sph_theta+rotate;
+ if chans(index).theta <-180, chans(index).theta =chans(index).theta +360; end
+ if chans(index).sph_theta>180 , chans(index).sph_theta=chans(index).sph_theta-360; end
+ end
+ end
+
+ if isfield(EEG, 'dipfit')
+ if isfield(EEG.dipfit, 'coord_transform')
+ if isempty(EEG.dipfit.coord_transform)
+ EEG.dipfit.coord_transform = [0 0 0 0 0 0 1 1 1];
+ end
+ EEG.dipfit.coord_transform(6) = EEG.dipfit.coord_transform(6)+rotategrad;
+ end
+ end
+
+ chaninfo.nosedir = '+X';
+ [EEG.chanlocs EEG.chaninfo] = eeg_checkchanlocs(chans, chaninfo); % Update FID in chaninfo and remove them from chanlocs
+ end;
+ end
+
+ % general checking of channels
+ % ----------------------------
+ EEG = eeg_checkchanlocs(EEG);
+ if EEG.nbchan ~= length(EEG.chanlocs)
+ EEG.chanlocs = [];
+ EEG.chaninfo = [];
+ disp('Warning: the size of the channel location structure does not match with');
+ disp(' number of channels. Channel information have been removed.');
+ end
+ end
+ EEG.chaninfo.icachansind = EEG.icachansind; % just a copy for programming convenience
+
+ %if ~isfield(EEG, 'urchanlocs')
+ % EEG.urchanlocs = EEG.chanlocs;
+ % for index = 1:length(EEG.chanlocs)
+ % EEG.chanlocs(index).urchan = index;
+ % end
+ % disp('eeg_checkset note: creating backup chanlocs structure (urchanlocs)');
+ %end
+
+ % Field 'datachan in 'urchanlocs' is removed, if exist
+ if isfield(EEG, 'urchanlocs') && ~isempty(EEG.urchanlocs) && isfield(EEG.urchanlocs, 'datachan')
+ EEG.urchanlocs = rmfield(EEG.urchanlocs, 'datachan');
+ end
+
+ % check reference
+ % ---------------
+ if ~isfield(EEG, 'ref')
+ EEG.ref = 'common';
+ end
+ if ischar(EEG.ref) && strcmpi(EEG.ref, 'common')
+ if length(EEG.chanlocs) > EEG.nbchan
+ disp('Extra common reference electrode location detected');
+ EEG.ref = EEG.nbchan+1;
+ end
+ end
+
+ % DIPFIT structure
+ % ----------------
+ if ~isfield(EEG,'dipfit') || isempty(EEG.dipfit)
+ EEG.dipfit = []; res = com;
+ else
+ try
+ % check if dipfitdefs is present
+ dipfitdefs;
+ if isfield(EEG.dipfit, 'vol') && ~isfield(EEG.dipfit, 'hdmfile')
+ if exist('pop_dipfit_settings')
+ disp('Old DIPFIT structure detected: converting to DIPFIT 2 format');
+ EEG.dipfit.hdmfile = template_models(1).hdmfile;
+ EEG.dipfit.coordformat = template_models(1).coordformat;
+ EEG.dipfit.mrifile = template_models(1).mrifile;
+ EEG.dipfit.chanfile = template_models(1).chanfile;
+ EEG.dipfit.coord_transform = [];
+ EEG.saved = 'no';
+ res = com;
+ end
+ end
+ if isfield(EEG.dipfit, 'hdmfile')
+ if length(EEG.dipfit.hdmfile) > 8
+ if strcmpi(EEG.dipfit.hdmfile(end-8), template_models(1).hdmfile(end-8)), EEG.dipfit.hdmfile = template_models(1).hdmfile; end
+ if strcmpi(EEG.dipfit.hdmfile(end-8), template_models(2).hdmfile(end-8)), EEG.dipfit.hdmfile = template_models(2).hdmfile; end
+ end
+ if length(EEG.dipfit.mrifile) > 8
+ if strcmpi(EEG.dipfit.mrifile(end-8), template_models(1).mrifile(end-8)), EEG.dipfit.mrifile = template_models(1).mrifile; end
+ if strcmpi(EEG.dipfit.mrifile(end-8), template_models(2).mrifile(end-8)), EEG.dipfit.mrifile = template_models(2).mrifile; end
+ end
+ if length(EEG.dipfit.chanfile) > 8
+ if strcmpi(EEG.dipfit.chanfile(end-8), template_models(1).chanfile(end-8)), EEG.dipfit.chanfile = template_models(1).chanfile; end
+ if strcmpi(EEG.dipfit.chanfile(end-8), template_models(2).chanfile(end-8)), EEG.dipfit.chanfile = template_models(2).chanfile; end
+ end
+ end
+
+ if isfield(EEG.dipfit, 'coord_transform')
+ if isempty(EEG.dipfit.coord_transform)
+ EEG.dipfit.coord_transform = [0 0 0 0 0 0 1 1 1];
+ end
+ elseif ~isempty(EEG.dipfit)
+ EEG.dipfit.coord_transform = [0 0 0 0 0 0 1 1 1];
+ end
+ catch
+ e = lasterror;
+ if ~strcmp(e.identifier,'MATLAB:UndefinedFunction')
+ % if we got some error aside from dipfitdefs not being present, rethrow it
+ rethrow(e);
+ end
+ end
+ end
+
+ % check events (fast)
+ % ------------
+ if isfield(EEG.event, 'type')
+ tmpevent = EEG.event(1:min(length(EEG.event), 100));
+ if ~all(cellfun(@ischar, { tmpevent.type })) && ~all(cellfun(@isnumeric, { tmpevent.type }))
+ disp('Warning: converting all event types to strings');
+ for ind = 1:length(EEG.event)
+ EEG.event(ind).type = num2str(EEG.event(ind).type);
+ end
+ EEG = eeg_checkset(EEG, 'eventconsistency');
+ end
+ end
+
+ % EEG.times (only for epoched datasets)
+ % ---------
+ if ~isfield(EEG, 'times') || isempty(EEG.times) || length(EEG.times) ~= EEG.pnts
+ EEG.times = linspace(EEG.xmin*1000, EEG.xmax*1000, EEG.pnts);
+ end
+
+ if ~isfield(EEG, 'history') EEG.history = ''; res = com; end
+ if ~isfield(EEG, 'splinefile') EEG.splinefile = ''; res = com; end
+ if ~isfield(EEG, 'icasplinefile') EEG.icasplinefile = ''; res = com; end
+ if ~isfield(EEG, 'saved') EEG.saved = 'no'; res = com; end
+ if ~isfield(EEG, 'subject') EEG.subject = ''; res = com; end
+ if ~isfield(EEG, 'condition') EEG.condition = ''; res = com; end
+ if ~isfield(EEG, 'group') EEG.group = ''; res = com; end
+ if ~isfield(EEG, 'run') EEG.run = []; res = com; end
+ if ~isfield(EEG, 'session') EEG.session = []; res = com; end
+ if ~isfield(EEG, 'urchanlocs') EEG.urchanlocs = []; res = com; end
+ if ~isfield(EEG, 'specdata') EEG.specdata = []; res = com; end
+ if ~isfield(EEG, 'specicaact') EEG.specicaact = []; res = com; end
+ if ~isfield(EEG, 'comments') EEG.comments = ''; res = com; end
+ if ~isfield(EEG, 'etc' ) EEG.etc = []; res = com; end
+ if ~isfield(EEG, 'urevent' ) EEG.urevent = []; res = com; end
+ if ~isfield(EEG, 'ref') || isempty(EEG.ref) EEG.ref = 'common'; res = com; end
+
+ % create fields if absent
+ % -----------------------
+ if ~isfield(EEG, 'reject') EEG.reject.rejjp = []; res = com; end
+
+ listf = { 'rejjp' 'rejkurt' 'rejmanual' 'rejthresh' 'rejconst', 'rejfreq' ...
+ 'icarejjp' 'icarejkurt' 'icarejmanual' 'icarejthresh' 'icarejconst', 'icarejfreq'};
+ for index = 1:length(listf)
+ name = listf{index};
+ elecfield = [name 'E'];
+ if ~isfield(EEG.reject, elecfield), EEG.reject.(elecfield) = []; res = com; end
+ if ~isfield(EEG.reject, name)
+ EEG.reject.(name) = [];
+ res = com;
+ elseif ~isempty(EEG.reject.(name)) && isempty(EEG.reject.(elecfield))
+ % check if electrode array is empty with rejection array is not
+ nbchan = fastif(strcmp(name, 'ica'), size(EEG.icaweights,1), EEG.nbchan);
+ EEG.reject = setfield(EEG.reject, elecfield, zeros(nbchan, length(getfield(EEG.reject, name)))); res = com;
+ end
+ end
+ if ~isfield(EEG.reject, 'rejglobal') EEG.reject.rejglobal = []; res = com; end
+ if ~isfield(EEG.reject, 'rejglobalE') EEG.reject.rejglobalE = []; res = com; end
+
+ % track version of EEGLAB
+ % -----------------------
+ tmpvers = eeg_getversion;
+ if ~isfield(EEG.etc, 'eeglabvers') || ~isequal(EEG.etc.eeglabvers, tmpvers)
+ EEG.etc.eeglabvers = tmpvers;
+ EEG = eeg_hist( EEG, ['EEG.etc.eeglabvers = ''' tmpvers '''; % this tracks which version of EEGLAB is being used, you may ignore it'] );
+ res = com;
+ end
+
+ % default colors for rejection
+ % ----------------------------
+ if ~isfield(EEG.reject, 'rejmanualcol') EEG.reject.rejmanualcol = [1.0000 1 0.783]; res = com; end
+ if ~isfield(EEG.reject, 'rejthreshcol') EEG.reject.rejthreshcol = [0.8487 1.0000 0.5008]; res = com; end
+ if ~isfield(EEG.reject, 'rejconstcol') EEG.reject.rejconstcol = [0.6940 1.0000 0.7008]; res = com; end
+ if ~isfield(EEG.reject, 'rejjpcol') EEG.reject.rejjpcol = [1.0000 0.6991 0.7537]; res = com; end
+ if ~isfield(EEG.reject, 'rejkurtcol') EEG.reject.rejkurtcol = [0.6880 0.7042 1.0000]; res = com; end
+ if ~isfield(EEG.reject, 'rejfreqcol') EEG.reject.rejfreqcol = [0.9596 0.7193 1.0000]; res = com; end
+ if ~isfield(EEG.reject, 'disprej') EEG.reject.disprej = { }; end
+
+ if ~isfield(EEG, 'stats') EEG.stats.jp = []; res = com; end
+ if ~isfield(EEG.stats, 'jp') EEG.stats.jp = []; res = com; end
+ if ~isfield(EEG.stats, 'jpE') EEG.stats.jpE = []; res = com; end
+ if ~isfield(EEG.stats, 'icajp') EEG.stats.icajp = []; res = com; end
+ if ~isfield(EEG.stats, 'icajpE') EEG.stats.icajpE = []; res = com; end
+ if ~isfield(EEG.stats, 'kurt') EEG.stats.kurt = []; res = com; end
+ if ~isfield(EEG.stats, 'kurtE') EEG.stats.kurtE = []; res = com; end
+ if ~isfield(EEG.stats, 'icakurt') EEG.stats.icakurt = []; res = com; end
+ if ~isfield(EEG.stats, 'icakurtE') EEG.stats.icakurtE = []; res = com; end
+
+ % component rejection
+ % -------------------
+ if ~isfield(EEG.stats, 'compenta') EEG.stats.compenta = []; res = com; end
+ if ~isfield(EEG.stats, 'compentr') EEG.stats.compentr = []; res = com; end
+ if ~isfield(EEG.stats, 'compkurta') EEG.stats.compkurta = []; res = com; end
+ if ~isfield(EEG.stats, 'compkurtr') EEG.stats.compkurtr = []; res = com; end
+ if ~isfield(EEG.stats, 'compkurtdist') EEG.stats.compkurtdist = []; res = com; end
+ if ~isfield(EEG.reject, 'threshold') EEG.reject.threshold = [0.8 0.8 0.8]; res = com; end
+ if ~isfield(EEG.reject, 'threshentropy') EEG.reject.threshentropy = 600; res = com; end
+ if ~isfield(EEG.reject, 'threshkurtact') EEG.reject.threshkurtact = 600; res = com; end
+ if ~isfield(EEG.reject, 'threshkurtdist') EEG.reject.threshkurtdist = 600; res = com; end
+ if ~isfield(EEG.reject, 'gcompreject') EEG.reject.gcompreject = []; res = com; end
+ if length(EEG.reject.gcompreject) ~= size(EEG.icaweights,1)
+ EEG.reject.gcompreject = zeros(1, size(EEG.icaweights,1));
+ end
+
+ % remove old fields
+ % -----------------
+ if isfield(EEG, 'averef'), EEG = rmfield(EEG, 'averef'); end
+ if isfield(EEG, 'rt' ), EEG = rmfield(EEG, 'rt'); end
+
+ % store in new structure
+ % ----------------------
+ if isstruct(EEG)
+ if ~exist('ALLEEGNEW','var')
+ ALLEEGNEW = EEG;
+ else
+ ALLEEGNEW(inddataset) = EEG;
+ end
+ end
+end
+
+% recorder fields
+% ---------------
+fieldorder = { 'setname' ...
+ 'filename' ...
+ 'filepath' ...
+ 'subject' ...
+ 'group' ...
+ 'condition' ...
+ 'session' ...
+ 'comments' ...
+ 'nbchan' ...
+ 'trials' ...
+ 'pnts' ...
+ 'srate' ...
+ 'xmin' ...
+ 'xmax' ...
+ 'times' ...
+ 'data' ...
+ 'icaact' ...
+ 'icawinv' ...
+ 'icasphere' ...
+ 'icaweights' ...
+ 'icachansind' ...
+ 'chanlocs' ...
+ 'urchanlocs' ...
+ 'chaninfo' ...
+ 'ref' ...
+ 'event' ...
+ 'urevent' ...
+ 'eventdescription' ...
+ 'epoch' ...
+ 'epochdescription' ...
+ 'reject' ...
+ 'stats' ...
+ 'specdata' ...
+ 'specicaact' ...
+ 'splinefile' ...
+ 'icasplinefile' ...
+ 'dipfit' ...
+ 'history' ...
+ 'saved' ...
+ 'etc' };
+
+for fcell = fieldnames(EEG)'
+ fname = fcell{1};
+ if ~any(strcmp(fieldorder,fname))
+ fieldorder{end+1} = fname;
+ end
+end
+
+try
+ ALLEEGNEW = orderfields(ALLEEGNEW, fieldorder);
+ EEG = ALLEEGNEW;
+catch
+ disp('Couldn''t order data set fields properly.');
+end
+
+if exist('ALLEEGNEW','var')
+ EEG = ALLEEGNEW;
+end
+
+if ~isa(EEG, 'eegobj') && option_eegobject
+ EEG = eegobj(EEG);
+end
+
+return;
+
+function num = popask( text )
+ButtonName=questdlg2( text, ...
+ 'Confirmation', 'Cancel', 'Yes','Yes');
+switch lower(ButtonName),
+ case 'cancel', num = 0;
+ case 'yes', num = 1;
+end
+
+function res = mycellfun(com, vals, classtype);
+res = zeros(1, length(vals));
+switch com
+ case 'isempty',
+ for index = 1:length(vals), res(index) = isempty(vals{index}); end
+ case 'isclass'
+ if strcmp(classtype, 'double')
+ for index = 1:length(vals), res(index) = isnumeric(vals{index}); end
+ else
+ error('unknown cellfun command');
+ end
+ otherwise error('unknown cellfun command');
+end
+
+
diff --git a/Studio V1/Functions/EEGLAB/CSD/eeg_emptyset.m b/Studio V1/Functions/EEGLAB/CSD/eeg_emptyset.m
new file mode 100755
index 00000000..94e950eb
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eeg_emptyset.m
@@ -0,0 +1,104 @@
+% eeg_emptyset() - Initialize an EEG dataset structure with default values.
+%
+% Usage:
+% >> EEG = eeg_emptyset();
+%
+% Outputs:
+% EEG - empty dataset structure with default values.
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 2001
+%
+% See also: eeglab()
+
+% Copyright (C) 2001 Arnaud Delorme, Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% 01-25-02 reformated help & license -ad
+
+function EEG = eeg_emptyset();
+
+EEG.setname = '';
+EEG.filename = '';
+EEG.filepath = '';
+EEG.subject = '';
+EEG.group = '';
+EEG.condition = '';
+EEG.session = [];
+EEG.comments = '';
+EEG.nbchan = 0;
+EEG.trials = 0;
+EEG.pnts = 0;
+EEG.srate = 1;
+EEG.xmin = 0;
+EEG.xmax = 0;
+EEG.times = [];
+EEG.data = [];
+EEG.icaact = [];
+EEG.icawinv = [];
+EEG.icasphere = [];
+EEG.icaweights = [];
+EEG.icachansind = [];
+EEG.chanlocs = [];
+EEG.urchanlocs = [];
+EEG.chaninfo = [];
+EEG.ref = [];
+EEG.event = [];
+EEG.urevent = [];
+EEG.eventdescription = {};
+EEG.epoch = [];
+EEG.epochdescription = {};
+EEG.reject = [];
+EEG.stats = [];
+EEG.specdata = [];
+EEG.specicaact = [];
+EEG.splinefile = '';
+EEG.icasplinefile = '';
+EEG.dipfit = [];
+EEG.history = '';
+EEG.saved = 'no';
+EEG.etc = [];
+
+%EEG.reject.threshold = [1 0.8 0.85];
+%EEG.reject.icareject = [];
+%EEG.reject.compreject = [];
+%EEG.reject.gcompreject= [];
+%EEG.reject.comptrial = [];
+%EEG.reject.sigreject = [];
+%EEG.reject.elecreject = [];
+
+%EEG.stats.kurta = [];
+%EEG.stats.kurtr = [];
+%EEG.stats.kurtd = [];
+%EEG.stats.eegentropy = [];
+%EEG.stats.eegkurt = [];
+%EEG.stats.eegkurtg = [];
+%EEG.stats.entropy = [];
+%EEG.stats.kurtc = [];
+%EEG.stats.kurtt = [];
+%EEG.stats.entropyc = [];
+
+return;
diff --git a/Studio V1/Functions/EEGLAB/CSD/eeg_eval.m b/Studio V1/Functions/EEGLAB/CSD/eeg_eval.m
new file mode 100755
index 00000000..e6b9e137
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eeg_eval.m
@@ -0,0 +1,164 @@
+% eeg_eval() - apply eeglab function to a collection of input datasets
+%
+% Usage:
+% >> OUTEEG = eeg_eval(funcname, INEEG, 'key1', value1, 'key2', value2 ...);
+%
+% Inputs:
+% funcname - [string] name of the function
+% INEEG - EEGLAB input dataset(s)
+%
+% Optional inputs
+% 'params' - [cell array] funcname parameters.
+% 'warning' - ['on'|'off'] warning pop-up window if several dataset
+% stored on disk that will be automatically overwritten.
+% Default is 'on'.
+%
+% Outputs:
+% OUTEEG - output dataset(s)
+%
+% Author: Arnaud Delorme, SCCN, INC, UCSD, 2005
+%
+% see also: eeglab()
+
+% Copyright (C) 2005 Arnaud Delorme, Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [EEG, com] = eeg_eval( funcname, EEG, varargin)
+
+ com = '';
+ if nargin < 2
+ help eeg_eval;
+ return;
+ end
+
+ % check input parameters
+ % ----------------------
+ g = finputcheck( varargin, { 'params' 'cell' {} {};
+ 'warning' 'string' { 'on','off' } 'off' }, 'eeg_eval');
+ if ischar(g), error(g); end
+
+ % warning pop up
+ % --------------
+ eeglab_options;
+ if strcmpi(g.warning, 'on')
+ if ~option_storedisk
+ res = questdlg2(strvcat( 'When processing multiple datasets, it is not', ...
+ 'possible to enter new names for the newly created', ...
+ 'datasets and old datasets are overwritten.', ...
+ 'You may still cancel this operation though.'), ...
+ 'Multiple dataset warning', 'Cancel', 'Proceed', 'Proceed');
+ else
+ res = questdlg2( [ 'Data files on disk will be automatically overwritten.' 10 ...
+ 'Are you sure you want to proceed with this operation?' ], ...
+ 'Confirmation', 'Cancel', 'Proceed', 'Proceed');
+ end
+ switch lower(res)
+ case 'cancel', return;
+ case 'proceed'
+ end
+ vPar = ver('parallel');
+ if option_parallel && ~isempty(vPar)
+ res = questdlg2(strvcat( 'You have selected to use the parallel toolbox,', ...
+ 'to process multiple datasets. If you saturate the ', ...
+ 'memory, this could cause your computer to become.', ...
+ 'unresponsive or even crash.'), ...
+ 'Multiple dataset warning', 'Cancel', 'Proceed', 'Proceed');
+ end
+ switch lower(res)
+ case 'cancel', return;
+ case 'proceed'
+ end
+ end
+
+ % execute function
+ % ----------------
+ v = version;
+ if str2num(v(1)) == '5' % Matlab 5
+ command = [ 'TMPEEG = ' funcname '( TMPEEG, ' vararg2str(g.params) ');' ];
+ elseif isstr(funcname)
+ eval( [ 'func = @' funcname ';' ] );
+ else
+ func = funcname;
+ end
+
+% notCompatibleFunc = {
+% @clean_artifacts
+% };
+
+ NEWEEG = EEG;
+ if option_parallel
+ disp('Using the parallel toolbox to process multiple datasets (change in File > Preferences)');
+ myPool = gcp;
+ tmpoptions_store = option_storedisk;
+ parfor i = 1:length(EEG)
+ fprintf('Processing group dataset %d of %d named: %s ****************\n', i, length(EEG), EEG(i).setname);
+ TMPEEG = eeg_retrieve(EEG, i);
+ TMPEEG = feval(func, TMPEEG, g.params{:});
+ TMPEEG = eeg_checkset(TMPEEG);
+ TMPEEG.saved = 'no';
+ if tmpoptions_store
+ TMPEEG = pop_saveset(TMPEEG, 'savemode', 'resave');
+ TMPEEG = update_datafield(TMPEEG);
+ NEWEEG(i) = TMPEEG;
+ NEWEEG(i).saved = 'yes'; % eeg_store by default set it to no
+ else
+ NEWEEG(i) = TMPEEG;
+ end
+ end
+ else
+ for i = 1:length(EEG)
+ fprintf('Processing group dataset %d of %d named: %s ****************\n', i, length(EEG), EEG(i).setname);
+ TMPEEG = eeg_retrieve(EEG, i);
+ TMPEEG = feval(func, TMPEEG, g.params{:});
+ TMPEEG = eeg_checkset(TMPEEG);
+ TMPEEG.saved = 'no';
+ if option_storedisk
+ TMPEEG = pop_saveset(TMPEEG, 'savemode', 'resave');
+ TMPEEG = update_datafield(TMPEEG);
+ end
+ NEWEEG = eeg_store(NEWEEG, TMPEEG, i);
+ if option_storedisk
+ NEWEEG(i).saved = 'yes'; % eeg_store by default set it to no
+ end
+ end
+ end
+ EEG = NEWEEG;
+
+ % history
+ % -------
+ if nargout > 1
+ com = sprintf('%s = %s( %s,%s);', inputname(2), char(funcname), inputname(2), vararg2str(g.params));
+ end
+
+function EEG = update_datafield(EEG)
+ if ~isfield(EEG, 'datfile'), EEG.datfile = ''; end
+ if ~isempty(EEG.datfile)
+ EEG.data = EEG.datfile;
+ else
+ EEG.data = 'in set file';
+ end
+ EEG.icaact = [];
diff --git a/Studio V1/Functions/EEGLAB/CSD/eeg_retrieve.m b/Studio V1/Functions/EEGLAB/CSD/eeg_retrieve.m
new file mode 100755
index 00000000..b330055f
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eeg_retrieve.m
@@ -0,0 +1,96 @@
+% eeg_retrieve() - Retrieve an EEG dataset from the variable
+% containing all datasets (standard: ALLEEG).
+%
+% Usage: >> EEG = eeg_retrieve( ALLEEG, index );
+%
+% Inputs:
+% ALLEEG - variable containing all datasets
+% index - index of the dataset to retrieve
+%
+% Outputs:
+% EEG - output dataset. The workspace variable EEG is also updated
+% ALLEEG - updated ALLEEG structure
+% CURRENTSET - workspace variable index of the current dataset
+%
+% Note: The function performs >> EEG = ALLEEG(index);
+% It also runs eeg_checkset() on it.
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 2001
+%
+% See also: eeg_store(), eeglab()
+
+% Copyright (C) 2001 Arnaud Delorme, Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [EEG, ALLEEG, CURRENTSET] = eeg_retrieve( ALLEEG, CURRENTSET);
+
+if nargin < 2
+ help eeg_retrieve;
+ return;
+end;
+
+%try
+ eeglab_options;
+
+ try, % check whether recent changes to this dataset have been saved or not
+ %--------------------------------------------------------------------
+ tmpsaved = { ALLEEG.saved };
+ tmpsaved = tmpsaved(CURRENTSET);
+ catch, tmpsaved = 'no';
+ end
+
+ if length(CURRENTSET) > 1 && option_storedisk
+ [ EEG tmpcom ] = eeg_checkset(ALLEEG(CURRENTSET)); % do not load data if several datasets
+ if length(CURRENTSET) ~= length(ALLEEG)
+ [ALLEEG EEG CURRENTSET] = eeg_store(ALLEEG, EEG, CURRENTSET);
+ else
+ ALLEEG = EEG;
+ end
+ else
+ if CURRENTSET ~= 0
+ [ EEG tmpcom ] = eeg_checkset(ALLEEG(CURRENTSET), 'loaddata');
+ [ALLEEG EEG CURRENTSET] = eeg_store(ALLEEG, EEG, CURRENTSET);
+ else
+ EEG = eeg_emptyset; % empty dataset
+ return;
+ end
+ end
+
+ % retain saved field
+ % ------------------
+ for index = 1:length(CURRENTSET)
+ ALLEEG(CURRENTSET(index)).saved = tmpsaved{index};
+ EEG(index).saved = tmpsaved{index};
+ end
+
+%catch
+% fprintf('Warning: cannot retrieve dataset with index %d\n', CURRENTSET);
+% return;
+%end
+
+return;
+
diff --git a/Studio V1/Functions/EEGLAB/CSD/eeg_store.m b/Studio V1/Functions/EEGLAB/CSD/eeg_store.m
new file mode 100755
index 00000000..13211ab9
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eeg_store.m
@@ -0,0 +1,176 @@
+% eeg_store() - store specified EEG dataset(s) in the ALLEEG variable
+% containing all current datasets, after first checking
+% dataset consistency using eeg_checkset().
+%
+% Usage: >> [ALLEEG EEG index] = eeg_store(ALLEEG, EEG);
+% >> [ALLEEG EEG index] = eeg_store(ALLEEG, EEG, index);
+%
+% Inputs:
+% ALLEEG - variable containing all current EEGLAB datasets
+% EEG - dataset(s) to store - usually the current dataset.
+% May also be an array of datasets; these will be
+% checked and stored separately in ALLEEG.
+% index - (optional), ALLEEG index (or indices) to use to store
+% the new dataset(s). If no index is given, eeg_store()
+% uses the lowest empty slot(s) in the ALLEEG array.
+% Outputs:
+% ALLEEG - array of all current datasets
+% EEG - EEG dataset (after syntax checking)
+% index - index of the new dataset
+%
+% Note: When 3 arguments are given, after checking the consistency of
+% the input dataset structures this function simply performs
+% >> ALLEEG(index) = EEG;
+%
+% Typical use:
+% >> [ALLEEG EEG CURRENTSET] = eeg_store(ALLEEG, EEG);
+% creates a new dataset in variable ALLEEG.
+% >> [ALLEEG EEG CURRENTSET] = eeg_store(ALLEEG, EEG, CURRENTSET);
+% overwrites the current dataset in variable ALLEEG.
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 2001
+%
+% See also: eeglab(), eeg_checkset(), eeg_retrieve()
+
+% Copyright (C) 2001 Arnaud Delorme, Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% store set
+% ------------------
+function [ALLEEG, EEG, storeSetIndex] = eeg_store(ALLEEG, EEG, storeSetIndex, varargin)
+
+% check parameter consistency
+% ------------------------------
+if nargin >= 3
+ if length(EEG) ~= length(storeSetIndex) && storeSetIndex(1) ~= 0
+ error('Length of input dataset structure must equal the length of the index array');
+ end
+end
+
+% considering multiple datasets
+% -----------------------------
+if length(EEG) > 1
+ TMPEEG = EEG;
+ if nargin >= 3 && storeSetIndex(1) ~= 0
+ for index=1:length(TMPEEG)
+ EEG = TMPEEG(index);
+ tmpsaved = EEG.saved;
+ if strcmpi(tmpsaved, 'justloaded'), tmpsaved = 'yes'; end
+ [ALLEEG, EEG] = eeg_store(ALLEEG, EEG, storeSetIndex(index), varargin{:});
+ ALLEEG(storeSetIndex(index)).saved = tmpsaved;
+ TMPEEG(index).saved = tmpsaved;
+ end
+ else
+ for index=1:length(TMPEEG)
+ EEG = TMPEEG(index);
+ tmpsaved = EEG.saved;
+ if strcmpi(tmpsaved, 'justloaded'), tmpsaved = 'yes'; end
+ [ALLEEG, EEG, storeSetIndex(index)] = eeg_store(ALLEEG, EEG);
+ ALLEEG(storeSetIndex(index)).saved = tmpsaved;
+ TMPEEG(index).saved = tmpsaved;
+ end
+ end
+ EEG = TMPEEG;
+ return
+end
+
+if nargin < 3
+ % creating new dataset
+ % -> erasing file information
+ % ---------------------------
+ EEG.filename = '';
+ EEG.filepath = '';
+ EEG.datfile = '';
+end
+
+if isempty(varargin) % no text output and no check (study loading)
+ [ EEG, com ] = eeg_checkset(EEG);
+else
+ com = '';
+end
+if nargin > 2
+ if storeSetIndex == 0 || strcmpi(EEG.saved, 'justloaded')
+ EEG.saved = 'yes'; % just loaded
+ else
+ EEG.saved = 'no';
+ end
+elseif strcmpi(EEG.saved, 'justloaded')
+ EEG.saved = 'yes';
+else
+ EEG.saved = 'no';
+end
+EEG = eeg_hist(EEG, com);
+
+% find first free index
+% ---------------------
+findindex = 0;
+if nargin < 3, findindex = 1;
+elseif storeSetIndex == 0, findindex = 1;
+end
+
+if findindex
+ i = 1;
+ while (i<10000)
+ try
+ if isempty(ALLEEG(i).data)
+ storeSetIndex = i; i = 10000;
+ end
+ i = i+1;
+ catch
+ storeSetIndex = i; i = 10000;
+ end
+ end
+ if isempty(varargin) % no text output and no check
+ fprintf('Creating a new ALLEEG dataset %d\n', storeSetIndex);
+ end
+else
+ if isempty(storeSetIndex) || storeSetIndex == 0
+ storeSetIndex = 1;
+ end
+end
+
+if ~isempty( ALLEEG )
+ try
+ ALLEEG(storeSetIndex) = EEG;
+ catch
+ allfields = fieldnames( EEG );
+ for i=1:length( allfields )
+ ALLEEG(storeSetIndex).(allfields{i}) = EEG.(allfields{i});
+ end
+ if ~isfield(EEG, 'datfile') && isfield(ALLEEG, 'datfile')
+ ALLEEG(storeSetIndex).datfile = '';
+ end
+ end
+else
+ ALLEEG = EEG;
+ if storeSetIndex ~= 1
+ ALLEEG(storeSetIndex+1) = EEG;
+ ALLEEG(1) = ALLEEG(storeSetIndex); % empty
+ ALLEEG(storeSetIndex) = ALLEEG(storeSetIndex+1);
+ ALLEEG = ALLEEG(1:storeSetIndex);
+ end
+end
diff --git a/Studio V1/Functions/EEGLAB/CSD/eegobj.m b/Studio V1/Functions/EEGLAB/CSD/eegobj.m
new file mode 100755
index 00000000..3ebd8942
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/eegobj.m
@@ -0,0 +1,14 @@
+function this = eegobj(EEG);
+
+ if nargin == 1
+ if isa(EEG, 'eegobj')
+ this = EEG;
+ return;
+ end
+ for index = 1:length(EEG)
+ TMP(index).EEG = EEG(index);
+ end
+ else
+ TMP.EEG = eeg_emptyset;
+ end
+ this = class(TMP, 'eegobj');
\ No newline at end of file
diff --git a/Studio V1/Functions/EEGLAB/CSD/pop_writelocs.m b/Studio V1/Functions/EEGLAB/CSD/pop_writelocs.m
new file mode 100755
index 00000000..1827fc7f
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/pop_writelocs.m
@@ -0,0 +1,190 @@
+% pop_writelocs() - load a EGI EEG file (pop out window if no arguments).
+%
+% Usage:
+% >> EEG = pop_writelocs(chanstruct); % a window pops up
+% >> EEG = pop_writelocs(chanstruct, filename, 'key', val, ...);
+%
+% Inputs:
+% chanstruct - channel structure. See readlocs()
+% filename - Electrode location file name
+% 'key',val - same as writelocs()
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 17 Dec 2002
+%
+% See also: writelocs()
+
+% Copyright (C) Arnaud Delorme, Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function com = pop_writelocs(chans, filename, varargin);
+
+com = '';
+if nargin < 1
+ help pop_writelocs;
+ return;
+end
+
+if isfield(chans, 'shrink')
+ chans = rmfield(chans, 'shrink');
+ disp('Warning: shrink factor ignored');
+end
+
+disp('WARNING: ELECTRODE COORDINATES MUST BE WITH NOSE ALONG THE +X DIMENSION TO BE EXPORTED')
+disp(' IF NOT, THE EXPORTED FILE COORDINATES MAY BE INACURATE')
+
+% get infos from readlocs
+% -----------------------
+[chanformat, listcolformat] = readlocs('getinfos');
+chanformat(end) = [];
+indformat = [];
+for index = 1:length(chanformat)
+ if ~ischar(chanformat(index).importformat)
+ indformat = [ indformat index ];
+ end
+ if isempty(chanformat(index).skipline), chanformat(index).skipline = 0; end
+end
+listtype = { chanformat(indformat).type };
+formatinfo = { chanformat(indformat).importformat };
+formatskip = [ chanformat(indformat).skipline ];
+
+%[listtype formatinfo listcolformat formatskip] = readlocs('getinfoswrite');
+
+% GUI support of `custom` filetype, removed until `custom` can pass readlocs() check
+%listtype{end+1} = 'custom';
+%formatinfo{end+1} = {};
+%formatskip = [ formatskip 0];
+
+
+if nargin < 2
+ updatefields = [ 'tmpdata = get(gcf, ''userdata'');' ...
+ 'tmpobj = findobj(gcf, ''tag'', ''list2'');' ...
+ 'set(tmpobj, ''string'', strvcat(tmpdata{2}));' ...
+ 'clear tmpobj tmpdata;' ];
+ addfieldcom = [ 'tmpdata = get(gcbf, ''userdata'');' ...
+ 'tmpobj = findobj(gcf, ''tag'', ''list1'');' ...
+ 'tmpdata{2}{end+1} = tmpdata{1}{get(tmpobj, ''value'')};' ...
+ 'set(gcbf, ''userdata'', tmpdata);' ...
+ updatefields ];
+ rmfieldcom = [ 'tmpdata = get(gcbf, ''userdata'');' ...
+ 'tmpobj = findobj(gcbf, ''tag'', ''list2'');' ...
+ 'try, tmpdata{2}(get(tmpobj, ''value'')) = [];' ...
+ ' set(tmpobj, ''value'', 1);' ...
+ 'catch, end;' ...
+ 'set(gcbf, ''userdata'', tmpdata);' ...
+ updatefields ];
+ filetypecom = [ 'tmpdata = get(gcf, ''userdata'');' ...
+ 'tmpobj = findobj(gcf, ''tag'', ''formatlist'');' ...
+ 'tmpval = get(tmpobj, ''value'');' ...
+ 'try, tmpdata{2} = tmpdata{3}{tmpval}; catch, end;' ... %try and catch for custom
+ 'set(gcf, ''userdata'', tmpdata);' ...
+ updatefields ...
+ 'tmpdata = get(gcf, ''userdata'');' ...
+ 'tmpobj1 = findobj(gcf, ''tag'', ''insertcol'');' ... % the lines below
+ 'tmpobj2 = findobj(gcf, ''tag'', ''inserttext'');' ... % update the checkbox
+ 'try, ' ... % and the edit text box
+ ' if tmpdata{4}(tmpval) == 2,' ...
+ ' set(tmpobj1, ''value'', 1);' ...
+ ' else,' ...
+ ' set(tmpobj1, ''value'', 0);' ...
+ ' end;' ...
+ ' if tmpval == 1,' ... % besa only
+ ' set(tmpobj2, ''string'', ''' int2str(length(chans)) ''');' ...
+ ' else,' ...
+ ' set(tmpobj2, ''string'', '''');' ...
+ ' end;' ...
+ 'catch, end;' ... % catch for custom case
+ 'tmpobj = findobj(gcf, ''userdata'', ''setfield'');' ...
+ 'if tmpval == ' int2str(length(listtype)) ',' ... % disable if non-custom type
+ ' set(tmpobj, ''enable'', ''off'');' ...
+ 'else,' ...
+ ' set(tmpobj, ''enable'', ''off'');' ...
+ 'end; clear tmpobj tmpobj2 tmpdata tmpval;' ];
+
+ geometry = { [1 1 1] [1 1] [1] [1 1 1] [1 1] [1 1 1] [1 0.3 0.7] [1] [1] };
+ listui = { ...
+ { 'style' 'text' 'string' 'Filename' } ...
+ { 'style' 'edit' 'string' '' 'tag' 'filename' 'horizontalalignment' 'left' } ...
+ { 'style' 'pushbutton' 'string' 'Browse' 'callback' ...
+ [ '[tmpfile tmppath] = uiputfile(''*'', ''Exporting electrode location file -- pop_writelocs()'');' ...
+ 'set(findobj(gcbf, ''tag'', ''filename''), ''string'', char([tmppath tmpfile ]));' ...
+ 'clear tmpfile tmppath;' ] } ...
+ { 'style' 'text' 'string' strvcat('Select output file type', ' ', ' ') } ...
+ { 'style' 'listbox' 'tag' 'formatlist' 'string' strvcat(listtype) ...
+ 'value' length(listtype) 'callback' filetypecom } ...
+ { 'style' 'text' 'string' 'Select fields to export below' } ...
+ { } { 'style' 'pushbutton' 'string' '-> ADD' 'callback' addfieldcom 'userdata' 'setfield' } { } ...
+ { 'style' 'listbox' 'tag' 'list1' 'string' strvcat(fieldnames(chans)) 'userdata' 'setfield' } ...
+ { 'style' 'listbox' 'tag' 'list2' 'string' '' 'userdata' 'setfield2' } ...
+ { } { 'style' 'pushbutton' 'string' 'REMOVE <-' 'callback' rmfieldcom 'userdata' 'setfield' } { } ...
+ { 'style' 'text' 'string' 'Insert column names' } ...
+ { 'style' 'checkbox' 'tag' 'insertcol' 'value' 1 'userdata' 'setfield' } { } ...
+ { 'style' 'text' 'string' 'Enter custom header below' } ...
+ { 'style' 'edit' 'userdata' 'setfield' 'tag' 'inserttext' 'horizontalalignment' 'left' 'max' 2 } ...
+ };
+
+ inputgui(geometry, listui, 'pophelp(''writelocs'');', ...
+ 'Exporting electrode location file -- pop_writelocs()', { fieldnames(chans) {} formatinfo formatskip }, 'plot', [1 3 1 1 3 1 1 1 3 ]);
+ fig = gcf;
+
+ % set default format
+ tmpobj = findobj(fig, 'tag', 'formatlist');
+ set(tmpobj, 'value', 6);
+ eval(get(tmpobj, 'callback'));
+
+ res = inputgui(geometry, listui, 'pophelp(''writelocs'');', ...
+ 'Exporting electrode location file -- pop_writelocs()', { listcolformat {} formatinfo formatskip }, fig, [1 3 1 1 3 1 1 1 3 ]);
+ if gcf ~= fig, return; end
+ exportfields = get(fig, 'userdata');
+ exportfields = exportfields{2};
+ close(fig);
+
+ % decode the inputs
+ filename = res{1};
+ if isempty(filename),
+ errordlg2('Error: Empty file name', 'Error');
+ return;
+ end
+ options = { 'filetype' listtype{res{2}} 'format' exportfields ...
+ 'header' fastif(res{5}, 'on', 'off') 'customheader' res{6} };
+else
+ options = varargin;
+end
+
+% generate history
+% ----------------
+if isempty(inputname(1)) % not a variable name -> probably the structure from pop_chanedit
+ writelocs(chans, filename, options{:});
+ com = sprintf('pop_writelocs( EEG.chanlocs, ''%s'', %s);', filename, vararg2str(options));
+else
+ if strcmpi(inputname(1), 'chantmp')
+ % do not write file (yet)
+ com = sprintf('pop_writelocs( chans, ''%s'', %s);', filename, vararg2str(options));
+ else
+ writelocs(chans, filename, options{:});
+ com = sprintf('pop_writelocs( %s, ''%s'', %s);', inputname(1), filename, vararg2str(options));
+ end
+end
diff --git a/Studio V1/Functions/EEGLAB/CSD/questdlg2.m b/Studio V1/Functions/EEGLAB/CSD/questdlg2.m
new file mode 100755
index 00000000..e542f763
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/CSD/questdlg2.m
@@ -0,0 +1,102 @@
+% questdlg2() - questdlg function clone with coloring and help for
+% eeglab().
+%
+% Usage: same as questdlg()
+%
+% Warning:
+% Case of button text and result might be changed by the function
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, La Jolla, 11 August 2002
+%
+% See also: inputdlg2(), errordlg2(), supergui(), inputgui()
+
+% Copyright (C) Arnaud Delorme, CNL / Salk Institute, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [result] = questdlg2(Prompt,Title,varargin);
+
+result = '';
+if nargin < 2
+ help questdlg2;
+ return;
+end
+if isempty(varargin)
+ varargin = { 'Yes' 'No' 'Cancel' 'Yes' };
+end
+result = varargin{end};
+if Prompt(end) == 10, Prompt(end) = []; end
+if Prompt(end) == 10, Prompt(end) = []; end
+if Prompt(end) == 10, Prompt(end) = []; end
+if Prompt(end) == 10, Prompt(end) = []; end
+
+fig = figure('visible', 'off');
+set(gcf, 'name', Title);
+
+listui = {};
+geometry = {};
+if ~isempty(find(Prompt == 10))
+ indlines = find(Prompt == 10);
+ if indlines(1) ~= 1, indlines = [ 0 indlines ]; end
+ if indlines(end) ~= length(Prompt), indlines = [ indlines length(Prompt)+1 ]; end
+ for index = 1:length(indlines)-1
+ geometry{index} = [1];
+ listui{index} = { 'Style', 'text', 'string' Prompt(indlines(index)+1:indlines(index+1)-1) };
+ end
+else
+ for index = 1:size(Prompt,1)
+ geometry{index} = [1];
+ listui{index} = { 'Style', 'text', 'string' Prompt(index,:) };
+ end
+end
+listui{end+1} = {};
+
+geometry = { geometry{:} 1 ones(1,length(varargin)-1) };
+for index = 1:length(varargin)-1 % ignoring default val
+ listui = {listui{:} { 'width',80,'align','center','Style', 'pushbutton', 'string', varargin{index}, 'callback', ['set(gcbf, ''userdata'', ''' varargin{index} ''');'] } };
+ if strcmp(varargin{index}, varargin{end})
+ listui{end}{end+1} = 'fontweight';
+ listui{end}{end+1} = 'bold';
+ end
+end
+
+%cr = length(find(Prompt == char(10)))+1;
+%if cr == 1
+% cr = size(Prompt,1);
+%end
+%cr = cr^(7/);
+%if cr >= 8, cr = cr-1; end
+%if cr >= 4, cr = cr-1; end
+%[tmp tmp2 allobj] = supergui( 'fig', fig, 'geomhoriz', geometry, 'geomvert', [cr 1 1], 'uilist', listui, ...
+[tmp tmp2 allobj] = supergui( 'fig', fig, 'geomhoriz', geometry, 'uilist', listui, ...
+ 'borders', [0.05 0.015 0.08 0.06], 'spacing', [0 0], 'horizontalalignment', 'left', 'adjustbuttonwidth', 'off' );
+
+waitfor( fig, 'userdata');
+try,
+ result = get(fig, 'userdata');
+ close(fig);
+ drawnow;
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/adjustcylinder2.m b/Studio V1/Functions/EEGLAB/Scalp/adjustcylinder2.m
new file mode 100755
index 00000000..5c165523
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/adjustcylinder2.m
@@ -0,0 +1,60 @@
+% adjustcylinder() - Adjust 3d object coordinates to match a pair of points
+%
+% Usage:
+% >> [x y z] = adjustcylinder( x, y, z, pos1, pos2);
+%
+% Inputs:
+% x,y,z - 3-D point coordinates
+% pos1 - position of first point [x y z]
+% pos2 - position of second point [x y z]
+%
+% Outputs:
+% x,y,z - updated 3-D point coordinates
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 30 Mai 2003
+
+% Copyright (C) 2003 Arnaud Delorme
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+function [x, y, z] = adjustcylinder2( h, pos1, pos2);
+
+ % figure; plot3(x(2,:),y(2,:),z(2,:)); [ x(2,:)' y(2,:)' z(2,:)']
+
+ % stretch z coordinates to match for vector length
+ % ------------------------------------------------
+ dist = sqrt(sum((pos1-pos2).^2));
+ z = get(h, 'zdata');
+ zrange = max(z(:)) - min(z(:));
+ set(h, 'zdata', get(h, 'zdata') /zrange*dist);
+
+ % rotate in 3-D to match vector angle [0 0 1] -> vector angle)
+ % only have to rotate in the x-z and y-z plane
+ % --------------------------------------------
+ vectrot = [ pos2(1)-pos1(1) pos2(2)-pos1(2) pos2(3)-pos1(3)];
+ [thvect phivect] = cart2sph( vectrot(1), vectrot(2), vectrot(3) );
+
+ rotatematlab(h, [0 0 1], thvect/pi*180, [0 0 0]);
+ rotatematlab(h, [thvect+pi/2 0]/pi*180, (pi/2-phivect)/pi*180, [0 0 0]);
+
+ x = get(h, 'xdata') + pos1(1);
+ y = get(h, 'ydata') + pos1(2);
+ z = get(h, 'zdata') + pos1(3);
+
+ set(h, 'xdata', x);
+ set(h, 'ydata', y);
+ set(h, 'zdata', z);
+ return;
+
diff --git a/Studio V1/Functions/EEGLAB/Scalp/cbar.m b/Studio V1/Functions/EEGLAB/Scalp/cbar.m
new file mode 100755
index 00000000..1838b4ed
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/cbar.m
@@ -0,0 +1,244 @@
+% cbar() - Display full or partial color bar
+%
+% Usage:
+% >> cbar % create a vertical cbar on the right side of a figure
+% >> cbar(type) % specify direction as 'vert' or 'horiz'
+% >> cbar(type,colors) % specify which colormap colors to plot
+% else
+% >> cbar(axhandle) % specify the axes to draw cbar in
+%
+% >> h = cbar(type|axhandle,colors, minmax, grad)
+%
+% Inputs:
+% type - ['vert'|'horiz'] direction of the cbar {default: 'vert')
+% ELSE axhandle = handle of axes to draw the cbar
+% colors - vector of colormap indices to display, or integer to truncate upper
+% limit by.
+% (int n -> display colors [1:end-n]) {default: 0}
+% minmax - [min, max] range of values to label on colorbar
+% grad - [integer] number of tick labels. {default: 5}.
+%
+% Example:
+% >> colormap('default') % default colormap is 64-color 'jet'
+% >> cbar('vert',33:64); % plot a vertical cbar colored green->red
+% % useful for showing >0 (warm) and 0 (green)
+% % values only in a green=0 plot
+%
+% Author: Colin Humphries, Arnaud Delorme, CNL / Salk Institute, Feb. 1998-
+%
+% See also: colorbar()
+
+% Copyright (C) Colin Humphries, CNL / Salk Institute, Feb. 1998
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% 12-13-98 added minmax arg -Scott Makeig
+% 01-25-02 reformated help & license, added links -ad
+
+function [handle]=cbar(arg,colors,minmax, grad)
+
+if nargin < 2
+ colors = 0;
+end
+posscale = 'off';
+if nargin < 1
+ arg = 'vert';
+ ax = [];
+else
+ if isempty(arg)
+ arg = 0;
+ end
+ if arg(1) == 0
+ ax = [];
+ arg = 'vert';
+ elseif strcmpi(arg, 'pos')
+ ax = [];
+ arg = 'vert';
+ posscale = 'on';
+ else
+ if ischar(arg)
+ ax = [];
+ else
+ ax = arg;
+ arg = [];
+ end
+ end
+end
+
+if nargin>2
+ if size(minmax,1) ~= 1 || size(minmax,2) ~= 2
+ help cbar
+ fprintf('cbar() : minmax arg must be [min,max]\n');
+ return
+ end
+end
+if nargin < 4
+ grad = 5;
+end
+
+%obj = findobj('tag','cbar','parent',gcf);
+%if ~isempty(obj) & ~isempty(arg)
+% arg = [];
+% ax = obj;
+%end
+try
+ icadefs;
+catch
+ warning('cbar.m unable to find icadefs.m');
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Choose colorbar position
+%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+if (length(colors) == 1) && (colors == 0)
+ t = caxis;
+else
+ t = [0 1];
+end
+if ~isempty(arg)
+ if strcmp(arg,'vert')
+ cax = gca;
+ pos = get(cax,'Position');
+ stripe = 0.04;
+ edge = 0.01;
+ space = .02;
+
+% set(cax,'Position',[pos(1) pos(2) pos(3)*(1-stripe-edge-space) pos(4)])
+% rect = [pos(1)+(1-stripe-edge)*pos(3) pos(2) stripe*pos(3) pos(4)];
+
+ set(cax,'Position',[pos(1) pos(2) pos(3) pos(4)])
+ rect = [pos(1)+pos(3)+space pos(2) stripe*pos(3) pos(4)];
+ ax = axes('Position', rect);
+ elseif strcmp(arg,'horiz')
+ cax = gca;
+ pos = get(cax,'Position');
+ stripe = 0.075;
+ space = .1;
+ set(cax,'Position',...
+ [pos(1) pos(2)+(stripe+space)*pos(4) pos(3) (1-stripe-space)*pos(4)])
+ rect = [pos(1) pos(2) pos(3) stripe*pos(4)];
+ ax = axes('Position', rect);
+ end
+else
+ pos = get(ax,'Position');
+ if pos(3) > pos(4)
+ arg = 'horiz';
+ else
+ arg = 'vert';
+ end
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Draw colorbar using image()
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+if exist('DEFAULT_COLORMAP', 'var')
+ map = colormap(eval( [ DEFAULT_COLORMAP '(' int2str(max(size(colormap,1), max(colors))) ')' ]));
+else
+ map = colormap;
+end
+n = size(map,1);
+
+if length(colors) == 1
+ if strcmp(arg,'vert')
+ if strcmpi(posscale, 'on')
+ image([0 1],[0 t(2)],[ceil(n/2):n-colors]');
+ else
+ image([0 1],t,[1:n-colors]');
+ end
+ set(ax,'xticklabelmode','manual')
+ set(ax,'xticklabel',[],'YAxisLocation','right')
+
+ else
+ image(t,[0 1],[1:n-colors]);
+ set(ax,'yticklabelmode','manual')
+ set(ax,'yticklabel',[],'YAxisLocation','right')
+ end
+ set(ax,'Ydir','normal','YAxisLocation','right')
+
+else % length > 1
+
+ if max(colors) > n
+ error('Color vector exceeds size of colormap')
+ end
+ if strcmp(arg,'vert')
+ image([0 1],t,[colors]');
+ set(ax,'xticklabelmode','manual')
+ set(ax,'xticklabel',[])
+ else
+ image([0 1],t,[colors]);
+ set(ax,'yticklabelmode','manual')
+ set(ax,'yticklabel',[],'YAxisLocation','right')
+ end
+ set(ax,'Ydir','normal','YAxisLocation','right')
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%
+% Adjust cbar ticklabels
+%%%%%%%%%%%%%%%%%%%%%%%%%
+
+if nargin > 2
+ if strcmp(arg,'vert')
+ Cax = get(ax,'Ylim');
+ else
+ Cax = get(ax,'Xlim');
+ end
+ CBTicks = [Cax(1):(Cax(2)-Cax(1))/(grad-1):Cax(2)]; % caxis tick positions
+ CBLabels = [minmax(1):(minmax(2)-minmax(1))/(grad-1):minmax(2)]; % tick labels
+
+ dec = floor(log10(max(abs(minmax)))); % decade of largest abs value
+ CBLabels = ([minmax]* [ linspace(1,0, grad);linspace(0, 1, grad)]);
+ %[1.0 .75 .50 .25 0.0; 0.0 .25 .50 .75 1.0]);
+ if dec<1
+ CBLabels = round(CBLabels*10^(1-dec))*10^(dec-1);
+ elseif dec == 1
+ CBLabels = round(CBLabels*10^(2-dec))*10^(dec-2);
+ else
+ CBLabels = round(CBLabels);
+ end
+% minmax
+% CBTicks
+% CBLabels
+
+ if strcmp(arg,'vert')
+ set(ax,'Ytick',CBTicks);
+ set(ax,'Yticklabel',CBLabels);
+ else
+ set(ax,'Xtick',CBTicks);
+ set(ax,'Xticklabel',CBLabels);
+ end
+end
+handle = ax;
+
+%%%%%%%%%%%%%%%%%%
+% Adjust cbar tag
+%%%%%%%%%%%%%%%%%%
+
+set(ax,'tag','cbar');
+
+if exist('DEFAULT_COLORMAP', 'var')
+ colormap(DEFAULT_COLORMAP);
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/convertlocs.m b/Studio V1/Functions/EEGLAB/Scalp/convertlocs.m
new file mode 100755
index 00000000..18e9f40d
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/convertlocs.m
@@ -0,0 +1,240 @@
+% convertlocs() - Convert electrode locations between coordinate systems
+% using the EEG.chanlocs structure.
+%
+% Usage: >> newchans = convertlocs( chanlocs, 'command');
+%
+% Input:
+% chanlocs - An EEGLAB EEG dataset OR a EEG.chanlocs channel locations structure
+% 'command' - ['cart2topo'|'sph2topo'|'sphbesa2topo'| 'sph2cart'|'topo2cart'|'sphbesa2cart'|
+% 'cart2sph'|'sphbesa2sph'|'topo2sph'| 'cart2sphbesa'|'sph2sphbesa'|'topo2sphbesa'|
+% 'cart2all'|'sph2all'|'sphbesa2all'|'topo2all']
+% These command modes convert between four coordinate frames: 3-D Cartesian
+% (cart), Matlab spherical (sph), Besa spherical (sphbesa), and 2-D polar (topo)
+% 'auto' -- Here, the function finds the most complex coordinate frame
+% and constrains all the others to this one. It searches first for Cartesian
+% coordinates, then for spherical and finally for polar. Default is 'auto'.
+%
+% Optional input
+% 'verbose' - ['on'|'off'] default is 'off'.
+%
+% Outputs:
+% newchans - new EEGLAB channel locations structure
+%
+% Ex: CHANSTRUCT = convertlocs( CHANSTRUCT, 'cart2topo');
+% % Convert Cartesian coordinates to 2-D polar (topographic).
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 22 Dec 2002
+%
+% See also: readlocs()
+
+% Copyright (C) Arnaud Delorme, CNL / Salk Institute, 22 Dec 2002, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function chans = convertlocs(chans, command, varargin)
+
+if nargin < 1
+ help convertlocs;
+ return;
+end
+
+if ~isfield(chans, 'theta') && ~isfield(chans, 'X') && ~isfield(chans, 'radius') && ~isfield(chans, 'sph_radius')
+ return
+end
+
+if nargin < 2
+ command = 'auto';
+end
+if nargin == 4 && strcmpi(varargin{2}, 'on')
+ verbose = 1;
+else
+ verbose = 0; % off
+end
+
+% test if value exists for default
+% --------------------------------
+if strcmp(command, 'auto')
+ if isfield(chans, 'X') && any(~cellfun(@isempty, { chans.X }))
+ command = 'cart2all';
+ if verbose
+ disp('Make all coordinate frames uniform using Cartesian coords');
+ end
+ else
+ if isfield(chans, 'sph_theta') && ~isempty(chans(1).sph_theta)
+ command = 'sph2all';
+ if verbose
+ disp('Make all coordinate frames uniform using spherical coords');
+ end
+ else
+ if isfield(chans, 'sph_theta_besa') && ~isempty(chans(1).sph_theta_besa)
+ command = 'sphbesa2all';
+ if verbose
+ disp('Make all coordinate frames uniform using BESA spherical coords');
+ end
+ else
+ command = 'topo2all';
+ if verbose
+ disp('Make all coordinate frames uniform using polar coords');
+ end
+ end
+ end
+ end
+end
+
+% convert
+% -------
+switch command
+ case 'topo2sph'
+ theta = {chans.theta};
+ radius = {chans.radius};
+ indices = find(~cellfun('isempty', theta));
+ [sph_phi, sph_theta] = topo2sph( [ [ theta{indices} ]' [ radius{indices}]' ] );
+ if verbose
+ disp('Warning: electrodes forced to lie on a sphere for polar to 3-D conversion');
+ end
+ for index = 1:length(indices)
+ chans(indices(index)).sph_theta = sph_theta(index);
+ chans(indices(index)).sph_phi = sph_phi (index);
+ end
+ if isfield(chans, 'sph_radius')
+ meanrad = mean([ chans(indices).sph_radius ]);
+ if isempty(meanrad), meanrad = 1; end
+ else
+ meanrad = 1;
+ end
+ sph_radius(1:length(indices)) = {meanrad};
+case 'topo2sphbesa'
+ chans = convertlocs(chans, 'topo2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2sphbesa', varargin{:}); % search for spherical coords
+case 'topo2cart'
+ chans = convertlocs(chans, 'topo2sph', varargin{:}); % search for spherical coords
+ if verbose
+ disp('Warning: spherical coordinates automatically updated');
+ end
+ chans = convertlocs(chans, 'sph2cart', varargin{:}); % search for spherical coords
+case 'topo2all'
+ chans = convertlocs(chans, 'topo2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2sphbesa', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2cart', varargin{:}); % search for spherical coords
+case 'sph2cart'
+ sph_theta = {chans.sph_theta};
+ sph_phi = {chans.sph_phi};
+ indices = find(~cellfun('isempty', sph_theta));
+ if ~isfield(chans, 'sph_radius'), sph_radius(1:length(indices)) = {1};
+ else sph_radius = {chans.sph_radius};
+ end
+ inde = find(cellfun('isempty', sph_radius));
+ if ~isempty(inde)
+ meanrad = mean( [ sph_radius{:} ]);
+ sph_radius(inde) = { meanrad };
+ end
+ [x, y, z] = sph2cart([ sph_theta{indices} ]'/180*pi, [ sph_phi{indices} ]'/180*pi, [ sph_radius{indices} ]');
+ for index = 1:length(indices)
+ chans(indices(index)).X = x(index);
+ chans(indices(index)).Y = y(index);
+ chans(indices(index)).Z = z(index);
+ end
+case 'sph2topo'
+ if verbose
+ % disp('Warning: all radii constrained to one for spherical to topo transformation');
+ end
+ sph_theta = {chans.sph_theta};
+ sph_phi = {chans.sph_phi};
+ indices = find(~cellfun('isempty', sph_theta));
+ [chan_num,angle,radius] = sph2topo([ ones(length(indices),1) [ sph_phi{indices} ]' [ sph_theta{indices} ]' ], 1, 2); % using method 2
+ for index = 1:length(indices)
+ chans(indices(index)).theta = angle(index);
+ chans(indices(index)).radius = radius(index);
+ if ~isfield(chans, 'sph_radius') || isempty(chans(indices(index)).sph_radius)
+ chans(indices(index)).sph_radius = 1;
+ end
+ end
+case 'sph2sphbesa'
+ % using polar coordinates
+ sph_theta = {chans.sph_theta};
+ sph_phi = {chans.sph_phi};
+ indices = find(~cellfun('isempty', sph_theta));
+ [chan_num,angle,radius] = sph2topo([ones(length(indices),1) [ sph_phi{indices} ]' [ sph_theta{indices} ]' ], 1, 2);
+ [sph_theta_besa, sph_phi_besa] = topo2sph([angle radius], 1, 1);
+ for index = 1:length(indices)
+ chans(indices(index)).sph_theta_besa = sph_theta_besa(index);
+ chans(indices(index)).sph_phi_besa = sph_phi_besa(index);
+ end
+case 'sph2all'
+ chans = convertlocs(chans, 'sph2topo', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2sphbesa', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2cart', varargin{:}); % search for spherical coords
+case 'sphbesa2sph'
+ % using polar coordinates
+ sph_theta_besa = {chans.sph_theta_besa};
+ sph_phi_besa = {chans.sph_phi_besa};
+ indices = find(~cellfun('isempty', sph_theta_besa));
+ [chan_num,angle,radius] = sph2topo([ones(length(indices),1) [ sph_theta_besa{indices} ]' [ sph_phi_besa{indices} ]' ], 1, 1);
+ %for index = 1:length(chans)
+ % chans(indices(index)).theta = angle(index);
+ % chans(indices(index)).radius = radius(index);
+ % chans(indices(index)).labels = int2str(index);
+ %end;
+ %figure; topoplot([],chans, 'style', 'blank', 'electrodes', 'labelpoint');
+
+ [sph_phi, sph_theta] = topo2sph([angle radius], 2);
+ for index = 1:length(indices)
+ chans(indices(index)).sph_theta = sph_theta(index);
+ chans(indices(index)).sph_phi = sph_phi (index);
+ end
+case 'sphbesa2topo'
+ chans = convertlocs(chans, 'sphbesa2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2topo', varargin{:}); % search for spherical coords
+case 'sphbesa2cart'
+ chans = convertlocs(chans, 'sphbesa2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2cart', varargin{:}); % search for spherical coords
+case 'sphbesa2all'
+ chans = convertlocs(chans, 'sphbesa2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2all', varargin{:}); % search for spherical coords
+case 'cart2topo'
+ chans = convertlocs(chans, 'cart2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2topo', varargin{:}); % search for spherical coords
+case 'cart2sphbesa'
+ chans = convertlocs(chans, 'cart2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2sphbesa', varargin{:}); % search for spherical coords
+case 'cart2sph'
+ if verbose
+ disp('WARNING: If XYZ center has not been optimized, optimize it using Edit > Channel Locations');
+ end
+ X = {chans.X};
+ Y = {chans.Y};
+ Z = {chans.Z};
+ indices = find(~cellfun('isempty', X));
+ [th, phi, radius] = cart2sph( [ X{indices} ], [ Y{indices} ], [ Z{indices} ]);
+ for index = 1:length(indices)
+ chans(indices(index)).sph_theta = th(index)/pi*180;
+ chans(indices(index)).sph_phi = phi(index)/pi*180;
+ chans(indices(index)).sph_radius = radius(index);
+ end
+case 'cart2all'
+ chans = convertlocs(chans, 'cart2sph', varargin{:}); % search for spherical coords
+ chans = convertlocs(chans, 'sph2all', varargin{:}); % search for spherical coords
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/error_bc.m b/Studio V1/Functions/EEGLAB/Scalp/error_bc.m
new file mode 100755
index 00000000..10553856
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/error_bc.m
@@ -0,0 +1,2 @@
+function res = error_bc
+res = false;
\ No newline at end of file
diff --git a/Studio V1/Functions/EEGLAB/Scalp/finputcheck.m b/Studio V1/Functions/EEGLAB/Scalp/finputcheck.m
new file mode 100755
index 00000000..9aaaa8c3
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/finputcheck.m
@@ -0,0 +1,262 @@
+% finputcheck() - check Matlab function {'key','value'} input argument pairs
+%
+% Usage: >> result = finputcheck( varargin, fieldlist );
+% >> [result varargin] = finputcheck( varargin, fieldlist, ...
+% callingfunc, mode, verbose );
+% Input:
+% varargin - Cell array 'varargin' argument from a function call using 'key',
+% 'value' argument pairs. See Matlab function 'varargin'.
+% May also be a structure such as struct(varargin{:})
+% fieldlist - A 4-column cell array, one row per 'key'. The first
+% column contains the key string, the second its type(s),
+% the third the accepted value range, and the fourth the
+% default value. Allowed types are 'boolean', 'integer',
+% 'real', 'string', 'cell' or 'struct'. For example,
+% {'key1' 'string' { 'string1' 'string2' } 'defaultval_key1'}
+% {'key2' {'real' 'integer'} { minint maxint } 'defaultval_key2'}
+% callingfunc - Calling function name for error messages. {default: none}.
+% mode - ['ignore'|'error'] ignore keywords that are either not specified
+% in the fieldlist cell array or generate an error.
+% {default: 'error'}.
+% verbose - ['verbose', 'quiet'] print information. Default: 'verbose'.
+%
+% Outputs:
+% result - If no error, structure with 'key' as fields and 'value' as
+% content. If error this output contain the string error.
+% varargin - residual varagin containing unrecognized input arguments.
+% Requires mode 'ignore' above.
+%
+% Note: In case of error, a string is returned containing the error message
+% instead of a structure.
+%
+% Example (insert the following at the beginning of your function):
+% result = finputcheck(varargin, ...
+% { 'title' 'string' [] ''; ...
+% 'percent' 'real' [0 1] 1 ; ...
+% 'elecamp' 'integer' [1:10] [] });
+% if ischar(result)
+% error(result);
+% end
+%
+% Note:
+% The 'title' argument should be a string. {no default value}
+% The 'percent' argument should be a real number between 0 and 1. {default: 1}
+% The 'elecamp' argument should be an integer between 1 and 10 (inclusive).
+%
+% Now 'g.title' will contain the title arg (if any, else the default ''), etc.
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 10 July 2002
+
+% Copyright (C) Arnaud Delorme, CNL / Salk Institute, 10 July 2002, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [g, varargnew] = finputcheck( vararg, fieldlist, callfunc, mode, verbose )
+
+ if nargin < 2
+ help finputcheck;
+ return;
+ end
+ if nargin < 3
+ callfunc = '';
+ else
+ callfunc = [callfunc ' ' ];
+ end
+ if nargin < 4
+ mode = 'do not ignore';
+ end
+ if nargin < 5
+ verbose = 'verbose';
+ end
+ NAME = 1;
+ TYPE = 2;
+ VALS = 3;
+ DEF = 4;
+ SIZE = 5;
+
+ varargnew = {};
+ % create structure
+ % ----------------
+ if ~isempty(vararg)
+ if isstruct(vararg)
+ g = vararg;
+ else
+ for index=1:length(vararg)
+ if iscell(vararg{index})
+ vararg{index} = {vararg{index}};
+ end
+ end
+ try
+ g = struct(vararg{:});
+ catch
+ vararg = removedup(vararg, verbose);
+ try
+ g = struct(vararg{:});
+ catch
+ g = [ callfunc 'error: bad ''key'', ''val'' sequence' ]; return;
+ end
+ end
+ end
+ else
+ g = [];
+ end
+
+ for index = 1:size(fieldlist,NAME)
+ % check if present
+ % ----------------
+ if ~isfield(g, fieldlist{index, NAME})
+ g = setfield( g, fieldlist{index, NAME}, fieldlist{index, DEF});
+ end
+ tmpval = getfield( g, {1}, fieldlist{index, NAME});
+
+ % check type
+ % ----------
+ if ~iscell( fieldlist{index, TYPE} )
+ res = fieldtest( fieldlist{index, NAME}, fieldlist{index, TYPE}, ...
+ fieldlist{index, VALS}, tmpval, callfunc );
+ if ischar(res), g = res; return; end
+ else
+ testres = 0;
+ tmplist = fieldlist;
+ for it = 1:length( fieldlist{index, TYPE} )
+ if ~iscell(fieldlist{index, VALS})
+ res{it} = fieldtest( fieldlist{index, NAME}, fieldlist{index, TYPE}{it}, ...
+ fieldlist{index, VALS}, tmpval, callfunc );
+ else res{it} = fieldtest( fieldlist{index, NAME}, fieldlist{index, TYPE}{it}, ...
+ fieldlist{index, VALS}{it}, tmpval, callfunc );
+ end
+ if ~ischar(res{it}), testres = 1; end
+ end
+ if testres == 0,
+ g = res{1};
+ for tmpi = 2:length(res)
+ g = [ g 10 'or ' res{tmpi} ];
+ end
+ return;
+ end
+ end
+ end
+
+ % check if fields are defined
+ % ---------------------------
+ allfields = fieldnames(g);
+ for index=1:length(allfields)
+ if isempty(strmatch(allfields{index}, fieldlist(:, 1)', 'exact'))
+ if ~strcmpi(mode, 'ignore')
+ g = [ callfunc 'error: undefined argument ''' allfields{index} '''']; return;
+ end
+ varargnew{end+1} = allfields{index};
+ varargnew{end+1} = getfield(g, {1}, allfields{index});
+ end
+ end
+
+
+function g = fieldtest( fieldname, fieldtype, fieldval, tmpval, callfunc );
+ NAME = 1;
+ TYPE = 2;
+ VALS = 3;
+ DEF = 4;
+ SIZE = 5;
+ g = [];
+
+ switch fieldtype
+ case { 'integer' 'real' 'boolean' 'float' },
+ if ~isnumeric(tmpval) && ~islogical(tmpval)
+ g = [ callfunc 'error: argument ''' fieldname ''' must be numeric' ]; return;
+ end
+ if strcmpi(fieldtype, 'boolean')
+ if tmpval ~=0 && tmpval ~= 1
+ g = [ callfunc 'error: argument ''' fieldname ''' must be 0 or 1' ]; return;
+ end;
+ else
+ if strcmpi(fieldtype, 'integer')
+ if ~isempty(fieldval)
+ if (any(isnan(tmpval(:))) && ~any(isnan(fieldval))) ...
+ && (~ismember(tmpval, fieldval))
+ g = [ callfunc 'error: wrong value for argument ''' fieldname '''' ]; return;
+ end
+ end
+ else % real or float
+ if ~isempty(fieldval) && ~isempty(tmpval)
+ if any(tmpval < fieldval(1)) || any(tmpval > fieldval(2))
+ g = [ callfunc 'error: value out of range for argument ''' fieldname '''' ]; return;
+ end
+ end
+ end
+ end;
+
+
+ case 'string'
+ if ~ischar(tmpval) && ~isempty(tmpval)
+ g = [ callfunc 'error: argument ''' fieldname ''' must be a string' ]; return;
+ end
+ if ~isempty(fieldval)
+ if isempty(strmatch(char(lower(tmpval)), lower(fieldval), 'exact'))
+ g = [ callfunc 'error: wrong value for argument ''' fieldname '''' ]; return;
+ end
+ end
+
+
+ case 'cell'
+ if ~iscell(tmpval)
+ g = [ callfunc 'error: argument ''' fieldname ''' must be a cell array' ]; return;
+ end
+
+
+ case 'struct'
+ if ~isstruct(tmpval)
+ g = [ callfunc 'error: argument ''' fieldname ''' must be a structure' ]; return;
+ end
+
+ case 'function_handle'
+ if ~isa(tmpval, 'function_handle')
+ g = [ callfunc 'error: argument ''' fieldname ''' must be a function handle' ]; return;
+ end
+
+ case '';
+ otherwise, error([ 'finputcheck error: unrecognized type ''' fieldname '''' ]);
+ end
+
+% remove duplicates in the list of parameters
+% -------------------------------------------
+function cella = removedup(cella, verbose)
+% make sure if all the values passed to unique() are strings, if not, exist
+%try
+ [tmp indices] = unique_bc(cella(1:2:end));
+ if length(tmp) ~= length(cella)/2
+ myfprintf(verbose,'Note: duplicate ''key'', ''val'' parameter(s), keeping the last one(s)\n');
+ end
+ cella = cella(sort(union(indices*2-1, indices*2)));
+%catch
+ % some elements of cella were not string
+% error('some ''key'' values are not string.');
+%end;
+
+function myfprintf(verbose, varargin)
+
+if strcmpi(verbose, 'verbose')
+ fprintf(varargin{:});
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/headplot.m b/Studio V1/Functions/EEGLAB/Scalp/headplot.m
new file mode 100755
index 00000000..979481eb
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/headplot.m
@@ -0,0 +1,894 @@
+% headplot() - plot a spherically-splined EEG field map on a semi-realistic
+% 3-D head model. Can 3-D rotate the head image using the left
+% mouse button.
+% Example:
+% >> headplot example % show an example spherical 'eloc_angles' file
+% >> headplot cartesian % show an example cartesian 'eloc_angles' file
+%
+% Setup usage (do only once for each scalp montage):
+%
+% >> headplot('setup', elocs, splinefile, 'Param','Value',...);
+% %
+% % NOTE: previous call format below is still supported
+% % >> headplot('setup', elocs, splinefile, comment, type);
+%
+% Required Setup-mode Inputs:
+%
+% elocs - file of electrode locations (compatible with readlocs()),
+% or EEG.chanlocs channel location structure. If the channel
+% file extension is not standard, use readlocs() to load the
+% data file, e.g.
+% >> headplot('setup', ...
+% readlocs('myfile.xxx', 'filetype', 'besa'),...
+% 'splinefile');
+% splinefile - name of spline file to save spline info into. It is saved as a
+% *.mat file and should be given the extension .spl .
+%
+% Optional Setup-mode Inputs:
+%
+% 'meshfile' - ['string' or structure] Matlab files containing a mesh. The
+% mesh may be of different formats. It may be a Dipfit mesh as
+% defined in the file standard_vol.mat. It may contain
+% a structure with the fields 'vertices' and 'faces' or it
+% it may contain a structure with at least two fields:
+% POS - 3-D positions of vertices:
+% x=left-right; y=back-front; z=up-down
+% TRI1 - faces on which the scalp map should be computed
+% plus possible optional fields are:
+% center (optional) - 3-D center of head mesh
+% TRI2 (optional) - faces in skin color
+% NORM (optional) - normal for each vertex (better shading)
+% 'orilocs' - ['off'|'on'] use original electrode locations on the head
+% {default: 'off'} (extrapolated to spherical). Note that these
+% electrode locations must be coregisted with the head mesh.
+% 'transform' - [real array] Talairach-model transformation matrix to co-register
+% the electrode locations with the head mesh:
+% [shiftX shiftY shiftZ pitch roll yaw scaleX scaleY scaleZ]
+% The transform is applied in the order shift(rotate(scale(elocs)))
+% by the dipfit2.* plugin function traditionaldipfit.m
+% This array is returned by coregister().
+% 'plotmeshonly' - [string] plot only mesh and electrode positions. Options are
+% 'head' to plot the standard head mesh; 'sphere' to plot the
+% texture of the head on a sphere; 'off' not to plot anything.
+% {default: 'off'}
+% 'comment' - ['string'] optional string containing comments for spline file
+% {default: []}
+%
+% Standard-mode Usage thereafter:
+%
+% >> headplot(values,'spline_file','Param','Value',...)
+%
+% Required Standard-mode Inputs:
+%
+% values - vector containing a data value at each electrode position
+% 'spline_file' - spline filename, computed and saved in 'setup' mode (above)
+%
+% Optional Standard-mode Inputs:
+%
+% 'meshfile' - [string] mesh file name. See file content in the setup-mode
+% description above. {default: the EEGLAB head template file}.
+% 'electrodes' - ['on'|'off'] -> show electrode positions {default 'on'}
+% 'title' - Plot title {default: none}
+% 'labels' - 2 -> plot stored electrode labels;
+% 1 -> plot channel numbers; 0 -> no labels {default 0}
+% 'cbar' - 0 -> Plot colorbar {default: no colorbar}
+% Note: standard jet colormap) red = +;blue = -;green=0
+% h -> Colorbar axis handle (to specify headplot location)
+% 'view' - Camera viewpoint in deg. [azimuth elevation]
+% 'back'|'b'=[ 0 30]; 'front'|'f'=[180 30]
+% 'left'|'l'=[-90 30]; 'right'|'r'=[ 90 30];
+% 'frontleft'|'bl','backright'|'br', etc.,
+% 'top'=[0 90], Can rotate with mouse {default [143 18]}
+% 'maplimits' - 'absmax' -> make limits +/- the absolute-max
+% 'maxmin' -> scale to data range
+% [min,max] -> user-definined values
+% {default = 'absmax'}
+% 'lights' - (3,N) matrix whose rows give [x y z] pos. of each of
+% N lights {default: four lights at corners}
+% 'electrode3d' - ['on'|'off'] plot electrodes in 3-D. Default is 'off'.
+% 'lighting' - 'off' = show wire frame head {default 'on'}
+% 'material' - [see material function] {default 'dull'}
+% 'colormap' - 3-column colormap matrix {default: jet(64)}
+% 'verbose' - 'off' -> no msgs, no rotate3d {default: 'on'}
+% 'orilocs' - [channel structure or channel file name] Use original
+% channel locations instead of the one extrapolated from
+% spherical locations. Note that if you use 'orilocs'
+% during setup, this is not necessary here since the
+% original channel location have already been saved.
+% This option might be useful to show more channels than
+% the ones actually used for interpolating (e.g., fiducials).
+% 'transform' - [real array] homogeneous transformation matrix to apply
+% to the original locations ('orilocs') before plotting them.
+%
+% Note: if an error is generated, headplot() may close the current figure
+%
+% Authors: Arnaud Delorme, Colin Humphries, Scott Makeig, SCCN/INC/UCSD,
+% La Jolla, 1998-
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Copyright (C) Arnaud Delorme, Colin Humphries and Scott Makeig,
+% CNL / Salk Institute, Feb. 1998
+%
+% Spherical spline method: Perrin et al. (1989) Electroenceph clin Neurophys
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% 12-12-98 changed electrode label lines to MarkerColor -sm
+% 12-12-98 added colorbar option -sm (still graphically marred by tan rect.)
+% 12-13-98 implemented colorbar option using enhanced cbar -sm
+% 12-13-98 implemented 'setup' comment option -sm
+% 03-20-00 added cartesian electrode locations option -sm
+% 07-14-00 fixed line in calgx() -sm from -ch
+% 03-23-01 documented 'cartesian' locfile option -sm
+% 01-25-02 reformated help & license, added links -ad
+% 03-21-02 added readlocs and the use of eloc input structure -ad
+
+function [HeadAxes, ColorbarHandle] = headplot(values, arg1, varargin)
+
+if nargin < 1
+ help headplot
+ return
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%% Set Defaults %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+icadefs % load definitions
+set(gca,'Color',BACKCOLOR);
+DEFAULT_MESH = ['mheadnew.mat']; % upper head model file (987K)
+DEFAULT_TRANSFORM = [0 -5 0 -0.1000 0 -1.5700 1040 800 950]; % stretching in different dimensions
+DEFAULT_TRANSFORM = [0 -10 0 -0.1000 0 -1.600 1100 1100 1100]; % keep spherical shape.
+%DEFAULT_MESH = '/home/arno/matlab/juliehiresmesh.mat';
+%DEFAULT_MESH = ['/home/scott/matlab/old' '/newupper.mat']; % whole head model file (183K)
+
+DEFAULT_LIGHTS = [-125 125 80; ...
+ 125 125 80; ...
+ 125 -125 125; ...
+ -125 -125 125]; % default lights at four corners
+
+HeadCenter = [0 0 30];
+FaceColor = [.8 .55 .35]*1.1; % ~= ruddy Caucasian - pick your complexion!
+MAX_ELECTRODES = 1024;
+ElectDFac = 1.06; % plot electrode marker dots out from head surface
+plotelecopt.NamesDFac = 1.05; % plot electrode names/numbers out from markers
+plotelecopt.NamesColor = 'k'; % 'r';
+plotelecopt.NamesSize = 10; % FontSize for electrode names
+plotelecopt.MarkerColor= [0 0 0];
+plotelecopt.electrodes3d = 'off';
+
+sqaxis = 1; % if non-zero, make head proportions anatomical
+title_font = 18;
+if ischar(values)
+ values = lower(values);
+ if strcmp(values,'setup')
+
+%
+%%%%%%%%%%%%%%%%%%% Perform splining file setup %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+ if nargin < 3
+ help headplot;
+ return;
+ end
+ eloc_file = arg1;
+ spline_file = varargin{1};
+
+ g = finputcheck(varargin(2:end), { 'orilocs' 'string' { 'on','off' } 'off';
+ 'plotmeshonly' 'string' { 'head','off','sphere' } 'off';
+ 'meshfile' { 'string','struct' } [] DEFAULT_MESH;
+ 'chaninfo' 'struct' [] struct([]);
+ 'plotchans' 'integer' [] [];
+ 'ica' 'string' { 'on','off' } 'off';
+ 'transform' 'real' [] DEFAULT_TRANSFORM;
+ 'comment' 'string' [] '' }, 'headplot', 'ignore');
+ if ischar(g),
+ error(g);
+ end
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Open electrode file
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%
+ [eloc_file, labels, Th, Rd, indices] = readlocs(eloc_file);
+ indices = find(~cellfun('isempty', { eloc_file.X }));
+
+ % channels to plot
+ % ----------------
+ if isempty(g.plotchans), g.plotchans = [1:length(eloc_file)]; end
+ if ~isfield(g.chaninfo, 'nosedir'), g.chaninfo(1).nosedir = '+x'; end
+ indices = intersect_bc(g.plotchans, indices);
+
+ % if ICA select subset of channels if necessary
+ % ---------------------------------------------
+ if ~isfield(g.chaninfo, 'icachansind'), g.chaninfo(1).icachansind = 1:length(eloc_file); end
+ if strcmpi(g.ica, 'on'),
+ rmchans2 = setdiff_bc( g.chaninfo.icachansind, indices ); % channels to remove (non-plotted)
+ newinds = 1:length(g.chaninfo.icachansind);
+ allrm = [];
+ % remove non-plotted channels from indices
+ for index = 1:length(rmchans2)
+ chanind = find(g.chaninfo.icachansind == rmchans2(index));
+ allrm = [ allrm chanind ];
+ end
+
+ newinds(allrm) = [];
+ indices = newinds;
+ eloc_file = eloc_file(g.chaninfo.icachansind);
+ end
+
+ fprintf('Headplot: using existing XYZ coordinates\n');
+ ElectrodeNames = strvcat({ eloc_file.labels });
+ ElectrodeNames = ElectrodeNames(indices,:);
+
+ Xeori = [ eloc_file(indices).X ]';
+ Yeori = [ eloc_file(indices).Y ]';
+ Zeori = [ eloc_file(indices).Z ]';
+
+ [newPOS POS TRI1 TRI2 NORM index1 center] = getMeshData(g.meshfile);
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % rotate channel coordinates if necessary
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ if strcmpi(lower(g.chaninfo.nosedir), '+x')
+ rotate = 0;
+ else
+ if strcmpi(lower(g.chaninfo.nosedir), '+y')
+ rotate = 3*pi/2;
+ elseif strcmpi(lower(g.chaninfo.nosedir), '-x')
+ rotate = pi;
+ else rotate = pi/2;
+ end
+ allcoords = (Yeori + Xeori*sqrt(-1))*exp(sqrt(-1)*rotate);
+ Xeori = imag(allcoords);
+ Yeori = real(allcoords);
+ end
+ newcoords = [ Xeori Yeori Zeori ];
+
+ %newcoords = transformcoords( [ Xe Ye Ze ], [0 -pi/16 -1.57], 100, -[6 0 46]);
+ %newcoords = transformcoords( [ Xeori Yeori Zeori ], g.transform(4:6), g.transform(7:9), g.transform(1:3));
+ % same performed below with homogeneous transformation matrix
+
+ transmat = traditionaldipfit( g.transform ); % arno
+ newcoords = transmat*[ newcoords ones(size(newcoords,1),1)]';
+ newcoords = newcoords(1:3,:)';
+
+ % original center was [6 0 16] but the center of the sphere is [0 0 30]
+ % which compensate (see variable Headcenter)
+ %newcoords = transformcoords( [ Xe Ye Ze ], -[0 0 -pi/6]);
+ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % normalize with respect to head center
+ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ newcoordsnorm = newcoords - ones(size(newcoords,1),1)*HeadCenter;
+ tmpnorm = sqrt(sum(newcoordsnorm.^2,2));
+ Xe = newcoordsnorm(:,1)./tmpnorm;
+ Ye = newcoordsnorm(:,2)./tmpnorm;
+ Ze = newcoordsnorm(:,3)./tmpnorm;
+ %plotchans3d([ Xe Ye Ze], cellstr(ElectrodeNames)); return;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Calculate g(x) for electrodes
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ if strcmpi(g.plotmeshonly, 'off')
+ fprintf('Setting up splining matrix.\n');
+ enum = length(Xe);
+ onemat = ones(enum,1);
+ G = zeros(enum,enum);
+ for i = 1:enum
+ ei = onemat-sqrt((Xe(i)*onemat-Xe).^2 + (Ye(i)*onemat-Ye).^2 + ...
+ (Ze(i)*onemat-Ze).^2); % default was /2 and no sqrt
+ gx = zeros(1,enum);
+ for j = 1:enum
+ gx(j) = calcgx(ei(j));
+ end
+ G(i,:) = gx;
+ end
+ end
+ fprintf('Calculating splining matrix...\n')
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Open mesh file - contains POS and index1
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Project head vertices onto unit sphere
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ spherePOS = newPOS-ones(size(newPOS,1),1)*HeadCenter; % recenter
+ nPOSnorm = sqrt(sum(spherePOS.^2,2));
+ spherePOS(:,1) = spherePOS(:,1)./nPOSnorm;
+ spherePOS(:,2) = spherePOS(:,2)./nPOSnorm;
+ spherePOS(:,3) = spherePOS(:,3)./nPOSnorm;
+ x = spherePOS(:,1);
+ y = spherePOS(:,2);
+ z = spherePOS(:,3);
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Calculate new electrode positions on head
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ if strcmpi(g.orilocs, 'off')
+ fprintf('Computing electrode locations on head...\n');
+ for i=1:length(Xe)
+ elect = [Xe(i) Ye(i) Ze(i)];
+ dists = distance(elect,spherePOS');
+ [S,I] = sort(dists);
+ npoints = I(1:3); % closest 3 points
+ diffe = newPOS(npoints,:)-spherePOS(npoints,:);
+ newElect(i,:) = elect+mean(diffe)*ElectDFac;
+ %if Ze(i) < 0 % Plot superior electrodes only.
+ % newElect(i,:) = [0 0 0]; % Mark lower electrodes as having
+ %end % an electrode position not to be plotted
+ end
+ else
+ fprintf('Using original electrode locations on head...\n');
+ newElect = newcoords;
+ end
+
+ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % plot mesh and electrodes only
+ % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ if ~strcmpi(g.plotmeshonly, 'off')
+ if strcmpi(g.plotmeshonly, 'sphere')
+ newElect(:,1) = Xe;
+ newElect(:,2) = Ye;
+ newElect(:,3) = Ze;
+ POS(index1,:) = spherePOS; HeadCenter = [ 0 0 0 ];
+ end
+ plotmesh(TRI1, POS, NORM);
+ plotelecopt.labelflag = 0;
+ plotelec(newElect, ElectrodeNames, HeadCenter, plotelecopt);
+ rotate3d;
+ return;
+ end
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Calculate g(x) for sphere mesh vertices
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ fprintf('Computing %d vertices. Should take a while (see wait bar)\n',...
+ length(x))
+ fprintf(' but does not have to be done again for this montage...\n');
+ icadefs;
+
+ gx = fastcalcgx(x,y,z,Xe,Ye,Ze);
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Save spline file
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ comment = g.comment;
+ headplot_version = 2;
+ transform = g.transform;
+ try, save(spline_file, '-V6', '-mat', 'Xe', 'Ye', 'Ze', 'G', 'gx', 'newElect', ...
+ 'ElectrodeNames', 'indices', 'comment', 'headplot_version', 'transform');
+ catch,
+ try, save(spline_file, '-mat', 'Xe', 'Ye', 'Ze', 'G', 'gx', 'newElect', ...
+ 'ElectrodeNames', 'indices', 'comment', 'headplot_version', 'transform');
+ catch, error('headplot: save spline file error, out of space or file permission problem');
+ end
+ end
+ tmpinfo = dir(spline_file);
+ fprintf('Saving (%dk) file %s\n',round(tmpinfo.bytes/1000), spline_file);
+ return
+
+ elseif strcmp(values,'example') || strcmp(values,'demo')
+%
+%%%%%%%%%%%%%%%%%% Show an example electrode angles file %%%%%%%%%%%%%%%%%%%%%%%%
+%
+ fprintf(['\nExample of a headplot() electrode angles file (spherical coords.)\n',...
+ 'Fields: chan_num cor_deg horiz_deg channel_name\n\n',...
+ ' 1 -90 -72 Fp1.\n',...
+ ' 2 90 72 Fp2.\n',...
+ ' 3 -62 -57 F3..\n',...
+ ' 4 62 57 F4..\n',...
+ ' 5 -45 0 C3..\n',...
+ ' 6 45 0 C4..\n',...
+ ' 7 -118 2 A1..\n',...
+ ' 8 118 -2 A2..\n',...
+ ' 9 -62 57 P3..\n',...
+ ' 10 62 -57 P4..\n',...
+ ' 11 -90 72 O1..\n',...
+ ' 12 90 -72 O2..\n',...
+ ' 13 -90 -36 F7..\n',...
+ ' 14 90 36 F8..\n',...
+ ' 15 -90 0 T3..\n',...
+ ' 16 90 0 T4..\n',...
+ ' 17 -90 36 T5..\n',...
+ ' 18 90 -36 T6..\n',...
+ ' 19 45 90 Fz..\n',...
+ ' 20 0 0 Cz..\n',...
+ ' 21 45 -90 Pz..\n',...
+ '\nA 90 deg coronal rotation points to right ear, -90 to left.\n' ,...
+ 'A positive horizontal rotation is counterclockwise from above.\n',...
+ 'Use pol2sph() to convert from topoplot() format to spherical.\n',...
+ 'Channel names should have 4 chars (. = space).\n',...
+ 'See also >> headplot cartesian\n\n\n']);
+ return
+ elseif strcmp(values,'cartesian')
+%
+%%%%%%%%%%%%%%%%%% Show an example cartesian electrode file %%%%%%%%%%%%%%%%%%%
+%
+ fprintf(['\nExample of a headplot() electrode location file (cartesian coords.)\n',...
+ 'Fields: chan_num x y z channel_name\n\n',...
+ ' 1 0.4528 0.8888 -0.0694 Fp1.\n',...
+ 'Channel names should have 4 chars (. = space).\n',...
+ 'See also >> headplot example\n\n\n']);
+ return
+ else
+ fprintf('headplot(): Unknown first argument (%s).\n',values)
+ help headplot
+ end
+else
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%% Make the plot %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+ if nargin < 2
+ help headplot
+ return
+ end
+ spline_file = arg1;
+
+ g = finputcheck( varargin, { ...
+ 'cbar' 'real' [0 Inf] []; % Colorbar value must be 0 or axis handle.'
+ 'lighting' 'string' { 'on','off' } 'on';
+ 'verbose' 'string' { 'on','off' } 'on';
+ 'maplimits' { 'string','real' } [] 'absmax';
+ 'title' 'string' [] '';
+ 'lights' 'real' [] DEFAULT_LIGHTS;
+ 'view' { 'string','real' } [] [143 18];
+ 'colormap' 'real' [] jet(256);
+ 'transform' 'real' [] [];
+ 'meshfile' {'string','struct' } [] DEFAULT_MESH;
+ 'electrodes' 'string' { 'on','off' } 'on';
+ 'electrodes3d' 'string' { 'on','off' } 'off';
+ 'eleccolor' 'cell' { } {};
+ 'material' 'string' [] 'dull';
+ 'orilocs' { 'string','struct' } [] '';
+ 'labels' 'integer' [0 1 2] 0 }, 'headplot');
+ if ischar(g) error(g); end
+ plotelecopt.electrodes3d = g.electrodes3d;
+ if length(g.eleccolor) > 0 && length(g.eleccolor) ~= length(values)
+ error('The number of color must be the same as the number of channels to plot');
+ end
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Open head mesh and electrode spline files
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ if ~exist(spline_file)
+ error(sprintf('headplot(): spline_file "%s" not found. Run headplot in "setup" mode\n',...
+ spline_file));
+ end
+ load(spline_file, '-mat');
+ if exist('indices')
+ try,
+ values = values(indices);
+ catch, error('problem of index or electrode number with splinefile'); end
+ end
+ enum = length(values);
+ if enum ~= length(Xe)
+ close;
+ error('headplot(): Number of values in spline file should equal number of electrodes')
+ end
+
+ % change electrode if necessary
+ % -----------------------------
+ if ~isempty(g.orilocs)
+ eloc_file = readlocs( g.orilocs );
+ fprintf('Using original electrode locations on head...\n');
+ indices = find(~cellfun('isempty', { eloc_file.X } ));
+ newElect(:,1) = [ eloc_file(indices).X ]'; % attention inversion before
+ newElect(:,2) = [ eloc_file(indices).Y ]';
+ newElect(:,3) = [ eloc_file(indices).Z ]';
+
+ % optional transformation
+ % -----------------------
+ if ~isempty(g.transform)
+ transmat = traditionaldipfit( g.transform ); % arno
+ newElect = transmat*[ newElect ones(size(newElect,1),1)]';
+ newElect = newElect(1:3,:)';
+ end
+ end
+
+ % --------------
+ % load mesh file
+ % --------------
+ [newPOS, POS, TRI1, TRI2, NORM, index1, center] = getMeshData(g.meshfile);
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Perform interpolation
+ %%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ meanval = mean(values); values = values - meanval; % make mean zero
+ onemat = ones(enum,1);
+ lamd = 0.1;
+ C = pinv([(G + lamd);ones(1,enum)]) * [values(:);0]; % fixing division error
+ P = zeros(1,size(gx,1));
+ for j = 1:size(gx,1)
+ P(j) = dot(C,gx(j,:));
+ end
+ P = P + meanval;
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Plot surfaces
+ %%%%%%%%%%%%%%%%%%%%%%%%%%
+ cla % clear axis
+ HeadAxes = gca;
+
+ W = zeros(1,size(POS,1));
+ m = size(g.colormap,1);
+ if size(g.maplimits) == [1,2]
+ amin = g.maplimits(1);
+ amax = g.maplimits(2);
+ elseif strcmp(g.maplimits,'maxmin') || strcmp(g.maplimits,'minmax')
+ amin = min(min(abs(P)))*1.02; % 2% shrinkage keeps within color bounds
+ amax = max(max(abs(P)))*1.02;
+ elseif strcmp(g.maplimits,'absmax')
+ amin = min(min(abs(P)))*1.02; % 2% shrinkage keeps within color bounds
+ amax = max(max(abs(P)))*1.02;
+ amax = max(-amin, amax);
+ amin = -amax;
+ %amin = -max(max(abs(P)))*1.02; % 2% shrinkage keeps within color bounds
+ %amax = -amin;
+ end
+
+ idx = min(m,round((m-1)*(P-amin)/(amax-amin))+1); % get colormap indices
+ %subplot(1,2,1); hist(P(:));
+ %idx = round((m-1)*P/(amax-amin))+m/2;
+ %idx = max(1,min(m,idx)); % get colormap indices
+ %subplot(1,2,2); hist(idx(:));
+ %return;
+
+ W(index1) = idx;
+ colormap(g.colormap)
+ p1 = patch('Vertices',POS,'Faces',TRI1,'FaceVertexCdata',W(:),...
+ 'FaceColor','interp', 'cdatamapping', 'direct', 'tag', 'mesh'); %%%%%%%%% Plot scalp map %%%%%%%%%
+ if exist('NORM') == 1 && ~isempty(NORM)
+ set(p1, 'vertexnormals', NORM);
+ end
+
+ if ~isempty(TRI2)
+ FCmap = [g.colormap; g.colormap(end,:); FaceColor; FaceColor; FaceColor];
+ colormap(FCmap)
+ W = ones(1,size(POS,1))*(m+2);
+ p2 = patch('Vertices',POS,'Faces',TRI2,'FaceColor','interp',...
+ 'FaceVertexCdata',W(:)); %%%%%%%% Plot face and lower head %%%%%%
+ else
+ p2 = [];
+ end
+
+ axis([-125 125 -125 125 -125 125])
+ axis off % hide axis frame
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%
+ % Draw colorbar - Note: uses enhanced cbar() function by Colin Humphries
+ %%%%%%%%%%%%%%%%%%%%%%%%%
+ if ~isempty(g.cbar)
+ BACKCOLOR = get(gcf,'Color');
+ if g.cbar == 0
+ ColorbarHandle = cbar(0,3,[amin amax]);
+ pos = get(ColorbarHandle,'position'); % move left & shrink to match head size
+ set(ColorbarHandle,'position',[pos(1)-.05 pos(2)+0.13 pos(3)*0.7 pos(4)-0.26]);
+ else
+ ColorbarHandle = cbar(g.cbar,3,[amin amax]);
+ end
+ end
+ axes(HeadAxes);
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%
+ % Turn on lights
+ %%%%%%%%%%%%%%%%%%%%%%%%%
+
+ if strcmp(g.lighting,'on')
+ set([p1 p2],'EdgeColor','none')
+
+ for i = 1:size(g.lights,1)
+ hl(i) = light('Position',g.lights(i,:),'Color',[1 1 1],...
+ 'Style','infinite');
+ end
+ if ~isempty(p2)
+ set(p2,'DiffuseStrength',.6,'SpecularStrength',0,...
+ 'AmbientStrength',.4,'SpecularExponent',5)
+ end
+ set(p1,'DiffuseStrength',.6,'SpecularStrength',0,...
+ 'AmbientStrength',.3,'SpecularExponent',5)
+ try
+ lighting phong % all this gives a matte reflectance
+ catch
+ lighting gouraud % Octave
+ end
+ material(g.material);
+ end
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%
+ % Set viewpoint
+ %%%%%%%%%%%%%%%%%%%%%%%%%
+
+ if ischar(g.view)
+ switch lower(g.view)
+ case {'front','f'}
+ view(-180,30)
+ case {'back','b'}
+ view(0,30)
+ case {'left','l'}
+ view(-90,30)
+ case {'right','r'}
+ view(90,30)
+ case {'frontright','fr'}
+ view(135,30)
+ case {'backright','br'}
+ view(45,30)
+ case {'frontleft','fl'}
+ view(-135,30)
+ case {'backleft','bl'}
+ view(-45,30)
+ case 'top'
+ view(0,90)
+ case 'bottom' % undocumented option!
+ view(0,-90)
+ Lights = [-125 125 80; ...
+ 125 125 80; ...
+ 125 -125 125; ...
+ -125 -125 125; ...
+ 0 10 -80]; % add light from below!
+ otherwise
+ close; error(['headplot(): Invalid View value %s',g.view])
+ end
+ else
+ if ~ischar(g.view)
+ [h,a] = size(g.view);
+ if h~= 1 || a~=2
+ close; error('headplot(): View matrix size must be (1,2).')
+ end
+ end
+ view(g.view) % set camera viewpoint
+ end
+
+ if strcmp(g.electrodes,'on') % plot the electrode locations
+ if exist('newElect')
+ plotelecopt.labelflag = g.labels;
+ plotelecopt.eleccolor = g.eleccolor;
+ plotelec(newElect, ElectrodeNames, HeadCenter, plotelecopt);
+ else
+ fprintf('Variable newElect not read from spline file.\n');
+ end
+ end
+
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ % Turn on rotate3d, allowing rotation of the plot using the mouse
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+ if ismatlab
+ if strcmp(g.verbose,'on')
+ rotate3d on; % Allow 3-D rotation of the plot by dragging the
+ else % left mouse button while cursor is on the plot
+ rotate3d off
+ end
+ else
+ rotate3d
+ end
+ % Make axis square
+ if sqaxis
+ axis image % keep the head proportions human and as large as possible
+ end
+ % Add a plot title
+ if ~isempty(g.title);
+ % title(['\n' g.title],'fontsize',title_font);
+ title([g.title],'fontsize',title_font); % Note: \n not interpreted by matlab-5.2
+ end
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% calcgx() - function used in 'setup'
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function [out] = calcgx(in)
+
+out = 0;
+m = 4; % 4th degree Legendre polynomial
+for n = 1:7 % compute 7 terms
+ L = legendre(n,in);
+ out = out + ((2*n+1)/(n^m*(n+1)^m))*L(1);
+end
+out = out/(4*pi);
+
+
+%%%%%%%%%%%%%%%%%%%
+function gx = fastcalcgx(x,y,z,Xe,Ye,Ze)
+
+onemat = ones(length(x),length(Xe));
+EI = onemat - sqrt((repmat(x,1,length(Xe)) - repmat(Xe',length(x),1)).^2 +...
+ (repmat(y,1,length(Xe)) - repmat(Ye',length(x),1)).^2 +...
+ (repmat(z,1,length(Xe)) - repmat(Ze',length(x),1)).^2);
+%
+gx = zeros(length(x),length(Xe));
+m = 4;
+icadefs;
+ismatlab=1;%%GH 2022
+if ismatlab
+ hwb = waitbar(0,'Computing spline file (only done once)...', 'color', BACKEEGLABCOLOR);
+ hwbend = 7;
+end
+for n = 1:7
+ L = legendre(n,EI);
+ gx = gx + ((2*n+1)/(n^m*(n+1)^m))*squeeze(L(1,:,:));
+ if ismatlab
+ waitbar(n/hwbend,hwb);
+ end
+end
+gx = gx/(4*pi);
+if ismatlab
+ close(hwb);
+end
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% distance() - function used in 'setup'
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+function [out] = distance(w,p)
+% w is a matrix of row vectors
+% p is a matrix of column vectors
+
+l1 = size(w,1);
+l2 = size(p,2);
+out = zeros(l1,l2);
+
+for i = 1:l1
+ x = w(i,:)'*ones(1,l2);
+ out(i,:) = sum((x-p).^2).^.5;
+end
+
+% %%%%%%%%%%%%%%%
+% plot electrodes
+% %%%%%%%%%%%%%%%
+function plotelec(newElect, ElectrodeNames, HeadCenter, opt);
+
+ newNames = newElect*opt.NamesDFac; % Calculate electrode label positions
+ for i = 1:size(newElect,1)
+ if newElect(i,:) ~= [0 0 0] % plot radial lines to electrode sites
+ if strcmpi(opt.electrodes3d, 'off')
+ line([newElect(i,1) HeadCenter(1)],[newElect(i,2) HeadCenter(2)],...
+ [newElect(i,3) HeadCenter(3)],'color',opt.MarkerColor,'linewidth',1);
+ end
+ if opt.labelflag == 1 % plot electrode numbers
+ t=text(newNames(i,1),newNames(i,2),newNames(i,3),int2str(i));
+ set(t,'Color',opt.NamesColor,'FontSize',opt.NamesSize,'FontWeight','bold',...
+ 'HorizontalAlignment','center');
+
+ elseif opt.labelflag == 2 % plot electrode names
+ if exist('ElectrodeNames')
+ name = sprintf('%s',ElectrodeNames(i,:));
+ t=text(newNames(i,1),newNames(i,2),newNames(i,3),name);
+ set(t,'Color',opt.NamesColor,'FontSize',opt.NamesSize,'FontWeight','bold',...
+ 'HorizontalAlignment','center');
+ else
+ fprintf('Variable ElectrodeNames not read from spline file.\n');
+ end
+ else % plot electrode markers
+
+ if strcmpi(opt.electrodes3d, 'off')
+ if isempty(opt.eleccolor)
+ line(newElect(i,1),newElect(i,2),newElect(i,3),'marker',...
+ '.','markersize',20,'color',opt.MarkerColor,'linestyle','none');
+ else
+ if isempty(opt.eleccolor{i})
+ line(newElect(i,1),newElect(i,2),newElect(i,3),'marker',...
+ '.','markersize',12,'color',opt.MarkerColor,'linestyle','none');
+ else
+ line(newElect(i,1),newElect(i,2),newElect(i,3),'marker',...
+ '.','markersize',35,'color',opt.MarkerColor,'linestyle','none');
+ line(newElect(i,1),newElect(i,2),newElect(i,3),'marker',...
+ '.','markersize',28,'color',[1 1 1],'linestyle','none');
+ line(newElect(i,1),newElect(i,2),newElect(i,3),'marker',...
+ '.','markersize',15,'color',opt.eleccolor{i},'linestyle','none');
+ end
+ end
+ else
+ [xc yc zc] = cylinder( 2, 10);
+ [xs ys zs] = sphere(10);
+ xc = [ xc; -xs(7:11,:)*2 ];
+ yc = [ yc; -ys(7:11,:)*2 ];
+ zc = [ zc; zs(7:11,:)*0.2+1 ];
+
+ hold on;
+ cylinderSize = 3;
+ colorarray = repmat(reshape(opt.MarkerColor, 1,1,3), [size(zc,1) size(zc,2) 1]);
+ handles = surf(xc*cylinderSize, yc*cylinderSize, zc*cylinderSize, colorarray, 'edgecolor', 'none', ...
+ 'backfacelighting', 'lit', 'facecolor', 'interp', 'facelighting', ...
+ 'phong', 'ambientstrength', 0.3);
+
+ cylnderHeight = 1;
+ if newElect(i,3) < 10, addZ = -30; else addZ = 0; end
+ if newElect(i,3) < -20, addZ = -60; else addZ = 0; end
+ xx = newElect(i,1) - ( newElect(i,1)-HeadCenter(1) ) * 0.01 * cylnderHeight;
+ xxo1 = newElect(i,1) + ( newElect(i,1)-HeadCenter(1) ) * 0.01 * cylnderHeight;
+ yy = newElect(i,2) - ( newElect(i,2)-HeadCenter(2) ) * 0.01 * cylnderHeight;
+ yyo1 = newElect(i,2) + ( newElect(i,2)-HeadCenter(2) ) * 0.01 * cylnderHeight;
+ zz = newElect(i,3) - ( newElect(i,3)-HeadCenter(3)-addZ ) * 0.01 * cylnderHeight;
+ zzo1 = newElect(i,3) + ( newElect(i,3)-HeadCenter(3)-addZ ) * 0.01 * cylnderHeight;
+ [xc yc zc] = adjustcylinder2( handles, [xx yy zz], [xxo1 yyo1 zzo1] );
+ end
+
+ end
+ end
+ end
+
+% get mesh information
+% --------------------
+function [newPOS POS TRI1 TRI2 NORM index1 center] = getMeshData(meshfile);
+%#function mheadnew.mat
+meshpath = fileparts(which('mheadnew.mat'));
+if isdeployed
+ addpath( meshpath );
+end
+
+if ~isstruct(meshfile)
+ if ~exist(meshfile, 'file')
+ if isdeployed
+ meshfile = fullfile( meshpath, meshfile);
+ if ~exist(meshfile, 'file')
+ error('headplot(): deployed mesh file "%s" not found\n', meshfile);
+ end
+ else
+ error('headplot(): mesh file "%s" not found\n', meshfile);
+ end
+ end
+ fprintf('Loaded mesh file %s\n',meshfile);
+ try
+ meshfile = load(meshfile,'-mat');
+ catch,
+ meshfile = [];
+ meshfile.POS = load('mheadnewpos.txt', '-ascii');
+ meshfile.TRI1 = load('mheadnewtri1.txt', '-ascii'); % upper head
+ %try, TRI2 = load('mheadnewtri2.txt', '-ascii'); catch, end; % lower head
+ %index1 = load('mheadnewindex1.txt', '-ascii');
+ meshfile.center = load('mheadnewcenter.txt', '-ascii');
+ end
+end;
+
+if isfield(meshfile, 'vol')
+ if isfield(meshfile.vol, 'r')
+ [X Y Z] = sphere(50);
+ POS = { X*max(meshfile.vol.r) Y*max(meshfile.vol.r) Z*max(meshfile.vol.r) };
+ TRI1 = [];
+ else
+ POS = meshfile.vol.bnd(1).pnt;
+ TRI1 = meshfile.vol.bnd(1).tri;
+ end
+elseif isfield(meshfile, 'bnd')
+ POS = meshfile.bnd(1).pnt;
+ TRI1 = meshfile.bnd(1).tri;
+elseif isfield(meshfile, 'TRI1')
+ POS = meshfile.POS;
+ TRI1 = meshfile.TRI1;
+ try TRI2 = meshfile.TRI2; end % NEW
+ try center = meshfile.center; end % NEW
+elseif isfield(meshfile, 'vertices')
+ POS = meshfile.vertices;
+ TRI1 = meshfile.faces;
+else
+ error('Unknown Matlab mesh file');
+end
+if exist('index1') ~= 1, index1 = sort(unique(TRI1(:))); end
+if exist('TRI2') ~= 1, TRI2 = []; end
+if exist('NORM') ~= 1, NORM = []; end
+if exist('TRI1') ~= 1, error('Variable ''TRI1'' not defined in mesh file'); end
+if exist('POS') ~= 1, error('Variable ''POS'' not defined in mesh file'); end
+if exist('center') ~= 1, center = [0 0 0]; disp('Using [0 0 0] for center of head mesh'); end
+newPOS = POS(index1,:);
+
diff --git a/Studio V1/Functions/EEGLAB/Scalp/icadefs.m b/Studio V1/Functions/EEGLAB/Scalp/icadefs.m
new file mode 100755
index 00000000..f546637a
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/icadefs.m
@@ -0,0 +1,232 @@
+% icadefs() - function to read in a set of EEGLAB system-wide (i.e. lab-wide)
+% or working directory-wide constants and preferences. Change the
+% way these are defined in the master icadefs.m file (usually
+% in dir eeglab/functions/sigprocfunc) or make a custom copy of
+% the icadefs.m file in a project directory. Then, calling functions
+% that call icadefs from an EEGLAB session in that working directory
+% will read the local copy, which may set preferences different from
+% the system-wide copy.
+%
+% Author: Arnaud Delorme, Scott Makeig, SCCN/INC/UCSD, La Jolla, 05-20-97
+
+% Copyright (C) 05-20-97 Scott Makeig, SCCN/INC/UCSD, scott@sccn.ucsd.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% ----------------------------------------------------------------------
+% ------ EEGLAB DEFINITION - YOU MAY CHANGE THE TEXT BELOW -------------
+% ----------------------------------------------------------------------
+
+
+
+EEGOPTION_PATH = ''; % if empty, the home folder of the current user is used
+ % Note that this may create problems under Windows
+ % when unicode characters are part of the user name
+ % In this case, enter the path name manually here.
+
+YDIR = 1; % positive potential up = 1; negative up = -1
+ % for most ERP plots
+
+HZDIR = 'up'; % ascending freqs = 'up'; descending = 'down'
+ % (e.g., timef/newtimef frequency direction)
+
+% Checking MATLAB version
+clear version
+tmpvers = version;
+indp = find(tmpvers == '.');
+if str2num(tmpvers(indp(1)+1)) >= 1, tmpvers = [ tmpvers(1:indp(1)) '0' tmpvers(indp(1)+1:end) ]; end
+indp = find(tmpvers == '.');
+VERS = str2num(tmpvers(1:indp(2)-1));
+
+% font size
+tmpComputer = computer;
+tmpScreenSize = get(0, 'ScreenSize');
+
+% Graph Definitions
+DEFAULT_COLORMAP = 'jet';
+
+if VERS < 8.04
+ PLOT_LINEWIDTH = 2;
+ PLOT_LINEWIDTH_S = 1;
+
+ % AXES FONTSIZE
+ AXES_FONTSIZE = 10; % Axis labels and legend font size
+ AXES_FONTSIZE_S = AXES_FONTSIZE - 2; % Axis labels and legend font size Small
+ AXES_FONTSIZE_L = 16; % Axis labels and legend font size Large
+
+ % GUI FONTSIZE
+ GUI_FONTSIZE = 10; % graphic interface font size
+ GUI_FONTSIZE_S = GUI_FONTSIZE - 2; % graphic interface font size Small
+ GUI_FONTSIZE_L = GUI_FONTSIZE + 2; % graphic interface font size Large
+
+ % TEXT FONTSIZE
+ TEXT_FONTSIZE = 10; % Miscellaneous font sizes
+ TEXT_FONTSIZE_S = TEXT_FONTSIZE - 2; % Miscellaneous font sizes Small
+ TEXT_FONTSIZE_L = TEXT_FONTSIZE + 2; % Miscellaneous font sizes Large
+
+elseif VERS >= 8.04
+
+ if strcmpi(tmpComputer(1:3), 'MAC')
+
+ PLOT_LINEWIDTH = 1;
+ PLOT_LINEWIDTH_S = 0.5;
+
+ %scale up fontsizes on higher resolution mac screens
+ retinaDisplay = false;
+ if tmpScreenSize(3) >= 1920 % bump fontsize only for the highest retina res settings
+ retinaDisplay = true; %comment this out if you don't want fontsizes increased at high display resolutions
+ %disp('Mac OSX retina display detected. If this is not desired comment out line 83 of icadefs.m');
+ end
+
+ % AXES FONTSIZE
+ if retinaDisplay
+ AXES_FONTSIZE = 12; % Axis labels and legend font size
+ else
+ AXES_FONTSIZE = 9; % Axis labels and legend font size
+ end
+ AXES_FONTSIZE_S = AXES_FONTSIZE - 2; % Axis labels and legend font size Small
+ AXES_FONTSIZE_L = 12.5; % Axis labels and legend font size Large
+
+ % GUI FONTSIZE
+ if retinaDisplay
+ GUI_FONTSIZE = 14; % graphic interface font size
+ else
+ GUI_FONTSIZE = 12; % graphic interface font size
+ end
+ GUI_FONTSIZE_S = GUI_FONTSIZE - 2; % graphic interface font size Small
+ GUI_FONTSIZE_L = GUI_FONTSIZE + 2; % graphic interface font size Large
+
+ % TEXT FONTSIZE
+ if retinaDisplay
+ TEXT_FONTSIZE = 14; % Miscellaneous font sizes
+ else
+ TEXT_FONTSIZE = 12; % Miscellaneous font sizes
+ end
+ TEXT_FONTSIZE_S = TEXT_FONTSIZE - 2; % Miscellaneous font sizes Small
+ TEXT_FONTSIZE_L = TEXT_FONTSIZE + 4; % Miscellaneous font sizes Large
+ else
+ PLOT_LINEWIDTH = 1;
+ PLOT_LINEWIDTH_S = 0.5;
+
+ % AXES FONTSIZE
+ AXES_FONTSIZE = 9; % Axis labels and legend font size
+ AXES_FONTSIZE_S = AXES_FONTSIZE - 2; % Axis labels and legend font size Small
+ AXES_FONTSIZE_L = 12.5; % Axis labels and legend font size Large
+
+ % GUI FONTSIZE
+ GUI_FONTSIZE = 10; % graphic interface font size
+ GUI_FONTSIZE_S = GUI_FONTSIZE - 2; % graphic interface font size Small
+ GUI_FONTSIZE_L = GUI_FONTSIZE + 2; % graphic interface font size Large
+
+ % TEXT FONTSIZE
+ TEXT_FONTSIZE = 10; % Miscellaneous font sizes
+ TEXT_FONTSIZE_S = TEXT_FONTSIZE - 2; % Miscellaneous font sizes Small
+ TEXT_FONTSIZE_L = TEXT_FONTSIZE + 4; % Miscellaneous font sizes Large
+ end
+end
+
+clear retinaDisplay tmpScreenSize tmpComputer tmpvers indp;
+
+% the eeg_options.m file also contains additional options
+
+% ----------------------------------------------------------------------
+% ------------------------ END OF DEFINITIONS --------------------------
+% ----------------------------------------------------------------------
+
+% INSERT location of ica executable (UNIX ONLY) for binica.m below
+eeglab_p = fileparts(which('eeglab'));
+if ~isdeployed
+ ICABINARY = fullfile(eeglab_p, 'functions', 'supportfiles', 'ica_linux');
+ tmpComputer = computer;
+ if strcmpi(tmpComputer(1:3), 'MAC')
+ ICABINARY = fullfile(eeglab_p, 'functions', 'supportfiles', 'ica_osx');
+ elseif strcmpi(tmpComputer(1:2), 'PC')
+ ICABINARY = fullfile(eeglab_p, 'functions', 'supportfiles', 'binica.exe');
+ end
+ clear tmpComputer
+else
+ ICABINARY = fullfile(eeglab_p, 'functions', 'supportfiles', 'ica_linux');
+end
+
+try
+ set(0,'defaultaxesfontsize',AXES_FONTSIZE);
+ set(0,'defaulttextfontsize',TEXT_FONTSIZE);
+ set(0,'DefaultUicontrolFontSize',GUI_FONTSIZE);
+catch
+ % most likely Octave here
+end
+
+TUTORIAL_URL = 'http://sccn.ucsd.edu/wiki/EEGLAB'; % online version
+DEFAULT_SRATE = 256.0175; % default local sampling rate (rarely used)
+DEFAULT_TIMLIM = [-1000 2000]; % default local epoch limits (ms)
+
+% Set EEGLAB figure and GUI colors
+% --------------------------------
+lowscreendepth = 0;
+if ~exist('OCTAVE_VERSION')
+ if get(0, 'screendepth') <=8 % if mono or 8-bit color
+ lowscreendepth = 1;
+ end
+end
+if lowscreendepth
+ %fprintf('icadefs(): Setting display parameters for mono or 8-bit color\n');
+ BACKCOLOR = [1 1 1]; % Background figure color
+ BACKEEGLABCOLOR = [1 1 1]; % EEGLAB main window background
+ GUIBUTTONCOLOR = [1 1 1]; % Buttons colors in figures
+ GUIPOPBUTTONCOLOR = [1 1 1]; % Buttons colors in GUI windows
+ GUIBACKCOLOR = [1 1 1]; % GUI background color
+ GUITEXTCOLOR = [0 0 0]; % GUI foreground color for text
+ PLUGINMENUCOLOR = [.5 0 .5]; % plugin menu color
+
+else % if full color screen
+ BACKCOLOR = [.93 .96 1]; % EEGLAB Background figure color
+ BACKEEGLABCOLOR = [.66 .76 1]; % EEGLAB main window background
+ GUIBUTTONCOLOR = BACKEEGLABCOLOR;% Buttons colors in figures
+ GUIPOPBUTTONCOLOR = BACKCOLOR; % Buttons colors in GUI windows
+ GUIBACKCOLOR = BACKEEGLABCOLOR;% EEGLAB GUI background color <---------
+ GUITEXTCOLOR = [0 0 0.4]; % GUI foreground color for text
+ PLUGINMENUCOLOR = [.5 0 .5]; % plugin menu color
+end
+
+
+% THE FOLLOWING PARAMETERS WILL BE DEPRECATED IN LATER VERSIONS
+% -------------------------------------------------------------
+
+SHRINKWARNING = 1; % Warn user about the shrink factor in topoplot() (1/0)
+
+MAXENVPLOTCHANS = 264; % maximum number of channels to plot in envproj.m
+MAXPLOTDATACHANS = 264; % maximum number of channels to plot in dataplot.m
+MAXPLOTDATAEPOCHS = 264; % maximum number of epochs to plot in dataplot.m
+MAXEEGPLOTCHANS = 264; % maximum number of channels to plot in eegplot.m
+MAXTOPOPLOTCHANS = 264; % maximum number of channels to plot in topoplot.m
+
+DEFAULT_ELOC = 'chan.locs'; % default electrode location file for topoplot.m
+DEFAULT_EPOCH = 10; % default epoch width to plot in eegplot(s) (in sec)
+
+SC = ['binica.sc']; % Master .sc script file for binica.m
+ % MATLAB will use first such file found
+ % in its path of script directories.
+ % Copy to pwd to alter ICA defaults
diff --git a/Studio V1/Functions/EEGLAB/Scalp/intersect_bc.m b/Studio V1/Functions/EEGLAB/Scalp/intersect_bc.m
new file mode 100755
index 00000000..b9b4cdbf
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/intersect_bc.m
@@ -0,0 +1,56 @@
+% intersect_bc - intersect backward compatible with Matlab versions prior to 2013a
+
+% Copyright (C) 2013 Arnaud Delorme
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [C,IA,IB] = intersect_bc(A,B,varargin)
+
+errorFlag = error_bc;
+
+v = version;
+indp = find(v == '.');
+v = str2num(v(1:indp(2)-1));
+if v > 7.19, v = floor(v) + rem(v,1)/10; end
+
+if nargin > 2
+ ind = strmatch('legacy', varargin);
+ if ~isempty(ind)
+ varargin(ind) = [];
+ end
+end
+
+if v >= 7.14
+ [C,IA,IB] = intersect(A,B,varargin{:},'legacy');
+ if errorFlag
+ [C2,IA2,IB2] = intersect(A,B,varargin{:});
+ if (~isequal(C, C2) || ~isequal(IA, IA2) || ~isequal(IB, IB2))
+ warning('backward compatibility issue with call to intersect function');
+ end
+ end
+else
+ [C,IA,IB] = intersect(A,B,varargin{:});
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/loadtxt.m b/Studio V1/Functions/EEGLAB/Scalp/loadtxt.m
new file mode 100755
index 00000000..9d0f5f92
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/loadtxt.m
@@ -0,0 +1,177 @@
+% loadtxt() - load ascii text file into numeric or cell arrays
+%
+% Usage:
+% >> array = loadtxt( filename, 'key', 'val' ...);
+%
+% Inputs:
+% filename - name of the input file
+%
+% Optional inputs
+% 'skipline' - number of lines to skip {default:0}. If this number is
+% negative the program will only skip non-empty lines
+% (can be useful for files transmitted from one platform
+% to an other, as CR may be inserted at every lines).
+% 'convert' - 'on' standard text conversion, see note 1
+% 'off' no conversion, considers text only
+% 'force' force conversion, NaN are returned
+% for non-numeric inputs {default:'on'}
+% 'delim' - ascii character for delimiters. {default:[9 32]
+% i.e space and tab}. It is also possible to enter
+% strings, Ex: [9 ' ' ','].
+% 'blankcell' - ['on'|'off'] extract blank cells {default:'on'}
+% 'verbose' - ['on'|'off'] {default:'on'}
+% 'convertmethod' - ['str2double'|'str2num'] default is 'str2double'
+% 'nlines' - [integer] number of lines to read {default: all file}
+%
+% Outputs:
+% array - cell array. If the option 'force' is given, the function
+% returns a numeric array.
+%
+% Notes: 1) Since it uses cell arrays, the function can handle text input.
+% The function reads each token and then try to convert it to a
+% number. If the conversion is unsuccessful, the string itself
+% is included in the array.
+% 2) The function adds empty entries for rows that contains
+% fewer columns than others.
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 29 March 2002
+
+% Copyright (C) Arnaud Delorme, CNL / Salk Institute, 29 March 2002
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function array = loadtxt( filename, varargin );
+
+if nargin < 1
+ help loadtxt;
+ return;
+end;
+if ~isempty(varargin)
+ try, g = struct(varargin{:});
+ catch, disp('Wrong syntax in function arguments'); return; end
+else
+ g = [];
+end
+
+g = finputcheck( varargin, { 'convert' 'string' { 'on';'off';'force' } 'on';
+ 'skipline' 'integer' [0 Inf] 0;
+ 'verbose' 'string' { 'on';'off' } 'on';
+ 'uniformdelim' 'string' { 'on';'off' } 'off';
+ 'blankcell' 'string' { 'on';'off' } 'on';
+ 'convertmethod' 'string' { 'str2double';'str2num' } 'str2double';
+ 'delim' { 'integer';'string' } [] [9 32];
+ 'nlines' 'integer' [] Inf });
+if ischar(g), error(g); end
+if strcmpi(g.blankcell, 'off'), g.uniformdelim = 'on'; end
+g.convert = lower(g.convert);
+g.verbose = lower(g.verbose);
+g.delim = char(g.delim);
+
+% open the file
+% -------------
+if exist(filename) ~=2, error( ['file ' filename ' not found'] ); end;
+fid=fopen(filename,'r','ieee-le');
+if fid<0, error( ['file ' filename ' found but error while opening file'] ); end;
+
+index = 0;
+while index < abs(g.skipline)
+ tmpline = fgetl(fid);
+ if g.skipline > 0 || ~isempty(tmpline)
+ index = index + 1;
+ end;
+end; % skip lines ---------
+
+inputline = fgetl(fid);
+linenb = 1;
+if strcmp(g.verbose, 'on'), fprintf('Reading file (lines): '); end
+while isempty(inputline) || inputline(1)~=-1
+ colnb = 1;
+ if ~isempty(inputline)
+ tabFirstpos = 1;
+
+ % convert all delimiter to the first one
+ if strcmpi(g.uniformdelim, 'on')
+ for index = 2:length(g.delim)
+ inputline(find(inputline == g.delim(index))) = g.delim(1);
+ end
+ end
+
+ while ~isempty(deblank(inputline))
+ if strcmpi(g.blankcell,'off'), inputline = strtrim(inputline); end
+ if tabFirstpos && length(inputline) > 1 && all(inputline(1) ~= g.delim), tabFirstpos = 0; end
+ [tmp inputline tabFirstpos] = mystrtok(inputline, g.delim, tabFirstpos);
+ switch g.convert
+ case 'off', array{linenb, colnb} = tmp;
+ case 'on',
+ if strcmpi(g.convertmethod, 'str2double')
+ tmp2 = str2double(tmp);
+ if isnan( tmp2 ) , array{linenb, colnb} = tmp;
+ else array{linenb, colnb} = tmp2;
+ end
+ else
+ tmp2 = str2num(tmp);
+ if isempty( tmp2 ) , array{linenb, colnb} = tmp;
+ else array{linenb, colnb} = tmp2;
+ end
+ end
+ case 'force', array{linenb, colnb} = str2double(tmp);
+ end
+ colnb = colnb+1;
+ end
+ linenb = linenb +1;
+ end
+ inputline = fgetl(fid);
+ if linenb > g.nlines
+ inputline = -1;
+ end
+ if ~mod(linenb,10) && strcmp(g.verbose, 'on'), fprintf('%d ', linenb); end
+end;
+if strcmp(g.verbose, 'on'), fprintf('%d\n', linenb-1); end
+if strcmp(g.convert, 'force'), array = [ array{:} ]; end
+fclose(fid);
+
+% problem strtok do not consider tabulation
+% -----------------------------------------
+function [str, strout, tabFirstpos] = mystrtok(strin, delim, tabFirstpos);
+ % remove extra spaces at the beginning
+ while any(strin(1) == delim) && strin(1) ~= 9 && strin(1) ~= ','
+ strin = strin(2:end);
+ end
+ % for tab and coma, consider empty cells
+ if length(strin) > 1 && any(strin(1) == delim)
+ if tabFirstpos || any(strin(2) == delim)
+ str = '';
+ strout = strin(2:end);
+ if strin(2) ~= 9 && strin(2) ~= ','
+ tabFirstpos = 0;
+ strout = strtrim(strout);
+ end
+ else
+ [str, strout] = strtok(strin, delim);
+ end
+ else
+ [str, strout] = strtok(strin, delim);
+ end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/pop_chanedit.m b/Studio V1/Functions/EEGLAB/Scalp/pop_chanedit.m
new file mode 100755
index 00000000..10be1470
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/pop_chanedit.m
@@ -0,0 +1,1040 @@
+% pop_chanedit() - Edit the channel locations structure of an EEGLAB dataset,
+% EEG.chanlocs. For structure location and file formats,
+% see >> help readlocs
+%
+% EEG.chanlocs. For structure location and file formats,
+% see >> help readlocs
+%
+% Usage: >> EEG = pop_chanedit( EEG, 'key1', value1, 'key2', value2, ... );
+% >> [ chanlocs options ] = pop_chanedit( chanlocs, 'key1', value1);
+% >> [ chanlocs chaninfo options ] = pop_chanedit( chanlocs, chaninfo, ...
+% 'key1', value1, 'key2', value2, ... );
+%
+% Graphic interface:
+% "Channel information ('field name')" - [edit boxes] display channel field
+% contents for the current channel. Command line equivalent
+% to modify these fields: 'transform'
+% "Opt. 3D center" - [button] optimally re-center 3-D channel coordinates. Uses
+% chancenter(). Command line equivalent: 'convert', { 'chancenter'
+% [xc yc zc] }, [xc yc zc] being the center of the sphere. Use []
+% to find the center of the best fitting sphere.
+% "Rotate axis" - [button] force one electrode to one position and rotate the other
+% electrodes accordingly. Command line equivalent: 'forcelocs'.
+% "Transform axis" - [button] perform any operation on channel fields. Command
+% line equivalent: 'transform'.
+% "Xyz->polar & sph." - [button] convert 3-D cartesian coordinates to polar and
+% 3-D spherical coordinates. This is useful when you edit the
+% coordinates manually. Command line equivalent: 'convert', 'cart2all'.
+% "Sph.->polar & xyz" - [button] convert 3-D spherical coordinates to polar and
+% 3-D cartesian coordinates. Command line equivalent: 'convert', 'sph2all'.
+% "Polar->sph & xyz" - [button] convert 2-D polar coordinates to 3-D spherical and
+% 3-D cartesian coordinates. Command line equivalent: 'convert', 'topo2all'.
+% Note that if spherical radii are absent, they are forced to 1.
+% "Set head radius" - [button] change head size radius. This is useful
+% to make channels location compatible with a specified spherical model.
+% Command line equivalent: 'headrad'.
+% "Set channel types" - [button] set channel type names for a range of data channels.
+% "Delete chan" - [button] delete channel. Command line equivalent: 'delete'.
+% "Insert chan" - [button] insert channel before current channel.
+% Command line equivalent: 'insert'.
+% "<<" - [button] scroll channel backward by 10.
+% "<" - [button] scroll channel backward by 1.
+% ">" - [button] scroll channel forward by 1.
+% ">>" - [button] scroll channel forward by 10.
+% "Append chan" - [button] append channel after the current channel.
+% Command line equivalent: 'append'.
+% "Plot 2D" - [button] plot channel locations in 2-D using topoplot()
+% "Plot radius [value (0.2-1.0), []=auto)" - [edit box] default plotting radius
+% in 2-D polar views. This does NOT affect channel locations; it
+% is only used for visualization. This parameter is attached to the
+% chanlocs structure and is then used in all 2-D scalp topoplots.
+% Default -> to data limits. Command line equivalent: 'plotrad'.
+% "Nose along +X" - [list] Indicate the direction of the nose. This information
+% is used in functions like topoplot(), headplot() and dipplot().
+% Command line equivalent: 'nosedir'.
+% "Plot 3D" - [button] plot channel positions in 3-D using plotchans3d()
+% "Read locations" - [button] read location file using readlocs()
+% Command line equivalent: 'load'.
+% "Read help" - [button] display readlocs() function help.
+% "Save .ced" - [button] save channel locations in native EEGLAB ".ced" format.
+% Command line equivalent: 'save'.
+% "Save others" - [button] save channel locations in other formats using
+% pop_writelocs() (see readlocs() for available channel formats).
+% "Cancel" - [button] cancel all editing.
+% "Help" - [button] display this help message.
+% "OK" - [button] save edits and propagate to parent.
+%
+% Inputs:
+% EEG - EEG dataset
+% chanlocs - EEG.chanlocs structure
+%
+% Optional inputs:
+% 'convert' - {conversion_type [args]} Conversion type may be: 'cart2topo'
+% 'sph2topo', 'topo2sph', 'sph2cart', 'cart2sph', or 'chancenter'.
+% See help messages for these functions. Args are only relevant
+% for 'chancenter'. More info is given in the graphic interface
+% description above.
+% 'transform' - String command for manipulating arrays. 'chan' is full channel
+% info. Fields that can be manipulated are 'labels', 'theta'
+% 'radius' (polar angle and radius), 'X', 'Y', 'Z' (cartesian
+% 3-D) or 'sph_theta', 'sph_phi', 'sph_radius' for spherical
+% horizontal angle, azimuth and radius.
+% Ex: 'chans(3) = chans(14)', 'X = -X' or a multi-step transform
+% with steps separated by ';': Ex. 'TMP = X; X = Y; Y = TMP'
+% 'changechan' - {number value1 value2 value3 ...} Change the values of all fields
+% for the given channel number, mimimally {num label theta radius}.
+% Ex: 'changechan' {12 'PXz' -90 0.30}
+% 'changefield' - {number field value} Change field value for channel number number.
+% Ex: {34 'theta' 320.4}.
+% 'insert' - {number label theta radius X Y Z sph_theta sph_phi sph_radius }
+% Insert new channel and specified values before the current channel
+% number. If the number of values is less than 10, remaining
+% fields will be 0. (Previously, this parameter was termed 'add').
+% 'append' - {num label theta radius X Y Z sph_theta sph_phi sph_radius }
+% same as 'insert' (above) but insert the the new channel after
+% the current channel number.
+% 'delete' - [int_vector] Vector of channel numbers to delete.
+% 'forcelocs' - [cell] call forcelocs() to force a particular channel to be at a
+% particular location on the head sphere; rotate other channels
+% accordingly.
+% 'skirt' - Topographical polar skirt factor (see >> help topoplot)
+% 'shrink' - Topographical polar shrink factor (see >> help topoplot)
+% 'load' - [filename|{filename, 'key', 'val'}] Load channel location file
+% optional arguments (such as file format) to the function
+% readlocs() can be specified if the input is a cell array.
+% 'save' - 'filename' Save text file with channel info.
+% 'eval' - [string] evaluate string ('chantmp' is the name of the channel
+% location structure).
+% 'headrad' - [float] change head radius.
+% 'lookup' - [string] look-up channel numbers for standard locations in the
+% channel location file given as input.
+% 'rplurchanloc' - [1,0] [1] Replace EEG.urchanlocs.If EEG.urchanlocs is empty this
+% option will be ignored and will be set to [1]
+%
+% Outputs:
+% EEG - new EEGLAB dataset with updated channel location structures
+% EEG.chanlocs, EEG.urchanlocs, EEG.chaninfo
+% chanlocs - updated channel location structure
+% chaninfo - updated chaninfo structure
+% options - structure containing plotting options (equivalent to EEG.chaninfo)
+%
+% Ex: EEG = pop_chanedit(EEG,'load', { 'dummy.elp' 'elp' }, 'delete', [3 4], ...
+% 'convert', { 'xyz->polar' [] -1 1 }, 'save', 'mychans.loc' )
+% % Load polhemus file, delete two channels, convert to polar (see
+% % cart2topo() for arguments) and save into 'mychans.loc'.
+%
+% Author: Arnaud Delorme, CNL / Salk Institute, 20 April 2002
+%
+% See also: readlocs()
+
+% Copyright (C) Arnaud Delorme, CNL / Salk Institute, 15 March 2002, arno@salk.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% hidden parameter
+% 'gui' - [figure value], allow to process the same dialog box several times
+
+function [chansout, chaninfo, urchans, com] = pop_chanedit(chans, orichaninfo, varargin);
+
+% process multiple datasets
+% -------------------------
+if length(chans) > 1 && isfield(chans, 'setname') && nargin > 2
+ [ chansout, com ] = eeg_eval( 'pop_chanedit', chans, 'params', { orichaninfo, varargin{:} } );
+ return;
+end
+
+urchans = [];
+com ='';
+if nargin < 1
+ help pop_chanedit;
+ return;
+end
+chansout = chans;
+chaninfo = [];
+fig = [];
+
+if nargin < 2
+ orichaninfo = [];
+end
+
+if isempty(chans) || all(~ishandle(chans))
+ % in case an EEG structure was given as input
+ % -------------------------------------------
+ if isfield(chans, 'chanlocs')
+
+ % process multiple datasets
+ if length(chans) > 1
+ sameAsFirst = arrayfun(@(x)isequaln(chans(1).chanlocs, x.chanlocs), chans(2:end));
+ if ~all(sameAsFirst)
+ error( [ 'All datasets need to have the exact same channel structure.' 10 'If you want to look up channel location for all datasets,' 10 'do so for the first one and write a loop' ] );
+ end
+
+ % pop up GUI for first dataset
+ EEG = chans(1);
+ [chansout, chaninfo, urchans, com] = pop_chanedit(EEG, orichaninfo, varargin{:});
+ chans(1) = chansout;
+
+ % pop up GUI for first dataset
+ for iDat = 2:length(chans)
+ EEG = chans(iDat);
+ eval(com);
+ chans(iDat) = EEG;
+ end
+ chansout = chans;
+ return;
+ end
+
+ dataset_input = 1;
+ EEG = chans;
+ chans = EEG(1).chanlocs;
+ nchansori = EEG.nbchan;
+ if isfield(EEG, 'chaninfo')
+ chaninfo = EEG(1).chaninfo;
+ else chaninfo = [];
+ end
+ if isfield(EEG, 'urchanlocs')
+ urchans = EEG(1).urchanlocs;
+ end
+ else
+ nchansori = 0;
+ dataset_input = 0;
+ chaninfo = orichaninfo;
+ end
+
+ % dealing with additional parameters
+ % ----------------------------------
+ if nargin > 1 && ~ischar(orichaninfo), % nothing
+ if nargin > 2
+ if ~ischar(varargin{1})
+ urchans = varargin{1};
+ varargin = varargin(2:end);
+ end
+ end
+ elseif nargin > 1 && ~isempty(orichaninfo) && ischar(orichaninfo)
+ varargin = { orichaninfo varargin{:} };
+ if isequal(orichaninfo, chaninfo)
+ chaninfo = [];
+ end
+ orichaninfo = [];
+ end
+
+ % insert "no data channels" in channel structure
+ % ----------------------------------------------
+ nbchan = length(chans);
+ [tmp chaninfo chans] = eeg_checkchanlocs(chans, chaninfo);
+
+ if isfield(chaninfo, 'shrink') && ~isempty(chaninfo.shrink)
+ icadefs;
+ if SHRINKWARNING
+ warndlg2( [ 'You are currently shrinking channel locations for display.' 10 ...
+ 'A new option (more anatomically correct) is to plot channels' 10 ...
+ 'outside head limits so the shrink option has been disabled.' 10 ...
+ '(Edit the icadefs file to disable this message)' ], 'Shrink factor warning');
+ end
+ end
+
+ oldchaninfo = chaninfo;
+end
+
+% Checking for flag to replace 'urchanloc' field
+indx_tmp = find(strcmp(varargin,'rplurchanloc'));
+flag_replurchan = 0;
+if ~isempty(indx_tmp)
+ flag_replurchan = varargin{indx_tmp+1};
+end
+
+if nargin < 3 && isstruct(chans)
+
+ totaluserdat = {};
+ % lookup channel locations if necessary
+ % -------------------------------------
+ if ~all(cellfun('isempty', {chans.labels})) && all(cellfun('isempty', {chans.theta}))
+ [chans chaninfo urchans com] = pop_chanedit(chans, chaninfo, 'lookupgui', []);
+ for index = 1:length(chans)
+ chans(index).ref = '';
+ chans(index).datachan = 1;
+ end
+ if ~isempty(com)
+ totaluserdat = com;
+ %[chans chaninfo urchans com] = pop_chanedit(chans, chaninfo, com{:});
+ end
+ end
+
+ commentfields = { 'Channel label ("label")', ...
+ 'Polar angle ("theta")', 'Polar radius ("radius")', ...
+ 'Cartesian X ("X")', ...
+ 'Cartesian Y ("Y")', ...
+ 'Cartesian Z ("Z")', ...
+ 'Spherical horiz. angle ("sph_theta")', ...
+ 'Spherical azimuth angle ("sph_phi")', ...
+ 'Spherical radius ("sph_radius")' ...
+ 'Channel type' 'Reference' ...
+ 'Index in backup ''urchanlocs'' structure' ...
+ 'Channel in data array (set=yes)' };
+
+ % add field values
+ % ----------------
+ geometry = { 1 };
+ tmpstr = sprintf('Channel information ("field_name"):');
+ uilist = { { 'Style', 'text', 'string', tmpstr, 'fontweight', 'bold' } };
+
+ uiconvert = { ...
+ { 'Style', 'pushbutton', 'string', 'Opt. head center', 'callback', 'pop_chanedit(gcbf, [], ''chancenter'', []);' } ...
+ { 'Style', 'pushbutton', 'string', 'Rotate axis' , 'callback', 'pop_chanedit(gcbf, [], ''forcelocs'', []);' } ...
+ { 'Style', 'pushbutton', 'string', 'Transform axes' , 'callback', 'pop_chanedit(gcbf, [], ''transform'', []);' } ...
+ { }, ...
+ { 'Style', 'pushbutton', 'string', 'xyz -> polar & sph.', 'callback', 'pop_chanedit(gcbf, [], ''convert'', {''cart2all''});' }, ...
+ { 'Style', 'pushbutton', 'string', 'sph. -> polar & xyz', 'callback', 'pop_chanedit(gcbf, [], ''convert'', {''sph2all'' });' }, ...
+ { 'Style', 'pushbutton', 'string', 'polar -> sph. & xyz', 'callback', 'pop_chanedit(gcbf, [], ''convert'', {''topo2all''});' }, ...
+ { }, ...
+ { 'Style', 'pushbutton', 'string', 'Set head radius', 'callback', 'pop_chanedit(gcbf, [], ''headrad'', []);' } ...
+ { 'Style', 'pushbutton', 'string', 'Set channel types', 'callback', 'pop_chanedit(gcbf, [], ''settype'', []);' } ...
+ { 'Style', 'pushbutton', 'string', 'Set reference', 'callback', 'pop_chanedit(gcbf, [], ''setref'' , []);' } ...
+ { } { } };
+
+ % create text and edit for each field
+ % -----------------------------------
+ allfields = { 'labels' 'theta' 'radius' 'X' 'Y' 'Z' 'sph_theta' 'sph_phi' 'sph_radius' 'type' 'ref' 'urchan' 'datachan' };
+ for index = 1:length(allfields)-1
+ cbfield = [ 'valnumtmp = str2num(get(findobj(gcbf, ''tag'', ''chaneditnumval''), ''string''));' ...
+ 'pop_chanedit(gcbf, [], ''changefield'', { valnumtmp ''' allfields{index} ''' get(gcbo, ''string'') });' ...
+ 'clear valnumtmp;' ];
+ geometry = { geometry{:} [1.5 1 0.2 1] };
+ uilist = { uilist{:}, ...
+ { 'Style', 'text', 'string', commentfields{index} }, ...
+ { 'Style', 'edit', 'tag', [ 'chanedit' allfields{index} ], 'string', ...
+ num2str(getfield(chans,{1}, allfields{index})), 'horizontalalignment', 'center', 'callback', cbfield } ...
+ { } uiconvert{index} };
+ end
+
+ % special checkbox for chandata field
+ % -----------------------------------
+ geometry = { geometry{:} [2 0.35 0.5 1] };
+ cbfield = [ 'valnumtmp = str2num(get(findobj(gcbf, ''tag'', ''chaneditnumval''), ''string''));' ...
+ 'pop_chanedit(gcbf, [], ''changefield'', { valnumtmp ''' allfields{end} ''' get(gcbo, ''value'') });' ...
+ 'clear valnumtmp;' ];
+ uilist = { uilist{:}, ...
+ { 'Style', 'text', 'string', commentfields{end} }, ...
+ { 'Style', 'checkbox', 'tag', [ 'chanedit' allfields{end}], 'string', '' 'value', 1 'callback', cbfield } { } uiconvert{end} };
+
+ % add buttons
+ % -----------
+ geometry = { geometry{:} [1] [1.15 0.5 0.6 1.9 0.4 0.4 1.15] [1.15 0.7 0.7 1 0.7 0.7 1.15] };
+ cb_del = [ 'valnum = str2num(char(get(findobj(gcbf,''tag'', ''chaneditnumval''), ''string'')));' ...
+ 'pop_chanedit(gcbf, [], ''deletegui'', valnum);' ];
+ cb_insert = [ 'valnum = str2num(char(get(findobj(gcbf,''tag'', ''chaneditnumval''), ''string'')));' ...
+ 'pop_chanedit(gcbf, [], ''insert'', valnum);' ];
+ cb_append = [ 'valnum = str2num(char(get(findobj(gcbf,''tag'', ''chaneditnumval''), ''string'')));' ...
+ 'pop_chanedit(gcbf, [], ''append'', valnum);' ];
+
+ uilist = { uilist{:}, ...
+ { }, ...
+ { 'Style', 'pushbutton', 'string', 'Delete chan', 'callback', cb_del }, ...
+ { },{ }, ...
+ { 'Style', 'text' , 'string', ['Channel number (of ' int2str(length(chans)) ')'], ...
+ 'fontweight', 'bold', 'tag', 'chaneditscantitle' }, { },{ },{ }, ...
+ { 'Style', 'pushbutton', 'string', 'Insert chan', 'callback', cb_insert } ...
+ { 'Style', 'pushbutton', 'string', '<<', 'callback', [ 'pop_chanedit(gcbf, [], ''movecursor'', -10);' ] } ...
+ { 'Style', 'pushbutton', 'string', '<', 'callback', [ 'pop_chanedit(gcbf, [], ''movecursor'', -1);' ] } ...
+ { 'Style', 'edit' , 'string', '1', 'tag', 'chaneditnumval', 'callback', [ 'pop_chanedit(gcbf, []);' ] } ...
+ { 'Style', 'pushbutton', 'string', '>', 'callback', [ 'pop_chanedit(gcbf, [], ''movecursor'', 1);' ] } ...
+ { 'Style', 'pushbutton', 'string', '>>', 'callback', [ 'pop_chanedit(gcbf, [], ''movecursor'', 10);' ] } ...
+ { 'Style', 'pushbutton', 'string', 'Append chan', 'callback', cb_append }, ...
+ };
+
+ % add sorting options
+ % -------------------
+ cb_rplurchan = [ 'valnumtmp = get(findobj(gcbf, ''tag'', ''rplurchan''), ''value'');' ...
+ 'pop_chanedit(gcbf, [], ''rplurchanloc'', valnumtmp);' ...
+ 'clear valnumtmp;' ];
+ noseparam = strmatch(upper(chaninfo.nosedir), { '+X' '-X' '+Y' '-Y' });
+ if isempty(noseparam), error('Wrong value for nose direction'); end
+ geometry = { geometry{:} [1] [0.9 1.3 0.6 1.1 0.9] [1] [1 1 1 1 1] [1]};
+ uilist = { uilist{:},...
+ { } ...
+ { 'Style', 'pushbutton', 'string', 'Plot 2-D', 'callback', 'pop_chanedit(gcbf, [], ''plot2d'', []);' },...
+ { 'Style', 'text', 'string', 'Plot radius (0.2-1, []=auto)'} ...
+ { 'Style', 'edit', 'string', char(chaninfo.plotrad), 'tag', 'plotrad' 'callback' 'pop_chanedit(gcbf, [], ''plotrad'', []);' } ...
+ { 'Style', 'popupmenu', 'string', 'Nose along +X|Nose along -X|Nose along +Y|Nose along -Y', ...
+ 'tag' 'nosedir' 'value',noseparam, 'callback' 'pop_chanedit(gcbf,[],''nosedir'',[]);' 'listboxtop' noseparam } ...
+ { 'Style', 'pushbutton', 'string', 'Plot 3-D (xyz)', 'callback', 'pop_chanedit(gcbf, [], ''plot3d'', []);' } ...
+ {}, ...
+ { 'Style', 'pushbutton', 'string', 'Read locations', 'callback', 'pop_chanedit(gcbf,[],''load'',[]);' }, ...
+ { 'Style', 'pushbutton', 'string', 'Read locs help', 'callback', 'pophelp(''readlocs.m'');' }, ...
+ { 'Style', 'pushbutton', 'string', 'Look up locs', 'callback', 'pop_chanedit(gcbf,[], ''lookupgui'', []);' }, ...
+ { 'Style', 'pushbutton', 'string', 'Save (as .ced)', 'callback', 'pop_chanedit(gcbf,[], ''save'',[]);' } ...
+ { 'Style', 'pushbutton', 'string', 'Save (other types)', 'callback', 'pop_chanedit(gcbf,[], ''saveothers'',[]);' } ...
+ { 'Style', 'checkbox' , 'string', 'Overwrite Original Channels', 'callback', cb_rplurchan, 'tag' , 'rplurchan', 'value', flag_replurchan }...
+ };
+
+ % evaluation of command below is required to center text (if
+ % declared a text instead of edit, the uicontrol is not centered)
+ comeval = [ 'set(findobj( ''tag'', ''chanediturchan''), ''style'', ''text'', ''backgroundcolor'', [.66 .76 1] );' ...
+ 'set(findobj( ''tag'', ''chaneditref''), ''style'', ''text'', ''backgroundcolor'', [.66 .76 1] );' ...
+ 'set(findobj( ''tag'', ''ok''), ''callback'', ''valnumtmp = get(findobj(gcbf, ''''tag'''', ''''rplurchan''''), ''''value''''); pop_chanedit(gcbf, [],''''rplurchanloc'''',valnumtmp, ''''return'''', []);'')' ];
+
+ userdata.chans = chans;
+ userdata.nchansori = nchansori;
+ userdata.chaninfo = chaninfo;
+ userdata.urchans = urchans ;
+ userdata.commands = totaluserdat;
+
+ [results userdata returnmode] = inputgui( 'geometry', geometry, 'uilist', uilist, 'helpcom', ...
+ 'pophelp(''pop_chanedit'');', 'title', 'Edit channel info -- pop_chanedit()', ...
+ 'userdata', userdata, 'eval' , comeval );
+
+ if length(results) == 0,
+ com = '';
+ if dataset_input, chansout = EEG; end;
+ return;
+ end
+
+ % transfer events back from global workspace
+ chans = userdata.chans;
+ chaninfo = userdata.chaninfo;
+ urchans = userdata.urchans;
+ if ~isempty(userdata.commands)
+ com = sprintf('%s=pop_chanedit(%s, %s);', inputname(1), inputname(1), vararg2str(userdata.commands));
+ end
+ % Updating flag
+ flag_replurchan = results{15};
+else
+
+ % call from command line or from a figure
+ % ---------------------------------------
+ currentpos = 0;
+ if ishandle(chans)
+ fig = chans;
+ userdata = get(fig, 'userdata');
+ chans = userdata.chans;
+ nchansori = userdata.nchansori;
+ chaninfo = userdata.chaninfo;
+ urchans = userdata.urchans;
+ currentpos = str2num(get(findobj(fig, 'tag', 'chaneditnumval'), 'string'));
+ end
+
+ args = varargin;
+ % no interactive inputs
+ % scan all the fields of g
+ % ------------------------
+ for curfield = 1:2:length(args)
+ switch lower(args{curfield})
+ case 'rplurchanloc'
+ if flag_replurchan, urchans = eeg_checkchanlocs(chans, chaninfo); end
+ args{curfield} = 'rplurchanloc';
+ args{ curfield+1 } = flag_replurchan;
+ case 'return'
+ [tmpchans] = eeg_checkchanlocs(chans);
+ if nchansori ~= 0 && nchansori ~= length(tmpchans)
+ if ~popask(strvcat(['The number of data channels (' int2str(length(tmpchans)) ') not including fiducials does not'], ...
+ ['correspond to the initial number of channels (' int2str(nchansori) '), so for consistency purposes'], ...
+ 'new channel information will be ignored if this function was called from EEGLAB', ...
+ 'If you have added a reference channel manually, check the "Data channel" checkbox is off'))
+ else
+ set(findobj(fig, 'tag', 'ok'), 'userdata', 'stop');
+ end
+ else
+ set(findobj(fig, 'tag', 'ok'), 'userdata', 'stop');
+ end
+ args = {};
+ case 'plot3d', % GUI only
+ tmpind = find(~cellfun('isempty', { chans.X }));
+ if ~isempty(tmpind),
+ plotchans3d([ [ chans(tmpind).X ]' [ chans(tmpind).Y ]' [ chans(tmpind).Z ]'], { chans(tmpind).labels });
+ else disp('cannot plot: no XYZ coordinates');
+ end
+ args = {};
+ case 'plot2d', % GUI only
+ plotrad = str2num(get(findobj(fig, 'tag', 'plotrad'), 'string'));
+ figure; topoplot([],chans, 'style', 'blank', 'drawaxis', 'on', 'electrodes', ...
+ 'labelpoint', 'plotrad', plotrad, 'chaninfo', chaninfo);
+ args = {};
+ case 'movecursor', % GUI only
+ currentpos = max(1,min(currentpos+args{curfield+1},length(chans)));
+ args = {};
+ case 'plotrad',
+ if isempty( args{curfield+1} )
+ args{curfield+1} = str2num(get(findobj(fig, 'tag', 'plotrad'), 'string'));
+ end
+ chaninfo.plotrad = args{curfield+1};
+ case 'forcelocs',
+ if ~isempty(fig) % GUI BASED
+ [ comtmp tmpforce ] = forcelocs(chans);
+ if ~isempty(tmpforce),
+ args{curfield+1} = tmpforce{1};
+ end
+ end
+ if ~isempty(args{curfield+1})
+ chans = forcelocs(chans,args{curfield+1});
+ disp('Convert XYZ coordinates to spherical and polar');
+ end
+ case 'chancenter',
+ if ~isempty(fig)
+ [chans newcenter tmpcom] = pop_chancenter(chans);
+ args{curfield } = 'eval';
+ args{curfield+1} = tmpcom;
+ end
+ case 'convert',
+ if iscell(args{curfield+1})
+ method=args{curfield+1}{1};
+ extraargs = args{curfield+1}(2:end);
+ else
+ method=args{curfield+1};
+ extraargs = {''};
+ end
+ if ~isempty(fig) && ~strcmp(method, 'chancenter')
+ tmpButtonName=questdlg2( strvcat('This will modify fields in the channel structure', ...
+ 'Are you sure you want to apply this function ?'), 'Confirmation', 'Cancel', 'Yes','Yes');
+ if ~strcmpi(tmpButtonName, 'Yes'), return; end
+ end
+ switch method
+ case 'chancenter',
+ if isempty(extraargs)
+ [X Y Z]=chancenter( [chans.X ]', [ chans.Y ]', [ chans.Z ]',[]);
+ else
+ [X Y Z]=chancenter( [chans.X ]', [ chans.Y ]', [ chans.Z ]', extraargs{:});
+ end
+ if isempty(X), return; end
+ for index = 1:length(chans)
+ chans(index).X = X(index);
+ chans(index).Y = Y(index);
+ chans(index).Z = Z(index);
+ end
+ disp('Note: automatically convert XYZ coordinates to spherical and polar');
+ chans = convertlocs(chans, 'cart2all');
+ otherwise
+ chans = convertlocs(chans, method, 'verbose', 'on');
+ end
+ case 'settype'
+ if ~isempty(fig)
+ args{curfield+1} = inputdlg2({'Channel indices' 'Type (e.g. EEG)' }, ...
+ 'Set channel type', 1, { '' '' }, 'pop_chanedit');
+ end
+ try, tmpchans = args{curfield+1}{1}; tmptype = args{curfield+1}{2};catch, return; end
+ if isempty(tmpchans) && isempty(tmptype), return; end
+ if ischar(tmpchans)
+ tmpchans = eval( [ '[' tmpchans ']' ], 'settype: error in channel indices');
+ end
+ if ~ischar(tmptype), tmptype = num2str(tmptype); end
+ for index = 1:length(tmpchans)
+ if tmpchans(index) > 0 && tmpchans(index) <= length(chans)
+ chans( tmpchans(index) ).type = tmptype;
+ end
+ end
+ case 'setref'
+ if ~isempty(fig)
+ disp('Note that setting the reference only changes the reference labels');
+ disp('Use the re-referencing menu to change the reference');
+ args{curfield+1} = inputdlg2({'Channel indices' 'Reference (e.g. Cz)' }, ...
+ 'Set channel reference', 1, { '' '' }, 'pop_chanedit');
+ end
+ try, tmpchans = args{curfield+1}{1}; tmpref = args{curfield+1}{2};catch, return; end
+ if isempty(tmpchans) && isempty(tmpref), return; end
+ if ischar(tmpchans)
+ tmpchans = eval( [ '[' tmpchans ']' ], 'settype: error in channel indices');
+ end
+ if ~ischar(tmpref), tmpref = num2str(tmpref); end
+ for index = 1:length(tmpchans)
+ if tmpchans(index) > 0 && tmpchans(index) <= length(chans)
+ chans( tmpchans(index) ).ref = tmpref;
+ end
+ end
+ case 'transform'
+ if ~isempty(fig)
+ args{curfield+1} = inputdlg2({'Enter transform: (Ex: TMP=X; X=-Y; Y=TMP or Y(3) = X(2), etc.' }, ...
+ 'Transform', 1, { '' }, 'pop_chanedit');
+ end
+ try, tmpoper = args{curfield+1}; catch, return; end
+ if isempty(deblank(tmpoper)), return; end
+ if iscell(tmpoper), tmpoper = tmpoper{1}; end
+ tmpoper = [ tmpoper ';' ];
+ [eloc, labels, theta, radius, indices] = readlocs(chans);
+ if isempty(findstr(tmpoper, 'chans'))
+ try,
+ X = [ chans(indices).X ];
+ Y = [ chans(indices).Y ];
+ Z = [ chans(indices).Z ];
+ sph_theta = [ chans(indices).sph_theta ];
+ sph_phi = [ chans(indices).sph_phi ];
+ sph_radius = [ chans(indices).sph_radius ];
+ eval(tmpoper);
+
+ for ind = 1:length(indices)
+ chans(indices(ind)).X = X(min(length(X),ind));
+ chans(indices(ind)).Y = Y(min(length(Y),ind));
+ chans(indices(ind)).Z = Z(min(length(Z),ind));
+ chans(indices(ind)).theta = theta(min(length(theta),ind));
+ chans(indices(ind)).radius = radius(min(length(radius),ind));
+ chans(indices(ind)).sph_theta = sph_theta(min(length(sph_theta),ind));
+ chans(indices(ind)).sph_phi = sph_phi(min(length(sph_phi),ind));
+ chans(indices(ind)).sph_radius = sph_radius(min(length(sph_radius),ind));
+ end
+
+ if ~isempty(findstr(tmpoper, 'X')), chans = convertlocs(chans, 'cart2all'); end
+ if ~isempty(findstr(tmpoper, 'Y')), chans = convertlocs(chans, 'cart2all'); end
+ if ~isempty(findstr(tmpoper, 'Z')), chans = convertlocs(chans, 'cart2all'); end
+ if ~isempty(findstr(tmpoper, 'sph_theta')), chans = convertlocs(chans, 'sph2all');
+ elseif ~isempty(findstr(tmpoper, 'theta')), chans = convertlocs(chans, 'topo2all'); end
+ if ~isempty(findstr(tmpoper, 'sph_phi')), chans = convertlocs(chans, 'sph2all'); end
+ if ~isempty(findstr(tmpoper, 'sph_radius')), chans = convertlocs(chans, 'sph2all');
+ elseif ~isempty(findstr(tmpoper, 'radius')), chans = convertlocs(chans, 'topo2all'); end
+ catch, disp('Unknown error when applying transform'); end
+ else
+ eval(tmpoper);
+ end
+
+ case 'headrad'
+ if ~isempty(fig) % GUI
+ tmpres = inputdlg2({'Enter new head radius (same unit as DIPFIT head model):' }, ...
+ 'Head radius', 1, { '' }, 'pop_chanedit');
+ if ~isempty(tmpres),
+ args{ curfield+1 } = str2num(tmpres{1});
+ else return;
+ end
+ end
+ if ~isempty( args{ curfield+1 } )
+ allrad = [ chans.sph_radius ];
+ if length(unique(allrad)) == 1 % already spherical
+ chans = pop_chanedit(chans, 'transform', [ 'sph_radius = ' num2str( args{ curfield+1 } ) ';' ]);
+ else % non-spherical, finding best match
+ factor = args{ curfield+1 } / mean(allrad);
+ chans = pop_chanedit(chans, 'transform', [ 'sph_radius = sph_radius*' num2str( factor ) ';' ]);
+ disp('Warning: electrodes do not lie on a sphere. Sphere model fitting for');
+ disp(' dipole localization will work but generate many warnings');
+ end
+ chans = convertlocs(chans, 'sph2all');
+ end
+
+ case 'shrink'
+ chans(1).shrink = args{ curfield+1 };
+
+ case 'plotrad'
+ chans(1).plotrad = args{ curfield+1 };
+
+ case 'deletegui'
+ chans(args{ curfield+1 })=[];
+ currentpos = min(length(chans), currentpos);
+ args{ curfield } = 'delete';
+
+ case 'delete'
+ chans(args{ curfield+1 })=[];
+
+ case 'changefield'
+ tmpargs = args{ curfield+1 };
+ if length( tmpargs ) < 3
+ error('pop_chanedit: not enough arguments to change field value');
+ end
+ if ~isempty(strmatch( tmpargs{2}, { 'X' 'Y' 'Z' 'theta' 'radius' 'sph_theta' 'sph_phi' 'sph_radius'}))
+ if ~isnumeric(tmpargs{3}), tmpargs{3} = str2num(tmpargs{3}); end
+ end
+ for paramChan = 2:2:length(tmpargs)
+ eval([ 'chans(' int2str(tmpargs{1}) ').' tmpargs{paramChan} '=' reformat(tmpargs{paramChan+1} ) ';' ]);
+ end
+ case { 'insert' 'add' 'append' }
+ tmpargs = args{ curfield+1 };
+ allfields = fieldnames(chans);
+ if isnumeric(tmpargs)
+ tmpargs2 = cell(1, length(allfields)+1);
+ tmpargs2{1} = tmpargs;
+ tmpargs = tmpargs2;
+ if strcmpi(allfields{end}, 'datachan'), tmpargs{end} = 0; end
+ end
+ if length( tmpargs ) < length(allfields)+1
+ error('pop_chanedit: not enough arguments to change all field values');
+ end
+ num = tmpargs{1};
+ if strcmpi(lower(args{curfield}), 'append'), num=num+1; currentpos = currentpos+1; end
+ chans(end+1) = chans(end);
+ chans(num+1:end) = chans(num:end-1);
+ for index = 1:length( allfields )
+ chans = setfield(chans, {num}, allfields{index}, tmpargs{index+1});
+ end
+ if isfield(chans, 'datachan')
+ if isempty(chans(num).datachan)
+ chans(num).datachan = 0;
+ end
+ end
+ case 'changechan'
+ tmpargs = args{ curfield+1 };
+ num = tmpargs{1};
+ allfields = fieldnames(chans);
+ if length( tmpargs ) < length(allfields)+1
+ error('pop_chanedit: not enough arguments to change all field values');
+ end
+ for index = 1:length( allfields )
+ eval([ 'chans(' int2str(num) ').' allfields{index} '=' reformat(tmpargs{index+1}) ';' ]);
+ end
+
+ case 'load'
+ if ~isempty(fig) % GUI
+ [tmpf tmpp] = uigetfile('*.*', 'Load a channel location file');
+ drawnow;
+ if ~isequal(tmpf, 0),
+ tmpformats = readlocs('getinfos');
+ tmpformattype = { 'autodetect' tmpformats(1:end-1).type };
+ tmpformatstr = { 'autodetect' tmpformats(1:end-1).typestring };
+ tmpformatdesc = { 'Autodetect file format from file extension' tmpformats(1:end-1).description };
+ %cb_listbox = 'tmpdesc=get(gcbf, ''userdata''); set(findobj(gcbf, ''tag'', ''strdesc''), ''string'', strmultiline([ ''File format: '' tmpdesc{get(gcbo, ''value'')} ], 30, 10)); clear tmpdesc;'' } }, ''pophelp(''''readlocs'''')'',' ...
+ % 'Read electrode file'', tmpformatdesc, ''normal'', 4);
+ %txtgui = [ strmultiline([ 'File format: Autodetect file format from file extension'], 20, 10) 10 10 ];
+ %tmpfmt = inputgui( 'geometry', {[1 1]}, ...
+ % 'uilist' , { { 'style', 'text', 'string', txtgui 'tag' 'strdesc' }, ...
+ % { 'style', 'listbox', 'string', strvcat(tmpformatstr) 'callback' '' } }, ...
+ % 'geomvert', [10], ...
+ % 'helpcom' , 'pophelp(''readlocs'');');
+ tmpfmt = inputgui( 'geometry', {[1 1 1] [1]}, ...
+ 'uilist' , { { 'style', 'text', 'string', 'File format:' 'tag' 'strdesc' } {} {}, ...
+ { 'style', 'listbox', 'string', strvcat(tmpformatstr) 'callback' '' } }, ...
+ 'geomvert', [1 8], ...
+ 'helpcom' , 'pophelp(''readlocs'');');
+ if isempty(tmpfmt),
+ args{ curfield+1 } = [];
+ else args{ curfield+1 } = { fullfile(tmpp, tmpf) 'filetype' tmpformattype{tmpfmt{1}} };
+ end
+ else args{ curfield+1 } = [];
+ end
+ end
+
+ tmpargs = args{ curfield+1 };
+ if ~isempty(tmpargs),
+ if ischar(tmpargs)
+ [chans] = readlocs(tmpargs);
+ [tmp tmp2 chans] = eeg_checkchanlocs(chans);
+ chaninfo = [];
+ chaninfo.filename = tmpargs;
+ else
+ [chans] = readlocs(tmpargs{:});
+ [tmp tmp2 chans] = eeg_checkchanlocs(chans);
+ chaninfo = [];
+ chaninfo.filename = tmpargs{1};
+ end
+
+ % backup file content etc...
+ % --------------------------
+ tmptext = loadtxt( chaninfo.filename, 'delim', [], 'verbose', 'off', 'convert', 'off');
+ chaninfo.filecontent = strvcat(tmptext{:});
+
+ % set urchan structure
+ % --------------------
+ urchans = chans;
+ for index = 1:length(chans)
+ chans(index).urchan = index;
+ end
+ end
+ if ~isfield(chans, 'datachan')
+ chans(1).datachan = [];
+ end
+ for index = 1:length(chans)
+ if isempty(chans(index).datachan)
+ chans(index).datachan = 1;
+ end
+ end
+
+ case 'eval'
+ tmpargs = args{ curfield+1 };
+ eval(tmpargs);
+
+ case 'saveothers'
+ com = pop_writelocs(chans);
+ args{ curfield } = 'eval';
+ args{ curfield+1 } = com;
+
+ case 'save'
+ if ~isempty(fig)
+ [tmpf tmpp] = uiputfile('*.ced', 'Save channel locs in EEGLAB .ced format');
+ drawnow;
+ args{ curfield+1 } = fullfile(tmpp, tmpf);
+ end
+ tmpargs = args{ curfield+1 };
+ [tmp, tmp, filext] = fileparts(tmpargs);
+ if isempty(tmpargs), return; end
+ fid = fopen(tmpargs, 'w');
+ if fid ==-1, error('Cannot open file'); end
+
+ allfields = fieldnames(chans);
+ fields = { 'labels' 'theta' 'radius' 'X' 'Y' 'Z' 'sph_theta' 'sph_phi' 'sph_radius' 'type' };
+ tmpdiff = setdiff(fields, allfields);
+ if ~isempty(tmpdiff), error(sprintf('Field "%s" missing in channel location structure', tmpdiff{1})); end
+ if strcmpi(filext,'.ced')
+ origfield = fields; % Setting the order as expected in readlocs.m
+ else
+ origfield = intersect(allfields,fields,'stable'); % Getting the original order from file
+ end
+ fprintf(fid, 'Number\t');
+ for field = 1:length(fields)
+ fprintf(fid, '%s\t', origfield{field});
+ end
+ fprintf(fid, '\n');
+ for index=1:length(chans)
+ fprintf(fid, '%d\t', index);
+ for field = 1:length(fields)
+ tmpval = getfield(chans, {index}, origfield{field});
+ if ischar(tmpval)
+ fprintf(fid, '%s\t', tmpval);
+ else
+ fprintf(fid, '%3.3g\t', tmpval);
+ end
+ end
+ fprintf(fid, '\n');
+ end
+ if isempty(tmpargs), chantmp = readlocs(tmpargs); end
+
+ case 'nosedir'
+ nosevals = { '+X' '-X' '+Y' '-Y' };
+ if ~isempty(fig)
+ tmpval = get(findobj(gcbf, 'tag', 'nosedir'), 'value');
+ args{ curfield+1 } = nosevals{tmpval};
+ warndlg2( [ 'Changing the nose direction will force EEGLAB to physically rotate ' 10 ...
+ 'electrodes, so next time you call this interface, nose direction will' 10 ...
+ 'be +X. If your electrodes are currently aligned with a specific' 10 ...
+ 'head model, you will have to rotate them in the model coregistration' 10 ...
+ 'interface to realign them with the model.'], 'My Warn Dialog');
+ end
+ chaninfo.nosedir = args{ curfield+1 };
+ if isempty(strmatch(chaninfo.nosedir, nosevals))
+ error('Wrong value for nose direction');
+ end
+
+ case { 'lookup' 'lookupgui' }
+ if strcmpi(lower(args{curfield}), 'lookupgui')
+ standardchans = { 'Fp1' 'Fpz' 'Fp2' 'Nz' 'AF9' 'AF7' 'AF3' 'AFz' 'AF4' 'AF8' 'AF10' 'F9' 'F7' 'F5' ...
+ 'F3' 'F1' 'Fz' 'F2' 'F4' 'F6' 'F8' 'F10' 'FT9' 'FT7' 'FC5' 'FC3' 'FC1' 'FCz' 'FC2' ...
+ 'FC4' 'FC6' 'FT8' 'FT10' 'T9' 'T7' 'C5' 'C3' 'C1' 'Cz' 'C2' 'C4' 'C6' 'T8' 'T10' ...
+ 'TP9' 'TP7' 'CP5' 'CP3' 'CP1' 'CPz' 'CP2' 'CP4' 'CP6' 'TP8' 'TP10' 'P9' 'P7' 'P5' ...
+ 'P3' 'P1' 'Pz' 'P2' 'P4' 'P6' 'P8' 'P10' 'PO9' 'PO7' 'PO3' 'POz' 'PO4' 'PO8' 'PO10' ...
+ 'O1' 'Oz' 'O2' 'O9' 'O10' 'CB1' 'CB2' 'Iz' };
+ for indexchan = 1:length(chans)
+ if isempty(chans(indexchan).labels), chans(indexchan).labels = ''; end
+ end
+ [tmp1 ind1 ind2] = intersect_bc( lower(standardchans), {chans.labels});
+ if ~isempty(tmp1) || isfield(chans, 'theta')
+
+ % finding template location files
+ % -------------------------------
+ setmodel = [ 'tmpdat = get(gcbf, ''userdata'');' ...
+ 'tmpval = get(gcbo, ''value'');' ...
+ 'set(findobj(gcbf, ''tag'', ''elec''), ''string'', tmpdat{tmpval});' ...
+ 'clear tmpval tmpdat;' ];
+ try
+ EEG = eeg_emptyset; % for dipfitdefs
+ dipfitdefs;
+ userdatatmp = { template_models(1).chanfile template_models(2).chanfile 'Standard-10-5-Cap385_witheog.elp' }; % last file in the path (see eeglab.m)
+ clear EEG;
+ catch, userdatatmp = { 'Standard-10-5-Cap385.sfp' 'Standard-10-5-Cap385.sfp' 'Standard-10-5-Cap385_witheog.elp' }; % files are in the path (see eeglab.m)
+ end
+
+ % other commands for help/load
+ % ----------------------------
+ comhelp = [ 'warndlg2(strvcat(''The template file depends on the model'',' ...
+ '''you intend to use for dipole fitting. The default file is fine for'',' ...
+ '''spherical model.'');' ];
+ commandload = [ '[filename, filepath] = uigetfile(''*'', ''Select a text file'');' ...
+ 'if filename ~=0,' ...
+ ' set(findobj(''parent'', gcbf, ''tag'', ''elec''), ''string'', [ filepath filename ]);' ...
+ 'end;' ...
+ 'clear filename filepath tagtest;' ];
+ if ~isfield(chans, 'theta'), message =1;
+ elseif all(cellfun('isempty', {chans.theta })), message =1;
+ else message =2;
+ end
+ if message == 1
+ textcomment = strvcat('Only channel labels are present currently, but some of these labels have known', ...
+ 'positions. Do you want to look up coordinates for these channels using the electrode', ...
+ 'file below? If you have a channel location file for this dataset, press cancel, then', ...
+ 'use button "Read location" in the following gui. If you do not know, just press OK.');
+ else
+ textcomment = strvcat('Some channel labels may have known locations.', ...
+ 'Do you want to look up coordinates for these channels using the electrode', ...
+ 'file below? If you do not know, press OK.');
+ end
+ uilist = { { 'style' 'text' 'string' textcomment } ...
+ { 'style' 'popupmenu' 'string' [ 'use BESA file for 4-shell dipfit spherical model' ...
+ '|use MNI coordinate file for BEM dipfit model|Use spherical file with eye channels' ] ...
+ 'callback' setmodel 'value' 2 } ...
+ { } ...
+ { 'style' 'edit' 'string' userdatatmp{2} 'tag' 'elec' } ...
+ { 'style' 'pushbutton' 'string' '...' 'callback' commandload } ...
+ { } };
+% { 'Style', 'checkbox', 'value', 0, 'string','Overwrite Original Channels' } };
+
+ res = inputgui( { 1 [1 0.3] [1 0.3] 1 }, uilist, 'pophelp(''pop_chanedit'')', 'Look up channel locations?', userdatatmp, 'normal', [4 1 1 1] );
+ if ~isempty(res)
+ chaninfo.filename = res{2};
+ args{ curfield } = 'lookup';
+ args{ curfield+1 } = res{2};
+ com = args;
+ else
+ return;
+ end
+ end
+ else
+ chaninfo.filename = args{ curfield+1 };
+ end
+ if strcmpi(chaninfo.filename, 'standard-10-5-cap385.elp')
+ dipfitdefs;
+ chaninfo.filename = template_models(1).chanfile;
+ elseif strcmpi(chaninfo.filename, 'standard_1005.elc')
+ dipfitdefs;
+ chaninfo.filename = template_models(2).chanfile;
+ elseif strcmpi(chaninfo.filename, 'standard_1005.ced')
+ dipfitdefs;
+ chaninfo.filename = template_models(2).chanfile;
+ end
+ tmplocs = readlocs( chaninfo.filename, 'defaultelp', 'BESA' );
+ for indexchan = 1:length(chans)
+ if isempty(chans(indexchan).labels), chans(indexchan).labels = ''; end
+ end
+ [tmp ind1 ind2] = intersect_bc(lower({ tmplocs.labels }), lower({ chans.labels }));
+ if ~isempty(tmp)
+ chans = struct('labels', { chans.labels }, 'datachan', { chans.datachan }, 'type', { chans.type });
+ [ind2 ind3] = sort(ind2);
+ ind1 = ind1(ind3);
+
+ for index = 1:length(ind2)
+ chans(ind2(index)).theta = tmplocs(ind1(index)).theta;
+ chans(ind2(index)).radius = tmplocs(ind1(index)).radius;
+ chans(ind2(index)).X = tmplocs(ind1(index)).X;
+ chans(ind2(index)).Y = tmplocs(ind1(index)).Y;
+ chans(ind2(index)).Z = tmplocs(ind1(index)).Z;
+ chans(ind2(index)).sph_theta = tmplocs(ind1(index)).sph_theta;
+ chans(ind2(index)).sph_phi = tmplocs(ind1(index)).sph_phi;
+ chans(ind2(index)).sph_radius = tmplocs(ind1(index)).sph_radius;
+ end
+ if isfield(tmplocs, 'type')
+ for index = 1:length(ind2)
+ chans(ind2(index)).type = tmplocs(ind1(index)).type;
+ end
+ end
+
+ tmpdiff = setdiff_bc([1:length(chans)], ind2);
+ if ~isempty(tmpdiff)
+ fprintf('Channel lookup: no location for ');
+ for index = 1:(length(tmpdiff)-1)
+ fprintf('%s,', chans(tmpdiff(index)).labels);
+ end
+ fprintf('%s\nSend us standard location for your channels at eeglab@sccn.ucsd.edu\n', ...
+ chans(tmpdiff(end)).labels);
+ end
+ if ~isfield(chans, 'type'), chans(1).type = []; end
+ end
+ if ~isempty(findstr(args{ curfield+1 }, 'standard_10')) && ...
+ ~isempty(findstr(args{ curfield+1 }, '.elc'))
+ chaninfo.nosedir = '+Y';
+ else
+ chaninfo.nosedir = '+X';
+ end
+ if flag_replurchan, urchans = eeg_checkchanlocs(chans, chaninfo); end
+ for index = 1:length(chans)
+ chans(index).urchan = index;
+ chans(index).ref = '';
+ end
+ end
+ end
+
+end
+
+% call from a figure
+% ------------------
+if ~isempty(fig)
+ userdata.chans = chans;
+ userdata.chaninfo = chaninfo;
+ userdata.commands = { userdata.commands{:} args{:} };
+ userdata.urchans = urchans;
+ set(fig, 'userdata', userdata);
+
+ set(findobj(fig, 'tag', 'chaneditnumval'), 'string', num2str(currentpos));
+ set(findobj(fig, 'tag', 'chaneditscantitle'), 'string', ['Channel number (of ' int2str(length(chans)) ')']);
+
+ % update GUI with current channel info
+ allfields = fieldnames(chans);
+ if ~isempty(chans)
+ for index = 1:length(allfields)
+ obj = findobj(fig, 'tag', [ 'chanedit' allfields{index}]);
+ if strcmpi(allfields{index}, 'datachan')
+ set(obj, 'value', getfield(chans(currentpos), allfields{index}));
+ else
+ tmpval = getfield(chans(currentpos), allfields{index});
+ if ischar(tmpval) && strcmpi(tmpval, '[]'), tmpval = ''; end
+ set(obj, 'string', num2str(tmpval));
+ end
+ end
+ else
+ for index = 1:length(allfields)
+ obj = findobj(fig, 'tag', [ 'chanedit' allfields{index}]);
+ if strcmpi(allfields{index}, 'datachan')
+ set(obj, 'value', 0);
+ else
+ set(obj, 'string', '');
+ end
+ end
+ end
+else
+ [chans chaninfo] = eeg_checkchanlocs(chans, chaninfo);
+ if dataset_input,
+ if nchansori == length(chans)
+ for index = 1:length(EEG)
+ EEG(index).chanlocs = chans;
+ EEG(index).chaninfo = chaninfo;
+ end
+ % Updating urchanlocs
+ if flag_replurchan && ~isempty(urchans), EEG.urchanlocs = urchans; end
+ EEG = eeg_checkset(EEG); % for channel orientation
+ else
+ disp('Channel structure size not consistent with the data so changes will be ignored');
+ disp('Use the function pop_select(EEG, ''nochannel'', [x]); if you wish the remove data channels');
+ end
+ try chansout = EEG; catch, end
+ else chansout = chans;
+ end
+end
+
+return;
+
+% format the output field
+% -----------------------
+function strval = reformat( val )
+if isnumeric(val) && isempty(val), val = '[]'; end
+if ischar(val), strval = [ '''' val '''' ];
+else strval = num2str(val);
+end
+
+% extract text using tokens (not used)
+% ------------------------------------
+function txt = inserttxt( txt, tokins, tokfind);
+locfind = findstr(txt, tokfind);
+for index = length(locfind):-1:1
+ txt = [txt(1:locfind(index)-1) tokins txt(locfind(index):end)];
+end
+
+% ask for confirmation
+% --------------------
+function num = popask( text )
+ButtonName=questdlg2( text, ...
+ 'Confirmation', 'Cancel', 'Yes','Yes');
+switch lower(ButtonName),
+ case 'cancel', num = 0;
+ case 'yes', num = 1;
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/readlocs.m b/Studio V1/Functions/EEGLAB/Scalp/readlocs.m
new file mode 100755
index 00000000..be8bb5b7
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/readlocs.m
@@ -0,0 +1,710 @@
+% readlocs() - read electrode location coordinates and other information from a file.
+% Several standard file formats are supported. Users may also specify
+% a custom column format. Defined format examples are given below
+% (see File Formats).
+% Usage:
+% >> eloc = readlocs( filename );
+% >> EEG.chanlocs = readlocs( filename, 'key', 'val', ... );
+% >> [eloc, labels, theta, radius, indices] = ...
+% readlocs( filename, 'key', 'val', ... );
+% Inputs:
+% filename - Name of the file containing the electrode locations
+% {default: 2-D polar coordinates} (see >> help topoplot )
+%
+% Optional inputs:
+% 'filetype' - ['loc'|'sph'|'sfp'|'xyz'|'asc'|'polhemus'|'besa'|'chanedit'|'custom']
+% Type of the file to read. By default the file type is determined
+% using the file extension (see below under File Formats),
+% 'loc' an EEGLAB 2-D polar coordinates channel locations file
+% Coordinates are theta and radius (see definitions below).
+% 'sph' Matlab spherical coordinates (Note: spherical
+% coordinates used by Matlab functions are different
+% from spherical coordinates used by BESA - see below).
+% 'sfp' EGI Cartesian coordinates (NOT Matlab Cartesian - see below).
+% 'xyz' Matlab/EEGLAB Cartesian coordinates (NOT EGI Cartesian).
+% z is toward nose; y is toward left ear; z is toward vertex
+% 'asc' Neuroscan polar coordinates.
+% 'polhemus' or 'polhemusx' - Polhemus electrode location file recorded
+% with 'X' on sensor pointing to subject (see below and readelp()).
+% 'polhemusy' - Polhemus electrode location file recorded with
+% 'Y' on sensor pointing to subject (see below and readelp()).
+% 'besa' BESA-'.elp' spherical coordinates. (Not MATLAB spherical -
+% see below).
+% 'chanedit' - EEGLAB channel location file created by pop_chanedit().
+% 'custom' - Ascii file with columns in user-defined 'format' (see below).
+% 'importmode' - ['eeglab'|'native'] for location files containing 3-D cartesian electrode
+% coordinates, import either in EEGLAB format (nose pointing toward +X).
+% This may not always be possible since EEGLAB might not be able to
+% determine the nose direction for scanned electrode files. 'native' import
+% original carthesian coordinates (user can then specify the position of
+% the nose when calling the topoplot() function; in EEGLAB the position
+% of the nose is stored in the EEG.chaninfo structure). {default 'eeglab'}
+% 'format' - [cell array] Format of a 'custom' channel location file (see above).
+% {default: if no file type is defined. The cell array contains
+% labels defining the meaning of each column of the input file.
+% 'channum' [positive integer] channel number.
+% 'labels' [string] channel name (no spaces).
+% 'theta' [real degrees] 2-D angle in polar coordinates.
+% positive => rotating from nose (0) toward left ear
+% 'radius' [real] radius for 2-D polar coords; 0.5 is the head
+% disk radius and limit for topoplot() plotting).
+% 'X' [real] Matlab-Cartesian X coordinate (to nose).
+% 'Y' [real] Matlab-Cartesian Y coordinate (to left ear).
+% 'Z' [real] Matlab-Cartesian Z coordinate (to vertex).
+% '-X','-Y','-Z' Matlab-Cartesian coordinates pointing opposite
+% to the above.
+% 'sph_theta' [real degrees] Matlab spherical horizontal angle.
+% positive => rotating from nose (0) toward left ear.
+% 'sph_phi' [real degrees] Matlab spherical elevation angle.
+% positive => rotating from horizontal (0) upwards.
+% 'sph_radius' [real] distance from head center (unused).
+% 'sph_phi_besa' [real degrees] BESA phi angle from vertical.
+% positive => rotating from vertex (0) towards right ear.
+% 'sph_theta_besa' [real degrees] BESA theta horiz/azimuthal angle.
+% positive => rotating from right ear (0) toward nose.
+% 'ignore' ignore column}.
+% The input file may also contain other channel information fields.
+% 'type' channel type: 'EEG', 'MEG', 'EMG', 'ECG', others ...
+% 'calib' [real near 1.0] channel calibration value.
+% 'gain' [real > 1] channel gain.
+% 'custom1' custom field #1.
+% 'custom2', 'custom3', 'custom4', etc. more custom fields
+% 'skiplines' - [integer] Number of header lines to skip (in 'custom' file types only).
+% Note: Characters on a line following '%' will be treated as comments.
+% 'readchans' - [integer array] indices of electrodes to read. {default: all}
+% 'center' - [(1,3) real array or 'auto'] center of xyz coordinates for conversion
+% to spherical or polar, Specify the center of the sphere here, or 'auto'.
+% This uses the center of the sphere that best fits all the electrode
+% locations read. {default: [0 0 0]}. [Deprecated]
+% Outputs:
+% eloc - structure containing the channel names and locations (if present).
+% It has three fields: 'eloc.labels', 'eloc.theta' and 'eloc.radius'
+% identical in meaning to the EEGLAB struct 'EEG.chanlocs'.
+% labels - cell array of strings giving the names of the electrodes. NOTE: Unlike the
+% three outputs below, includes labels of channels *without* location info.
+% theta - vector (in degrees) of polar angles of the electrode locations.
+% radius - vector of polar-coordinate radii (arc_lengths) of the electrode locations
+% indices - indices, k, of channels with non-empty 'locs(k).theta' coordinate
+%
+% File formats:
+% If 'filetype' is unspecified, the file extension determines its type.
+%
+% '.loc' or '.locs' or '.eloc':
+% polar coordinates. Notes: angles in degrees:
+% right ear is 90; left ear -90; head disk radius is 0.5.
+% Fields: N angle radius label
+% Sample: 1 -18 .511 Fp1
+% 2 18 .511 Fp2
+% 3 -90 .256 C3
+% 4 90 .256 C4
+% ...
+% Note: In previous releases, channel labels had to contain exactly
+% four characters (spaces replaced by '.'). This format still works,
+% though dots are no longer required.
+% '.sph':
+% Matlab spherical coordinates. Notes: theta is the azimuthal/horizontal angle
+% in deg.: 0 is toward nose, 90 rotated to left ear. Following this, performs
+% the elevation (phi). Angles in degrees.
+% Fields: N theta phi label
+% Sample: 1 18 -2 Fp1
+% 2 -18 -2 Fp2
+% 3 90 44 C3
+% 4 -90 44 C4
+% ...
+% '.elc':
+% Cartesian 3-D electrode coordinates scanned using the EETrak software.
+% See readeetraklocs().
+% '.elp':
+% Polhemus-.'elp' Cartesian coordinates. By default, an .elp extension is read
+% as PolhemusX-elp in which 'X' on the Polhemus sensor is pointed toward the
+% subject. Polhemus files are not in columnar format (see readelp()).
+% '.elp':
+% BESA-'.elp' spherical coordinates: Need to specify 'filetype','besa'.
+% The elevation angle (phi) is measured from the vertical axis. Positive
+% rotation is toward right ear. Next, perform azimuthal/horizontal rotation
+% (theta): 0 is toward right ear; 90 is toward nose, -90 toward occiput.
+% Angles are in degrees. If labels are absent or weights are given in
+% a last column, readlocs() adjusts for this. Default labels are E1, E2, ...
+% Fields: Type label phi theta
+% Sample: EEG Fp1 -92 -72
+% EEG Fp2 92 72
+% EEG C3 -46 0
+% EEG C4 46 0
+% ...
+% '.xyz':
+% Matlab/EEGLAB Cartesian coordinates. Here. x is towards the nose,
+% y is towards the left ear, and z towards the vertex. Note that the first
+% column (x) is -Y in a Matlab 3-D plot, the second column (y) is X in a
+% matlab 3-D plot, and the third column (z) is Z.
+% Fields: channum x y z label
+% Sample: 1 .950 .308 -.035 Fp1
+% 2 .950 -.308 -.035 Fp2
+% 3 0 .719 .695 C3
+% 4 0 -.719 .695 C4
+% ...
+% '.asc', '.dat':
+% Neuroscan-.'asc' or '.dat' Cartesian polar coordinates text file.
+% '.mat':
+% Brainstrom channel location file.
+% '.sfp':
+% BESA/EGI-xyz Cartesian coordinates. Notes: For EGI, x is toward right ear,
+% y is toward the nose, z is toward the vertex. EEGLAB converts EGI
+% Cartesian coordinates to Matlab/EEGLAB xyz coordinates.
+% Fields: label x y z
+% Sample: Fp1 -.308 .950 -.035
+% Fp2 .308 .950 -.035
+% C3 -.719 0 .695
+% C4 .719 0 .695
+% ...
+% '.ced':
+% ASCII file saved by pop_chanedit(). Contains multiple MATLAB/EEGLAB formats.
+% Cartesian coordinates are as in the 'xyz' format (above).
+% Fields: channum label theta radius x y z sph_theta sph_phi ...
+% Sample: 1 Fp1 -18 .511 .950 .308 -.035 18 -2 ...
+% 2 Fp2 18 .511 .950 -.308 -.035 -18 -2 ...
+% 3 C3 -90 .256 0 .719 .695 90 44 ...
+% 4 C4 90 .256 0 -.719 .695 -90 44 ...
+% ...
+% The last columns of the file may contain any other defined fields (gain,
+% calib, type, custom).
+%
+% Fieldtrip structure:
+% If a Fieltrip structure is given as input, an EEGLAB
+% chanlocs structure is returned
+% Brainstrom Matlab file:
+% If a Brainstrom Matlab file is given as input, an EEGLAB
+% chanlocs structure is returned
+%
+% Author: Arnaud Delorme, Salk Institute, 8 Dec 2002
+%
+% See also: readelp(), writelocs(), topo2sph(), sph2topo(), sph2cart()
+
+% Copyright (C) Arnaud Delorme, CNL / Salk Institute, 28 Feb 2002
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+
+function [eloc, labels, theta, radius, indices] = readlocs( filename, varargin );
+
+if nargin < 1
+ help readlocs;
+ return;
+end
+
+% NOTE: To add a new channel format:
+% ----------------------------------
+% 1) Add a new element to the structure 'chanformat' (see 'ADD NEW FORMATS HERE' below):
+% 2) Enter a format 'type' for the new file format,
+% 3) Enter a (short) 'typestring' description of the format
+% 4) Enter a longer format 'description' (possibly multiline, see ex. (1) below)
+% 5) Enter format file column labels in the 'importformat' field (see ex. (2) below)
+% 6) Enter the number of header lines to skip (if any) in the 'skipline' field
+% 7) Document the new channel format in the help message above.
+% 8) After testing, please send the new version of readloca.m to us
+% at eeglab@sccn.ucsd.edu with a sample locs file.
+% The 'chanformat' structure is also used (automatically) by the writelocs()
+% and pop_readlocs() functions. You do not need to edit these functions.
+
+chanformat(1).type = 'polhemus';
+chanformat(1).typestring = 'Polhemus native .elp file';
+chanformat(1).description = [ 'Polhemus native coordinate file containing scanned electrode positions. ' ...
+ 'User must select the direction ' ...
+ 'for the nose after importing the data file.' ];
+chanformat(1).importformat = 'readelp() function';
+% ---------------------------------------------------------------------------------------------------
+chanformat(2).type = 'besa';
+chanformat(2).typestring = 'BESA spherical .elp file';
+chanformat(2).description = [ 'BESA spherical coordinate file. Note that BESA spherical coordinates ' ...
+ 'are different from Matlab spherical coordinates' ];
+chanformat(2).skipline = 0; % some BESA files do not have headers
+chanformat(2).importformat = { 'type' 'labels' 'sph_theta_besa' 'sph_phi_besa' 'sph_radius' };
+% ---------------------------------------------------------------------------------------------------
+chanformat(3).type = 'xyz';
+chanformat(3).typestring = 'Matlab .xyz file';
+chanformat(3).description = [ 'Standard 3-D cartesian coordinate files with electrode numbers in ' ...
+ 'the first column and X, Y, and Z coordinates in columns 2, 3, and 4' ...
+ ' and channel labels in column 5' ];
+chanformat(3).importformat = { 'channum' '-Y' 'X' 'Z' 'labels'};
+% ---------------------------------------------------------------------------------------------------
+chanformat(4).type = 'sfp';
+chanformat(4).typestring = 'BESA or EGI 3-D cartesian .sfp file';
+chanformat(4).description = [ 'Standard BESA 3-D cartesian coordinate files with electrode labels in ' ...
+ 'the first column and X, Y, and Z coordinates in columns 2, 3, and 4.' ...
+ 'Coordinates are re-oriented to fit the EEGLAB standard of having the ' ...
+ 'nose along the +X axis.' ];
+chanformat(4).importformat = { 'labels' '-Y' 'X' 'Z' };
+chanformat(4).skipline = 0;
+% ---------------------------------------------------------------------------------------------------
+chanformat(5).type = 'loc';
+chanformat(5).typestring = 'EEGLAB polar .loc file';
+chanformat(5).description = [ 'EEGLAB polar .loc file' ];
+chanformat(5).importformat = { 'channum' 'theta' 'radius' 'labels' };
+% ---------------------------------------------------------------------------------------------------
+chanformat(6).type = 'sph';
+chanformat(6).typestring = 'Matlab .sph spherical file';
+chanformat(6).description = [ 'Standard 3-D spherical coordinate files in Matlab format' ];
+chanformat(6).importformat = { 'channum' 'sph_theta' 'sph_phi' 'labels' };
+% ---------------------------------------------------------------------------------------------------
+chanformat(7).type = 'asc';
+chanformat(7).typestring = 'Neuroscan polar .asc file';
+chanformat(7).description = [ 'Neuroscan polar .asc file, automatically recentered to fit EEGLAB standard' ...
+ 'of having ''Cz'' at (0,0).' ];
+chanformat(7).importformat = 'readneurolocs';
+% ---------------------------------------------------------------------------------------------------
+chanformat(8).type = 'dat';
+chanformat(8).typestring = 'Neuroscan 3-D .dat file';
+chanformat(8).description = [ 'Neuroscan 3-D cartesian .dat file. Coordinates are re-oriented to fit ' ...
+ 'the EEGLAB standard of having the nose along the +X axis.' ];
+chanformat(8).importformat = 'readneurolocs';
+% ---------------------------------------------------------------------------------------------------
+chanformat(9).type = 'elc';
+chanformat(9).typestring = 'ASA .elc 3-D file';
+chanformat(9).description = [ 'ASA .elc 3-D coordinate file containing scanned electrode positions. ' ...
+ 'User must select the direction ' ...
+ 'for the nose after importing the data file.' ];
+chanformat(9).importformat = 'readeetraklocs';
+% ---------------------------------------------------------------------------------------------------
+chanformat(10).type = 'chanedit';
+chanformat(10).typestring = 'EEGLAB complete 3-D file';
+chanformat(10).description = [ 'EEGLAB file containing polar, cartesian 3-D, and spherical 3-D ' ...
+ 'electrode locations.' ];
+chanformat(10).importformat = { 'channum' 'labels' 'theta' 'radius' 'X' 'Y' 'Z' 'sph_theta' 'sph_phi' ...
+ 'sph_radius' 'type' };
+chanformat(10).skipline = 1;
+% ---------------------------------------------------------------------------------------------------
+chanformat(11).type = 'tsv';
+chanformat(11).typestring = 'BIDS .tsv file';
+chanformat(11).description = [ 'Standard 3-D cartesian coordinate files with electrode labels in ' ...
+ 'the first column and X, Y, and Z coordinates in columns 2, 3, and 4' ];
+chanformat(11).importformat = { 'labels' 'X' 'Y' 'Z' };
+chanformat(11).skipline = 1;
+% ---------------------------------------------------------------------------------------------------
+chanformat(12).type = 'mat';
+chanformat(12).typestring = 'Brainstorm Matlab file format';
+chanformat(12).description = 'Custom Matlab file.';
+chanformat(12).importformat = '';
+% ---------------------------------------------------------------------------------------------------
+chanformat(13).type = 'custom';
+chanformat(13).typestring = 'Custom file format';
+chanformat(13).description = 'Custom ASCII file format where user can define content for each file columns.';
+chanformat(13).importformat = '';
+% ---------------------------------------------------------------------------------------------------
+% ----- ADD MORE FORMATS HERE -----------------------------------------------------------------------
+% ---------------------------------------------------------------------------------------------------
+
+listcolformat = { 'labels' 'channum' 'theta' 'radius' 'sph_theta' 'sph_phi' ...
+ 'sph_radius' 'sph_theta_besa' 'sph_phi_besa' 'gain' 'calib' 'type' ...
+ 'X' 'Y' 'Z' '-X' '-Y' '-Z' 'custom1' 'custom2' 'custom3' 'custom4' 'ignore' 'not def' };
+
+% ----------------------------------
+% special mode for getting the info
+% ----------------------------------
+if ischar(filename) && strcmp(filename, 'getinfos')
+ eloc = chanformat;
+ labels = listcolformat;
+ return;
+end
+
+g = finputcheck( varargin, ...
+ { 'filetype' 'string' {} '';
+ 'importmode' 'string' { 'eeglab','native' } 'eeglab';
+ 'defaultelp' 'string' { 'besa','polhemus' } 'polhemus';
+ 'skiplines' 'integer' [0 Inf] [];
+ 'elecind' 'integer' [1 Inf] [];
+ 'format' 'cell' [] {} }, 'readlocs');
+if ischar(g), error(g); end
+if ~isempty(g.format), g.filetype = 'custom'; end
+
+if ischar(filename)
+
+ % format auto detection
+ % --------------------
+ if strcmpi(g.filetype, 'autodetect'), g.filetype = ''; end
+ g.filetype = strtok(g.filetype);
+ [~,~,fileextension] = fileparts(filename);
+ fileextension = fileextension(2:end);
+ g.filetype = lower(g.filetype);
+ if isempty(g.filetype)
+ switch lower(fileextension)
+ case {'loc' 'locs' 'eloc'}, g.filetype = 'loc'; % 5/27/2014 Ramon: 'eloc' option introduced.
+ case 'xyz', g.filetype = 'xyz';
+ fprintf( [ 'WARNING: Matlab Cartesian coord. file extension (".xyz") detected.\n' ...
+ 'If importing EGI Cartesian coords, force type "sfp" instead.\n'] );
+ case 'sph', g.filetype = 'sph';
+ case 'ced', g.filetype = 'chanedit';
+ case 'elp', g.filetype = g.defaultelp;
+ case 'asc', g.filetype = 'asc';
+ case 'dat', g.filetype = 'dat';
+ case 'elc', g.filetype = 'elc';
+ case 'eps', g.filetype = 'besa';
+ case 'sfp', g.filetype = 'sfp';
+ case 'tsv', g.filetype = 'tsv';
+ case 'mat', g.filetype = 'mat';
+ otherwise, g.filetype = '';
+ end
+ fprintf('readlocs(): ''%s'' format assumed from file extension\n', g.filetype);
+ else
+ if strcmpi(g.filetype, 'locs'), g.filetype = 'loc'; end
+ if strcmpi(g.filetype, 'eloc'), g.filetype = 'loc'; end
+ end
+
+ % assign format from filetype
+ % ---------------------------
+ if ~isempty(g.filetype) && ~strcmpi(g.filetype, 'custom') ...
+ & ~strcmpi(g.filetype, 'asc') & ~strcmpi(g.filetype, 'elc') & ~strcmpi(g.filetype, 'dat')
+ indexformat = strmatch(lower(g.filetype), { chanformat.type }, 'exact');
+ g.format = chanformat(indexformat).importformat;
+ if isempty(g.skiplines)
+ g.skiplines = chanformat(indexformat).skipline;
+ end
+ if isempty(g.filetype)
+ error( ['readlocs() error: The filetype cannot be detected from the \n' ...
+ ' file extension, and custom format not specified']);
+ end
+ end
+
+ % import file
+ % -----------
+ if strcmp(g.filetype, 'mat')
+ elocBrainstrom = load('-mat', filename );
+ for iChan = 1:length(elocBrainstrom.Channel)
+ eloc(iChan).labels = elocBrainstrom.Channel(iChan).Name;
+ eloc(iChan).X = elocBrainstrom.Channel(iChan).Loc(1);
+ eloc(iChan).Y = elocBrainstrom.Channel(iChan).Loc(2);
+ eloc(iChan).Z = elocBrainstrom.Channel(iChan).Loc(3);
+ eloc(iChan).type = elocBrainstrom.Channel(iChan).Type;
+ end
+ if isfield(elocBrainstrom, 'SCS')
+ chans = { 'NAS' 'LPA' 'RPA' };
+ for iChan = 1:length(chans)
+ if isfield(elocBrainstrom.SCS, chans{iChan})
+ eloc(end+1).labels = chans{iChan};
+ eloc(end).X = elocBrainstrom.SCS.(chans{iChan})(1);
+ eloc(end).Y = elocBrainstrom.SCS.(chans{iChan})(2);
+ eloc(end).Z = elocBrainstrom.SCS.(chans{iChan})(3);
+ eloc(end).type = elocBrainstrom.Channel(iChan).Type;
+ end
+ end
+ end
+ elseif strcmp(g.filetype, 'asc') || strcmp(g.filetype, 'dat')
+ eloc = readneurolocs( filename );
+ eloc = rmfield(eloc, 'sph_theta'); % for the conversion below
+ eloc = rmfield(eloc, 'sph_theta_besa'); % for the conversion below
+ if isfield(eloc, 'type')
+ for index = 1:length(eloc)
+ eloc(index).labels = strtrim(eloc(index).labels);
+ type = eloc(index).type;
+ if type == 69, eloc(index).type = 'EEG';
+ elseif type == 88, eloc(index).type = 'REF';
+ elseif type >= 76 && type <= 82, eloc(index).type = 'FID';
+ else eloc(index).type = num2str(eloc(index).type);
+ end
+ end
+ end
+ elseif strcmp(g.filetype, 'elc')
+ eloc = readeetraklocs( filename );
+ %eloc = read_asa_elc( filename ); % from fieldtrip
+ %eloc = struct('labels', eloc.label, 'X', mattocell(eloc.pnt(:,1)'), 'Y', ...
+ % mattocell(eloc.pnt(:,2)'), 'Z', mattocell(eloc.pnt(:,3)'));
+ eloc = convertlocs(eloc, 'cart2all');
+ eloc = rmfield(eloc, 'sph_theta'); % for the conversion below
+ eloc = rmfield(eloc, 'sph_theta_besa'); % for the conversion below
+ elseif strcmp(lower(g.filetype(1:end-1)), 'polhemus') || ...
+ strcmp(g.filetype, 'polhemus')
+ try,
+ [eloc labels X Y Z]= readelp( filename );
+ if strcmp(g.filetype, 'polhemusy')
+ tmp = X; X = Y; Y = tmp;
+ end
+ for index = 1:length( eloc )
+ eloc(index).X = X(index);
+ eloc(index).Y = Y(index);
+ eloc(index).Z = Z(index);
+ end
+ catch,
+ disp('readlocs(): Could not read Polhemus coords. Trying to read BESA .elp file.');
+ [eloc, labels, theta, radius, indices] = readlocs( filename, 'defaultelp', 'besa', varargin{:} );
+ end
+ else
+ % importing file
+ % --------------
+ if isempty(g.skiplines), g.skiplines = 0; end
+ if strcmpi(g.filetype, 'chanedit')
+ array = loadtxt( filename, 'delim', 9, 'skipline', g.skiplines, 'blankcell', 'off');
+ else
+ array = load_file_or_array( filename, g.skiplines);
+ end
+ if size(array,2) < length(g.format)
+ fprintf(['readlocs() warning: Fewer columns in the input than expected.\n' ...
+ ' See >> help readlocs\n']);
+ elseif size(array,2) > length(g.format)
+ fprintf(['readlocs() warning: More columns in the input than expected.\n' ...
+ ' See >> help readlocs\n']);
+ end
+
+ % removing lines BESA
+ % -------------------
+ if isempty(array{1,2})
+ disp('BESA header detected, skipping three lines...');
+ array = load_file_or_array( filename, g.skiplines-1);
+ if isempty(array{1,2})
+ array = load_file_or_array( filename, g.skiplines-1);
+ end
+ end
+
+ % xyz format, is the first col absent
+ % -----------------------------------
+ if strcmp(g.filetype, 'xyz')
+ if size(array, 2) == 4
+ array(:, 2:5) = array(:, 1:4);
+ end
+ end
+
+ % removing comments and empty lines
+ % ---------------------------------
+ indexbeg = 1;
+ while isempty(array{indexbeg,1}) || ...
+ (ischar(array{indexbeg,1}) && array{indexbeg,1}(1) == '%' )
+ indexbeg = indexbeg+1;
+ end
+ array = array(indexbeg:end,:);
+
+ % converting file
+ % ---------------
+ for indexcol = 1:min(size(array,2), length(g.format))
+ [str, mult] = checkformat(g.format{indexcol});
+ for indexrow = 1:size( array, 1)
+ if mult ~= 1
+ eval ( [ 'eloc(indexrow).' str '= -array{indexrow, indexcol};' ]);
+ else
+ eval ( [ 'eloc(indexrow).' str '= array{indexrow, indexcol};' ]);
+ end
+ end
+ end
+ end
+
+ % handling BESA coordinates
+ % -------------------------
+ if isfield(eloc, 'sph_theta_besa')
+ if isfield(eloc, 'type')
+ if isnumeric(eloc(1).type)
+ disp('BESA format detected ( Theta | Phi )');
+ for index = 1:length(eloc)
+ eloc(index).sph_phi_besa = eloc(index).labels;
+ eloc(index).sph_theta_besa = eloc(index).type;
+ eloc(index).labels = '';
+ eloc(index).type = '';
+ end
+ eloc = rmfield(eloc, 'labels');
+ end
+ end
+ if isfield(eloc, 'labels')
+ if isnumeric(eloc(1).labels)
+ disp('BESA format detected ( Elec | Theta | Phi )');
+ for index = 1:length(eloc)
+ eloc(index).sph_phi_besa = eloc(index).sph_theta_besa;
+ eloc(index).sph_theta_besa = eloc(index).labels;
+ eloc(index).labels = eloc(index).type;
+ eloc(index).type = '';
+ eloc(index).radius = 1;
+ end;
+ end
+ end
+
+ try
+ eloc = convertlocs(eloc, 'sphbesa2all');
+ eloc = convertlocs(eloc, 'topo2all'); % problem with some EGI files (not BESA files)
+ catch, disp('Warning: coordinate conversion failed'); end
+ fprintf('Readlocs: BESA spherical coords. converted, now deleting BESA fields\n');
+ fprintf(' to avoid confusion (these fields can be exported, though)\n');
+ eloc = rmfield(eloc, 'sph_phi_besa');
+ eloc = rmfield(eloc, 'sph_theta_besa');
+
+ % converting XYZ coordinates to polar
+ % -----------------------------------
+ elseif isfield(eloc, 'sph_theta') && any(~cellfun(@isempty, { eloc.sph_theta }))
+ try
+ eloc = convertlocs(eloc, 'sph2all');
+ catch, disp('Warning: coordinate conversion failed'); end
+ elseif isfield(eloc, 'X')
+ try
+ eloc = convertlocs(eloc, 'cart2all');
+ catch, disp('Warning: coordinate conversion failed'); end
+ else
+ try
+ eloc = convertlocs(eloc, 'topo2all');
+ catch, disp('Warning: coordinate conversion failed'); end
+ end
+
+ % inserting labels if no labels
+ % -----------------------------
+ if ~isfield(eloc, 'labels')
+ fprintf('readlocs(): Inserting electrode labels automatically.\n');
+ for index = 1:length(eloc)
+ eloc(index).labels = [ 'E' int2str(index) ];
+ end
+ else
+ % remove trailing '.'
+ for index = 1:length(eloc)
+ if ischar(eloc(index).labels)
+ tmpdots = find( eloc(index).labels == '.' );
+ eloc(index).labels(tmpdots) = [];
+ end
+ end
+ end
+
+ % resorting electrodes if number not-sorted
+ % -----------------------------------------
+ if isfield(eloc, 'channum')
+ if ~isnumeric(eloc(1).channum)
+ error('Channel numbers must be numeric');
+ end
+ allchannum = [ eloc.channum ];
+ if any( sort(allchannum) ~= allchannum )
+ fprintf('readlocs(): Re-sorting channel numbers based on ''channum'' column indices\n');
+ [tmp newindices] = sort(allchannum);
+ eloc = eloc(newindices);
+ end
+ eloc = rmfield(eloc, 'channum');
+ end
+else
+ if isstruct(filename)
+ % detect Fieldtrip structure and convert it
+ % -----------------------------------------
+ if isfield(filename, 'pnt')
+ neweloc = [];
+ for index = 1:length(filename.label)
+ neweloc(index).labels = filename.label{index};
+ neweloc(index).X = filename.pnt(index,1);
+ neweloc(index).Y = filename.pnt(index,2);
+ neweloc(index).Z = filename.pnt(index,3);
+ end
+ eloc = neweloc;
+ eloc = convertlocs(eloc, 'cart2all');
+ else
+ eloc = filename;
+ end
+ else
+ disp('readlocs(): input variable must be a string or a structure');
+ end;
+end
+if ~isempty(g.elecind)
+ eloc = eloc(g.elecind);
+end
+if nargout > 2
+ if isfield(eloc, 'theta')
+ tmptheta = { eloc.theta }; % check which channels have (polar) coordinates set
+ else tmptheta = cell(1,length(eloc));
+ end
+ if isfield(eloc, 'theta')
+ tmpx = { eloc.X }; % check which channels have (polar) coordinates set
+ else tmpx = cell(1,length(eloc));
+ end
+
+ indices = find(~cellfun('isempty', tmptheta));
+ indices = intersect_bc(find(~cellfun('isempty', tmpx)), indices);
+ indices = sort(indices);
+
+ indbad = setdiff_bc(1:length(eloc), indices);
+ tmptheta(indbad) = { NaN };
+ theta = [ tmptheta{:} ];
+end
+if nargout > 3
+ if isfield(eloc, 'theta')
+ tmprad = { eloc.radius }; % check which channels have (polar) coordinates set
+ else tmprad = cell(1,length(eloc));
+ end
+ tmprad(indbad) = { NaN };
+ radius = [ tmprad{:} ];
+end
+
+%tmpnum = find(~cellfun('isclass', { eloc.labels }, 'char'));
+%disp('Converting channel labels to string');
+for index = 1:length(eloc)
+ if ~ischar(eloc(index).labels)
+ eloc(index).labels = int2str(eloc(index).labels);
+ end
+end
+labels = { eloc.labels };
+if isfield(eloc, 'ignore')
+ eloc = rmfield(eloc, 'ignore');
+end
+
+% process fiducials if any
+% ------------------------
+fidnames = { 'nz' 'lpa' 'rpa' 'nasion' 'left' 'right' 'nazion' 'fidnz' 'fidt9' 'fidt10' 'cms' 'drl' 'nas' 'lht' 'rht' 'lhj' 'rhj' };
+for index = 1:length(fidnames)
+ ind = strmatch(fidnames{index}, lower(labels), 'exact');
+ if ~isempty(ind), eloc(ind).type = 'FID'; end
+end
+
+return;
+
+% interpret the variable name
+% ---------------------------
+function array = load_file_or_array( varname, skiplines );
+ if isempty(skiplines),
+ skiplines = 0;
+ end
+ if exist( varname ) == 2
+ array = loadtxt(varname,'verbose','off','skipline',skiplines,'blankcell','off');
+ else % variable in the global workspace
+ % --------------------------
+ try, array = evalin('base', varname);
+ catch, error('readlocs(): cannot find the named file or variable, check syntax');
+ end
+ end;
+return;
+
+% check field format
+% ------------------
+function [str, mult] = checkformat(str)
+ mult = 1;
+ if strcmpi(str, 'labels'), str = lower(str); return; end
+ if strcmpi(str, 'channum'), str = lower(str); return; end
+ if strcmpi(str, 'theta'), str = lower(str); return; end
+ if strcmpi(str, 'radius'), str = lower(str); return; end
+ if strcmpi(str, 'ignore'), str = lower(str); return; end
+ if strcmpi(str, 'sph_theta'), str = lower(str); return; end
+ if strcmpi(str, 'sph_phi'), str = lower(str); return; end
+ if strcmpi(str, 'sph_radius'), str = lower(str); return; end
+ if strcmpi(str, 'sph_theta_besa'), str = lower(str); return; end
+ if strcmpi(str, 'sph_phi_besa'), str = lower(str); return; end
+ if strcmpi(str, 'gain'), str = lower(str); return; end
+ if strcmpi(str, 'calib'), str = lower(str); return; end
+ if strcmpi(str, 'type') , str = lower(str); return; end
+ if strcmpi(str, 'X'), str = upper(str); return; end
+ if strcmpi(str, 'Y'), str = upper(str); return; end
+ if strcmpi(str, 'Z'), str = upper(str); return; end
+ if strcmpi(str, '-X'), str = upper(str(2:end)); mult = -1; return; end
+ if strcmpi(str, '-Y'), str = upper(str(2:end)); mult = -1; return; end
+ if strcmpi(str, '-Z'), str = upper(str(2:end)); mult = -1; return; end
+ if strcmpi(str, 'custom1'), return; end
+ if strcmpi(str, 'custom2'), return; end
+ if strcmpi(str, 'custom3'), return; end
+ if strcmpi(str, 'custom4'), return; end
+ error(['readlocs(): undefined field ''' str '''']);
+
\ No newline at end of file
diff --git a/Studio V1/Functions/EEGLAB/Scalp/setdiff_bc.m b/Studio V1/Functions/EEGLAB/Scalp/setdiff_bc.m
new file mode 100755
index 00000000..ded42e8d
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/setdiff_bc.m
@@ -0,0 +1,56 @@
+% setdiff_bc - setdiff backward compatible with Matlab versions prior to 2013a
+
+% Copyright (C) 2013 Arnaud Delorme
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [C,IA] = setdiff_bc(A,B,varargin)
+
+errorFlag = error_bc;
+
+v = version;
+indp = find(v == '.');
+v = str2num(v(1:indp(2)-1));
+if v > 7.19, v = floor(v) + rem(v,1)/10; end
+
+if nargin > 2
+ ind = strmatch('legacy', varargin);
+ if ~isempty(ind)
+ varargin(ind) = [];
+ end
+end
+
+if v >= 7.14
+ [C,IA] = setdiff(A,B,varargin{:},'legacy');
+ if errorFlag
+ [C2,IA2] = setdiff(A,B,varargin{:});
+ if (~isequal(C, C2) || ~isequal(IA, IA2))
+ warning('backward compatibility issue with call to setdiff function');
+ end
+ end
+else
+ [C,IA] = setdiff(A,B,varargin{:});
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/sph2topo.m b/Studio V1/Functions/EEGLAB/Scalp/sph2topo.m
new file mode 100755
index 00000000..b32e46cf
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/sph2topo.m
@@ -0,0 +1,105 @@
+% sph2topo() - Convert from a 3-column headplot file in spherical coordinates
+% to 3-column topoplot() locs file in polar (not cylindrical) coords.
+% Used for topoplot() and other 2-D topographic plotting programs.
+% Assumes a spherical coordinate system in which horizontal angles
+% have a range [-180,180] deg, with zero pointing to the right ear.
+% In the output polar coordinate system, zero points to the nose.
+% See >> help readlocs
+% Usage:
+% >> [chan_num,angle,radius] = sph2topo(input,shrink_factor,method);
+%
+% Inputs:
+% input = [channo,az,horiz] = chan_number, azumith (deg), horiz. angle (deg)
+% When az>0, horiz=0 -> right ear, 90 -> nose
+% When az<0, horiz=0 -> left ear, -90 -> nose
+% shrink_factor = arc_length shrinking factor>=1 (deprecated).
+% 1 -> plot edge is 90 deg azimuth {default};
+% 1.5 -> plot edge is +/-135 deg azimuth See
+% >> help topoplot().
+% method = [1|2], optional. 1 is for Besa compatibility, 2 is for
+% compatibility with Matlab function cart2sph(). Default is 2
+%
+% Outputs:
+% channo = channel number (as in input)
+% angle = horizontal angle (0 -> nose; 90 -> right ear; -90 -> left ear)
+% radius = arc_lengrh from vertex (Note: 90 deg az -> 0.5/shrink_factor);
+% By topoplot() convention, radius=0.5 is the nasion-ear_canal plane.
+% Use topoplot() 'plotrad' to plot chans with abs(az) > 90 deg.
+%
+% Author: Scott Makeig & Arnaud Delorme, SCCN/INC/UCSD, La Jolla, 6/12/98
+%
+% See also: cart2topo(), topo2sph()
+
+% Copyright (C) 6/12/98 Scott Makeig, SCCN/INC/UCSD, scott@sccn.ucsd.edu
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% corrected left/right orientation mismatch, Blair Hicks 6/20/98
+% changed name sph2pol() -> sph2topo() for compatibility -sm
+% 01-25-02 reformated help & license -ad
+% 01-25-02 changed computation so that it works with sph2topo -ad
+
+function [channo,angle,radius] = sph2topo(input,factor, method)
+
+chans = size(input,1);
+angle = zeros(chans,1);
+radius = zeros(chans,1);
+
+if nargin < 1
+ help sph2topo
+ return
+end
+
+if nargin< 2
+ factor = 0;
+end
+if factor==0
+ factor = 1;
+end
+if factor < 1
+ help sph2topo
+ return
+end
+
+if size(input,2) ~= 3
+ help sph2topo
+ return
+end
+
+channo = input(:,1);
+az = input(:,2);
+horiz = input(:,3);
+
+if exist('method')== 1 && method == 1
+ radius = abs(az/180)/factor;
+ i = find(az>=0);
+ angle(i) = 90-horiz(i);
+ i = find(az<0);
+ angle(i) = -90-horiz(i);
+else
+ angle = -horiz;
+ radius = 0.5 - az/180;
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/topoplot.m b/Studio V1/Functions/EEGLAB/Scalp/topoplot.m
new file mode 100755
index 00000000..e6ef4da2
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/topoplot.m
@@ -0,0 +1,1728 @@
+% topoplot() - plot a topographic map of a scalp data field in a 2-D circular view
+% (looking down at the top of the head) using interpolation on a fine
+% cartesian grid. Can also show specified channel location(s), or return
+% an interpolated value at an arbitrary scalp location (see 'noplot').
+% By default, channel locations below head center (arc_length 0.5) are
+% shown in a 'skirt' outside the cartoon head (see 'plotrad' and 'headrad'
+% options below). Nose is at top of plot; left is left; right is right.
+% Using option 'plotgrid', the plot may be one or more rectangular grids.
+% Usage:
+% >> topoplot(datavector, EEG.chanlocs); % plot a map using an EEG chanlocs structure
+% >> topoplot(datavector, 'my_chan.locs'); % read a channel locations file and plot a map
+% >> topoplot('example'); % give an example of an electrode location file
+% >> [h grid_or_val plotrad_or_grid, xmesh, ymesh]= ...
+% topoplot(datavector, chan_locs, 'Input1','Value1', ...);
+% Required Inputs:
+% datavector - single vector of channel values. Else, if a vector of selected subset
+% (int) channel numbers -> mark their location(s) using 'style' 'blank'.
+% chan_locs - name of an EEG electrode position file (>> topoplot example).
+% Else, an EEG.chanlocs structure (>> help readlocs or >> topoplot example)
+% Optional inputs:
+% 'maplimits' - 'absmax' -> scale map colors to +/- the absolute-max (makes green 0);
+% 'maxmin' -> scale colors to the data range (makes green mid-range);
+% [lo.hi] -> use user-definined lo/hi limits
+% {default: 'absmax'}
+% 'style' - 'map' -> plot colored map only
+% 'contour' -> plot contour lines only
+% 'both' -> plot both colored map and contour lines
+% 'fill' -> plot constant color between contour lines
+% 'blank' -> plot electrode locations only {default: 'both'}
+% 'electrodes' - 'on','off','labels','numbers','ptslabels','ptsnumbers'. To set the 'pts'
+% marker,,see 'Plot detail options' below. {default: 'on' -> mark electrode
+% locations with points ('.') unless more than 64 channels, then 'off'}.
+% 'plotchans' - [vector] channel numbers (indices) to use in making the head plot.
+% {default: [] -> plot all chans}
+% 'plotgrid' - [channels] Plot channel data in one or more rectangular grids, as
+% specified by [channels], a position matrix of channel numbers defining
+% the topographic locations of the channels in the
+% grid. Zero values are ignored (given the figure background color);
+% negative integers, the color of the polarity-reversed channel values.
+% Ex: >> figure; ...
+% >> topoplot(values,'chanlocs','plotgrid',[11 12 0; 13 14 15]);
+% % Plot a (2,3) grid of data values from channels 11-15 with one empty
+% grid cell (top right) {default: no grid plot}
+% 'nosedir' - ['+X'|'-X'|'+Y'|'-Y'] direction of nose {default: '+X'}
+% 'chaninfo' - [struct] optional structure containing fields 'nosedir', 'plotrad'.
+% See these (separate) field definitions above, below.
+% {default: nosedir +X, plotrad 0.5, all channels}
+% 'plotrad' - [0.15<=float<=1.0] plotting radius = max channel arc_length to plot.
+% See >> topoplot example. If plotrad > 0.5, chans with arc_length > 0.5
+% (i.e. below ears-eyes) are plotted in a circular 'skirt' outside the
+% cartoon head. See 'intrad' below. {default: max(max(chanlocs.radius),0.5);
+% If the chanlocs structure includes a field chanlocs.plotrad, its value
+% is used by default}.
+% 'headrad' - [0.15<=float<=1.0] drawing radius (arc_length) for the cartoon head.
+% NOTE: Only headrad = 0.5 is anatomically correct! 0 -> don't draw head;
+% 'rim' -> show cartoon head at outer edge of the plot {default: 0.5}
+% 'intrad' - [0.15<=float<=1.0] radius of the scalp map interpolation area (square or
+% disk, see 'intsquare' below). Interpolate electrodes in this area and use
+% this limit to define boundaries of the scalp map interpolated data matrix
+% {default: max channel location radius}
+% 'intsquare' - ['on'|'off'] 'on' -> Interpolate values at electrodes located in the whole
+% square containing the (radius intrad) interpolation disk; 'off' -> Interpolate
+% values from electrodes shown in the interpolation disk only {default: 'on'}.
+% 'conv' - ['on'|'off'] Show map interpolation only out to the convext hull of
+% the electrode locations to minimize extrapolation. Use this option ['on'] when
+% plotting pvalues {default: 'off'}. When plotting pvalues in totoplot, set
+% 'conv' option to 'on' to minimize interpolation effects
+% 'noplot' - ['on'|'off'|[rad theta]] do not plot (but return interpolated data).
+% Else, if [rad theta] are coordinates of a (possibly missing) channel,
+% returns interpolated value for channel location. For more info,
+% see >> topoplot 'example' {default: 'off'}
+% 'verbose' - ['on'|'off'] comment on operations on command line {default: 'on'}.
+% 'chantype' - deprecated
+%
+% Plot detail options:
+% 'drawaxis' - ['on'|'off'] draw axis on the top left corner.
+% 'emarker' - Matlab marker char | {markerchar color size linewidth} char, else cell array
+% specifying the electrode 'pts' marker. Ex: {'s','r',32,1} -> 32-point solid
+% red square. {default: {'.','k',[],1} where marker size ([]) depends on the number
+% of channels plotted}.
+% 'emarker2' - {markchans}|{markchans marker color size linewidth} cell array specifying
+% an alternate marker for specified 'plotchans'. Ex: {[3 17],'s','g'}
+% {default: none, or if {markchans} only are specified, then {markchans,'o','r',10,1}}
+% 'hcolor' - color of the cartoon head. Use 'hcolor','none' to plot no head. {default: 'k' = black}
+% 'shading' - 'flat','interp' {default: 'flat'}
+% 'numcontour' - number of contour lines {default: 6}. You may also enter a vector to set contours
+% at specified values.
+% 'contourvals' - values for contour {default: same as input values}
+% 'pmask' - values for masking topoplot. Array of zeros and 1 of the same size as the input
+% value array {default: []}
+% 'color' - color of the contours {default: dark grey}
+% 'whitebk ' - ('on'|'off') make the background color white (e.g., to print empty plotgrid channels)
+% {default: 'off'}
+% 'gridscale' - [int > 32] size (nrows) of interpolated scalp map data matrix {default: 67}
+% 'colormap' - (n,3) any size colormap {default: existing colormap}
+% 'circgrid' - [int > 100] number of elements (angles) in head and border circles {201}
+% 'emarkercolor' - cell array of colors for 'blank' option.
+% 'plotdisk' - ['on'|'off'] plot disk instead of dots for electrodefor 'blank' option. Size of disk
+% is controlled by input values at each electrode. If an imaginary value is provided,
+% plot partial circle with red for the real value and blue for the imaginary one.
+%
+% Dipole plotting options:
+% 'dipole' - [xi yi xe ye ze] plot dipole on the top of the scalp map
+% from coordinate (xi,yi) to coordinates (xe,ye,ze) (dipole head
+% model has radius 1). If several rows, plot one dipole per row.
+% Coordinates returned by dipplot() may be used. Can accept
+% an EEG.dipfit.model structure (See >> help dipplot).
+% Ex: ,'dipole',EEG.dipfit.model(17) % Plot dipole(s) for comp. 17.
+% 'dipnorm' - ['on'|'off'] normalize dipole length {default: 'on'}.
+% 'diporient' - [-1|1] invert dipole orientation {default: 1}.
+% 'diplen' - [real] scale dipole length {default: 1}.
+% 'dipscale' - [real] scale dipole size {default: 1}.
+% 'dipsphere' - [real] size of the dipole sphere. {default: 85 mm}.
+% 'dipcolor' - [color] dipole color as Matlab code code or [r g b] vector
+% {default: 'k' = black}.
+% Outputs:
+% handle - handle of the colored surface.If
+% contour only is plotted, then is the handle of
+% the countourgroup. (If no surface or contour is plotted,
+% return "gca", the handle of the current plot)
+% grid_or_val - [matrix] the interpolated data image (with off-head points = NaN).
+% Else, single interpolated value at the specified 'noplot' arg channel
+% location ([rad theta]), if any.
+% plotrad_or_grid - IF grid image returned above, then the 'plotrad' radius of the grid.
+% Else, the grid image
+% xmesh, ymesh - x and y values of the returned grid (above)
+%
+% Chan_locs format:
+% See >> topoplot 'example'
+%
+% Examples:
+%
+% To plot channel locations only:
+% >> figure; topoplot([],EEG.chanlocs,'style','blank','electrodes','labelpoint','chaninfo',EEG.chaninfo);
+%
+% Notes: - To change the plot map masking ring to a new figure background color,
+% >> set(findobj(gca,'type','patch'),'facecolor',get(gcf,'color'))
+% - Topoplots may be rotated. From the commandline >> view([deg 90]) {default: [0 90])
+% - When plotting pvalues make sure to use the option 'conv' to minimize extrapolation effects
+%
+% Authors: Andy Spydell, Colin Humphries, Arnaud Delorme & Scott Makeig
+% CNL / Salk Institute, 8/1996-/10/2001; SCCN/INC/UCSD, Nov. 2001 -
+%
+% See also: timtopo(), envtopo()
+
+% Deprecated options:
+% 'shrink' - ['on'|'off'|'force'|factor] Deprecated. 'on' -> If max channel arc_length
+% > 0.5, shrink electrode coordinates towards vertex to plot all channels
+% by making max arc_length 0.5. 'force' -> Normalize arc_length
+% so the channel max is 0.5. factor -> Apply a specified shrink
+% factor (range (0,1) = shrink fraction). {default: 'off'}
+% 'electcolor' {'k'} ... electrode marking details and their {defaults}.
+% 'emarker' {'.'}|'emarkersize' {14}|'emarkersizemark' {40}|'efontsize' {var} -
+% electrode marking details and their {defaults}.
+% 'ecolor' - color of the electrode markers {default: 'k' = black}
+% 'interplimits' - ['electrodes'|'head'] 'electrodes'-> interpolate the electrode grid;
+% 'head'-> interpolate the whole disk {default: 'head'}.
+
+% Unimplemented future options:
+
+% Copyright (C) Colin Humphries & Scott Makeig, CNL / Salk Institute, Aug, 1996
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+% Topoplot Version 2.1
+% Early development history:
+% Begun by Andy Spydell and Scott Makeig, NHRC, 7-23-96
+% 8-96 Revised by Colin Humphries, CNL / Salk Institute, La Jolla CA
+% -changed surf command to imagesc (faster)
+% -can now handle arbitrary scaling of electrode distances
+% -can now handle non integer angles in chan_locs
+% 4-4-97 Revised again by Colin Humphries, reformatted by SM
+% -added parameters
+% -changed chan_locs format
+% 2-26-98 Revised by Colin
+% -changed image back to surface command
+% -added fill and blank styles
+% -removed extra background colormap entry (now use any colormap)
+% -added parameters for electrode colors and labels
+% -now each topoplot axes use the caxis command again.
+% -removed OUTPUT parameter
+% 3-11-98 changed default emarkersize, improve help msg -sm
+% 5-24-01 made default emarkersize vary with number of channels -sm
+% 01-25-02 reformated help & license, added link -ad
+% 03-15-02 added readlocs and the use of eloc input structure -ad
+% 03-25-02 added 'labelpoint' options and allow Values=[] -ad &sm
+% 03-25-02 added details to "Unknown parameter" warning -sm & ad
+
+function [handle,Zi,grid,Xi,Yi] = topoplot(Values,loc_file,varargin)
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%% Set defaults %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+icadefs % read defaults MAXTOPOPLOTCHANS and DEFAULT_ELOC and BACKCOLOR
+if ~exist('BACKCOLOR') % if icadefs.m does not define BACKCOLOR
+ BACKCOLOR = [.93 .96 1]; % EEGLAB standard
+end
+whitebk = 'off'; % by default, make gridplot background color = EEGLAB screen background color
+
+persistent warningInterp;
+
+plotgrid = 'off';
+plotchans = [];
+noplot = 'off';
+handle = [];
+Zi = [];
+chanval = NaN;
+rmax = 0.5; % actual head radius - Don't change this!
+INTERPLIMITS = 'head'; % head, electrodes
+INTSQUARE = 'on'; % default, interpolate electrodes located though the whole square containing
+ % the plotting disk
+default_intrad = 1; % indicator for (no) specified intrad
+MAPLIMITS = 'absmax'; % absmax, maxmin, [values]
+GRID_SCALE = 67; % plot map on a 67X67 grid
+CIRCGRID = 201; % number of angles to use in drawing circles
+AXHEADFAC = 1.3; % head to axes scaling factor
+CONTOURNUM = 6; % number of contour levels to plot
+STYLE = 'both'; % default 'style': both,straight,fill,contour,blank
+HEADCOLOR = [0 0 0]; % default head color (black)
+CCOLOR = [0.2 0.2 0.2]; % default contour color
+ELECTRODES = []; % default 'electrodes': on|off|label - set below
+MAXDEFAULTSHOWLOCS = 64;% if more channels than this, don't show electrode locations by default
+EMARKER = '.'; % mark electrode locations with small disks
+ECOLOR = [0 0 0]; % default electrode color = black
+EMARKERSIZE = []; % default depends on number of electrodes, set in code
+EMARKERLINEWIDTH = 1; % default edge linewidth for emarkers
+EMARKERSIZE1CHAN = 20; % default selected channel location marker size
+EMARKERCOLOR1CHAN = 'red'; % selected channel location marker color
+EMARKER2CHANS = []; % mark subset of electrode locations with small disks
+EMARKER2 = 'o'; % mark subset of electrode locations with small disks
+EMARKER2COLOR = 'r'; % mark subset of electrode locations with small disks
+EMARKERSIZE2 = 10; % default selected channel location marker size
+EMARKER2LINEWIDTH = 1;
+EFSIZE = get(0,'DefaultAxesFontSize'); % use current default fontsize for electrode labels
+HLINEWIDTH = 2; % default linewidth for head, nose, ears
+BLANKINGRINGWIDTH = .035;% width of the blanking ring
+HEADRINGWIDTH = .007;% width of the cartoon head ring
+SHADING = 'flat'; % default 'shading': flat|interp
+shrinkfactor = []; % shrink mode (dprecated)
+intrad = []; % default interpolation square is to outermost electrode (<=1.0)
+plotrad = []; % plotting radius ([] = auto, based on outermost channel location)
+headrad = []; % default plotting radius for cartoon head is 0.5
+squeezefac = 1.0;
+MINPLOTRAD = 0.15; % can't make a topoplot with smaller plotrad (contours fail)
+VERBOSE = 'off';
+MASKSURF = 'off';
+CONVHULL = 'off'; % dont mask outside the electrodes convex hull
+DRAWAXIS = 'off';
+PLOTDISK = 'off';
+ContourVals = Values;
+PMASKFLAG = 0;
+COLORARRAY = { [1 0 0] [0.5 0 0] [0 0 0] };
+%COLORARRAY2 = { [1 0 0] [0.5 0 0] [0 0 0] };
+gb = [0 0];
+COLORARRAY2 = { [gb 0] [gb 1/4] [gb 2/4] [gb 3/4] [gb 1] };
+
+%%%%%% Dipole defaults %%%%%%%%%%%%
+DIPOLE = [];
+DIPNORM = 'on';
+DIPNORMMAX = 'off';
+DIPSPHERE = 85;
+DIPLEN = 1;
+DIPSCALE = 1;
+DIPORIENT = 1;
+DIPCOLOR = [0 0 0];
+NOSEDIR = '+X';
+CHANINFO = [];
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%
+%%%%%%%%%%%%%%%%%%%%%%% Handle arguments %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if nargin< 1
+ help topoplot;
+ return
+end
+
+% calling topoplot from Fieldtrip
+% -------------------------------
+fieldtrip = 0;
+if nargin < 2, loc_file = []; end
+if isstruct(Values) || ~isstruct(loc_file), fieldtrip == 1; end
+if ischar(loc_file), if exist(loc_file) ~= 2, fieldtrip == 1; end; end
+if fieldtrip
+ error('Wrong calling format, are you trying to use the topoplot Fieldtrip function?');
+end
+
+nargs = nargin;
+if nargs == 1
+ if ischar(Values)
+ if any(strcmp(lower(Values),{'example','demo'}))
+ fprintf(['This is an example of an electrode location file,\n',...
+ 'an ascii file consisting of the following four columns:\n',...
+ ' channel_number degrees arc_length channel_name\n\n',...
+ 'Example:\n',...
+ ' 1 -18 .352 Fp1 \n',...
+ ' 2 18 .352 Fp2 \n',...
+ ' 5 -90 .181 C3 \n',...
+ ' 6 90 .181 C4 \n',...
+ ' 7 -90 .500 A1 \n',...
+ ' 8 90 .500 A2 \n',...
+ ' 9 -142 .231 P3 \n',...
+ '10 142 .231 P4 \n',...
+ '11 0 .181 Fz \n',...
+ '12 0 0 Cz \n',...
+ '13 180 .181 Pz \n\n',...
+ ...
+ 'In topoplot() coordinates, 0 deg. points to the nose, positive\n',...
+ 'angles point to the right hemisphere, and negative to the left.\n',...
+ 'The model head sphere has a circumference of 2; the vertex\n',...
+ '(Cz) has arc_length 0. Locations with arc_length > 0.5 are below\n',...
+ 'head center and are plotted outside the head cartoon.\n',...
+ 'Option plotrad controls how much of this lower-head "skirt" is shown.\n',...
+ 'Option headrad controls if and where the cartoon head will be drawn.\n',...
+ 'Option intrad controls how many channels will be included in the interpolation.\n',...
+ ])
+ return
+ end
+ end
+end
+if nargs < 2
+ loc_file = DEFAULT_ELOC;
+ if ~exist(loc_file)
+ fprintf('default locations file "%s" not found - specify chan_locs in topoplot() call.\n',loc_file)
+ error(' ')
+ end
+end
+if isempty(loc_file)
+ loc_file = 0;
+end
+if isnumeric(loc_file) && loc_file == 0
+ loc_file = DEFAULT_ELOC;
+end
+
+if nargs > 2
+ if ~(round(nargs/2) == nargs/2)
+ error('Odd number of input arguments??')
+ end
+ for i = 1:2:length(varargin)
+ Param = varargin{i};
+ Value = varargin{i+1};
+ if ~ischar(Param)
+ error('Flag arguments must be strings')
+ end
+ Param = lower(Param);
+ switch Param
+ case 'conv'
+ CONVHULL = lower(Value);
+ if ~strcmp(CONVHULL,'on') && ~strcmp(CONVHULL,'off')
+ error('Value of ''conv'' must be ''on'' or ''off''.');
+ end
+ case 'colormap'
+ if size(Value,2)~=3
+ error('Colormap must be a n x 3 matrix')
+ end
+ colormap(Value)
+ case 'gridscale'
+ GRID_SCALE = Value;
+ case 'plotdisk'
+ PLOTDISK = lower(Value);
+ if ~strcmp(PLOTDISK,'on') && ~strcmp(PLOTDISK,'off')
+ error('Value of ''plotdisk'' must be ''on'' or ''off''.');
+ end
+ case 'intsquare'
+ INTSQUARE = lower(Value);
+ if ~strcmp(INTSQUARE,'on') && ~strcmp(INTSQUARE,'off')
+ error('Value of ''intsquare'' must be ''on'' or ''off''.');
+ end
+ case 'emarkercolors'
+ COLORARRAY = Value;
+ case {'interplimits','headlimits'}
+ if ~ischar(Value)
+ error('''interplimits'' value must be a string')
+ end
+ Value = lower(Value);
+ if ~strcmp(Value,'electrodes') && ~strcmp(Value,'head')
+ error('Incorrect value for interplimits')
+ end
+ INTERPLIMITS = Value;
+ case 'verbose'
+ VERBOSE = Value;
+ case 'nosedir'
+ NOSEDIR = Value;
+ if isempty(strmatch(lower(NOSEDIR), { '+x', '-x', '+y', '-y' }))
+ error('Invalid nose direction');
+ end
+ case 'chaninfo'
+ CHANINFO = Value;
+ if isfield(CHANINFO, 'nosedir'), NOSEDIR = CHANINFO.nosedir; end
+ if isfield(CHANINFO, 'shrink' ), shrinkfactor = CHANINFO.shrink; end
+ if isfield(CHANINFO, 'plotrad') && isempty(plotrad), plotrad = CHANINFO.plotrad; end
+ case 'chantype'
+ case 'drawaxis'
+ DRAWAXIS = Value;
+ case 'maplimits'
+ MAPLIMITS = Value;
+ case 'masksurf'
+ MASKSURF = Value;
+ case 'circgrid'
+ CIRCGRID = Value;
+ if ischar(CIRCGRID) || CIRCGRID<100
+ error('''circgrid'' value must be an int > 100');
+ end
+ case 'style'
+ STYLE = lower(Value);
+ case 'numcontour'
+ CONTOURNUM = Value;
+ case 'electrodes'
+ ELECTRODES = lower(Value);
+ if strcmpi(ELECTRODES,'pointlabels') || strcmpi(ELECTRODES,'ptslabels') ...
+ | strcmpi(ELECTRODES,'labelspts') | strcmpi(ELECTRODES,'ptlabels') ...
+ | strcmpi(ELECTRODES,'labelpts')
+ ELECTRODES = 'labelpoint'; % backwards compatibility
+ elseif strcmpi(ELECTRODES,'pointnumbers') || strcmpi(ELECTRODES,'ptsnumbers') ...
+ | strcmpi(ELECTRODES,'numberspts') | strcmpi(ELECTRODES,'ptnumbers') ...
+ | strcmpi(ELECTRODES,'numberpts') | strcmpi(ELECTRODES,'ptsnums') ...
+ | strcmpi(ELECTRODES,'numspts')
+ ELECTRODES = 'numpoint'; % backwards compatibility
+ elseif strcmpi(ELECTRODES,'nums')
+ ELECTRODES = 'numbers'; % backwards compatibility
+ elseif strcmpi(ELECTRODES,'pts')
+ ELECTRODES = 'on'; % backwards compatibility
+ elseif ~strcmp(ELECTRODES,'off') ...
+ & ~strcmpi(ELECTRODES,'on') ...
+ & ~strcmp(ELECTRODES,'labels') ...
+ & ~strcmpi(ELECTRODES,'numbers') ...
+ & ~strcmpi(ELECTRODES,'labelpoint') ...
+ & ~strcmpi(ELECTRODES,'numpoint')
+ error('Unknown value for keyword ''electrodes''');
+ end
+ case 'dipole'
+ DIPOLE = Value;
+ case 'dipsphere'
+ DIPSPHERE = Value;
+ case {'dipnorm', 'dipnormmax'}
+ if strcmp(Param,'dipnorm')
+ DIPNORM = Value;
+ if strcmpi(Value,'on')
+ DIPNORMMAX = 'off';
+ end
+ else
+ DIPNORMMAX = Value;
+ if strcmpi(Value,'on')
+ DIPNORM = 'off';
+ end
+ end
+
+ case 'diplen'
+ DIPLEN = Value;
+ case 'dipscale'
+ DIPSCALE = Value;
+ case 'contourvals'
+ ContourVals = Value;
+ case 'pmask'
+ ContourVals = Value;
+ PMASKFLAG = 1;
+ case 'diporient'
+ DIPORIENT = Value;
+ case 'dipcolor'
+ DIPCOLOR = Value;
+ case 'emarker'
+ if ischar(Value)
+ EMARKER = Value;
+ elseif ~iscell(Value) || length(Value) > 4
+ error('''emarker'' argument must be a cell array {marker color size linewidth}')
+ else
+ EMARKER = Value{1};
+ end
+ if length(Value) > 1
+ ECOLOR = Value{2};
+ end
+ if length(Value) > 2
+ EMARKERSIZE = Value{3};
+ end
+ if length(Value) > 3
+ EMARKERLINEWIDTH = Value{4};
+ end
+ case 'emarker2'
+ if ~iscell(Value) || length(Value) > 5
+ error('''emarker2'' argument must be a cell array {chans marker color size linewidth}')
+ end
+ EMARKER2CHANS = abs(Value{1}); % ignore channels < 0
+ if length(Value) > 1
+ EMARKER2 = Value{2};
+ end
+ if length(Value) > 2
+ EMARKER2COLOR = Value{3};
+ end
+ if length(Value) > 3
+ EMARKERSIZE2 = Value{4};
+ end
+ if length(Value) > 4
+ EMARKER2LINEWIDTH = Value{5};
+ end
+ case 'shrink'
+ shrinkfactor = Value;
+ case 'intrad'
+ intrad = Value;
+ if ischar(intrad) || (intrad < MINPLOTRAD || intrad > 1)
+ error('intrad argument should be a number between 0.15 and 1.0');
+ end
+ case 'plotrad'
+ plotrad = Value;
+ if ~isempty(plotrad) && (ischar(plotrad) || (plotrad < MINPLOTRAD || plotrad > 1))
+ error('plotrad argument should be a number between 0.15 and 1.0');
+ end
+ case 'headrad'
+ headrad = Value;
+ if ischar(headrad) && ( strcmpi(headrad,'off') || strcmpi(headrad,'none') )
+ headrad = 0; % undocumented 'no head' alternatives
+ end
+ if isempty(headrad) % [] -> none also
+ headrad = 0;
+ end
+ if ~ischar(headrad)
+ if ~(headrad==0) && (headrad < MINPLOTRAD || headrad>1)
+ error('bad value for headrad');
+ end
+ elseif ~strcmpi(headrad,'rim')
+ error('bad value for headrad');
+ end
+ case {'headcolor','hcolor'}
+ HEADCOLOR = Value;
+ case {'contourcolor','ccolor'}
+ CCOLOR = Value;
+ case {'electcolor','ecolor'}
+ ECOLOR = Value;
+ case {'emarkersize','emsize'}
+ EMARKERSIZE = Value;
+ case {'emarkersize1chan','emarkersizemark'}
+ EMARKERSIZE1CHAN= Value;
+ case {'efontsize','efsize'}
+ EFSIZE = Value;
+ case 'shading'
+ SHADING = lower(Value);
+ if ~any(strcmp(SHADING,{'flat','interp'}))
+ error('Invalid shading parameter')
+ end
+ if strcmpi(SHADING,'interp') && isempty(warningInterp)
+ warning('Using interpolated shading in scalp topographies prevent to export them as vectorized figures');
+ warningInterp = 1;
+ end
+ case 'noplot'
+ noplot = Value;
+ if ~ischar(noplot)
+ if length(noplot) ~= 2
+ error('''noplot'' location should be [radius, angle]')
+ else
+ chanrad = noplot(1);
+ chantheta = noplot(2);
+ noplot = 'on';
+ end
+ end
+ case 'gridscale'
+ GRID_SCALE = Value;
+ if ischar(GRID_SCALE) || GRID_SCALE ~= round(GRID_SCALE) || GRID_SCALE < 32
+ error('''gridscale'' value must be integer > 32.');
+ end
+ case {'plotgrid','gridplot'}
+ plotgrid = 'on';
+ gridchans = Value;
+ case 'plotchans'
+ plotchans = Value(:);
+ if find(plotchans<=0)
+ error('''plotchans'' values must be > 0');
+ end
+ % if max(abs(plotchans))>max(Values) | max(abs(plotchans))>length(Values) -sm ???
+ case {'whitebk','whiteback','forprint'}
+ whitebk = Value;
+ case {'iclabel'} % list of options to ignore
+ otherwise
+ error(['Unknown input parameter ''' Param ''' ???'])
+ end
+ end
+end
+
+if strcmpi(whitebk, 'on')
+ BACKCOLOR = [ 1 1 1 ];
+end
+
+if isempty(find(strcmp(varargin,'colormap')))
+ if exist('DEFAULT_COLORMAP','var')
+ cmap = colormap(DEFAULT_COLORMAP);
+ else
+ cmap = parula;
+ end
+else
+ cmap = colormap;
+end
+if strcmp(noplot,'on'), close(gcf); end
+cmaplen = size(cmap,1);
+
+if strcmp(STYLE,'blank') % else if Values holds numbers of channels to mark
+ if length(Values) < length(loc_file)
+ ContourVals = zeros(1,length(loc_file));
+ ContourVals(Values) = 1;
+ Values = ContourVals;
+ end
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%% test args for plotting an electrode grid %%%%%%%%%%%%%%%%%%%%%%
+%
+if strcmp(plotgrid,'on')
+ STYLE = 'grid';
+ gchans = sort(find(abs(gridchans(:))>0));
+
+ % if setdiff(gchans,unique(gchans))
+ % fprintf('topoplot() warning: ''plotgrid'' channel matrix has duplicate channels\n');
+ % end
+
+ if ~isempty(plotchans)
+ if intersect(gchans,abs(plotchans))
+ fprintf('topoplot() warning: ''plotgrid'' and ''plotchans'' have channels in common\n');
+ end
+ end
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%% misc arg tests %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if isempty(ELECTRODES) % if electrode labeling not specified
+ if length(Values) > MAXDEFAULTSHOWLOCS % if more channels than default max
+ ELECTRODES = 'off'; % don't show electrodes
+ else % else if fewer chans,
+ ELECTRODES = 'on'; % do
+ end
+end
+
+if isempty(Values)
+ STYLE = 'blank';
+end
+[r,c] = size(Values);
+if r>1 && c>1,
+ error('input data must be a single vector');
+end
+Values = Values(:); % make Values a column vector
+ContourVals = ContourVals(:); % values for contour
+
+if ~isempty(intrad) && ~isempty(plotrad) && intrad < plotrad
+ error('intrad must be >= plotrad');
+end
+
+if ~strcmpi(STYLE,'grid') % if not plot grid only
+
+%
+%%%%%%%%%%%%%%%%%%%% Read the channel location information %%%%%%%%%%%%%%%%%%%%%%%%
+%
+ if ischar(loc_file)
+ [tmpeloc labels Th Rd indices] = readlocs( loc_file);
+ elseif isstruct(loc_file) % a locs struct
+ [tmpeloc labels Th Rd indices] = readlocs( loc_file );
+ % Note: Th and Rd correspond to indices channels-with-coordinates only
+ else
+ error('loc_file must be a EEG.locs struct or locs filename');
+ end
+ Th = pi/180*Th; % convert degrees to radians
+ allchansind = 1:length(Th);
+
+
+ if ~isempty(plotchans)
+ if max(plotchans) > length(Th)
+ error('''plotchans'' values must be <= max channel index');
+ end
+ end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% channels to plot %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if ~isempty(plotchans)
+ plotchans = intersect_bc(plotchans, indices);
+end
+if ~isempty(Values) && ~strcmpi( STYLE, 'blank') && isempty(plotchans)
+ plotchans = indices;
+end
+if isempty(plotchans) && strcmpi( STYLE, 'blank')
+ plotchans = indices;
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%% filter channels used for components %%%%%%%%%%%%%%%%%%%%%
+%
+if isfield(CHANINFO, 'icachansind') && ~isempty(Values) && length(Values) ~= length(tmpeloc)
+
+ % test if ICA component
+ % ---------------------
+ if length(CHANINFO.icachansind) == length(Values)
+
+ % if only a subset of channels are to be plotted
+ % and ICA components also use a subject of channel
+ % we must find the new indices for these channels
+
+ plotchans = intersect_bc(CHANINFO.icachansind, plotchans);
+ tmpvals = zeros(1, length(tmpeloc));
+ tmpvals(CHANINFO.icachansind) = Values;
+ Values = tmpvals;
+ tmpvals = zeros(1, length(tmpeloc));
+ tmpvals(CHANINFO.icachansind) = ContourVals;
+ ContourVals = tmpvals;
+
+ end
+end
+
+%
+%%%%%%%%%%%%%%%%%%% last channel is reference? %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if length(tmpeloc) == length(Values) + 1 % remove last channel if necessary
+ % (common reference channel)
+ if plotchans(end) == length(tmpeloc)
+ plotchans(end) = [];
+ end
+
+end
+
+%
+%%%%%%%%%%%%%%%%%%% remove infinite and NaN values %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if length(Values) > 1
+ inds = union_bc(find(isnan(Values)), find(isinf(Values))); % NaN and Inf values
+ plotchans = setdiff_bc(plotchans, inds);
+end
+if strcmp(plotgrid,'on')
+ plotchans = setxor(plotchans,gchans); % remove grid chans from head plotchans
+end
+
+[x,y] = pol2cart(Th,Rd); % transform electrode locations from polar to cartesian coordinates
+plotchans = abs(plotchans); % reverse indicated channel polarities
+allchansind = allchansind(plotchans);
+Th = Th(plotchans);
+Rd = Rd(plotchans);
+x = x(plotchans);
+y = y(plotchans);
+labels = labels(plotchans); % remove labels for electrodes without locations
+labels = strvcat(labels); % make a label string matrix
+if ~isempty(Values) && length(Values) > 1
+ Values = Values(plotchans);
+ ContourVals = ContourVals(plotchans);
+end
+
+%
+%%%%%%%%%%%%%%%%%% Read plotting radius from chanlocs %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if isempty(plotrad) && isfield(tmpeloc, 'plotrad'),
+ plotrad = tmpeloc(1).plotrad;
+ if ischar(plotrad) % plotrad shouldn't be a string
+ plotrad = str2num(plotrad) % just checking
+ end
+ if plotrad < MINPLOTRAD || plotrad > 1.0
+ fprintf('Bad value (%g) for plotrad.\n',plotrad);
+ error(' ');
+ end
+ if strcmpi(VERBOSE,'on') && ~isempty(plotrad)
+ fprintf('Plotting radius plotrad (%g) set from EEG.chanlocs.\n',plotrad);
+ end
+end
+if isempty(plotrad)
+ plotrad = min(1.0,max(Rd)*1.02); % default: just outside the outermost electrode location
+ plotrad = max(plotrad,0.5); % default: plot out to the 0.5 head boundary
+end % don't plot channels with Rd > 1 (below head)
+
+if isempty(intrad)
+ default_intrad = 1; % indicator for (no) specified intrad
+ intrad = min(1.0,max(Rd)*1.02); % default: just outside the outermost electrode location
+else
+ default_intrad = 0; % indicator for (no) specified intrad
+ if plotrad > intrad
+ plotrad = intrad;
+ end
+end % don't interpolate channels with Rd > 1 (below head)
+if ischar(plotrad) || plotrad < MINPLOTRAD || plotrad > 1.0
+ error('plotrad must be between 0.15 and 1.0');
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%% Set radius of head cartoon %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if isempty(headrad) % never set -> defaults
+ if plotrad >= rmax
+ headrad = rmax; % (anatomically correct)
+ else % if plotrad < rmax
+ headrad = 0; % don't plot head
+ if strcmpi(VERBOSE, 'on')
+ fprintf('topoplot(): not plotting cartoon head since plotrad (%5.4g) < 0.5\n',...
+ plotrad);
+ end
+ end
+elseif strcmpi(headrad,'rim') % force plotting at rim of map
+ headrad = plotrad;
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Shrink mode %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if ~isempty(shrinkfactor) || isfield(tmpeloc, 'shrink'),
+ if isempty(shrinkfactor) && isfield(tmpeloc, 'shrink'),
+ shrinkfactor = tmpeloc(1).shrink;
+ if strcmpi(VERBOSE,'on')
+ if ischar(shrinkfactor)
+ fprintf('Automatically shrinking coordinates to lie above the head perimter.\n');
+ else
+ fprintf('Automatically shrinking coordinates by %3.2f\n', shrinkfactor);
+ end
+ end
+ end
+
+ if ischar(shrinkfactor)
+ if strcmpi(shrinkfactor, 'on') || strcmpi(shrinkfactor, 'force') || strcmpi(shrinkfactor, 'auto')
+ if abs(headrad-rmax) > 1e-2
+ fprintf(' NOTE -> the head cartoon will NOT accurately indicate the actual electrode locations\n');
+ end
+ if strcmpi(VERBOSE,'on')
+ fprintf(' Shrink flag -> plotting cartoon head at plotrad\n');
+ end
+ headrad = plotrad; % plot head around outer electrodes, no matter if 0.5 or not
+ end
+ else % apply shrinkfactor
+ plotrad = rmax/(1-shrinkfactor);
+ headrad = plotrad; % make deprecated 'shrink' mode plot
+ if strcmpi(VERBOSE,'on')
+ fprintf(' %g%% shrink applied.');
+ if abs(headrad-rmax) > 1e-2
+ fprintf(' Warning: With this "shrink" setting, the cartoon head will NOT be anatomically correct.\n');
+ else
+ fprintf('\n');
+ end
+ end
+ end
+end; % if shrink
+
+%
+%%%%%%%%%%%%%%%%% Issue warning if headrad ~= rmax %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+if headrad ~= 0.5 && strcmpi(VERBOSE, 'on')
+ fprintf(' NB: Plotting map using ''plotrad'' %-4.3g,',plotrad);
+ fprintf( ' ''headrad'' %-4.3g\n',headrad);
+ fprintf('Warning: The plotting radius of the cartoon head is NOT anatomically correct (0.5).\n')
+end
+%
+%%%%%%%%%%%%%%%%%%%%% Find plotting channels %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+pltchans = find(Rd <= plotrad); % plot channels inside plotting circle
+
+if strcmpi(INTSQUARE,'on') % interpolate channels in the radius intrad square
+ intchans = find(x <= intrad & y <= intrad); % interpolate and plot channels inside interpolation square
+else
+ intchans = find(Rd <= intrad); % interpolate channels in the radius intrad circle only
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%% Eliminate channels not plotted %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+allx = x;
+ally = y;
+intchans; % interpolate using only the 'intchans' channels
+pltchans; % plot using only indicated 'plotchans' channels
+
+if length(pltchans) < length(Rd) && strcmpi(VERBOSE, 'on')
+ fprintf('Interpolating %d and plotting %d of the %d scalp electrodes.\n', ...
+ length(intchans),length(pltchans),length(Rd));
+end;
+
+
+% fprintf('topoplot(): plotting %d channels\n',length(pltchans));
+if ~isempty(EMARKER2CHANS)
+ if strcmpi(STYLE,'blank')
+ error('emarker2 not defined for style ''blank'' - use marking channel numbers in place of data');
+ else % mark1chans and mark2chans are subsets of pltchans for markers 1 and 2
+ [tmp1, mark1chans, tmp2] = setxor(pltchans,EMARKER2CHANS);
+ [tmp3, tmp4, mark2chans] = intersect_bc(EMARKER2CHANS,pltchans);
+ end
+end
+
+if ~isempty(Values)
+ if length(Values) == length(Th) % if as many map Values as channel locs
+ intValues = Values(intchans);
+ intContourVals = ContourVals(intchans);
+ Values = Values(pltchans);
+ ContourVals = ContourVals(pltchans);
+ end;
+end; % now channel parameters and values all refer to plotting channels only
+
+allchansind = allchansind(pltchans);
+intTh = Th(intchans); % eliminate channels outside the interpolation area
+intRd = Rd(intchans);
+intx = x(intchans);
+inty = y(intchans);
+Th = Th(pltchans); % eliminate channels outside the plotting area
+Rd = Rd(pltchans);
+x = x(pltchans);
+y = y(pltchans);
+
+labels= labels(pltchans,:);
+%
+%%%%%%%%%%%%%%% Squeeze channel locations to <= rmax %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+squeezefac = rmax/plotrad;
+intRd = intRd*squeezefac; % squeeze electrode arc_lengths towards the vertex
+Rd = Rd*squeezefac; % squeeze electrode arc_lengths towards the vertex
+ % to plot all inside the head cartoon
+intx = intx*squeezefac;
+inty = inty*squeezefac;
+x = x*squeezefac;
+y = y*squeezefac;
+allx = allx*squeezefac;
+ally = ally*squeezefac;
+% Note: Now outermost channel will be plotted just inside rmax
+
+else % if strcmpi(STYLE,'grid')
+ intx = rmax; inty=rmax;
+end % if ~strcmpi(STYLE,'grid')
+
+%
+%%%%%%%%%%%%%%%% rotate channels based on chaninfo %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if strcmpi(lower(NOSEDIR), '+x')
+ rotate = 0;
+else
+ if strcmpi(lower(NOSEDIR), '+y')
+ rotate = 3*pi/2;
+ elseif strcmpi(lower(NOSEDIR), '-x')
+ rotate = pi;
+ else rotate = pi/2;
+ end
+ allcoords = (inty + intx*sqrt(-1))*exp(sqrt(-1)*rotate);
+ intx = imag(allcoords);
+ inty = real(allcoords);
+ allcoords = (ally + allx*sqrt(-1))*exp(sqrt(-1)*rotate);
+ allx = imag(allcoords);
+ ally = real(allcoords);
+ allcoords = (y + x*sqrt(-1))*exp(sqrt(-1)*rotate);
+ x = imag(allcoords);
+ y = real(allcoords);
+end
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Make the plot %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if ~strcmpi(STYLE,'blank') % if draw interpolated scalp map
+ if ~strcmpi(STYLE,'grid') % not a rectangular channel grid
+ %
+ %%%%%%%%%%%%%%%% Find limits for interpolation %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ if default_intrad % if no specified intrad
+ if strcmpi(INTERPLIMITS,'head') % intrad is 'head'
+ xmin = min(-rmax,min(intx)); xmax = max(rmax,max(intx));
+ ymin = min(-rmax,min(inty)); ymax = max(rmax,max(inty));
+
+ else % INTERPLIMITS = rectangle containing electrodes -- DEPRECATED OPTION!
+ xmin = max(-rmax,min(intx)); xmax = min(rmax,max(intx));
+ ymin = max(-rmax,min(inty)); ymax = min(rmax,max(inty));
+ end
+ else % some other intrad specified
+ xmin = -intrad*squeezefac; xmax = intrad*squeezefac; % use the specified intrad value
+ ymin = -intrad*squeezefac; ymax = intrad*squeezefac;
+ end
+ %
+ %%%%%%%%%%%%%%%%%%%%%%% Interpolate scalp map data %%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ xi = linspace(xmin,xmax,GRID_SCALE); % x-axis description (row vector)
+ yi = linspace(ymin,ymax,GRID_SCALE); % y-axis description (row vector)
+
+ try
+ [Xi,Yi,Zi] = griddata(inty,intx,double(intValues),yi',xi,'v4'); % interpolate data
+ [Xi,Yi,ZiC] = griddata(inty,intx,double(intContourVals),yi',xi,'v4'); % interpolate data
+ catch,
+ [Xi,Yi] = meshgrid(yi',xi);
+ Zi = gdatav4(inty,intx,double(intValues), Xi, Yi);
+ ZiC = gdatav4(inty,intx,double(intContourVals), Xi, Yi);
+ end
+ %
+ %%%%%%%%%%%%%%%%%%%%%%% Mask out data outside the head %%%%%%%%%%%%%%%%%%%%%
+ %
+ mask = (sqrt(Xi.^2 + Yi.^2) <= rmax); % mask outside the plotting circle
+ ii = find(mask == 0);
+ Zi(ii) = NaN; % mask non-plotting voxels with NaNs
+ ZiC(ii) = NaN; % mask non-plotting voxels with NaNs
+ grid = plotrad; % unless 'noplot', then 3rd output arg is plotrad
+ %
+ %%%%%%%%%% Return interpolated value at designated scalp location %%%%%%%%%%
+ %
+ if exist('chanrad') % optional first argument to 'noplot'
+ chantheta = (chantheta/360)*2*pi;
+ chancoords = round(ceil(GRID_SCALE/2)+GRID_SCALE/2*2*chanrad*[cos(-chantheta),...
+ -sin(-chantheta)]);
+ if chancoords(1)<1 ...
+ || chancoords(1) > GRID_SCALE ...
+ || chancoords(2)<1 ...
+ || chancoords(2)>GRID_SCALE
+ error('designated ''noplot'' channel out of bounds')
+ else
+ chanval = Zi(chancoords(1),chancoords(2));
+ grid = Zi;
+ Zi = chanval; % return interpolated value instead of Zi
+ end
+ end
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%% Return interpolated image only %%%%%%%%%%%%%%%%%
+ %
+ if strcmpi(noplot, 'on')
+ if strcmpi(VERBOSE,'on')
+ fprintf('topoplot(): no plot requested.\n')
+ end
+ return;
+ end
+ %
+ %%%%%%%%%%%%%%%%%%%%%%% Calculate colormap limits %%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ if ischar(MAPLIMITS)
+ if strcmp(MAPLIMITS,'absmax')
+ amax = max(max(abs(Zi)));
+ amin = -amax;
+ elseif strcmp(MAPLIMITS,'maxmin') || strcmp(MAPLIMITS,'minmax')
+ amin = min(min(Zi));
+ amax = max(max(Zi));
+ else
+ error('unknown ''maplimits'' value.');
+ end
+ elseif length(MAPLIMITS) == 2
+ amin = MAPLIMITS(1);
+ amax = MAPLIMITS(2);
+ else
+ error('unknown ''maplimits'' value');
+ end
+ delta = xi(2)-xi(1); % length of grid entry
+
+ end % if ~strcmpi(STYLE,'grid')
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%% Scale the axes %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ %cla % clear current axis
+ hold on
+ h = gca; % uses current axes
+
+ % instead of default larger AXHEADFAC
+ if squeezefac<0.92 && plotrad-headrad > 0.05 % (size of head in axes)
+ AXHEADFAC = 1.05; % do not leave room for external ears if head cartoon
+ % shrunk enough by the 'skirt' option
+ end
+
+ set(gca,'Xlim',[-rmax rmax]*AXHEADFAC,'Ylim',[-rmax rmax]*AXHEADFAC);
+ % specify size of head axes in gca
+
+ unsh = (GRID_SCALE+1)/GRID_SCALE; % un-shrink the effects of 'interp' SHADING
+
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%% Plot grid only %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ if strcmpi(STYLE,'grid') % plot grid only
+
+ %
+ % The goal below is to make the grid cells square - not yet achieved in all cases? -sm
+ %
+ g1 = size(gridchans,1);
+ g2 = size(gridchans,2);
+ gmax = max([g1 g2]);
+ Xi = linspace(-rmax*g2/gmax,rmax*g2/gmax,g1+1);
+ Xi = Xi+rmax/g1; Xi = Xi(1:end-1);
+ Yi = linspace(-rmax*g1/gmax,rmax*g1/gmax,g2+1);
+ Yi = Yi+rmax/g2; Yi = Yi(1:end-1); Yi = Yi(end:-1:1); % by trial and error!
+ %
+ %%%%%%%%%%% collect the gridchans values %%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ gridvalues = zeros(size(gridchans));
+ for j=1:size(gridchans,1)
+ for k=1:size(gridchans,2)
+ gc = gridchans(j,k);
+ if gc > 0
+ gridvalues(j,k) = Values(gc);
+ elseif gc < 0
+ gridvalues(j,k) = -Values(abs(gc));
+ else
+ gridvalues(j,k) = nan; % not-a-number = no value
+ end
+ end
+ end
+ %
+ %%%%%%%%%%% reset color limits for grid plot %%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ if ischar(MAPLIMITS)
+ if strcmp(MAPLIMITS,'maxmin') || strcmp(MAPLIMITS,'minmax')
+ amin = min(min(gridvalues(~isnan(gridvalues))));
+ amax = max(max(gridvalues(~isnan(gridvalues))));
+ elseif strcmp(MAPLIMITS,'absmax')
+ % 11/21/2005 Toby edit
+ % This should now work as specified. Before it only crashed (using
+ % "plotgrid" and "maplimits>absmax" options).
+ amax = max(max(abs(gridvalues(~isnan(gridvalues)))));
+ amin = -amax;
+ %amin = -max(max(abs([amin amax])));
+ %amax = max(max(abs([amin amax])));
+ else
+ error('unknown ''maplimits'' value');
+ end
+ elseif length(MAPLIMITS) == 2
+ amin = MAPLIMITS(1);
+ amax = MAPLIMITS(2);
+ else
+ error('unknown ''maplimits'' value');
+ end
+ %
+ %%%%%%%%%% explicitly compute grid colors, allowing BACKCOLOR %%%%%%
+ %
+ gridvalues = 1+floor(cmaplen*(gridvalues-amin)/(amax-amin));
+ gridvalues(find(gridvalues == cmaplen+1)) = cmaplen;
+ gridcolors = zeros([size(gridvalues),3]);
+ for j=1:size(gridchans,1)
+ for k=1:size(gridchans,2)
+ if ~isnan(gridvalues(j,k))
+ gridcolors(j,k,:) = cmap(gridvalues(j,k),:);
+ else
+ if strcmpi(whitebk,'off')
+ gridcolors(j,k,:) = BACKCOLOR; % gridchans == 0 -> background color
+ % This allows the plot to show 'space' between separate sub-grids or strips
+ else % 'on'
+ gridcolors(j,k,:) = [1 1 1]; BACKCOLOR; % gridchans == 0 -> white for printing
+ end
+ end
+ end
+ end
+
+ %
+ %%%%%%%%%% draw the gridplot image %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ handle=imagesc(Xi,Yi,gridcolors); % plot grid with explicit colors
+ axis square
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%% Plot map contours only %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ elseif strcmp(STYLE,'contour') % plot surface contours only
+ [cls chs] = contour(Xi,Yi,ZiC,CONTOURNUM,'k');
+ handle = chs; % handle to a contourgroup object
+ % for h=chs, set(h,'color',CCOLOR); end
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%% Else plot map and contours %%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ elseif strcmp(STYLE,'both') % plot interpolated surface and surface contours
+ if strcmp(SHADING,'interp')
+ tmph = surface(Xi*unsh,Yi*unsh,zeros(size(Zi))-0.1,Zi,...
+ 'EdgeColor','none','FaceColor',SHADING);
+ else % SHADING == 'flat'
+ tmph = surface(Xi-delta/2,Yi-delta/2,zeros(size(Zi))-0.1,Zi,...
+ 'EdgeColor','none','FaceColor',SHADING);
+ end
+ if strcmpi(MASKSURF, 'on')
+ set(tmph, 'visible', 'off');
+ handle = tmph;
+ end
+
+ warning off;
+ if ~PMASKFLAG
+ [cls chs] = contour(Xi,Yi,ZiC,CONTOURNUM,'k');
+ else
+ ZiC(find(ZiC > 0.5 )) = NaN;
+ [cls chs] = contourf(Xi,Yi,ZiC,0,'k');
+ subh = get(chs, 'children');
+ for indsubh = 1:length(subh)
+ numfaces = size(get(subh(indsubh), 'XData'),1);
+ set(subh(indsubh), 'FaceVertexCData', ones(numfaces,3), 'Cdatamapping', 'direct', 'facealpha', 0.5, 'linewidth', 2);
+ end
+ end
+ handle = tmph; % surface handle
+ try, for h=chs, set(h,'color',CCOLOR); end, catch, end % the try clause is for Octave
+ warning on;
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%% Else plot map only %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+ elseif strcmp(STYLE,'straight') || strcmp(STYLE,'map') % 'straight' was former arg
+
+ if strcmp(SHADING,'interp') % 'interp' mode is shifted somehow... but how?
+ tmph = surface(Xi*unsh,Yi*unsh,zeros(size(Zi)),Zi,'EdgeColor','none',...
+ 'FaceColor',SHADING);
+ else
+ tmph = surface(Xi-delta/2,Yi-delta/2,zeros(size(Zi)),Zi,'EdgeColor','none',...
+ 'FaceColor',SHADING);
+ end
+ if strcmpi(MASKSURF, 'on')
+ set(tmph, 'visible', 'off');
+ handle = tmph;
+ end
+ handle = tmph; % surface handle
+ %
+ %%%%%%%%%%%%%%%%%% Else fill contours with uniform colors %%%%%%%%%%%%%%%%%%
+ %
+ elseif strcmp(STYLE,'fill')
+ [cls chs] = contourf(Xi,Yi,Zi,CONTOURNUM,'k');
+
+ handle = chs; % handle to a contourgroup object
+
+ % for h=chs, set(h,'color',CCOLOR); end
+ % <- 'not line objects.' Why does 'both' work above???
+
+ else
+ error('Invalid style')
+ end
+ %
+ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Set color axis %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+ %
+% caxis([amin amax]); % set coloraxis
+
+% 7/30/2014 Ramon: +-5% for the color limits were added
+cax_sgn = sign([amin amax]); % getting sign
+caxis([amin+cax_sgn(1)*(0.05*abs(amin)) amax+cax_sgn(2)*(0.05*abs(amax))]); % Adding 5% to the color limits
+
+else % if STYLE 'blank'
+%
+%%%%%%%%%%%%%%%%%%%%%%% Draw blank head %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+ if strcmpi(noplot, 'on')
+ if strcmpi(VERBOSE,'on')
+ fprintf('topoplot(): no plot requested.\n')
+ end
+ return;
+ end
+ %cla
+ hold on
+
+ set(gca,'Xlim',[-rmax rmax]*AXHEADFAC,'Ylim',[-rmax rmax]*AXHEADFAC)
+ % pos = get(gca,'position');
+ % fprintf('Current axes size %g,%g\n',pos(3),pos(4));
+
+ if strcmp(ELECTRODES,'labelpoint') || strcmp(ELECTRODES,'numpoint')
+ text(-0.6,-0.6, ...
+ [ int2str(length(Rd)) ' of ' int2str(length(tmpeloc)) ' electrode locations shown']);
+ text(-0.6,-0.7, [ 'Click on electrodes to toggle name/number']);
+ tl = title('Channel locations');
+ set(tl, 'fontweight', 'bold');
+ end
+end % STYLE 'blank'
+
+if exist('handle') ~= 1
+ handle = gca;
+end
+
+if ~strcmpi(STYLE,'grid') % if not plot grid only
+
+%
+%%%%%%%%%%%%%%%%%%% Plot filled ring to mask jagged grid boundary %%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+hwidth = HEADRINGWIDTH; % width of head ring
+hin = squeezefac*headrad*(1- hwidth/2); % inner head ring radius
+
+if strcmp(SHADING,'interp')
+ rwidth = BLANKINGRINGWIDTH*1.3; % width of blanking outer ring
+else
+ rwidth = BLANKINGRINGWIDTH; % width of blanking outer ring
+end
+rin = rmax*(1-rwidth/2); % inner ring radius
+if hin>rin
+ rin = hin; % dont blank inside the head ring
+end
+
+if strcmp(CONVHULL,'on') %%%%%%%%% mask outside the convex hull of the electrodes %%%%%%%%%
+ cnv = convhull(allx,ally);
+ cnvfac = round(CIRCGRID/length(cnv)); % spline interpolate the convex hull
+ if cnvfac < 1, cnvfac=1; end
+ CIRCGRID = cnvfac*length(cnv);
+
+ startangle = atan2(allx(cnv(1)),ally(cnv(1)));
+ circ = linspace(0+startangle,2*pi+startangle,CIRCGRID);
+ rx = sin(circ);
+ ry = cos(circ);
+
+ allx = allx(:)'; % make x (elec locations; + to nose) a row vector
+ ally = ally(:)'; % make y (elec locations, + to r? ear) a row vector
+ erad = sqrt(allx(cnv).^2+ally(cnv).^2); % convert to polar coordinates
+ eang = atan2(allx(cnv),ally(cnv));
+ eang = unwrap(eang);
+ eradi =spline(linspace(0,1,3*length(cnv)), [erad erad erad], ...
+ linspace(0,1,3*length(cnv)*cnvfac));
+ eangi =spline(linspace(0,1,3*length(cnv)), [eang+2*pi eang eang-2*pi], ...
+ linspace(0,1,3*length(cnv)*cnvfac));
+ xx = eradi.*sin(eangi); % convert back to rect coordinates
+ yy = eradi.*cos(eangi);
+ yy = yy(CIRCGRID+1:2*CIRCGRID);
+ xx = xx(CIRCGRID+1:2*CIRCGRID);
+ eangi = eangi(CIRCGRID+1:2*CIRCGRID);
+ eradi = eradi(CIRCGRID+1:2*CIRCGRID);
+ xx = xx*1.02; yy = yy*1.02; % extend spline outside electrode marks
+
+ splrad = sqrt(xx.^2+yy.^2); % arc radius of spline points (yy,xx)
+ oob = find(splrad >= rin); % enforce an upper bound on xx,yy
+ xx(oob) = rin*xx(oob)./splrad(oob); % max radius = rin
+ yy(oob) = rin*yy(oob)./splrad(oob); % max radius = rin
+
+ splrad = sqrt(xx.^2+yy.^2); % arc radius of spline points (yy,xx)
+ oob = find(splrad < hin); % don't let splrad be inside the head cartoon
+ xx(oob) = hin*xx(oob)./splrad(oob); % min radius = hin
+ yy(oob) = hin*yy(oob)./splrad(oob); % min radius = hin
+
+ ringy = [[ry(:)' ry(1) ]*(rin+rwidth) yy yy(1)];
+ ringx = [[rx(:)' rx(1) ]*(rin+rwidth) xx xx(1)];
+
+ ringh2= patch(ringy,ringx,ones(size(ringy)),BACKCOLOR,'edgecolor','none'); hold on
+
+ % plot(ry*rmax,rx*rmax,'b') % debugging line
+
+else %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% mask the jagged border around rmax %%%%%%%%%%%%%%%5%%%%%%
+
+ circ = linspace(0,2*pi,CIRCGRID);
+ rx = sin(circ);
+ ry = cos(circ);
+ ringx = [[rx(:)' rx(1) ]*(rin+rwidth) [rx(:)' rx(1)]*rin];
+ ringy = [[ry(:)' ry(1) ]*(rin+rwidth) [ry(:)' ry(1)]*rin];
+
+ if ~strcmpi(STYLE,'blank')
+ ringh= patch(ringx,ringy,0.01*ones(size(ringx)),BACKCOLOR,'edgecolor','none'); hold on
+ end
+ % plot(ry*rmax,rx*rmax,'b') % debugging line
+end
+
+ %f1= fill(rin*[rx rX],rin*[ry rY],BACKCOLOR,'edgecolor',BACKCOLOR); hold on
+ %f2= fill(rin*[rx rX*(1+rwidth)],rin*[ry rY*(1+rwidth)],BACKCOLOR,'edgecolor',BACKCOLOR);
+
+% Former line-style border smoothing - width did not scale with plot
+% brdr=plot(1.015*cos(circ).*rmax,1.015*sin(circ).*rmax,... % old line-based method
+% 'color',HEADCOLOR,'Linestyle','-','LineWidth',HLINEWIDTH); % plot skirt outline
+% set(brdr,'color',BACKCOLOR,'linewidth',HLINEWIDTH + 4); % hide the disk edge jaggies
+
+%
+%%%%%%%%%%%%%%%%%%%%%%%%% Plot cartoon head, ears, nose %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if headrad > 0 % if cartoon head to be plotted
+%
+%%%%%%%%%%%%%%%%%%% Plot head outline %%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+headx = [[rx(:)' rx(1) ]*(hin+hwidth) [rx(:)' rx(1)]*hin];
+heady = [[ry(:)' ry(1) ]*(hin+hwidth) [ry(:)' ry(1)]*hin];
+
+if ~ischar(HEADCOLOR) || ~strcmpi(HEADCOLOR,'none')
+ %ringh= patch(headx,heady,ones(size(headx)),HEADCOLOR,'edgecolor',HEADCOLOR,'linewidth', HLINEWIDTH); hold on
+ headx = [rx(:)' rx(1)]*hin;
+ heady = [ry(:)' ry(1)]*hin;
+ ringh= plot(headx,heady);
+ set(ringh, 'color',HEADCOLOR,'linewidth', HLINEWIDTH); hold on
+end
+
+% rx = sin(circ); rX = rx(end:-1:1);
+% ry = cos(circ); rY = ry(end:-1:1);
+% for k=2:2:CIRCGRID
+% rx(k) = rx(k)*(1+hwidth);
+% ry(k) = ry(k)*(1+hwidth);
+% end
+% f3= fill(hin*[rx rX],hin*[ry rY],HEADCOLOR,'edgecolor',HEADCOLOR); hold on
+% f4= fill(hin*[rx rX*(1+hwidth)],hin*[ry rY*(1+hwidth)],HEADCOLOR,'edgecolor',HEADCOLOR);
+
+% Former line-style head
+% plot(cos(circ).*squeezefac*headrad,sin(circ).*squeezefac*headrad,...
+% 'color',HEADCOLOR,'Linestyle','-','LineWidth',HLINEWIDTH); % plot head outline
+
+%
+%%%%%%%%%%%%%%%%%%% Plot ears and nose %%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+ base = rmax-.0046;
+ basex = 0.18*rmax; % nose width
+ tip = 1.15*rmax;
+ tiphw = .04*rmax; % nose tip half width
+ tipr = .01*rmax; % nose tip rounding
+ q = .04; % ear lengthening
+ EarX = [.497-.005 .510 .518 .5299 .5419 .54 .547 .532 .510 .489-.005]; % rmax = 0.5
+ EarY = [q+.0555 q+.0775 q+.0783 q+.0746 q+.0555 -.0055 -.0932 -.1313 -.1384 -.1199];
+ sf = headrad/plotrad; % squeeze the model ears and nose
+ % by this factor
+ if ~ischar(HEADCOLOR) || ~strcmpi(HEADCOLOR,'none')
+ plot3([basex;tiphw;0;-tiphw;-basex]*sf,[base;tip-tipr;tip;tip-tipr;base]*sf,...
+ 2*ones(size([basex;tiphw;0;-tiphw;-basex])),...
+ 'Color',HEADCOLOR,'LineWidth',HLINEWIDTH); % plot nose
+ plot3(EarX*sf,EarY*sf,2*ones(size(EarX)),'color',HEADCOLOR,'LineWidth',HLINEWIDTH) % plot left ear
+ plot3(-EarX*sf,EarY*sf,2*ones(size(EarY)),'color',HEADCOLOR,'LineWidth',HLINEWIDTH) % plot right ear
+ end
+end
+
+%
+% %%%%%%%%%%%%%%%%%%% Show electrode information %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+ plotax = gca;
+ axis square % make plotax square
+ axis off
+
+ pos = get(gca,'position');
+ xlm = get(gca,'xlim');
+ ylm = get(gca,'ylim');
+ % textax = axes('position',pos,'xlim',xlm,'ylim',ylm); % make new axes so clicking numbers <-> labels
+ % will work inside head cartoon patch
+ % axes(textax);
+ axis square % make textax square
+
+ pos = get(gca,'position');
+ set(plotax,'position',pos);
+
+ xlm = get(gca,'xlim');
+ set(plotax,'xlim',xlm);
+
+ ylm = get(gca,'ylim');
+ set(plotax,'ylim',ylm); % copy position and axis limits again
+
+axis equal;
+lim = [-0.525 0.525];
+%lim = [-0.56 0.56];
+set(gca, 'xlim', lim); set(plotax, 'xlim', lim);
+set(gca, 'ylim', lim); set(plotax, 'ylim', lim);
+set(gca, 'xlim', lim); set(plotax, 'xlim', lim);
+set(gca, 'ylim', lim); set(plotax, 'ylim', lim);
+
+%get(textax,'pos') % test if equal!
+%get(plotax,'pos')
+%get(textax,'xlim')
+%get(plotax,'xlim')
+%get(textax,'ylim')
+%get(plotax,'ylim')
+
+ if isempty(EMARKERSIZE)
+ EMARKERSIZE = 10;
+ if length(y)>=160
+ EMARKERSIZE = 3;
+ elseif length(y)>=128
+ EMARKERSIZE = 3;
+ elseif length(y)>=100
+ EMARKERSIZE = 3;
+ elseif length(y)>=80
+ EMARKERSIZE = 4;
+ elseif length(y)>=64
+ EMARKERSIZE = 5;
+ elseif length(y)>=48
+ EMARKERSIZE = 6;
+ elseif length(y)>=32
+ EMARKERSIZE = 8;
+ end
+ end
+%
+%%%%%%%%%%%%%%%%%%%%%%%% Mark electrode locations only %%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+ELECTRODE_HEIGHT = 2.1; % z value for plotting electrode information (above the surf)
+
+if strcmp(ELECTRODES,'on') % plot electrodes as spots
+ if isempty(EMARKER2CHANS)
+ hp2 = plot3(y,x,ones(size(x))*ELECTRODE_HEIGHT,...
+ EMARKER,'Color',ECOLOR,'markersize',EMARKERSIZE,'linewidth',EMARKERLINEWIDTH);
+ else % plot markers for normal chans and EMARKER2CHANS separately
+ hp2 = plot3(y(mark1chans),x(mark1chans),ones(size((mark1chans)))*ELECTRODE_HEIGHT,...
+ EMARKER,'Color',ECOLOR,'markersize',EMARKERSIZE,'linewidth',EMARKERLINEWIDTH);
+ hp2b = plot3(y(mark2chans),x(mark2chans),ones(size((mark2chans)))*ELECTRODE_HEIGHT,...
+ EMARKER2,'Color',EMARKER2COLOR,'markerfacecolor',EMARKER2COLOR,'linewidth',EMARKER2LINEWIDTH,'markersize',EMARKERSIZE2);
+ end
+%
+%%%%%%%%%%%%%%%%%%%%%%%% Print electrode labels only %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+elseif strcmp(ELECTRODES,'labels') % print electrode names (labels)
+ for i = 1:size(labels,1)
+ text(double(y(i)),double(x(i)),...
+ ELECTRODE_HEIGHT,labels(i,:),'HorizontalAlignment','center',...
+ 'VerticalAlignment','middle','Color',ECOLOR,...
+ 'FontSize',EFSIZE)
+ end
+%
+%%%%%%%%%%%%%%%%%%%%%%%% Mark electrode locations plus labels %%%%%%%%%%%%%%%%%%%
+%
+elseif strcmp(ELECTRODES,'labelpoint')
+ if isempty(EMARKER2CHANS)
+ hp2 = plot3(y,x,ones(size(x))*ELECTRODE_HEIGHT,...
+ EMARKER,'Color',ECOLOR,'markersize',EMARKERSIZE,'linewidth',EMARKERLINEWIDTH);
+ else
+ hp2 = plot3(y(mark1chans),x(mark1chans),ones(size((mark1chans)))*ELECTRODE_HEIGHT,...
+ EMARKER,'Color',ECOLOR,'markersize',EMARKERSIZE,'linewidth',EMARKERLINEWIDTH);
+ hp2b = plot3(y(mark2chans),x(mark2chans),ones(size((mark2chans)))*ELECTRODE_HEIGHT,...
+ EMARKER2,'Color',EMARKER2COLOR,'markerfacecolor',EMARKER2COLOR,'linewidth',EMARKER2LINEWIDTH,'markersize',EMARKERSIZE2);
+ end
+ for i = 1:size(labels,1)
+ hh(i) = text(double(y(i)+0.01),double(x(i)),...
+ ELECTRODE_HEIGHT,labels(i,:),'HorizontalAlignment','left',...
+ 'VerticalAlignment','middle','Color', ECOLOR,'userdata', num2str(allchansind(i)), ...
+ 'FontSize',EFSIZE, 'buttondownfcn', ...
+ ['tmpstr = get(gco, ''userdata'');'...
+ 'set(gco, ''userdata'', get(gco, ''string''));' ...
+ 'set(gco, ''string'', tmpstr); clear tmpstr;'] );
+ end
+%
+%%%%%%%%%%%%%%%%%%%%%%% Mark electrode locations plus numbers %%%%%%%%%%%%%%%%%%%
+%
+elseif strcmp(ELECTRODES,'numpoint')
+ if isempty(EMARKER2CHANS)
+ hp2 = plot3(y,x,ones(size(x))*ELECTRODE_HEIGHT,...
+ EMARKER,'Color',ECOLOR,'markersize',EMARKERSIZE,'linewidth',EMARKERLINEWIDTH);
+ else
+ hp2 = plot3(y(mark1chans),x(mark1chans),ones(size((mark1chans)))*ELECTRODE_HEIGHT,...
+ EMARKER,'Color',ECOLOR,'markersize',EMARKERSIZE,'linewidth',EMARKERLINEWIDTH);
+ hp2b = plot3(y(mark2chans),x(mark2chans),ones(size((mark2chans)))*ELECTRODE_HEIGHT,...
+ EMARKER2,'Color',EMARKER2COLOR,'markerfacecolor',EMARKER2COLOR,'linewidth',EMARKER2LINEWIDTH,'markersize',EMARKERSIZE2);
+ end
+ for i = 1:size(labels,1)
+ hh(i) = text(double(y(i)+0.01),double(x(i)),...
+ ELECTRODE_HEIGHT,num2str(allchansind(i)),'HorizontalAlignment','left',...
+ 'VerticalAlignment','middle','Color', ECOLOR,'userdata', labels(i,:) , ...
+ 'FontSize',EFSIZE, 'buttondownfcn', ...
+ ['tmpstr = get(gco, ''userdata'');'...
+ 'set(gco, ''userdata'', get(gco, ''string''));' ...
+ 'set(gco, ''string'', tmpstr); clear tmpstr;'] );
+ end
+%
+%%%%%%%%%%%%%%%%%%%%%% Print electrode numbers only %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+elseif strcmp(ELECTRODES,'numbers')
+ for i = 1:size(labels,1)
+ text(double(y(i)),double(x(i)),...
+ ELECTRODE_HEIGHT,int2str(allchansind(i)),'HorizontalAlignment','center',...
+ 'VerticalAlignment','middle','Color',ECOLOR,...
+ 'FontSize',EFSIZE)
+ end
+%
+%%%%%%%%%%%%%%%%%%%%%% Mark emarker2 electrodes only %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+elseif strcmp(ELECTRODES,'off') && ~isempty(EMARKER2CHANS)
+ hp2b = plot3(y(mark2chans),x(mark2chans),ones(size((mark2chans)))*ELECTRODE_HEIGHT,...
+ EMARKER2,'Color',EMARKER2COLOR,'markerfacecolor',EMARKER2COLOR,'linewidth',EMARKER2LINEWIDTH,'markersize',EMARKERSIZE2);
+end
+%
+%%%%%%%% Mark specified electrode locations with red filled disks %%%%%%%%%%%%%%%%%%%%%%
+%
+try,
+ if strcmpi(STYLE,'blank') % if mark-selected-channel-locations mode
+ for kk = 1:length(1:length(x))
+ if abs(Values(kk))
+ if strcmpi(PLOTDISK, 'off')
+ angleRatio = real(Values(kk))/(real(Values(kk))+imag(Values(kk)))*360;
+ radius = real(Values(kk))+imag(Values(kk));
+ allradius = [0.02 0.03 0.037 0.044 0.05];
+ radius = allradius(radius);
+ hp2 = disk(y(kk),x(kk),radius, [1 0 0], 0 , angleRatio, 16);
+ if angleRatio ~= 360
+ hp2 = disk(y(kk),x(kk),radius, [0 0 1], angleRatio, 360, 16);
+ end
+ else
+ tmpcolor = COLORARRAY{max(1,min(Values(kk), length(COLORARRAY)))};
+ hp2 = plot3(y(kk),x(kk),ELECTRODE_HEIGHT,EMARKER,'Color', tmpcolor, 'markersize', EMARKERSIZE1CHAN);
+ hp2 = disk(y(kk),x(kk),real(Values(kk))+imag(Values(kk)), tmpcolor, 0, 360, 10);
+ end
+ end
+ end
+ end
+catch, end
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%% Plot dipole(s) on the scalp map %%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+if ~isempty(DIPOLE)
+ hold on;
+ tmp = DIPOLE;
+ if isstruct(DIPOLE)
+ if ~isfield(tmp,'posxyz')
+ error('dipole structure is not an EEG.dipfit.model')
+ end
+ DIPOLE = []; % Note: invert x and y from dipplot usage
+ DIPOLE(:,1) = -tmp.posxyz(:,2)/DIPSPHERE; % -y -> x
+ DIPOLE(:,2) = tmp.posxyz(:,1)/DIPSPHERE; % x -> y
+ DIPOLE(:,3) = -tmp.momxyz(:,2);
+ DIPOLE(:,4) = tmp.momxyz(:,1);
+ DIPOLE(:,5) = tmp.momxyz(:,3);
+ else
+ DIPOLE(:,1) = -tmp(:,2); % same for vector input
+ DIPOLE(:,2) = tmp(:,1);
+ DIPOLE(:,3) = -tmp(:,4);
+ DIPOLE(:,4) = tmp(:,3);
+ end
+ for index = 1:size(DIPOLE,1)
+ if ~any(DIPOLE(index,:))
+ DIPOLE(index,:) = [];
+ end
+ end
+ DIPOLE(:,1:4) = DIPOLE(:,1:4)*rmax*(rmax/plotrad); % scale radius from 1 -> rmax (0.5)
+ DIPOLE(:,3:end) = (DIPOLE(:,3:end))*rmax/100000*(rmax/plotrad);
+ if strcmpi(DIPNORM, 'on')
+ for index = 1:size(DIPOLE,1)
+ DIPOLE(index,3:4) = DIPOLE(index,3:4)/norm(DIPOLE(index,3:end))*0.2;
+ end
+ elseif strcmpi(DIPNORMMAX, 'on')
+ for inorm = 1: size(DIPOLE,1)
+ normtmp(inorm) = norm(DIPOLE(inorm,3:5)); % Max norm of projection on XY
+ end
+ [maxnorm,maxnormindx] = max(normtmp);
+ for index = 1:size(DIPOLE,1)
+ DIPOLE(index,3:4) = DIPOLE(index,3:4)/norm(DIPOLE(index,3:4))*0.2*normtmp(index)/normtmp(maxnormindx);
+ end;
+ end
+ DIPOLE(:, 3:4) = DIPORIENT*DIPOLE(:, 3:4)*DIPLEN;
+
+ PLOT_DIPOLE=1;
+ if sum(DIPOLE(1,3:4).^2) <= 0.00001
+ if strcmpi(VERBOSE,'on')
+ fprintf('Note: dipole is length 0 - not plotted\n')
+ end
+ PLOT_DIPOLE = 0;
+ end
+ if 0 % sum(DIPOLE(1,1:2).^2) > plotrad
+ if strcmpi(VERBOSE,'on')
+ fprintf('Note: dipole is outside plotting area - not plotted\n')
+ end
+ PLOT_DIPOLE = 0;
+ end
+ if PLOT_DIPOLE
+ for index = 1:size(DIPOLE,1)
+ hh = plot( DIPOLE(index, 1), DIPOLE(index, 2), '.');
+ set(hh, 'color', DIPCOLOR, 'markersize', DIPSCALE*30);
+ hh = line( [DIPOLE(index, 1) DIPOLE(index, 1)+DIPOLE(index, 3)]', ...
+ [DIPOLE(index, 2) DIPOLE(index, 2)+DIPOLE(index, 4)]',[10 10]);
+ set(hh, 'color', DIPCOLOR, 'linewidth', DIPSCALE*30/7);
+ end
+ end
+end
+
+end % if ~ 'gridplot'
+
+%
+%%%%%%%%%%%%% Plot axis orientation %%%%%%%%%%%%%%%%%%%%
+%
+if strcmpi(DRAWAXIS, 'on')
+ axes('position', [0 0.85 0.08 0.1]);
+ axis off;
+ coordend1 = sqrt(-1)*3;
+ coordend2 = -3;
+ coordend1 = coordend1*exp(sqrt(-1)*rotate);
+ coordend2 = coordend2*exp(sqrt(-1)*rotate);
+
+ line([5 5+round(real(coordend1))]', [5 5+round(imag(coordend1))]', 'color', 'k');
+ line([5 5+round(real(coordend2))]', [5 5+round(imag(coordend2))]', 'color', 'k');
+ if round(real(coordend2))<0
+ text( 5+round(real(coordend2))*1.2, 5+round(imag(coordend2))*1.2-2, '+Y');
+ else text( 5+round(real(coordend2))*1.2, 5+round(imag(coordend2))*1.2, '+Y');
+ end
+ if round(real(coordend1))<0
+ text( 5+round(real(coordend1))*1.2, 5+round(imag(coordend1))*1.2+1.5, '+X');
+ else text( 5+round(real(coordend1))*1.2, 5+round(imag(coordend1))*1.2, '+X');
+ end
+ set(gca, 'xlim', [0 10], 'ylim', [0 10]);
+end
+
+%
+%%%%%%%%%%%%% Set EEGLAB background color to match head border %%%%%%%%%%%%%%%%%%%%%%%%
+%
+try,
+ set(gcf, 'color', BACKCOLOR);
+ catch,
+end;
+
+hold off
+axis off
+return
+
+%
+% X(2:size(X,1)-1,2:size(X,2)-1) = NaN;
+% X(isnan(X(:))) = [];
+% X(1:2:end) = [];
+% X(1:2:end) = [];
+% X(1:2:end) = [];
+
+function vq = gdatav4(x,y,v,xq,yq)
+%GDATAV4 MATLAB 4 GRIDDATA interpolation
+
+% Reference: David T. Sandwell, Biharmonic spline
+% interpolation of GEOS-3 and SEASAT altimeter
+% data, Geophysical Research Letters, 2, 139-142,
+% 1987. Describes interpolation using value or
+% gradient of value in any dimension.
+
+xy = x(:) + 1i*y(:);
+
+% Determine distances between points
+d = abs(xy - xy.');
+
+% Determine weights for interpolation
+g = (d.^2) .* (log(d)-1); % Green's function.
+% Fixup value of Green's function along diagonal
+g(1:size(d,1)+1:end) = 0;
+weights = g \ v(:);
+
+[m,n] = size(xq);
+vq = zeros(size(xq));
+xy = xy.';
+
+% Evaluate at requested points (xq,yq). Loop to save memory.
+for i=1:m
+ for j=1:n
+ d = abs(xq(i,j) + 1i*yq(i,j) - xy);
+ g = (d.^2) .* (log(d)-1); % Green's function.
+ % Value of Green's function at zero
+ g(d==0) = 0;
+ vq(i,j) = g * weights;
+ end
+end
+
+%
+%%%%%%%%%%%%% Draw circle %%%%%%%%%%%%%%%%%%%%%%%%
+%
+function h2 = disk(X, Y, radius, colorfill, oriangle, endangle, segments)
+ A = linspace(oriangle/180*pi, endangle/180*pi, segments-1);
+ if endangle-oriangle == 360
+ A = linspace(oriangle/180*pi, endangle/180*pi, segments);
+ h2 = patch( [X + cos(A)*radius(1)], [Y + sin(A)*radius(end)], zeros(1,segments)+3, colorfill);
+ else A = linspace(oriangle/180*pi, endangle/180*pi, segments-1);
+ h2 = patch( [X X + cos(A)*radius(1)], [Y Y + sin(A)*radius(end)], zeros(1,segments)+3, colorfill);
+ end
+ set(h2, 'FaceColor', colorfill);
+ set(h2, 'EdgeColor', 'none');
diff --git a/Studio V1/Functions/EEGLAB/Scalp/traditionaldipfit.m b/Studio V1/Functions/EEGLAB/Scalp/traditionaldipfit.m
new file mode 100755
index 00000000..120e7009
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/traditionaldipfit.m
@@ -0,0 +1,90 @@
+function [H] = traditionaldipfit(f);
+
+% TRADITIONALDIPFIT creates the homogenous spatial transformation matrix
+% for a 9 parameter traditionaldipfit "Talairach-model" transformation
+%
+% H = traditionaldipfit(f)
+%
+% The transformation vector f should contain the
+% x-shift
+% y-shift
+% z-shift
+% (in length-units of the coordinate system used. For the MNI brain
+% the unit is mm)
+% followed by the
+% pitch (rotation around x-axis)
+% roll (rotation around y-axis)
+% yaw (rotation around z-axis)
+% (in radians)
+% followed by the
+% x-rescaling factor
+% y-rescaling factor
+% z-rescaling factor
+% (in ratio = newscale/oldscale)
+%
+% H first applies scaling, then rotations, and finally the shifts.
+%
+% See also fieldtrip*/WARP3D.m
+
+% Copyright (C) 2000-2004, Robert Oostenveld
+%
+% This program is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published by
+% the Free Software Foundation; either version 2 of the License, or
+% (at your option) any later version.
+%
+% This program is distributed in the hope that it will be useful,
+% but WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+% compute the homogenous transformation matrix for the translation
+if length(f) == 6, f(7:9) = 1; end;
+
+T = eye(4,4);
+if isa( f, 'sym')
+ T = sym(T);
+end;
+T(1,4) = f(1);
+T(2,4) = f(2);
+T(3,4) = f(3);
+
+% precompute the sin/cos values of the angles
+cX = cos(f(4));
+cY = cos(f(5));
+cZ = cos(f(6));
+sX = sin(f(4));
+sY = sin(f(5));
+sZ = sin(f(6));
+
+% compute the homogenous transformation matrix for the rotation
+R = eye(4,4);
+if isa( f, 'sym')
+ R = sym(R);
+end;
+R(1,1) = cZ*cY + sZ*sX*sY;
+R(1,2) = sZ*cY + cZ*sX*sY;
+R(1,3) = cX*sY;
+R(2,1) = -sZ*cX;
+R(2,2) = cZ*cX;
+R(2,3) = sX;
+R(3,1) = sZ*sX*cY - cZ*sY;
+R(3,2) = -cZ*sX*cY - sZ*sY;
+R(3,3) = cX*cY;
+
+% compute the homogenous transformation matrix for the scaling
+S = eye(4,4);
+if isa( f, 'sym')
+ S = sym(S);
+end;
+S(1,1) = f(7);
+S(2,2) = f(8);
+S(3,3) = f(9);
+
+% compute the homogenous coordinate transformation matrix for use by WARP3D
+H = T*R*S;
+
diff --git a/Studio V1/Functions/EEGLAB/Scalp/union_bc.m b/Studio V1/Functions/EEGLAB/Scalp/union_bc.m
new file mode 100755
index 00000000..a307b3ba
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/union_bc.m
@@ -0,0 +1,56 @@
+% union_bc - union backward compatible with Matlab versions prior to 2013a
+
+% Copyright (C) 2013 Arnaud Delorme
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [C,IA,IB] = union_bc(A,B,varargin)
+
+errorFlag = error_bc;
+
+v = version;
+indp = find(v == '.');
+v = str2num(v(1:indp(2)-1));
+if v > 7.19, v = floor(v) + rem(v,1)/10; end
+
+if nargin > 2
+ ind = strmatch('legacy', varargin);
+ if ~isempty(ind)
+ varargin(ind) = [];
+ end
+end
+
+if v >= 7.14
+ [C,IA,IB] = union(A,B,varargin{:},'legacy');
+ if errorFlag
+ [C2,IA2,IB2] = union(A,B,varargin{:});
+ if (~isequal(C, C2) || ~isequal(IA, IA2) || ~isequal(IB, IB2))
+ warning('backward compatibility issue with call to union function');
+ end
+ end
+else
+ [C,IA,IB] = union(A,B,varargin{:});
+end
diff --git a/Studio V1/Functions/EEGLAB/Scalp/unique_bc.m b/Studio V1/Functions/EEGLAB/Scalp/unique_bc.m
new file mode 100755
index 00000000..e6d1195d
--- /dev/null
+++ b/Studio V1/Functions/EEGLAB/Scalp/unique_bc.m
@@ -0,0 +1,56 @@
+% unique_bc - unique backward compatible with Matlab versions prior to 2013a
+
+% Copyright (C) 2013 Arnaud Delorme
+%
+% This file is part of EEGLAB, see http://www.eeglab.org
+% for the documentation and details.
+%
+% Redistribution and use in source and binary forms, with or without
+% modification, are permitted provided that the following conditions are met:
+%
+% 1. Redistributions of source code must retain the above copyright notice,
+% this list of conditions and the following disclaimer.
+%
+% 2. Redistributions in binary form must reproduce the above copyright notice,
+% this list of conditions and the following disclaimer in the documentation
+% and/or other materials provided with the distribution.
+%
+% THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+% AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+% IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+% ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
+% LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+% CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+% SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+% INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+% CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+% ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
+% THE POSSIBILITY OF SUCH DAMAGE.
+
+function [C,IA,IB] = unique_bc(A,varargin)
+
+errorFlag = error_bc;
+
+v = version;
+indp = find(v == '.');
+v = str2num(v(1:indp(2)-1));
+if v > 7.19, v = floor(v) + rem(v,1)/10; end
+
+if nargin > 2
+ ind = strmatch('legacy', varargin);
+ if ~isempty(ind)
+ varargin(ind) = [];
+ end
+end
+
+if v >= 7.14
+ [C,IA,IB] = unique(A,varargin{:},'legacy');
+ if errorFlag
+ [C2,IA2] = unique(A,varargin{:});
+ if ~isequal(C, C2) || ~isequal(IA, IA2) || ~isequal(IB, IB2)
+ warning('backward compatibility issue with call to unique function');
+ end
+ end
+else
+ [C,IA,IB] = unique(A,varargin{:});
+end
diff --git a/Studio V1/Functions/EEGLAB/supportfiles/EEGLAB_compile_splash.jpg b/Studio V1/Functions/EEGLAB/supportfiles/EEGLAB_compile_splash.jpg
new file mode 100755
index 0000000000000000000000000000000000000000..afac30ff379139065975767fa0bac633cc354901
GIT binary patch
literal 220672
zcmeFa2|SeF+cOmNsA?0lAV|kijaLb
zr0j$2X3Wh0%!ron_xt<(p67j@|NDMEZ@15V-)FtfwVmsnbI;`*ayz-7=ZLDegDnJU
zX+g&z2-*N`p@AS;5Tc>ELwS4;>w@q)YM7Gun1+5O9a;y{w|@_ViZm?W!=Mxm8?>GR
z2i);Ad)LBgG)I1_D@1_+aezCUMwlAj3Brv*4iFu9Q|bb^0#UEG6Wsoy82eK
zL0ZGP&e$W}ktlnl3zxFK7?+k6%)yxwhlB-%B&7w#q=iJeKtM=BT0|UxgXjQR43xK^
zu&~gR@AQ$$5cFi-YMV4=PiTLHDV4xQPec11Z~C8UqjCO08;$4Bw5_9AgW!i=@TSm5eUsbCIA{x%9t&kHXdQV1Vxq<%o6D4P4bw#}P1
zZ)0KJvW1z2b;k~t9XnXJZJ}P@Un`N{pEQh{H#0IZZe?QHx|4~CX(#2uv~#7(w*LeG
z`7N|<1M~!XLQBI9t=mRJyN!n21Bl#2en+DKuv||=y#T_Lixy}M-FkY44I4LYrujXS
z23kkEnz6;Zl{a||%%~lXh`*j4
z`L6lPY(h>&%hx$0ThGAziMf@ngYy#VXYIU#qLT8e+J+XkLF?85Z0V>tG0?9UqoS~1
zXgeLiz?FN)df_W~cTzAY)oYj%;j!*_yLwMqp9O{z{dSO^f&jxIv9d;h#Pi)Ys)pk3
z@Xu=~{4)lJf1p6_gtpL9+uQ~zK;swfPLJq}7>k<(gu(B_T8D~TvhQhnpl)Rmjz33#
z^%NjxH}~+8p?lI^B$iZCf^nqngFF7!!(?dbTre4O5)DFS8f6(AhT`KQOL_iA?FK{{bukv`>bp2(*N&
z>y3tt^eFR>zcCLF)A!pEmQ#9v2Z@cfzP2m#OltaE>ILz~3D?!)9p8wBZd>Y76_`I*
zhQ4c9EHM5uj0{CCV&Xu4=Osq?~zQ9sy=7JmWFvi9*Y6O+PWI;1yVjDcAz
zoeXUvu-6YZHBP3pcI4y|j@DK3T#T1agf?~(U%EUS?6GLX@8!6TK5kfud5u>fowX)I
zU0Ry+7V2cEdfbBGkShE#`O#$B{Opi1(*ezLlguY0#yObyF#VBq+3u$|uiuS8zil15
z@_G1H)qEQ7DL`}!L12~8W(<55z5KF*4CO`_kRs;-l8a<^l{|%=3yb7+*n*I2ya2!Q
zk(Sgf(qtq(d3My>@6;PdL~2UvaadxdXkbB|pEGLQ1r=R?LH01RGu2b!2ehd15(*>Q
z0V9lbRL1sc9+&Ty&Cua4>>Tn-3@lf2*y}fb3wsXx5NCET5>WT#CvI8%AXGgf;n**E
z8O?aRQ+B87UcX_#IG({#C4@_V`Zn+Z>eQzV`}9fbqY8^gSbW3=eex$9-hmA9xKA!0
zKl{b#pwS3+T3wqAmF4)WI2gTcxb`|CK}|2h!KnJIK(n9-+Ud(z|9XE>5D;U
zb`Q*s37Hc7%;N6&6$KN|7WqXs5pRvbgI`7jXQQ(BU(2cTwUqI!%o&=IK({15+|Uwn
zS-V~?qAnq9F8siYfxfQr^9zoFciI?QJHN<1#j5J0*vwrbMGcec3R5|~N^*mw5$Vq=
z^Cu7rj|#Ah+lLjD8Re65@R^P6E}Z$eE(>DB1cLRXZ|>dqo}WCXQFj*hW2cVxN7>!0
z86XyEux1gIt8mwKr|08yd&fFq{zDy}G6TcY
zh1(Z>Q`|P;)%m{tTMjfGhM`zT1SEO1A)3
z(S361KoYv&6vKV=?18L}FlkBBnC8v#0|lp@tL#&%I!g_|;B|J120^Cvu#(V8-QF*}
zMVy9*Dz~%uDA8q4p`}t{Uygolz3Ag;$#?6DQz#$WmxBzQoel9Sn)Tf-Ids4^()-9s
z#)`r)e;Gbess4iPY@O%l#VYEySB?>8W;@7`QP8=-st&WgW@+&71O>Jm)bj=qBwUqSYb!w%dDio_U_v9wzc=>wKD%n?oM}
ztmde*z%H{?anxnHAkH~mNq?3p-ri-3dqP}ix_8$6ajMJ2D?_c1xmA9GyJYixZ2aaD8bMzxGUh+vjt8XkR79E=m~hF}9UT&RsV;
z{z7&Wy3A0YN4O}RNQMTROFkfohrbBNIKjeROnSH*h}a}D#G3r*>=)A+i)Rbb0q4eGIwKnVbK|Io`nl49
z@)=39O(*&DrQU7)vVFr9dF)qy{n4+xv3F`-%c)DSiEn0~*@d&!it;UfoRk3H0>g;R
zC_Ks(m~G~_?3Z92i25jZepzzS-=e|EtzB;7ywAr)dZ|;gJg%-Ad`n9B1?D&l=hMr4
zawT9gS3q(1H0)$
zpZ=T2D@;1=qz!*AVd9T
z=uzD=1_Ls57avAq$s;9L9H%8W{;M8*VUBq?W0CXySG~bEotDxY*{(REWA&pekT1}x
z=(i;GV`u68o>n0=wtBE=KOQ7Ql7pQIp*5RA7evL`CA+vAmg9T_q9+r`(3NMmV&bD*
z={ZO<3bD%xoW?3u<-N7qkFiO!F-M+9ayJ{k+BNoOtH-@>RdYQ>7Y>-R(W<=t#uGOa
z%YP<5oAD~m4#vIS-?~inPafTMcE*WRgr2NP%8B_})MFl(*hsV0ZYBY>$D%e5k0V1E
z{-9&GQC^+Gdq<5b*=pf2r9E&@=XToeNk2o}{INH61EV!Jhs@jd;!T>f{NCR4jdotf
zj;GdjJHk{hH-Wj7VXhPLL7BTphJxRoO{K6vm5Dn|Nq92k;KrIj`w=B3q-b|v26KEoc_%5+Bv>ku}nG=IoRXXXQK4&^~{K=sL7S*wxD7G;3`0b{oUHJB6IV
zUn*)YNzmM$kIMHGAw&GaUzfZwIw1okoS`O52Z;hY6R$n2<}CDM
z7;{sVZ%%OunLdjiF0V>?MQhsT+C71{=rkO6?)L3DWMWttCse?3nSPfPT`UgufhX2{
zq{(YA1x-%``suvRtpaaaEh~Jx7(KdpK5XNCNy2t^ak9yjO7KJbVVDfd{
zi3}yH|1@KX%r&7UH~o|1(oG%id#QRY=VH+8*=6Q0Zb`nm-8gIS^$njDKADiAIF|1D
z`~g||d#5iS2xl@F7eIYLoTmw^&Gw3$Lc$C(JFJYQ6Dt=UI$tl`Ch`&Qv~b`_c6TWw
z;@GtC(zbGxE+Bk}rGF9vZl4Y#`smN^+~!>&D4xjSL8=p*;ug$#wZ4ZgDZc!5jh
z;_(*3^T4wsK5=Oo*?wlD2eXP!z+zvYTiz+3(0Y7W(7n^NQSA)_e}KR!89I$&IIwL=
zT)OCMo%8(mlM9Z>EYJEcLdr?*y-{ihy-&X{ev*G@v!=>YhqD~|fkN4F_Ns%jj~X7G
z3_TFXVMbIy?&9^XPa;e?O;;M1&?*GI--r?xeooSCyHnqy5VMROE(kyr20Zfch*93+
zj{uX;_?*ngsxo1;Z{6T0;!?eNT|6ElIl>du@8{|6-8+hpB=UtUw>ZSg2ezBcXU_YT
zwEOyLH8M}&ef{rYzL|S3y%DTnR5?vEz%pD_QBh8uR1WxXN#N1f8TLoIOYrQ3<^CnK
zYI+M_M?>NDkcQf_YH!Y#^g5N{cbKQ{HRc)~?K$l>A9o99Akg=cqMGcB*gmSkB|g1>
zSuIT4`)N|UVZ>xaDrCN6q<|nnhOVhrR#cT&RFzidwCUf}JZAg3ZCB2foYxlmCIypS
zlV>i8L=iFsWVb(qf7BE`NrohjR0?tSdMU~Z3e(;wgHIdVb_>6*_e#yY?~fouYS)`EUqWL+r@63vYo3cv{?eOEEw`h~N2~Uc
zLRVGweh^`sLQUR(Hfoja>*#qVJxmM8VjxZY!~1;_C`
zHMxZ#_c(5ZrATO8oWWqUz1O_$?3<{K?UVY=8N)9m_VVl^eCyl2eLWLH4F0p5@>zueK2JUGzB%O;tGm3**kfGhAntkNbjX-0|VWQaceSWSL$
zX-+|Z7au${GyMj_Hpy{LK0rY}{XPj`{jx>L!8NPN)mr<
z1+2%YVf8(+cAr%CX)<*Bol(AamF7m2$OtR45f+`&@~FC4*aXqp*>QgGEaJ*tj4yMd
zF%hFY60f>V+1)&ClXmCDz^VzcV7iM3GhSuK)y+lYULvRcM4S7Vb>{BJ>7B-lV;r>y
zt5W*rUs%N4B130_;s)c)VsZ%OH=F|eP9sy#x5}UkZaI!F+DNt!7&T7Dv(q3n>`@jl
z1S0R%#m6yv>ptu>*x06Z&o5x_jiRchHcwKgYml<3shnk-o18uw3O})@y}+>}bb5&4
zm9**L{d}oVvErAV^X9EYSufJVxPI0Uqcgs&L$6vFE_<>H6%CJi9y~FeQg6#!S_KP;
z=I`!N5|2W+6u*BQdz%DVw1Jbj
zakYK=N%`60^Y<2Rb5SaO}sgHDAqa|NGS!;-#SPt(jSWao~nYF;!*1H{e
z4-@Y3fbj?l)xU(8IxD4myX4|(lw?m@
z(QaG@!s~2S7on&^%$g4s*$^;yh_|d>shyo{(%mD(wxh(2}R%c`>`J$3o;7-t3NI)v(fs~3;8|9hy|g^EqA=KFHZIp
zkg9yg5k!kwi+CMQ;liDB0|OJuZM)^tQxXk^0`I+T>zLqdl;a#KmRrm-87D(8k9fn&S6@7bcSgkGb!Ny=qko86Uf!pw{&EB@JI$pUPOLwHGimZ!fP+(D
zt^~}XlQ{`?dE2b{)R1pET3u_~5obuf>WOMsEE#HfGK4tlAhgALD`JyT+|8EzCv_<8i!{wa(e+
z@Pc&2zJemi@&28SoR5334++5;=IUqbQkh@EjnL|01-;W|g`)P06
ze$DE;lV2@s@fnYvc!UYA)RoQk<}~7sw1`(BpuMhSH4DFT5_a^QCyI-OqQd4)v2KU8
z-g(5Tv*91wCzf&Sv*bglnsuKWkxI{uvM92{%qVCqJ^p6tVL6nC+mhyp-zCfJK*ZIV
z`3VRPnk%K_X6Xt)nIe4Lb4p^Oy^3bymOBT&O-l)(9=NLUly|cmc~;7~z2uxIdW3m5
z6wb`N>x~#0a*LA9!u3dH2r}M})nEf!?d^}!eJjqMX|f;-Rnf9V2R62?k8M@PIJ&Fv
z+I^Y2DKfNvSaf(9YhAeOD<8@=fOfG_Q-f1;n1D&^xnZ2~#_BVh(=M@`?9Hmt
zyT)BnU85pijSI>BxpzZbTj|7=wV!MomFX}uKkkdbVn%Xk+0RVGg=K~yAV-F5XNBi7
z=*WrX*}{kg{6V|ak!CRSkjGl)d_JAmgi3tvH-GVV#}X#tO!X{LHkd!N*4}1!&db0k
zO`Sv>reB;8G1f7Ekya%qEThr$^T95Tfnw|!>8|pjaU6
z8<}H91C0s?w5~@HX>dZo;IhSkD)2F1PCThmbRkW{Ny@EBocnH_hI4UJ`0dO_0JH4yJg6L##-9KP0
zn6)p4_6C1*{yhlhCH1uq&u3WD5<^%7U-`htt9zO_6AUJd1jj7#)H}Mm`q~9AD&ZQ@6ggtVpBs3-O5XIdP4;DI*M!YpIZ`P0=|~bmAz9xw=3Z5An+(E_
zknqyCUJN(iHc5u+gDvK>4r0@E^ISTf581{nj4TgLBx6!xIM0vKdH%M8B?`Gwd-Q{E
zweDiu>m0~z=n^)N@dB3h|x>LWro~B1_9)IwmObr{>$l0>De*(o%RJUz&_LVb7tG9>k
zDbha`^77eJ!<>BmSKF(!-&S|mcO(3Y6vRZX=MJ>vaSmJ?I~N&y4i$Ggb=gj0d$V7R
zsutXr?oO^eNO~ZExXfUez>>8+6%2*G7Was8QIGmxDAdF4Pp8FzP2T)0nX@GCG|JCx|v5KXBG&esuKrYMSGS%J**(
zFyu}Fle*cO9#|NZ?~FkB<`Vp`?*3^eZR}~dhlxmAtXMkXLeF!TwufkF@pIpb12gSc
zl$rLYAKhr~NQK@=k9tC0LSLJ$r<~{6Ff)#-_D_9%J*Isj1oe3I*H8gsABiX1}kJ*qsZ!kY$+nVLC
z>W_Pj*Ec5xJD-z6=QzBq_Po3YrRV|+NyieCz_KP-IX5nKUg$Q`ASJQY5w+ec@UoNd
zG>2yxvMH;pK)l{9+8jG~C1GIRNk`TE8b@xIyP$7eClPL}uH3h(7}wNI>bxrkiA|ayLz~ff
z8^p0;q`!WZae5rW0alJg=DDQ5%)BQbH;f)>zbjE3si*$c&zct&6E;%NB35rnJk-S)
z>XhECGic3h5(0h(m`zbWo`KB4*r9I1inn{_Tlagb(~nIp@9c24u<(!x-EpC)xoe~lH(;Za
z(guEC#I#qUOA}LNUbfeG^+l(pWq!2s$KgCmVji?Hh+|Ch$NeyMBtM037mB@!Oi8;X
z(gO;U^pvNSuVI|W=E%?%+~Y5_O@&;^IW2A1tzta$TCMD|FZ!M{mzZ^i6}LFgHsbv^
zIS<$pVVC@pAcM`0uH1cK^_n@hJUNt3y^TXP+^UEx$2vitP1k+Ee
z;TxlV-wU@snd47t>}kwO&5+@!;jPL{gE>0z+#hbe#vJq|iQGZP@v;8!v=QMKgd|UB
zXwgx;bRcLqJB=wsyZ4~_+8cQFP#k-xWe!ryY^^%C`>T77^ITVnRK(j6A9HG+G&OGs
zJhy_I;tvBsn_b+13y+S6yNicAh*Fz4gL2omMj{=lB{ZDf;c#aUCrV*TnDSP3bfd(X
zsde=oyeTD4IJi^lP_kEG!rip3oZtqk#s(ls3Q~sPkQ;a+Auh-Ugl!=!$OCeO+(DcV
z+$W(k;7Q4M1h*Rqp9UpR)LN&&lTyx>n&$;VT96vGycQ%0{scja8KeqAYLF6i0+N8v
zfi|f$%TN%ac?}*vXx{!4%{ngb4oGJd$lp#WsqEtJyh;Wj)7ottLjxqGffRGl1E)*^tDKR};=A?$RlFTg1W(viY62YE7GIIQG;8*`){pVeN!cSh?>VleNrC^m%rDVrbahG5Se;?*91mtDn-FL
zsP*^!8mFD1#y3)*;6X#xAK?E+xi+l|23kj{OFKtRJqZce+JYQM@C1Hp;G+4S^7LW!
zT8c0=-4r}m%ZO1^_VujmNR4e+aXzD=p{7wNp-@NB3tDQ*25QRp9=A>rfCl$>IZ*r$zZ)8ASvE?P)&e|M
z_(O?8G-WF{!~(jtDx?mK0i|PGKrmn&oB)>`fGL23I0}RvsfNOyQjJ>q*T+w3YfyhF
z@l%1d^zW!s;?5q96styI3cWSb!`TM)TVI8_3xPbU<)kRMBhuLp#HkmhBm5jc;f{1#
ziBnJkecR6ddprm4G3`Q#tccePp8SZA~4z~dbkb#fOs;S?!QkarL$3y_KW8ftB4arI=uFP!I0yu7NsfpmloHXl+JQo^Ut!zbS6Cn*3|=&DM6xNJpgG
zPt4u60{?{iS_Y^BX(OE}yx!=JbOFOL3jVX=Y;pvO^q15v)<}1tP=86^3`A`IdvR)C
zJ3?s)+5+x%3RBeZ$|$*w8U_x?)KV0$;1z}5M2%C*L)<0cLE-q5m7AsyqTvNW?q?7y
z@R|MNQ~SrK_K#2PAD`MkKDB>*YXA7u{_&~(<5T;`r}mFe?H`}oKR&fZ}YXA7u
z{_&~(<5T;`r}mFe?H`}oKR&g8d}{yr)c*0Q{o_;n$EWs>PwgL{+CM(Ee|&2H_|*RK
zsr}dCSnIIKXBA-I9B3vgfsPGvU0q0Ab%l5qilQhN|~2RDiuasefF
z{F@RKk5zqW#i5VV0`n7438Gj<{$kVdTqN>QD_P*09f{BuAp6~`5)uoZtnH8*vzwHSlRN4Me=$N=^u1l!utK;(Xw4tsZZ7ij?jXB58`WlutW
z7}80=+sZ{ih+j|ul2!0_v4SDs?p)Sz;QJ=WJz0d|=5nx+<31~5S(t0Xt-`fH)IqvU7d3ky9dx`KP-RuN}q@<)MFocEqKnXsSkF&d#H=i@=z$ye4
zI11+GK=ohdqCf<`xgPFv+yGN52{1R*8rWZW1p{u`ZdQD5R$hF-%go&Y$d1ap)ru~w
zdp!Pq^|kC@DgpNWeeqSvtU|Yet(9{D?tWBKZD0a$N4OK**`0!k5QW(*QgCw7(poG2
z3lXbeot)N6qufz`42B7$r^h^V34wz~#6_D9yP@D}xH|aNtl4l7O-Z
z^9hRa35yyCNl6QdNDGVc2}%H!St$zYIoSHF6_unE6#_-SZ?pMJQJ|?dz)AZ*DojNI
z_$2~|?p2-s@jnN@?C#0UWdoD8MY=gz0romLS=qq_F1Wz$sOV{FNozQx+^w8pa19kX
zZa^EqgM*EKQ)tE#G>Ryy&skg1szNNbq_{|3fMD`z_{2WKvKd$=2XKbL_$oNEOv
zmzRUH4bqFt$;yYz-3kHc@^Ineaz}CraXC3Sd$_|XVJnw^X#D>nR2R6F8<&->JKPQ6
z<$&S>Ua4F*4k#;1IzKmsBms)CS>cetKk)EJ@~Uu@fP$dF{}B8ghvg|+^Pfn5rD;cp
ze?;Q%S_8m=qMdZ0wC?j=BKmOGAF`p^4QVSF)1wxSr(9@N?RXSiuXNsfp4_aKT+<@i+xq@NA)(z>z^`j@R=o2trFe?fZ1U#K>
zzK^YIg8b)(Y~XGVKe6oRX4Y`v`k!p@-%IFsk{6@#GW1OJ)>KM0D?0>7r{Chfn@A>~VIz;|2(XrO+R!z*$U6R@n
zttb}!|Dgu|y@Y=6`Tws=h&ouV3^xM5k3=hRl@m`m1AjR1|053k_)H6T2J2Wa@DcW>V^|cy=irrNSXTef{6BcF`*G2(T|d>M96GXY
zE#p58P>*4uDWfT)r2*%b{5Xb13LL{i`C?5^3z`7$?-w2A2o{=k>o?I-j$xsrWd6vd
zoWer0az+cN3eLEpS;s)XdD|w2E$epBtQ^q-&V1Rvf5()NlI~8HjaIH#xOW+W!&pii
z4BYSM?q=;5J|G&AE#`4OAxFGbqD^wow-b7eO+3v9TRg2_i)0xd@^VvFfk&zxJ{y(S
zzUiJ#ylUW)tIzad0p-^cQQ_}w)$L9KBEZ=z>*(k=F)`570|Y?B+vuSE+t&-xE9vfF
zuyVc2y>r9Vm8Y2v!mk?-u#}$A1IMq3=%Yjp#0+;m3kZMCBfhc!n>8$}sZ6=t{ow9+
z50z}2L)TPWjD9^=CH8zh+OBf{*UTowp%tcw-Vy
z=`-^+59>>0$Xb5gQaPc)opfJJf4RwFc`spb>A}M}18g2z@scEGd)Va?7t(BxLP7{<
zt$181rUdygU^E%yOuD@2qL9f+bE%&=T!_|WQ;2p_2tZ%LiZHb3lX{3WQv?507icpNQ_lJdtN-{s+il$EANk)58_KR*4$<
zjVKW+QGMtYel-DpiK0b2(e$LH5?kgJJ7N)@w*M{Z-KF(2K?{i^L|%K6LpF(#ICJSE
zr$IfzYnGw>3h~Aw^APi-RukU1VU5*QEk7XB0!jP|S!53E*G<8CoI(`(uk8Asy(Xw`
zGL#Tvx5_Y~Fn}56XUv9v!OT#Hfc}ozW(sEYKVv4J95+vfhM9wCfh;)xDhquDu#5e7
zVJQ5qFv!rqmIfL67b-@EkU#0z@8ZxWVS$dVi39bkIFkM=ME@cV`INZ%NkB8}swn@C
zVRe=070n+3dn*5?`u{0f!M|&Xp%zsZw^udnzd#af6zq@$I@MD9zwUEDw+~P{>|fFL
z|BkjA#TYdG*7VRSH*f!qavRouSMHmvf1^UFE8L_dY#02S-h5VKRfBje|E4>?TazFVD}bTFM%Rj!R6Qnp=3`r%y_raCY^N8q;|H9@&Jwoy;+i
zKNsdhhPeG-hCZ&vUoA)U;v|j_^OmGGWSoud%uLvs$H@KWXw|lfw4~g;duUB?c9K2q
zP1+D03nSU8QKKDU)(SHWR>Tj>qSbg@cN0FbmgrS|+P+ISegS)BlHF|Y(&6|^
zv)3*TUptVu{^+TGy@-VMp?VQd7@&0#w0+IKzGj|zSEA{7p3O2n4YIkf#B=$i!;9HR
zJLkae%6Yy1DP|uq%W`tV_pwR}e~_0P=w>*8+7Z`qfPd4xRrcJ5J7SG|HkI_Zr2#e;d{Ba6@bO1m_c
zDyJVYn_vh&L!*(T42u}`Uu#v$*^?pMLR^Z`3?ZpuwY5DfxG
z&ATt_PFa4>O6QS1|7fNvZzPi7&w)7Wgmmbav3
z*T9Fd)2ZO3XX>=5%Zuo{*r<#firbt3HvW9H)+B?Iz|h`mmo;?A5a-XR#!?83rx0k!
zN7DZ}he|pnM-Dp^iK)W<1`%L#(ywG@?i3js7@pNcb~JrcFAd0znhE(T$&q~r@Ff_R
zP!hD9^gCy$%}pv83XtSGe`EC;)9zzQ@@tgKI4DT=>Q7P0TR^9rB|}G_uTn15rO|M}
z$3@Oz|5yK+9x^0lwv7J4GZ_aIUTyjj6mbXeY&4P#RsBK)TZzb(F%4#_%78sen|{gM
zOW`$zLhNqMOA6SaC=&{i;Z!2;Cyh{8>ac&FP%kl(fT{ZSI|r)LdE~J^U%>%a0A0=x
zYxpvC>eNX@49Eip0gMtzVarKHYneh_niQ>qwcg`Iz5%Kj4tD7Dv|r`z?fKUv*EdPD
ztGSD7ssr1X9Y>W`+GTYAB+%3$GE~$s?75=<3<#hAK_->-ddd`ii~{V-&05V|RY)qj
zLqt)`Co&X44WuKB
zf}RviF}SyLX+d28pA4W_PrJVNsWi~1_=Tu!C#6^{qqp7|o&_)ms9hlbqvwkHbfI;8
z@X6?xiDAmQ#D^69U(tdqV
z&B`7MC5t7U7Fkri1kzHcS{AAfFq^*jD*-Kna}j@HYa_{nq5!WIki|p;OgWK6mE%e^
zszHK*yxD;I7O=;71klMqCt)31EMzO07oOq?lFdSfdRjc1m+26tL
zBSSVE0PyHSbQNHGErsn=lT{NEe3<(HfooyT6zJVNg1&JTbiI?n>GZFXif-AJ3T*sU
zQnz8T3E&KrYo}qXZO2|cs1&?$yx<4X$l1jfe$UtVWJfbIxsJnG(z?wmWvnqe5-anJ%pYE+hOj8wOPzm
zEx4zuf_+k*@L~&rLPzl?@{5GU18oENIQ@|eYL6t$nJ^M9cvI277jMTF-5n~A-}WFn
zvALWrzkHaJi^!SrTzk{NK7V;EGiPbqNG0O-+@dFf&Gi;Yqv@X*lXf{vo6*ydwBAK}
zS+>iYlo%oj04(}x*=cXO&4giAXl@nld&zJfBwy+EN7~u;x=b&L#Zn5*FD}c-f_7gD
zwe@i<1lNOxz8&5(_RVt%91TMO>2Rg39}`zU2!h_AxqVOjb3-I6)0i;NyOv7i0E)C3
z<#~RfA&@y4jO3@Z(MH4uj4Wn5lv?mJ_<%jQ&D|YJ&6$deB=G*ojOSV|XL(^6S%lb<
zg*cO@tNHuW~zrTw@sT^8)d|7^Cg$iFXq@(tT!BW2XYKk59jJ+wAcc
zv!HT>5MAFAPHgniDGg}6N@qe%-#FpX+qsfP*K({TZ;v+;!R3G4IU
z+V0KzYZ(oti%KHgW#JcHau(ouudi8-c$JlA-@M&$#BBZLASF?b!vzu2)`#|8X0Y0)
z_P7Jre*BIGOHI4r=qVl+=vz5URPl3f&COrT#mWZZ0z
z9a5jzPO`W+)03x{b5=C3fM^w&W}_FApGt5s?W8oQzVc!_xRl|guQb%u>Vo9Cw3qR|#fwt`dp
z8W>=Ck7L~ngDv2gCmpwBJ~}!&
z&dd?6xQ*`0{0W!-50~jYr2|hq>fpW^ocC^Bm`?DEUOCOZrn9wi!Nh#K#;_B<`6G%1
zOQ`OBY#jZbLkwqP2VU&$
zF6ul&Nbc0S!#ca=Nxc?0)bKnGIYv!u012_2X|P%mw5+
z6~%v48to?FKGU@Bzmn)*dy;|GXC0q5m)CrLKbmL;XC__OuO)rEVE0{eY_k!B@L-{*
z-Fs{{i3u;Tbu>wi<>(bTTh=bPGn)#(RuOr4p=0QI%4=wZjw9lhJNuV0nsycOeTw$g
zGW(^js)sWNzF~Quqd8HwFz&O9?ja8qV%~yTao8k_K40}r-
zb_L8v@@NkS^P(cI9lb3leL?f+0Nbr*Z;`TA`}W4{cQs>EQww5ywb{XtP}HB-2F9|B
z-$FANWo2mlTipl5-cHKMq7`NRhYHy$A6e(T9h>?_zyph10~t(Tk{0bdOq)?BLov;_
zy&mrk!_0z#R`*KV#G+s9%5YrX3x+^2pc6~MRHD@UTc*07O}
zhyL7$j=WZTsxhOrD8jAqMVL{Gd^yQBX!hQ6(7WRD1vBEP?^qZETSulv7`dr9!`f?R
zy#jT-$>}bLS{rZbSH>Ir?LlP7D|xh*1ucPLpT4AFs6
zI_I!9TZYNoF>pG@L+a2-WTwG`ktG=nHjg>@*j#p8>GdtK*cBp4GY#A4KhfpwCkLh$
zUoxK!wqLpSmg^wnSCgd0Yoh%YzKkFJ
zL*7Wv>`v`gd^eClkX<@(=|!vaCm}Hl-7d=k-ZP&`bv@w~+=Fa9OIK?|b@O9)@V2#=ZPUicOZEv;kXcX&Cup&p6Tj2(G(
z?P8qvK%T?puApG2APtF6=!!3uz6?{=-QH4HoY_(3)7imgud3@$S=c%qdrYtNE}RCO
zV^grboyLwA*3A9nq|R;aNy~2&GUF_5dc4#0rk^(XCT+LYXN#2ce!_I_B)%#9VMCkV
z;fZO(Xa#qPVVWEM@h2m?9)TlCwwgF5IrsE2z2)G_%iDQ%KR8V4os_)H;b7y*yHJy=2PGu-=o8N_54sL*O>mq0aPq`UTvyK9griET-34xiF*_5Ec%-}@
zJLY$p7R6dV)Kb6YL`5R39xiW~Wz?Z{F2iHo?+}rWJ;{_c%2VUeQGV@`K`YP6&+Xa%
z4>ox4+zLIV+fCPJxwZLliRy)8+oiv8DW04O5n}S$Q7L<~k`Uo%)T)-n$9sf#A^~>w
zKmsi7q`2!m`d};b1ac6}dYoe~mox!_XJ_z48Pp)E=-YF{SksomO
z%YCVj5orOZ-z`aX@8OB5=wgc0c8XWYkyowWP@ic?7)-ZrF%*9~!uYnDSvh{YBy>|*
ztDDs(O9*+s@mizV%_xx%XMl`|f5|NO79avzFHVu-1%S7DpCB9_%wzye{k=9r%exP;hsVm06hOjT@|0
zf{)(k9(i!-gw?*ww3eGTwv8kZ1|~n33A-P@VTB)?zQkd{%n{vm9V`%L{6m4Yy0vBg
zm5s%D_yrCLM~vAiKHYasv+tcQhvyx3creVb6_Bnr^~$lC>&A_p?BKlS!QR$V(dQVG
zh0I-^sq5M4k5!~07T#+}**17F_IDgUc;vOpj>OWduX(w5cz!8uk7fvubiB;!D^qcU
zA50Q2xpz9w$#oyWI2|r)6ib
z>N*)ocejw^?(OFemhE#b`;Jtb%H2*wMD(g_yhd=9c5-uvCkp6l)tuev3~@&fAJdQW
z3$kjVzs1HO`ItF~MGA)uIkwog{o}ay3&Oj1maN)Oj;)WnvRm!w4(3m{mA7zhyoP0c
zwtn6G#vJ+b!*{#|E2`GZv+L5Q3+>)v-84@86003~+|T!X1|}ddz_gMm8GL;AJ)0oM
zk2d=XHEx#D=8G7q3I}Ql2|ruE_2_A*%P_v?)1^vchnZL(ZEE5@;ipmV4Mw=P=8>=u
zkL;38nfCDQ7g;xN{Ukm$JXT%r_LD~ucb&~sTt-dGgi_;sROwE`wQoEsJ1mr=>A@CX
z8*hVp*Zv@aW#DE^+Y7wQS8rf$Rs6^hGiqhob&0Z|Io=0MbT4NNu&!W5>6`a`MV8bK
zhMEjj*H8>IWpP$<(M6`-Yxoi;Sh3k=f1}JreC8>`TW02IZuvfBe+gLi7_hS)4ll2n
zW6%=cc{IRgX3?8;|AC{Vpvz+}(q!1ELtt6uwnr(Xv^ItOWQ9O6Cj&=?L3@mb!23&@
z-3lHb7Luo3KPMDMozK57iN3k7hcaWQ;EW?q!
zehEBe$dO}l*&@-P<$82$W78~RTJ1ocf3!u3JV~m@-)d?)2pO#B-VbI^1Pl{((F2B4
zMli6NGrd}r?L~8TfWal1waRB;s>=kd^kkVZ0!?_o;^Jt^vWU8{Zu^R@EupMN=?IHH
zvb2CfBb74s%&2h$Se~;^$|@9sq5Gu>7~d9`DWT&5oe{HU-@p#|1-cuz#2DEheem^2
z;X2h0&ILMJrqPY6caFdE9DfjYgF$aRYUCyv3SvBcsUFGU;eojEz>ix>;=S>P7w?ap
zuDxsB{}k4t@~%=SyIKOiZx36?AxBmb=jgs@Mw1+sn~5hb)0{j5jWdc`-MDueq2E_V
zP)`tJgFRg`af5*YyFg*G(1LitczpkI>hp+{X@
z8*eER_-&#t--&sl&meI$@`{ikjbfRieAoD1Tin
zzB1vQ|M+^RD@VZ*0W7_
zbSyL;cMXBpBIBRcemX)97VWUs>KKLtAead5G{A#zN4((f`BNTZYxKY-^)4I0Sch
zx8UyX?(Xivg1fuByK8_D+%>@+0t5&Ich7CI*4bx&&prPdXsUaTs;)6!89nRFN
zjcMS(c+o*v7BpBfyJ$p$s{<5$73@(l4uxLU>|rvQ#3{X$
zWcO+@2H(Dctk;6XSX8UG`pGcdhF)BHk_3|xdBb{qVjrA;dzZM0E(lV0%X38bO{aeHL
zY*+W|X%~eH*`|kow24P9f%i$fV_OWH7tHfP$Ll&lx9QZKGcA7!)K+9V@O70VYVrNQ
zVp(lySiJpiv1qOk`Q~iaP?M?wDqomuq-{sBGq7eAwJsm*Ob|h)FhpOXNerosT3T3jH*m(5|NV
z$x>ymqs`zVJ4hgetVB1dpjEYM1By5JmlHI5KhO_08A9_^dIE
zpJN~mG04CU!5r!~JM>N()&rKoLVYI2=n#BpvMI#HkZ723_j6w-)`!xfa^d>sje$f4
z(VaR1cBi4aG({BU=Fhe@3v+H!hj|
z_d{V^#XWw+?lOqDMl^{ki?qm6w3!GpKOs{q*eDwf63k;IJ8IhJXG!A1zo6x)Qt61{
z$XnPc^W&dQLm#C>W9cmu7c0ep$!duSGM5rPSyZ7llcEF>gh=7t2b*h0$!vMwN-#55
z#S`*9A5EY%TuiuN@hB{%Rmz&LhdnlJ2Z(bA=`1lHwJ95g7d^JliSW`Y6i=@0;6Q@L
zu)Bhk=S-;k=8-jrLTyZFD&`OtjN#@o?^_sISee;V3Chq=G49hoeniMT`x0h~`>KOd
z92&cfm)j>4K9<_Yqi@wYG!JE`2}v%W>di
z^C*^<>AuI7aH)Q5)_dJ4dBst0RcrtNO5qE656Q&`r4J}oino1dzf;|;&3b;E2#WQP
zo3O1+aTwb9K7ai3%*V0LPN#qifV6AASHf4|Q^wrooo>ml-}3<&rovd@S`1ZVio6S
zbJXy=;j>L-jw=VAR2v$Sr>$TF8K0Tmk$eIz69IliQ+n0jyY@9A-bTqE#aaY2M-G-C2qj-K$a8@g$5i4JZ09QY@oS$cq*%3nd?$p0^A$)uXppf>L
zy94m&!dW*xx6g2rKL#5|>KhNM=}9h9N)1G6wS~W;Vcu}NqoE|iG&`ghO9V|4@R33Z
zH%1VPW>*&o`G}Tf>Z)tu<}el)?8Vb?*FWq{_}^yxKGUWy6#0lD)K#-ov~Y{~TB
zMQg~!O*W)FSRl}yI~vWm35X}z8$d+25F|#Xdrn3XjME{jAxsj(rf^Js)`murJ8ohOy)I*Y>z%K0H^(Z2YjCHCOYo&K%C-!2w=5RN)UQ)3{e@
zXvDRu7;BW9tOLCX0dZy;7-i--(7XLb?9u)>X>6rgM6Jpmn^uHt4gJ!eY~Ps%)@jE2
zsehC(r6ey{o`#OgRH)pUVHBBX!3mMg`yI-6!tu(q3K$y{hn4K=2|EawwK%<6k8l&L
z$}$jXH?|q*b8OH5`0hAkKQ}fVH;-8qhWo5Mit-&Y`Vbj52+usgCzU@1ESS9v=|6Jn>BlV_%BHwj!4juBKFY1)pjo
z2{hN@OI3FVBN5bgr`&6t@d%4OJN%0qcFWLB9uL&aF3LEo3igUS(M2s8(iCVw${63Z
zw=tyECh=h9K*R$48dBjcA4LauWE$W)u8r@X%}u}Mw|wi)P%M1(mj1rw;+!j54^PGF
z(yV7YoD*zpasw{dB8r)-sf`7jJ)5tW%;sOpq!q@Dp&Wx-mrqH70*>){du6S3Fsnq#
z6W(|=%6V@|Ln}61AvOE*l`B#QDm00a9mWzVEyaMPi|dv-X_gV$ZpCA~U_ouPxKy`U
zDvT>2Ln>2rP-zy947VxBIbqO=%fZZya6(ETHQBX!1&1@Pgq)CzDc8f%pw5GFgVFhf
zXBtasgy}(!tkh}LX_(opd*W*jyWR$SJVBj_#LuIhL7TWA5bS9slB&uFOxX>k*sNp8
z%`GF$;8PWMG?n14G2A$XTv>z*!EVm`fPum8X66s*j)>GZm)(x~VCYr?i>88*@6*ft
zF>|~Kpck(!xvN#(`2%q
z?I6!%vf9{FRO<18DLK_qpRqQMG7oT
zI)hm;hZv_{FX5gv#g=15(@3n|H7=IPavD6pRbRGPvBXQYuA0b#a>VOSNjFm_l7wzx
zJ*OU&t^k2I)ylGMcStsHxH~egn(PS+dD(`Ou~AiHoh?;(Ih{E1i~yVa8!>biZt-_R
zJpXiezV#Q1JijSG;Pr?9@I@YZ;5ToK5ewAT(Do{BA9~+HFvO*GS^qF1)%Grtha3l1
zu-W6PdBcysS$AK@>fMt$==azh`C(g%ZT3KV=;ur|T*x}O!=O4JuC4M7f1biRq$gWOY8*=OInou_^iA)Ov+{FMQT9Gd@<&mF#
z{f|_4N@V)?qrS<6^~vD%-?mTRw*6}G`t9ef@;6xq0B)Smy-#oGf_c-s$I$WPuQ%`k
z2xeo&3P@1UhKt8YNQ6;F3lUf+gmp4HT=Nguo?|$cjUGHDl{iCf>T89H-JdXv@*;w4
z7{6GjDYn2Uqn^zRqC>b|gUim}7=O5MKKSlDEkX?wi~1AzP8(A8$OaJT1O)|?7X(#i
zLtqO3eK+>fWdLyfP5uG>Y}@+DW>nbwz-a>51TA_lb4LGmkIS!bxt{36dmJt@
z6FUZ^$XC|H*I>Z!h3(8o>BuuG;9{)M-BH#$FQ8r;9Ux`$q447ahtw}6noT~CuqJj%
z(-z{JuSZ>AC>tG`r8+#W(cd(MD3iyCg2gV;bV4`#e)UR7`QA+u_6;pe_vc>tYhdOd
z(3oS-sI?ZgSA&3pmj5rD`scK#=dc)T56>4AW`ewi=(~o?lagif941*i6CBjU{V7yRC55-9Ddbwh}B!6-s)?Q-ajPL%2%M0q5Coi>eW0U!E^P7w<
zT}D8eO>FQw1R_pNd|Y1)Bb(MGFv6H-0s&THp6N-lJhJqkB7
z`o^JHJ#uWa*ASLDDl9~uip>`>y&_@cfUsT&&27#Hv{2FF9#karxv}b$V!cb39aE7gl$74;dF-x7m*i0_0
z!X*#oBOd4EmSX&Nd98<)vsva3LwfP(I;SHH7Ds&XnTj{5OcCh0L=6rxN~O$D
zK0eH(X)REwNE&%<95g7K-FV2QiyttESYYbS{<^DJDKR9SaQg&7PG-4T@5-R0V1DIZ
zNbD9$EQZS=?yPly<_czx26M7j9$7#ITMqBVK?UVmB!V0qzCDkMUizDFp}yvYWNy(J
z_WT|5=XG}w!VQ{UzFW9emsYi+l_uViR@zh?xide5mds5WlyypokJN-r0h$sEf+p`!
z%*kMM*l%7_o*nNH5^5z*i}6`6tZB
zaLSprR^v>np!RTl%;{A@Z&U>K+<`_Jl^`%mrifdRRbMz^bSH==E(Rv~}mLM~Jzk=j{N(a>R){Teg8~I{D
zO>h7HKWe%enh41Ux+k-{oAGXk4TEL4m4CMH_wf@`cL!S|AL<9T9dP#86cP14uK!Mn1J1U8&vHz#?qJsu63zDQu3@V~uscp_=Anw8wogB?15tYm
z+Fx1hO*Rq*ZW{=#>gFSWc>v1@;Mmx_d;>h-U(ZjFJRB*3e^4}FUfNyv_5pum>gvJk
z9m59zUkkG;5F8%?MS)nZDW8mQz(k$jzX3_WY2)wzH?dwk3w(G7tiX@wMjm-YiX%Wq
zy#QjDKKE8!{8gr2o6CVLxI-Y!Nj2A?3)
zUtbLi)Vic260%h(lO`0}`QxfJP;)eW;^Q+=*k}QixHwNP#ma{-z{>9HM+*PGHr4&l
z%I5U}e%A>6(ueHYhcC;#VJ8NUYT@-X15oV<#_RuI)h_z~RPDY4#Yz6#y3PdFb=Q=K
zpUI1=)oa@xBO5{e?fdfyWndtGWhwj!o+~9t8x0-z+@e4C8?aa*Y^S-+EY49mruCb^d6GaR!vn15f`K)D
z>Dis$2h6}OfxqR@0TBljXxK8s1fA??4_j$0K$WC;>+(Fwe?xfq#Ce^5V9Me=66&zB-Vy>~%Q=D4i4}L;
z`V*&HTTJRlh}oeulf$_<2B@C~yZ2r9E6MV!$6ovn)f2a$1yaSG;>sUTNe?1YRy~(8
zjV}%)@8EcorHBakxD0s#C{b-ecs8;kvscvgT?n+~RS&&Cir~rw&~PL9#c%3`{9$=y
zEOM(Q_(oRo@>SpRVJ%HClIVEvA!B6TyZm@-RxvlmCnN7kif^k-$3K1M`DB7yLCMLFx~sW%tLgK?6?dfO!^M+%0^(}ew0kN_rd>+^?Lg6xpv(T0`43PImX-wl+#rp
z8Yo8$-e3n_j)kb_7l@a`5u45(Isc>ho$Z+E`_hT9{
zKLp@P|4&#ud@p^Dtz=prL(X7EYH}rrsU;cY6p9dssj)GUkKSEc0rTs>Bl++A8m{z|
zew5@kDXaTBk&k8>27<*x~*SZu%WCJC;ZMOF(d`
zriXhd%0ohwa1sX9+0vwbdXD~7#t7KSs?4bqLzjC2ZwULr`*yYX|6J|wYRc!ueNG2v
zT~M9vPVo6P{=iT3mEvW+hZXxV-t8s(QTnPuK=zw&2~kxR0CVbrn2-Mf4fb@V@0$uL
zpY}AH-;Mq68NPxu*FeB}{s|Z`g6n@qczGMazr`nmpD>JP~BZ7MK-8!o(kV(_0W
ze?Y6k=RB4-OaFBRqyO9jSS^3gA@ZI7w2ptt{}nPK74-w~;YmTY*2f8Jgz4udPlvzH
z3_1t@r2o@fbo!Ds%DU%~uu=!~yW@RV%Hnx0moC8H<`wQS`QuCeqwH0Kvc&|O*3>#W
zOeK$4uWF(aViShQaghZ#^iBq!=*rH*RO!j*ZF_>foUD`07B#5fszaFSHj!0Wud;o*PhOUOY5|OV5qU{SHP0-0cw=c_vP#_G0CNf
zR1Xv~&@iX!{{Q*{aX(ky0=_`Q|MCTH{fC&G`Jeqh{oXp&FR!zQ*{|{+UJ`NX!TYTD
zE{@*I@zy}|cIfVRsb5-sji5^N3#w0I1QtUPNfabbkPR0z0_(z2oj%(FU0Ox*32y9~=B0FpdsP
z04`NJIm9bq8@Df3UmH^%N*s0;nE=m;ncdgiO%S-vqw{7j@#f{##BWJo5pWpk4vm
zU<+V>f%3o)@T0OCLNPC$hbIHb7f=l3Wl~}}s;WRr
z)Sw@rU)W4O(vI4p)>-W@lfP+8
z`?Np%o+Y^S9n}Y{aBOp^R2LBY$k5`4#-h!70(NQTBV}aA%5!-7OLmSu&wY6%uVAi}
z+-1nQg(a^sCM_u<9EdsQHd>O|bxU<4RqgN`ziTt!S*BV>MH}cDr`vB&ahOW2&*20}
zMA*ZPEDt%V5W6Yp7B)z^ID;w^!vfIq$V~)d8a5~F(oMo&D39dUumeD)D!5S#$tB)C
zzPX-#v;xcpBSIJ2oHeR&Apvx=MIjc}w4JQzzdT4U1lrQT+MV%}##_(y(IJpY!$Cwb
zy!(|pP*;x)Us5sX_Pqty0#;eczlgKzsO}qZs*@8W_A}brk{9rbv%@sKZ)BS_*H>HKt*qgi;728ybd>?*$M*+sB*adN<*D&j;j3_7pIGYIP=|=F;ObvIwLY=
z4apO?7Z=(>UN_FiI`|!zT}h_<0~QZ0Wuyuk#?+_6fyxd5J7PA{o`_F(%x@Sou93}B
zUVsju$l`>0we9cfQ!BNO?;m$vGP9j#p0e2>WsUQ_HJR5W2|HM1;g2vdOd{OvR9;}s
z^>I*E*cWIf&3I~UxPJ0^{u(oiIX*ueXvQ)T33E<{Y(-
zE==%%Nkn(gfk_nym7W;EwU19g1+p|I>nIpNv5Qn|TVbaOgusdQF1^f7uR-xVe6&C!W<
z<%ElA)lsyW?5>enKA`DEmqkR~RGUG0N|AizQV7R=pd)YT=b+C_Cy;P>N%p*5EH#wW
z!uwh^E!M8Hha5YEcu1*&S^>t~NN^?iU8Z?x(Nk;^s-Pn=CJiA0XGeIRdPSteFfte}
zC9n%a^WccIL2freMnQkD3Z-G@x6W#w0LRzp8yt2EmkbzK@HK2A)G1Ay7uH
z(}+7tY`xi}TmcLBQ}63=x6ZJB(`U1V<-YhzqszDa*H1)bZ6AV88Nzl}P
z-W&N;6$Guv4gL{b28^GzfD(jq;UgfA&6H!8lQc;$w`U5OQ)@F=q#&$pqe(r&Bi#X)
z8A`)xp-$|+Esy|)B$Xis0g~^27}Y#O++zry7DF8#(u`nXK#)2~(BACd
z@bWvr$ARz+BnbddzLBZF{^Cub3t=5l9ihSNpMdQ11~AV5GPC&a1Ows$y9j`KfX<6M
zx4&%`F9FX}Kz0NvZtwg}TrXRk-``LrKoj^8E^C&1Hd3mhULy#aRsdG7lGIdlqWeb_?61Te2phL)UC4CoLf^CK0|HZ)fjsCl&7l~NBCuL({AeS@v4eG
zR#;A+L^z>-E^}3XbVy3>C)CYyF+B;V8M!n3p+||f3T%(CQmNKY99tTxGo@kpq~>40
zm6p(CzIdu6Hc8O*vjf=_49Rl!JvYv%RESs44xK%`e1+?x*e3*AO$*ABB)vFklhI9K
zZKjtx+A-@w#T{$-nA28)I?B(AGE7OMo{yFUtu3k%Q8Q%`Ul!gA6j!9jt9T7{Herb4
zR*=idVvEdd>M2@1mV0A`20ZDEq21;|5oGG?30YuFE=qkenB|qWN#H;F(kfK}OFg4}
zTdqXzL?O%viL=Rfp&bW1hCUhAEzzMzBqVMzdMLANXP!_*d&z>6O*yttCl(@1?%)o4
zH;c?l>(vO2DXDT)0_{b*$J)*U;VEP4DMqKR6~*gJ(MnUvPenEoZoo_(6KP5dqYVj5
z2p)cyc>h{I8ZbQeeyvMFl5lHTt5i>Nx9#J&KJ$Et%S@&q%!XJI`Pu_ol}#d1$sWmSLXMbPQ^4rLc^l{AJ@`u)Uj78
z=epC8)O|6KZ5HV8H7aAB&*zJyk@SMgAznU72jkL5@p}#O>wP&QUSWCv{Wc*fdBh+q
zhf|0PUYk)ep?>QkbPJo$(lgrHvt)&ajB-Dfj`*UQ`xj*KyOpF=eN)-5HZvE9#%jaR
za5+VeI4wiRj(kYy@ERIF)V>FgkWx#gBZ-Vt#IOXxmU-4sd_b&6Jx5)59AW;XsKJ)w
zpkPmC4mY$o!<9W5tyeruf7G5j^gQL)Lx9DtMYcF>CvjR(lIu*H|5r1+X9jMW`7VvY*ClvjDd*|8`1rO%m7DT
zjX@&sb$V6?l`X5#zwwYZ68=bcxmL}&3aqLf)5j$X)yYk&
z?-WTPw(}$n_=%_P4;!YjmTo5V734l{R!gJP*q%aU%#l(Tg^yxT9dI`nmwU(C5tVp@
zvZxL}y477IIpmkNmxrTL`)8WQ$Z+c4r(qh=nIJ6a
zV%9%rM=a-r<0HrXXr0E^&%9$`^{LJH-V#Qy_N=*P6x8EgX!I0@;FeH1s#fP38f5XH
z-OQAd;$~!^JbqRki+MeZfsCpkO?EQNMGR+fp!}g%V!|QoBeWC}9*WGIURY4M>PJzw
zt72h&a*T3u-6^PCqXbC}qCA1^r*4!94!&sjsTDNhS*77A=PviU9U`VIYMGTOidjX<
zUB%zT-BzXQ_Gi*bSeMz%a+f{_=9^@0V7lxmGyp0mX!%^CK)-V
zUND0s;tbHFctYWtpqzmG*=7|_jkb-23GSy_Wg+cBEtx%wR1SG8AxDKB2d5vBPj!(Q
zy)Vk>@f?=oSVEHPgN*L_r-Ut&B$LpJNado#2G1kR-`Zhy0~*WH6AG;wB%VJhDG5EA
zX{1NWw3fJHGphAE2qN9mdEi2)D(IB)C?f`4;RtE)E$NJHOpoWubwm&+gEQ-qv9Cu<
zq>lf9aFVPNvcy`Hdv?N<5}Q6}!~um3eYJeT`1_x*Rxw?Jv9E#&bwFdSS(b}GHR;f>g3-1vq94hILe=(3C~2dQMVVYY
zeuaoRvi4+>Fy|~st4&tmfE1t5w@{&pzHniQ?l>cXm?-OCziYWP8Edo&@si?(v@Sd1
z$!pT9uTx-TStycJFkNSp$UiZDO}47oUxdvjs9wM*yOLrul7^mDk!}!f;P>47Ue)w1
z`_l@;Di=OuRFc(PUjQRkQ@*a>4`rJBPxxSaO(%c0~+&6+liTmB}08
zG$E>BcjjgStfaN3$qg9s44J9
z_rrt}(S&1K1Qo)$CAAc4@r=Z{)N%QBUE@$Tg93ycDxhI95kpXj
z3vMiB1O?6gWS+n4%VuZK%hks}pwEu!gf!gYH`F~c01t=qX@
zaA9j;;;k0_7-aeAAyB~
zqMH^Gj+O$$8H_EQJDOOfb7jrumSp~R)u)2Pu*$LCMIJoWGPV2=xU@8sIP8yUR
z3Bi^VztbCY&UFDr;m#Wzdz)oFAAv20(9@R@jhjOWw$7x>~kt?xE-*G(VtV{1!
zQ+^&SMiZFUqQD`YF*g*cYpgz*oc$D(`~5nRz4Q8UFyy{7EXaFu>l+aBmS<_f(_N!i
zt+hWOUd~iM2Z4k$R61Sd+Ei_;4j32>Rl60jWwd0Q2P#{s23|-*-fBr6N8(KdzMsf+
z;;85oON#_z?*yM%{U@H;%Xb7{CW$8S{QPA<03-3R{Y*$xQI4%b6zL+K!uFU#oOR0y
z#*#DF<Lq^W4jGO%S5!&@qnzvdacX)V&J
zTe|8C6Besh&1;Cz(kUy6dj_%e@9f34^Q3*!LJaB;@3ks;fZ>;fUym~%Q4VdS-UoAy
zP(vM!J6O^^pjG!3l5YD>oTFcAWExow*Ot+O;la3>|ZDbM-7O
zRMh(BWhz0
z<*v8A2mEm#vHy3rG3b8Q@PzJ@CIm<8Wg6&HFkdfZvPrNYwmHR|!Cq>wl#s{-|E8Ia
zpnfU#fVyFol*g}gLvzBT@t)XPe*Jei=*#J?hZUddE2q3?XOmft%xUhJRyHSF9`-}*
zR!Ta{By()9LG>TE2^LjykI|Pp`ruv_>kswLYiYM>4#NjTvhmF&my9FGtf-ir*UPg#3N0JIM?DW^?OaaY
zSt5)S65IWJSy594BYH`m#GQGfvnNI=7gbtJq58ISC`+gqVbY(sp
zy1DeBGGA_2I8~mmgBo=>C%L1Eg1Y{~8K;{p*%DEk_|*bmIAPY#MVK9&y%mT%$y16rvSMEL_c{jY}$ddw?-
z&BecZm+$Eh=mAL}{&jNe56GhBS@I94BlyA8@%eaD{h^(R;>h2A?6p4T4~V4r-?2{q
z9ZU0n9#mkgyncans%5;_{Mbu(=tv|FU=#~S;CvlFvOl2pzURiaS9eF+=XI*%i`ILo
zbj4+E&*B!{iXsT7YAowak%VCoi!^1vk?Yw-+Xst&@a|&$yU0mS_c`6TVFr_|T@6H@
z>!cGA3H4HOn-W~)pL`u{;-pe;T?kf#7y?Y_nnS(U^XBnM@=dutF(=U>_3B^kGt6k?
z=8FvM-84KNClONd=$8sZqf*q9G<2YJ+v%_>3rzSiqcd=FIsM`a*<|v%a}00pD^HAX
zgo~TSL`S3uITZ9M7mCJlnL$Ql1DBN
z&AX(SSYj|oCr>Sdw6Yb}PwWiYYUOH|!wXlm0)@neTd!ex#b=UjSVk#}=i!k14HcfC
zO5TS&jZH@lC1X1$Ngg#@=+#)#-=Un#
ziiR=dH(~0288QPuINrVkd;O?UG*4HBLZLgpwvF4#8mW{Hxuk#9f7bSK(bMVn@>1m9!^6&rwf1-gna4ax}&wp(!&Y@0(3PPTIh^UX#t#m~n=yy{yU?
z!EIR;CC#uDs>)=8Pga(LA)hyzczaz
ziEvG+d4ZJ;^(>DpZ+8R}N7d_EZbS|1y9p5rCy
zwn)zIhh8)>s=>_WTBlcR&h&KcmF%mXW*m;xe?^-WS75u@(soLS!DU6XJFP&b^2pYi
z&Cgk8w`TA;LkRJJaGne{Db@y-hr!2nglqsxa-?M2cg(7$kW45#W8i$+E`61Kk(ZPy
z!ZHDC_$;@fe#WsD24=hv$;{TuMLW|y2;&f9HmbqB$){3>z5yr8LQ&rK6NB<5D)NIAj$omdyD5+9QXqYy;&c$DuWJfe6AZH-#O}lYi>q6OM=T5Sdms&NLrQ?Nl7`@a?M}$|LqJ7kev3JE?S3jt
z@_|a(Op{LCiT4)=-J!7-j>(E3$+=Zq5x&*K`@%1L*!vbSzT8#~qRR=6Zp|V~w8>%h
z^Ob30hm7yNyxPCUW+tY%aSR?Wq*!dT73Y8{sM)wqSH+s)QgCnBS8l#~);Hoj-`RN)cluvE@!lOHgN_BC<;+0~eaV`{as$#gt3ni?f$ZkC4oDCQ6t
zoxu}^iU`k?l#M{hTwyBW@Cy4&bVVGwi*i}Q|Sax
z*V6JDojWYIEyN_nuf(w-Etze}qh`!lH1T!jteonaZDR4hhc-qRxtsz=M$>&=`6b7%
zTBtarpD?!LAj}@M$faPCWa>H_9m{?g!NoLKIN0ub!6je&JHX@pR~#uO2{Y-=O$zIi|>Ap{q-~X96P{V;@QpQ^eJ4f@cq_3iT|9Tuli7j-WJ}VQ<~bEw
zD8|nderILN+`rxSfrRe5)-k@hI(p1O5H;c0v94z$yWieEPq@O6C>%*Wp^Yn2oowPO
z-qiBh0B8J4S>EQP@k%0Tfw`&ztwJvfevu-3FJrlA!Jcp$KMvUdZ{8+nT0?BeN2G+h
zW_>7_&(4iIB4}XeKuFCETs0leBu&?%HEn<6Wc(X`VmPVDp;Bx~W#ytCs$7mj&NK-Y
z7n9typ3{^@dnf%KlS)2?K^0BRNAe+%h77_w8
zw{z26wW{;Z?Jss)cXZ<4k=n#R^`pa?9kmNa^;obNFr73%U}2W2n`@kge|05C#VZw(
z)cl$R+1-^hUNbC$&e~8bOj|5(^B&~dKx?gn0L4J^skjwdFZWASh}NPiO)0M+A98A4
z-5e>~cOssQ&}Z{OOnUzme)j|Tm5XMJ_MidHQI5lvancza%;z&=(@LwA=XK*R>bGCfD1Z=K>Cb6smE-!Mu7v;@`#(smZ(TE8%Ys3zMy61x+<
zB@3%@7wmc8AA3iy4^3g|rg*%|o!y}jYjL4jt|Y>)l}4|cvDNvB5@|fyUM4Yy_|xem
zvR&GxyYl0RW?36<^{wN@_SL-D&8+%>gn~_yx+`WaPXg&hT+T8+pR}7?m7KeJhMvq5
zMptdI_DA2B{X2@D`!(*9G&)^rwLsjH<`2J_tSa)PLB=#XYG~2cZ8#3c9QHXU9N!5#
z%oL?#Q7pPn@CB`%NdvC14-2&?ka2^8(TZ6H4Cyl_Nc&82(v>(LD)M%U*=D7O+>Ysj
zr-t}k)XajI(+l8~LtMnr!LUn?kinnr!_{WX)uLJ|`v<@Zt@E(k$Dtezqwc<7ihbly
zyc~?sjT(z_kfX!n&x4&x%}HT!z@r*2hd-@mB{2{mU^Ae+XqrM-W=&ObJ#t^+YFlTZ
zuq}xc-PeYQ5=RtQkgN|Z#5UREl`@mDkkB$~w-0B5;+oLFIm9PQW6I@!1*=)e#Ui<6
zeszy+HXH4%KKQ7i<@vzZ=!ZK|`K#}PN{MvGQ(36oFbFlpv2A02?PF^a*BP+4JG{Fh
zmdapEL!YmLRaQ>q&O*x=a$mD#Z|;K#RZ2R1^DLY?;u
zR1H@}4!nw*;9Z;1r(jj@|78qt_KD_;UZ@`!fr
zX@BTO{O0e=#{|6pXSSq&jh$Q@`m*tGcGX1U~b+5oKyD9P{<;vgPj9F$r9
zuOgpwMtg5)8QD86sMibQbj%VYQW$;a3PuC
z`YxKFb>|C(OuTt}IqN4k4BgU+wfETKRkixnNCZ%q#@S#HC*sX%Y_!@BnEsl{vz6kb|5
z226?(gY!p(eA*Lo3>b7;j@&2=K4z~Hklb9$G$ZqiaWWUzF4HJ+Nr?)z<|Z?{nl>J?
zHEWCVXkr0X6nb82Y_Nu6EUf}dV;O@j7)b&JzIl8?GWC=fDB2^#dlk=xahG-z4;h}5
z9_s#(sW=}@6#-;UBUIk}g|kR)JAZ@aWCUq>ecTS!167N_B@SVU7t}kORCe;0;w+YeU
z_H4=aH&o67uM|^ESbkKatz>*<%UugM33Aj1yGKQ5>|=K~)gEstL>HJT<%#8SI(;&OPD8x{p|O)yA0H(XTPq|5b$uH2M#ZdZC&eQs6aIWC}FByM)_=kR>pR
zb4*QRMQbGZXML`I9LX5%He#g<1rACj_4P2pM)RnNl*;xa(pba7r4p+#ru--mZcTIA
z5c4KgDr_T#p+r4e6vugeN-?PZOW|<2lG{{NTk}$DVZQ2wU-%#l0V{(lQ#jZ->E;>y
z+{}vv#joXjQuOsgCA+E%`{cuiltb4kDSW9p!$lP~jVUp#i{{F6Ilh#EWsEEgSq(ND
zJF#Sj9qQ=%bp|C7#m3J&!EspS3|jUCQ%00bF)0x`*N^?d8HZuZFJCeF6(;aVFGp{J
z6o?vBKEJY^X-!iesuPq|2kP}#MO4wm5357tn&NwIAC#Er@%o3vx6fIYmlaMBXNXRO
zm^1X~{z|hJOC7+FRkNl~Zs(|g&|U;bKSUuT7sX(Sj1FT&Pti$`Oe%&`m5fMKN6hqO
zhl_(I>)jhb_FT^!X!+Vj7S+_@m=f`jJ-NV&sI|k`{(1e1cueJ^`3Eqqq^$B%rI7Su
znXVo~<2kFrk`%TODxc${0tq8jmA&o%HuC`-)gX7Ad=$1~v>CLy8CnPD%<4
zbCgL*67gOw-X4i3n!e?7c7$SOR>yg(H446C>B~&B8oI6>s$%9Egp}4w-VK}$Is6^l
zae}?)u7@il+*#w(hrZ^bHsgu!vFvg!Zfy|zm{x@nkXt-BV4qg>K;UJ(;q2Q|CyW#V%QNanMo1DwT3HUmY{aa3x)h4f6YZph{F3^3wbBG!
zp-$_+cH|Zq;v_7&bMsZc;n+HxWQ0~SrD`A!NE^o+==^Rt4hq}AWAinB?~`dpuA6JN
z##7hrK+bYty2PQCM|W7nHf|=wS}HPzbJ;?#TN}w04~*9#8%Vde=@t0hRaj3A_I|NNFD1EE?F117$d&y9m83Jb
zA#W-|;YWr9NO5UGF!AH&#SxdVeblTU%?x5q9QI|#sWf2DLzu3Jrt(
zbOZaPQ;5$5bJ1yt-l8#R#m$?4Qe{h)RzFo6n}G|=dIWKK)+)##uyhV0pJ)d`2VVA(
zy9`OrBQyOCO3@JkOqrkWeZY{}@=s*zx~1`WV1VwC_MT2U
z`-OLGaQ_6IT;a1@>cvorPD>Nq^0n4xVYpAB3|Y!CF=Z#pQtB|H)k+zaIX8Z@P-
zl0q25`a>FY`Mz-@#6Fry@MW@Ye$00dTtmJ!njMa?B0qQXdN5ZqLYHR0w$trUEm?vtI;rx<^}
zOS25u#COQ0Oc5-MrOi-_Q7J13Re<=R7GcZ{L(Ym2lKbPNErKWfTVZWMg`3Ve7w-25
zrxAN6B(uQ)*4vkGcmr+E%XkJ=21T&GwH>oHh0&=bIvn_`$}wc8Ai6~`8H~u?Ul2MZ
z9x73?<7LIrgmpL8qH`tMIgJ#NHsixpQkNId0+hvM`90y@ni=s@sTuG?(rkPz_3({^
zCMX*#@;c$bP?qB2fP!{D+
znuo3zik;yFhK=I5*yn)&sY_Lu9}qv}nkj^Gbz%$tlt+mVexB?=0?XE6fx_3%^u_?K
zC=1T977Qr}4nl3aezMfs9H^yj6i{jaVw{Ei9n>S98wzAT6uYxc?ntjPGn
zDu#YMQnYk&N`z`FgSl!D1_H6?p#v3;gt~O+$}Xp6w{^5|Zhx^ra@2fzULOmd@0_#u
zQ09mHPSTq;tGafX%7*!A3^C2JJ{w3MNL>7)IcsN;gelC9E-q?ik;`n_;^`
zhbdt#;V}}EHR!^;hVTfRtEmDdc5FSl(kT2zLcSOv9s>$O@jLaIQv4bATvLaXAlQ+u
zKoOL~w{dI(YP>E8cfccpzt=!O?@f>&VIuuCWFm=nkkTO83e&}`L-T^2L_`)|2zNpo
zwDS1?u`)78g$S}>MEZ$rK5-vZF)Otp;0};3%4=Lo+8T%>dWV1prr0+ha0za%kI1~K
zAc5Xq2usA(NFY(=fe1C$A^2!7S@IREg2H!ES8_Aq^oU&qVtfZ{h7^rB81Cscg2txv?nLq>@QW3PsDH5rLGWj=H+6Nu*sfjcc(51|HCpAbIvWm|u
zpaka@%ox)AV+1Ol-c7c?V2Feqn{5FH%PyIZlX=8KC^U!|VJ|F(&F~8ZmM$?U1C}nH
zTs2@6u#`y+d0ebK`p~VjYzSo(&q4f^@b%DW&ym>T5S__{wQ(4n!T7bl=4FmcBU==x
zD^aW*xy925mRbGd{DMW=ehHCGl{y|4)EGn%-hgrQx+j^zHaV~$ZtpL^l&RP&(U1Og
z^ZT)^sPT7Hu#7c$SLkJpm^IJ`M+}eDT8i!Qj7sVha&lb%^nq9DZFX1{f|JW|s54z5
zjQl|VGRRVHmm}xm?+H1yl9Tkm_q{@jO?~;uKa)bm1|?6F*CC3eQ7js4oz3*p-L7=%
zAuxkUhS2N@i1#UVs>Iw$hcMtBm<1(au!9=zr9*aaFw}$Q@xBelA=sPb^pMIaSnD(s-s1O5O}h7
zwNI@YKSyN&c&m-lwce?D-$ecR*NisbOTTUfAIH5@9Y(r4ASmR&`d9xM3%AGp+bjG}
z+Ux!|?Uj6(9{btk`F3bDYCIE_|EE=mmpA!O*!#Ypcjf0k{?CSDE==Cw@Zkq8FxLf!
zeVwkqu)Xg$%AyI_&%JcL|MO+({cA60pUeF|WSe}?xcZen{qVGu$B|lUOp4WCz=~1;
zb!IrHD{O@*DJjYJSGXYx5muDyW-Wy+@147O>n++3iYAAtU11}5SM2yox4M~P9IYS(
zKz7%KDvtWc_Rcu?q872`jwsF}0DpA^fhKsX#I}8^9=hBE-joiL+15Y-jVzi}Z}hvr
z5ow_$L{__91jNYSq67XkGAAhR)+l74UpM6NE1@96%?V@
zf^a*J9bFf`WC&UWXmC~a&>UkGm64w_7-SRhBj>Cfydg@HoWV}%EZQ}RMQ+WRU*WF}h4IjLn`
zZaF76exKa}kE6&93|E5*LD1+T4ASIZ;GocZVh*b#N8}gP?|XM&kd++5O)FJ_^KAu5
zx^ZvxTAT}KtI)r%@J868Yz@5|i*X_Yuo0IZgClkrDOnfXi6))9?t89#c<<{xk*uwz
zZZI=5Qx{kX008NW{KeEv%(Pt2V9jNYv&e#T#R?W(*+=xfj_u5Bc4l79eNUK)uGnel
z%qQ*s=uK8S%KB!jYcq}(1Ox=^#JlVC<%11A!3dUcOTtPMXl0B{>qagP@IE)o&d6hv
zSoJKYoj~e`X1+2oV(*JJMc28xx#;g*4?WDVolfPvFoZ8*(5qZIQX}@1KL!jUJXY1B
zAjBTmjNeroC7QClGmaS4EOFd*|NOk;upDUPNiR+YKiUcVS&v9ZNvV0mnv$|Y(r#}_
z^B|F9LpMlKvLm0MMjlyqK7~u|9Q%dwO9va8N(r5icCl8#9ai&d)jc|q{0}}RTXe2G
z3ipz0E)QYfh-7OuNER0~x>=;DPHr#G**Ntc^d63X=r*54l1ZzhcOl+Hspk&JqD19J
z(gE2VyXO!Bo$$~iz3JPf7l5QCOwC#v)=Tdjlpgo3Cr!$3nOJUa!CoI4{Gy(4dS)q|
zMBq9O_HU&-OvR9&iBbd;LiLD{G(6JjHnm@&$6QgX9@|>c+DHppiN;1SDqm3F*UBC|
zP*aHK@Hsqhy=fzD4Hs&#P2&xq;knZx4fWWJbIoDWw+2mv6P}jXbufk|ga2$-nI7Dw
zxCVz!c(GE}ugFmITjOTc>aUTl6$G8;_{LwOONz-G#pfd;?!W!O_zO6B`ROnCF2fr@
z5sqHJCq*6$p6IbpmfM7^5qKMO;rC63e;3H(>{s|5Z@NbW)f;=I
zPtnkYhi*iYRw_1{Z!QyTO#73DSZtSD=^+h5sw?mueMYxUNewC={GyB!BIR&n<1gT=7vyyME=De!{Wsvd*>?|z2pw_(hi5CX5rKiqF)e!L=S#Gwx@}91
z#^VonyVC&8RQ^BDtQw;I4bMY}X$7Z+AXOY!o
zJr30|?zH-*`SH8;!3Dsp4+$BpkO+Iq{{T}6$HK-r=)hEGtdMC(o)vC+O_GFuy{O2`
zQ&g`xR%$|-nknmN02WPva>1Pwh<`;Hq&{#>{5~|X_lG^VBysG@Lb56C;1eQzQ8_+r
zBBJOaSsv%|w5<_j{)bh6+So)DcRDC57?hDy_7r>-`6B@tqVSBmCb*iN85N2~VX^g{
zY3vi1u_3uuz1WcoAp9?Y9bA#y@}2Wc$HiNh`UPvkq@HKxNm)uj#yW#UHR%g10@^>9
zoHQ1eI_0$bT2Z{kA-oR&U;$tftAv2Kla+N6(pxoqj(2sEYy~}CeCsA~=CVIeZpwZ^
zl%F2*+#=hB`6!<0-zbBbtPjDEmwT5brXSxTqL|cMb>7}2Wlfwrnow(7bE#y>Z6?Q$
z7+B47KcZFMAQquPp9s<9PT1E_GvyVbHcW>?82Y?CmQikMHnyQMGD?Z0-GeW_V|P>!
zYwqVT8bKZFU{n^Pa%Q?Z)FEFtjz|@aNdScgB|rCg!I)_1DeSfv7v6}tww0o+vep-@
zwz{!inewO~K+APc4?!IP&`4XN7h_mTJ1j)5zeBc)!YS1ot_GhKy{4sLdAAxY~*
zMmO6zB&k+aIOhR@kEEa2mcC_};L1KarNHrLtek{POS_-Af`S$t>ltS~L&HR_!T_d7
zxvb5;&SP|Y6)tmuq1ScC?ZXmIXLCmZD<|Ut-*R?HvNSS%t0<)=aprnerb{ahri93c
z4tgXE4ZT~8Ig*@N-WUYYUMa7}WxaVjgI7+FpvtyfE=#_Ko9n!{Rt9V5vQE2&a$PS-^5~oiK5J=e$$x5wYilN)3xB;cGbdV@
zn^#F!X0C+$_onCH=e}im*KI!21tYd2ISnA
za2-I=*r880Jwm+a41bB5!20|Ggs5#%WadQEFU+ATI&|C~F
zX$On1c8|TdZLfK8?C`qOvQt_cJ86oUSX%l`%jQV@y9D!J1J{5t@>jv
zas6c+WqmpSUz6S}}`HW$82
zJ*WfvnOVQkv6VOscu1R>I{Dqw{9|IQ2BSkBN35@y*quI>f(g6$V$BF0H1taV^W(bL
zu3du5uUw;gx|C!6TD|+i&5iT~b;E7DU8baYDd-R9ChXDo0O`}5TXJ{9r(RmU8)xU(
zlU1elsY8_!Nz<4z=L4ZV?z5jv+nOwh;?dDsb0$(p(ON^Bf5fjMf1z*(6DBCul>#I=
z|J?N9xp}nip2b!6)*w|WcoLjDtqj;5cC8;Dm!Bq(huOvKXdW4FfHMVE1p1$NzVPeaALPs`Lt>*YXD{1RWBWMXe@KJw>Xw%b
zMA%Fp&%s^@5WQ$a{Eg@lnokLuR%*Z$?jL4w-R3#F61Hl-GMMnDpY-yja#9%+x$t~&
z3?Bn5$CHOr+kC|}CQ>f2v$n;q=AqU`2}0Vh$BK?m!p(ydSKY;AY}-Okxd%;Oi4;mnQs(2xY=f7
zfV^7Kt@>%~^?Hle?xp8&>g$$iJGii~LO-`AScHX9YG_LyqolOn5k9f11WwIw{uF;p
zmFJ1nJ-wRZ$=W4zsoSO_S4
z(`I^vg2Mz?Q(9}66G9Oi6tc^Om-xj272?m%6AoZgM6fe=%%#k0M&(Nm=%{%=83U!o-SSlgsEb
zDrDWICk&P(1HCpDFZ^6yp%u&FTl#LpEpGrNn0uVsEzoMCiRiKIo->%ubK2XxDcwk}JPb=4F9z$zamSQjn<*vRKc@*v
zWcMlSBhRP(F|^&Q?jVawwjAzMVHL}bB>#-IfvV)+x@!S>j1$8U6y$jgvOqjv3ogdnOS|r0e
zb4;`!E6Dnm!ieD!2_Jd>n>|FevdT5AY#cjg^#<19&z-8G8bOzi9mrs3@l(N5;R!>U
z<;nD7Z}*8y{1$Ulj9arRn3DE5MR19jB2Dqui4eeYbiC)|?Lvmp;)E|Ql|%EH`ha61
z;BjWhxsJ_1K5-yrPmc9+6m~o5o|om@M^3Q5qX=9wVeV(+OJ
z)a2=7Z^djCmT&jj&OLtCsK>|jTAJf#qD4uX4eWfU4h)=|n?s}3l3EZC9h9x~P+*VA
zQ{t^m7ytED`+m!e?V}Wy{T2^ZYfGFmOYxw%#t*cR`FsphF<07-9}dhT*JJSeSQ?Gv
zqbBW3*(??XWguEZt=wMZ{x@pkU7&gigww&`vix5?TQ7uYUbje{cAC4-Z?{!98@_83
z&l`A>v6<1dH5;zDpqA2k(dco>TZfmnmtuy-y>@sCzMY9x?k&<~BrRsJ_evpz0|A;Q
zeU4*Hw3flw`bilZTHjr^Ost`E79nM*P38iaI~NNKIX;g)4h%Te4-dBldAxUOZ@+cy
zC?417oY>CV)oJD;*bxMcp+gZ`RWKQ*fwJJ!OH+Zjc#$(T5s5S-S6TqSeKLG
zl5Q@oswPig=}H1nidOrD^Py5o6sAMfnbq!f^HF{rKtbrN4h4ep_+$4JS?Laejgazq
zHs9ao@|kcjlp36VVABWmw!$XJ*n>yV+law|kxsE4_ffMGhvEd?^2^`itz7&C{5+!D
zy!qntU)z!#UNCIMKEj#TGHwX$4W0rJVHI(uc&8-qcB#fyv()I6QYVTr2lfz~bcRgv
zP(}%72cs|^E)np&{>gkBy~Mdx+R>+UI@G^k_0~zCIoM_^UsVLh{Xqf<41V@JVTULveimyZ
z?JU5Yri}CrAtpyFMm2JgtQ^xOqUoz*+!8eg`FuCZKh2zZV~Y!_^FXBZriMC
zyMO@eUhN&hTPpj_qgw^nM=4T-b@rAKrIg#l;J3i}5Mlm!L3oy53%E&Mt<71vZ=eqj
zaT%JrLJnA3?({>NWA9clMlzmDH8$*yfWz6*zW`<=j<>9#Kc^$yr#PNSeuEg7zIg4k
z+LuqEDT4NV>;&;^;?40tt@$jklEmf>jM2N-BMCs}-{zU(&d|DYO}9PO7j0!^%69ZN
z95;Fbb;&i;VI?HT!z(I~!KlrNW9;zG;>uSmPifsReP-vK5xS>J2EMyM7hNR_ShFN4
z$%Y?5$`uQ}7Gi2#wb!nB>i7FH+&c>#>2!C-JI%X^(tC=jH&d?SkQ(Vp9hGZ`6Ab+z
zLmSCxLfIaobits`g9;F^*N&No~04Y+wD6xW>seGe~T+_7@;e?k3$B$FC1(PZ6-^zv0
zf9k*gRxXDBt^b<+&&oyZ=)d4aAlr!NU$)WztX%vzv+Li=MejeA3%aLfFT?kgytAaE
zXrZ=0z&pm*=Z{0&@jKz^;%=ilUHB+C&`R{r(b|1j+~oSB%lo4t6a-T5Dp6@^8bU5x
zzsReHH#hKtP(QK&Nck4n^kGRndF&H}Xoz!100dg`E-@YY0Us#9fXVfSkiiBI;3t<*
zsK(+(&x#L1D~Eva9c($3_y+w^4G1Wo(NCfztpcynYawBvLNOlvZL_X>Zz`89TEj4=
z&P936{3YC~gzEMsPRBKvf3!fYHdUXDIRU`mE@u4Pr|N%NK5|DDal`=6u!0l*uEIpU
zOgv{fk?(5MVQ7nj3hZKLw$!wbL5L-
z;>#4$5Xh2BPcrz&S}!BF{YVN|c=69q{{oir845bcd_BCwi|G@)a6_9S8JzueC~-#`
zLXosiE?eftt*UP)jpi+3&bh~PZZ00h8M>qk_XEXB7)c^bVj8q?2p+`UEs-uc6=WP2
zyc^LUT2^v2bNOB(Wy%cIS7TF7?i%W#a*ijV8-7va29T_eA2RDY{Irc+wdQ4`Snr0|
zci(V18mTKXLZVhB{L_Xd)}!Ji?LKGSyCZKojA%$7X=G#X8vY3TMq;ZiTYF4_jiXne
zj1qINB^P3%Qf^gKF;_rwYZCEP$lpAVM8^~-koGB`;<@&)W4>lrhjF!CQwnBf?5Ah-X|6eyC@}SD;a3@X^eO1@V2myTJjV(
zeKsXa1~o8iC{|=N
z(Y8}${=HaA=ILsDuqBpB!GuEX6_zZuGa(%>nc?`oC6a0-u<
zInJ{>ZC*>#JrFujr7%a~vo
z&jsODwqBqG1ZbcjPMOF*Sx1eSRA@XS@@hFtVn$OBy9)z@P
zs#QlduKxK)&sj^O^nw!UGD{QYSR{H&23r?uom6NFOXnQ3jW{P}lruwrEdOY|qa3ln
zU>RF63<2R6?sr7u53!ZHZDEC!=lrm0(L?Tj{7o*JT-?!n)K2ZuA4>5JLapX;hsLRg
zpLTltaSdcxT*4huys>XfB)Z^eW9mD5PBn)5LL&GL`+z)|w&tcRjj#?$`;vT$!!NlC2vm<0pY%ciXCq89aj(&k!UGTBU5!5k0!in3mT?f~e#O
zdLcxRl=bOm{hMDs`>g5Gf~bfX<1mqs#4cr-*OTKE!x*xLAk_4=UUi7Wn?B_m1p9)N
zpNc*!{!iy)xJWjp^NZmz;qAL*;h>z$`F$bSKAHNeWrfr#XMryrie71sWM
zm)E!TBcN^!NyF?m@4LuffKfXUkko~M%V~dT`5E}zR^MLsqo^zi<@TBN~L01;8o(Ze~s3m&OZ-7UTp5%5P{@_$Jq;1<)(mwZydDW}q3i8UTeeFqH4>K9(
z`Rga2kpc>DD29OWmdKD%>5gl-U;nP64ii+^`fua!ky;z9$#%Am6Z_@Zq)Lz}6nNDB
z6CxVd#x8KyDvbAtW&_KA$T;=MGfLE{oR$}0=nF2~#Zd@^9`r7DTU$|y9r{=ZerQ@|n5uEiM*uCON4U*(H;BacqCv
zdfVu_St6?nS41H8oFR;w@H*Zh4zt*Bd%Y&TR<||u#|?ruU9gr7CkL7n2`gZSb}hP#
zv3D5nN00?eeuhDEnU$gE6P#suQ#q=lGY1_)`$NZm@p-4*RIKPut_XB8T&$?;VBW%|
z9_o_&m!-7`B?ykuVX`YFl$T8%o@2S0blF;W!gNb#AJ0g~ou22opM
zC1_rIgMbtx;-k!|c`(0aJT20$T>_+BWeO|ds
zgwlU(kC*$8hnrHCGA;2s9x>jV>O?UyrzC4b=!l#KBArG7VzOn@eT9Ri@b*{