-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathselectElGUI.m
222 lines (166 loc) · 10.5 KB
/
selectElGUI.m
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
classdef selectElGUI < handle
properties
extraFig
controls
settings
labels
end
methods
function obj = selectElGUI( varargin )
obj.settings = varargin{1};
obj.controls = varargin{2};
obj.settings.electrode_i = 1;
if ~isfield(obj.settings, 'Labels') || isempty(obj.settings.Labels)
errordlg('Please enter *.txt file with electrode labels in Step 2!');
close(f);
return;
else
obj.labels = readcell(obj.settings.Labels);
end
%get user input
screenSize = get(0,'ScreenSize');
width = 500;
height = 950;
windowPosition2 = [ round((screenSize(3)-width)), screenSize(4)-height-100, 250, 420];
obj.extraFig = figure( 'Name', 'Select electrodes','OuterPosition', windowPosition2, 'Menu', 'none', ...
'NumberTitle', 'off', 'Color', get(0,'DefaultUIControlBackgroundColor'), 'Resize', 'off', 'CloseRequestFcn', @obj.figCloseRequest);
%button 1: select electrode
obj.controls.btnSelectEl = uicontrol( 'Parent', obj.extraFig, 'Style', 'pushbutton', 'Position', [50 290 150 50], ...
'String', 'Select electrode', 'Callback', @obj.btnSelectEl, 'FontSize', 11 , 'FontWeight', 'bold');
%button 2: select sphere
obj.controls.btnSelectSphere = uicontrol( 'Parent', obj.extraFig, 'Style', 'pushbutton', 'Position', [50 230 150 50 ], ...
'String', 'Set sphere', 'Callback', @obj.btnSelectSphere, 'FontSize', 11 , 'FontWeight', 'bold');
%edit box: goto electrode
obj.controls.edtGotoEl = uicontrol( 'Parent', obj.extraFig, 'Style', 'edit', 'Position', [125 185 60 30], ...
'FontSize', 11, 'string', {' '} ,'Callback', @obj.edtGotoEl, 'HorizontalAlignment', 'center', 'BackgroundColor', 'w' ,'enable','on');
%text box goto electrode
obj.controls.txtGotoEl = uicontrol( 'Parent', obj.extraFig, 'Style', 'text', 'Position', [30 157 90 60], ...
'FontSize', 11, 'string', {'Go to electrode:'} , 'HorizontalAlignment', 'left','enable','inactive','FontWeight', 'bold');
%button goto electrode
obj.controls.btnGotoEl = uicontrol( 'Parent', obj.extraFig, 'Style', 'pushbutton', 'Position', [190 185 30 30 ], ...
'String', '>>','Callback', @obj.edtGotoEl, 'FontSize', 11 , 'FontWeight', 'bold');
%text current electrode
obj.controls.txtCurrentEl = uicontrol( 'Parent', obj.extraFig, 'Style', 'text', 'Position', [45 335 223 35], ...
'FontSize', 13, 'string', ['Select: ' obj.labels{1}] , 'HorizontalAlignment', 'left','enable','inactive','FontWeight', 'bold');
%button delete cluster
obj.controls.btnDeleteCluster = uicontrol( 'Parent', obj.extraFig, 'Style', 'pushbutton', 'Position', [50 110 150 50 ], ...
'String', 'Delete Cluster', 'Callback', @obj.btnDeleteCluster, 'FontSize', 11 , 'FontWeight', 'bold', 'ForegroundColor', [0.7 0 0]);
%button 3: quit
obj.controls.btnQuit = uicontrol( 'Parent', obj.extraFig, 'Style', 'pushbutton', 'Position', [50 30 150 50 ], ...
'String', 'Finished!', 'Callback', @obj.btnQuit, 'FontSize', 18 , 'FontWeight', 'bold', 'ForegroundColor', [0 0.6 0]);
end
end
%callbacks
methods
% Close request function for the extra dialog.
function figCloseRequest( obj, hObject, ~ )
delete( hObject );
end
%Select one electrode
function btnSelectEl( obj, hObject, ~ )
%for just return, advance to next entry
electrode_i = obj.settings.electrode_i;
system(['tcsh select_electrode.csh -electrode_i ' num2str(electrode_i) ' -afni_sphere "" ']);
obj.settings.electrode_i = obj.settings.electrode_i + 1;
if obj.settings.electrode_i > length(obj.labels) %if list completed
obj.settings.electrode_i = obj.settings.electrode_i - 1;
set(obj.controls.txtCurrentEl, 'String','Select: complete!');
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, '> Electrode list completed!'});
loggingActions(obj.settings.currdir,2,' > Electrode list completed!');
else
set(obj.controls.txtCurrentEl, 'String',['Select: ' obj.labels{obj.settings.electrode_i}]);
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, ['> Electrode ' obj.labels{obj.settings.electrode_i} ' selected.']});
loggingActions(obj.settings.currdir,2,[' > Electrode ' obj.labels{obj.settings.electrode_i} ' selected.']);
end
end
%Select one electrode
function btnDeleteCluster( obj, hObject, ~ )
%for just return, advance to next entry
system(['tcsh delete_cluster.csh']);
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, ['> Cluster deleted...']});
loggingActions(obj.settings.currdir,2,[' > Cluster deleted...']);
end
%Select one electrode with sphere
function btnSelectSphere( obj, hObject, ~ )
afni_sphere = 'A';
electrode_i = obj.settings.electrode_i;
system(['tcsh select_electrode.csh -electrode_i ' num2str(electrode_i) ' -afni_sphere ' afni_sphere]);
obj.settings.electrode_i = obj.settings.electrode_i + 1;
if obj.settings.electrode_i > length(obj.labels) %if list completed
obj.settings.electrode_i = obj.settings.electrode_i - 1;
set(obj.controls.txtCurrentEl, 'String','Select: complete!');
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, '> Electrode list completed!'});
loggingActions(obj.settings.currdir,2,' > Electrode list completed!');
else
set(obj.controls.txtCurrentEl, 'String',['Select: ' obj.labels{obj.settings.electrode_i}]);
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, ['> Electrode ' obj.labels{obj.settings.electrode_i-1} ' selected.']});
loggingActions(obj.settings.currdir,2,[' > Electrode ' obj.labels{obj.settings.electrode_i-1} ' selected.']);
end
end
%Go to electrode #
function edtGotoEl( obj, hObject, ~ )
Labelstr = get(obj.controls.edtGotoEl, 'string');
if Labelstr~= " " && ~isempty(Labelstr) && ~isempty(find(contains(obj.labels,strtrim(Labelstr)) == 1))
obj.settings.electrode_i = find(ismember(obj.labels, strtrim(Labelstr)));
set(obj.controls.txtCurrentEl, 'String',['Select: ' obj.labels{obj.settings.electrode_i}]);
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, ['> Go to electrode ' obj.labels{obj.settings.electrode_i} '.']});
loggingActions(obj.settings.currdir,2,[' > Go to electrode ' obj.labels{obj.settings.electrode_i} '.']);
else
set(obj.controls.txtCurrentEl, 'String','Select: ...' );
set(obj.controls.edtGotoEl, 'String',[' ']);
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str) >= obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, ['> ! ERROR: Invalid electrode label.']});
loggingActions(obj.settings.currdir,2,[' > ! ERROR: Invalid electrode label.']);
end
end
%quit program
function btnQuit(obj, hObject, ~ )
%log after select electrodes
str = get(obj.controls.txtLog, 'string');
if length(str)>=obj.settings.NUM_LINES
str = str( (end - (obj.settings.NUM_LINES-1)) :end);
end
set(obj.controls.txtLog, 'string',{str{:}, '> Centers-of-mass extracted. Quitting program now...Please wait until AFNI and SUMA close.'});
loggingActions(obj.settings.currdir,2,' > Centers-of-mass extracted. Quitting program now...Please wait until AFNI and SUMA close.');
delete( obj.extraFig );
system(['tcsh indexify_electrodes.csh ./surf_ixyz.1D 3dclusters_r' num2str(obj.settings.R) '_is' num2str(obj.settings.IS) '_thr' num2str(obj.settings.CV) '.nii']);
system(['@Quiet_Talkers']);
clc;
%move back to main folder
cd(obj.settings.currdir);
end
end
end