pb_vRunExp.m 4.67 KB
Newer Older
1
function pb_vRunExp(handles)
2
% PB_VRUNEXP(HANDLES)
Jesse Heckman's avatar
Jesse Heckman committed
3
%
4
5
% PB_VRUNEXP(HANDLES) forms the core body of experimental paradigms run in 
% the VC, and will loop over the blocks and trials provided by the exp-file.
Jesse Heckman's avatar
Jesse Heckman committed
6
%
7
% See also PB_VPRIME, PB_VPRIMEGUI.
Jesse Heckman's avatar
Jesse Heckman committed
8
9
10
11
12
13

% PBToolbox (2018): JJH: j.heckman@donders.ru.nl

   %% INITIALIZE
   %  load & read experiment
   
Jesse Heckman's avatar
Jesse Heckman committed
14
   debug = true;
Jesse Heckman's avatar
check    
Jesse Heckman committed
15
   experimentTime = tic;
Jesse Heckman's avatar
Jesse Heckman committed
16
   
17
   pb_setupShow(handles);
18
19
20
21
   handles	= pb_gethandles(handles);
   handles 	= pb_getblock(handles);
   handles 	= pb_createdir(handles);
   handles	= pb_vInitialize(handles,true);
Jesse Heckman's avatar
Jesse Heckman committed
22
   
23
24
25
   block          = handles.block;  
   nblocks        = handles.cfg.Blocks;
   bDat(nblocks)  = struct('v',[],'h',[]);
Jesse Heckman's avatar
Jesse Heckman committed
26
   
Jesse Heckman's avatar
Jesse Heckman committed
27
28
29
30
   rc    = pb_runPupil; 
   pb_startPupil(rc);
   
   [ses,str] = pb_runLSL;
Jesse Heckman's avatar
check    
Jesse Heckman committed
31
   
Jesse Heckman's avatar
add LSL    
Jesse Heckman committed
32
   
33
34
   %% CORE BODY 
   %  iterate experiment
35
36
   
   for iBlck = 1:nblocks
Jesse Heckman's avatar
Jesse Heckman committed
37
38
      % Runs blocks of trials with a vestibular condition
      
Jesse Heckman's avatar
Jesse Heckman committed
39
      ses.start;
Jesse Heckman's avatar
add LSL    
Jesse Heckman committed
40
      
41
      nTrials                       = length(block(iBlck).trial);
42
43
      handles                       = updateCount(handles,'trial','reset');
      [bDat(iBlck),profile,dur]     = pb_vSignalVC(handles);               % reads, checks, creates & plots vestibular signals
44
      
45
      %  START CHAIR
Jesse Heckman's avatar
Jesse Heckman committed
46
      if ~ismac && ~debug                                        
Jesse Heckman's avatar
Jesse Heckman committed
47
         send_profile(profile); 
48
         
Jesse Heckman's avatar
Jesse Heckman committed
49
         vs = vs_servo;
50
         vs.enable;        pause(1); 
Jesse Heckman's avatar
check    
Jesse Heckman committed
51
         vs.start;         blockTime = tic;
Jesse Heckman's avatar
Jesse Heckman committed
52
53
      end

54
55
      %%  RUN TRIALS
      for iTrl = 1:nTrials
Jesse Heckman's avatar
Jesse Heckman committed
56
         % Runs all trials within one block
Jesse Heckman's avatar
check    
Jesse Heckman committed
57
         trialTime = tic;
58
         
59
         updateTrial(handles);
60
61
         stim				= handles.block(iBlck).trial(iTrl).stim;
         handles.cfg    = pb_vClearTrial(stim,handles.cfg); 
62
         
Jesse Heckman's avatar
dbg    
Jesse Heckman committed
63
64
65
         [stim, cfg]    = pb_vSetupTrial(stim, handles.cfg);
         
         pb_vRunTrial(handles.cfg, stim);
66
67
68
69
70

         % pb_vFeedbackGUI();          %% <-- MAYBE NOT NECESSAIRY?
         pb_vTraces(handles);       
         handles        = pb_vStoreData(handles, bDat);
         handles        = updateCount(handles,'trial','count');            % update trial
Jesse Heckman's avatar
check    
Jesse Heckman committed
71
         toc(trialTime)
Jesse Heckman's avatar
Jesse Heckman committed
72
73
      end
      
74
      %  STOP CHAIR
Jesse Heckman's avatar
Jesse Heckman committed
75
      if ~ismac && ~debug  
Jesse Heckman's avatar
check    
Jesse Heckman committed
76
         elapsedTime = toc(blockTime);                
Jesse Heckman's avatar
Jesse Heckman committed
77
78
79
80
81
         if elapsedTime < dur; pause(dur-floor(elapsedTime)); end          % wait untill chair is finished running before disabling.

         vs.stop;
         vs.disable;
         delete(vs);
Jesse Heckman's avatar
Jesse Heckman committed
82
         
Jesse Heckman's avatar
Jesse Heckman committed
83
84
85
         [sv,pv]  = read_profile;
         Dat.sv   = sv;
         Dat.pv   = pv;
Jesse Heckman's avatar
Jesse Heckman committed
86
      end
87
      handles = updateCount(handles,'block','count');
Jesse Heckman's avatar
Jesse Heckman committed
88
89
90
91
92
93
94
95
96
97
98
99
100
101
      
      % STOP LSL
      ses.stop;
      
      if ~exist('LSL_Dat','var')
         LSL_Data  = {};
      end
      
      LSL_Dat.ev_dat = str(1).read;
      LSL_Dat.pl_dat = str(2).read;
      LSL_Dat.ot_dat = str(3).read;
      
      % SAVE LSL DATA
      
Jesse Heckman's avatar
Jesse Heckman committed
102
   end 
Jesse Heckman's avatar
Jesse Heckman committed
103
   %% CHECK OUT
Jesse Heckman's avatar
Jesse Heckman committed
104
105
   pb_stopPupil(rc);
   
Jesse Heckman's avatar
Jesse Heckman committed
106
   pb_vEndExp(handles.cfg);
107
   pb_vInitialize(handles,false);
Jesse Heckman's avatar
check    
Jesse Heckman committed
108
   toc(experimentTime)
Jesse Heckman's avatar
Jesse Heckman committed
109
110
end

111
112
%-- Feedback functions --%
function updateTrial(handles)
Jesse Heckman's avatar
Jesse Heckman committed
113
   % Updates the trial information to the GUI
114
115
116
117
118
119
120
121
122
123
124
   tn = handles.cfg.trialnumber;
   handles.figure1.Name = ['vPrime - ' num2str(tn(2)) '/' num2str(handles.cfg.Trials) ' Trials'];       % counting title

   str = num2str(tn(1),'%03d');                                                                       % blocktrial
   set(handles.Tn,'string',str)
end

function handles = updateCount(handles,varargin)
   % Updates the count of trialnumber and block number during experiment
   
   cfg = handles.cfg;
Jesse Heckman's avatar
Jesse Heckman committed
125
   
126
127
128
129
130
131
132
133
134
135
136
   trial = pb_keyval('trial',varargin);
   block = pb_keyval('block',varargin);
   
   if ~isempty(trial)
      switch trial
         case 'count'
            cfg.trialnumber      = cfg.trialnumber+1;
         case 'reset'
            cfg.trialnumber(1)   = 1;
      end
   end
Jesse Heckman's avatar
Jesse Heckman committed
137
   
138
139
140
141
142
143
144
   if ~isempty(block)
      switch block
         case 'count'
            cfg.blocknumber      = cfg.blocknumber+1;
      end
   end
   handles.cfg = cfg;
Jesse Heckman's avatar
Jesse Heckman committed
145
146
end

Jesse Heckman's avatar
Jesse Heckman committed
147
148
%-- Run VC functions --%
function send_profile(profile)
149
   % writing profile to servo
Jesse Heckman's avatar
Jesse Heckman committed
150
   
151
   vs    = vs_servo;
Jesse Heckman's avatar
Jesse Heckman committed
152
   vs.write_profile(profile.v,profile.h);
153
   
Jesse Heckman's avatar
Jesse Heckman committed
154
155
156
157
   delete(vs);
end

function [sv,pv] = read_profile
158
159
160
   % read profile
   
   vs    = vs_servo;
Jesse Heckman's avatar
Jesse Heckman committed
161
162
163
   
   [sv.vertical,sv.horizontal] = vs.read_profile_sv;
   [pv.vertical,pv.horizontal] = vs.read_profile_pv;
164
   
Jesse Heckman's avatar
Jesse Heckman committed
165
166
167
   delete(vs);
end

Jesse Heckman's avatar
Jesse Heckman committed
168

Jesse Heckman's avatar
Jesse Heckman committed
169
170
171
172
173
174
175
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % % 
%                                                           %
%       Part of Programmeer Beer Toolbox (PBToolbox)        %
%       Written by: Jesse J. Heckman (2018)                 %
%                                                           %
% % % % % % % % % % % % % % % % % % % % % % % % % % % % % % %