bci2000.org BBS

Code: Select all

%myex_v2_AG.m
%% 1. compile
%
% Instructions for compiling "myex.c"
% -------------------------------
% Compiling is needed to turn "myex.c" into "myex.mexw32" (or myex.mexw64).
% When compiling, the compiler needs to be able to see the .dll and .lib
% file, and the .h files contained within "./eyex/". When running, the .mex
% file will still need to be able to see the .dll and .lib file (e.g., put
% them in the same local directory).
%
% - Compiling only needs to be done once, on first usage.
% - Must be run in a directory containing:
%       ./eyex (subdirectory containing EyeX.h, EyeXActions.h, etc.)
%       myex.c
%       Tobii.EyeX.Client.dll
%       Tobii.EyeX.Client.lib
% - Note that the .dll and .lib file are found inside the Tobii EyeX SDK
%   E.g., inside: TobiiEyeXSdk-Cpp-0.23.325\lib\x64
%       - Remember that you must use the appropriate .dll/.lib files (x64
%         if compiling for 64bit Matlab, x86 if compiling for 32bit Matlab
%         [even on a  64bit machine])
%       - Remember that the EyeX SDK is not the same as the Tobii SDK for
%         their other ('research grade') eye-trackers.
%
% 32 vs 64 bit
% -------------------------------
% - Note for 32-bit Matlab users:
%       This compiler *did* work: Microsoft Software Development Kit (SDK) 7.1 in C:\Program Files (x86)\Microsoft Visual Studio 10.0
%       The default compiler did *not* work: Lcc-win32 C 2.4.1 in C:\PROGRA~2\MATLAB\R2012b\sys\lcc 
%       (this is because the lcc compiler does not permit variable definition/initialisation on same line)
%       - You can change compiler using mex -setup
%       - You can download the visual studio compiler as part of the
%         Microsoft .Net dev kit (if my memory serves)
% - Note for 64-bit Matlab users:
%       If when you compile you get an error like this:
%           myex.obj : error LNK2019: unresolved external symbol __imp_txFormatObjectAsText referenced in function __txDbgObject 
%       Then you are trying to compile against the 32bit .dll/.lib files.
%       Replace these with the appropriate versions from the x64 SDK
%       directory (see above).
%
% Tobii EyeX engine number
% -------------------------------
% Both the Tobii EyeX Engine and the SDK are regularly updated. This can
% lead to various errors. For example, if you update the EyeX Engine, you
% may start to get this error:
%
%   The connection state is now SERVER_VERSION_TOO_HIGH: this application requires an older version of the EyeX Engine to run.
%
% Or if you try to compile "myex.c" against newer/older-than-expected
% versions of the SDK, you may get various "undeclared identifier errors".
% For example, between SDK_0.23 and SDK_1.3 the following things changed:
%
%   All variables starting "TX_INTERACTIONBEHAVIORTYPE_" now start "TX_BEHAVIORTYPE_"
%   "txInitializeSystem" => "txInitializeEyeX"
%   "TX_SYSTEMCOMPONENTOVERRIDEFLAG_NONE" => "TX_EYEXCOMPONENTOVERRIDEFLAG_NONE"
%
% In the "__precompiled_versions/" directory I include versions compiled
% using the following setups:
%
%   Tobii EyeX Engine (0.8.17.1196), Tobii EyeX Cpp SDK (0.23.325)
%   Tobii EyeX Engine (1.2.0.4583),  Tobii EyeX Cpp SDK (1.3.443)
%
% But as Tobii update their software, you may have to update "myex.c" and
% recompile it accordingly


% compile - only need to do this once
mex myex.c % compile to generate myex.mexw32 / myex.mexw64
% WaitSecs(.1);


%% 1.1 Preliminaries
%For cursor control, where the application window is fullscreen on a 
%second monitor, need to specify appropriate dimensions
MonitorNum = 2; %Which monitor being used
cursorgain = 5; %To modulate the speed of the cursor
yoff = -282;  %My second monitor has an offset of 282px down
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
monloc = get(0,'MonitorPositions');
xmin = monloc(MonitorNum,1); xwid = monloc(MonitorNum,3);
xmean = xmin+xwid/2;
ymin = monloc(MonitorNum,2)+yoff; yhig = monloc(MonitorNum,4);
ymean = ymin+yhig/2;


%% 2. run
% This requires Psychtoolbox to run: http://psychtoolbox.org/ 
%%%%%%%%%%%%%%%%%%%%%%%%%%%% AG 6/22/15 -- the functions WaitSecs and 
%KbCheck require this toolbox.  I dont believe they are necessary.
%Psychtoolbox not required for this modification.

% connect to EyeX Engine
myex('connect')

% clear any data in buffer
myex('getdata');


%Open UDP port for writing
if exist('u')
% echoudp('off')
fclose(u)
end
% echoudp('on',20320)
u = udp('127.0.0.1',20320);
fopen(u);
lastsave = [0 0];

% allow to track until key press
x_all = [];
% while ~KbCheck();
while size(x_all,1)<300
    x = myex('getdata');
    if ~isempty(x)
        % display distance
        z_mm = x(end,[8 11]);
        isvalid = x(end,[4 5])==1;
        isvalid = isvalid & (z_mm>0.001); % defensive (shouldn't be necessary)
        z_mm = z_mm(isvalid);
        z_mm = nanmean(z_mm);
        % add to store
        x_all = [x_all; x(end,:)]; %#ok<AGROW> This is innefficient memory-allocation, but ok for present purposes
    end
    
    
    if x(end,1)==0
        savedat = lastsave;
    else
        savedat = x(end,1:2);
    end

    fprintf(u,'%s\n',['Signal(0,0) ' num2str(cursorgain*(savedat(1)-xmean)/xwid)])
    fprintf(u,'%s\n',['Signal(1,0) ' num2str(-cursorgain*(savedat(2)-ymean)/yhig)])
    
    fprintf('%s\n',['Signal(0,0) ' num2str(cursorgain*(savedat(1)-xmean)/xwid)])
    fprintf('%s\n',['Signal(1,0) ' num2str(-cursorgain*(savedat(2)-ymean)/yhig)])

    lastsave = savedat;
    pause(.1)
%     WaitSecs(1/10);
end

% disconnect from EyeX Engine
% WaitSecs(.1);
myex('disconnect')

% echoudp('off')
fclose(u)
%Invert the second value of x_all (this is the y-position)
x_all(:,2) = -x_all(:,2);

 
%% 3. show results
close all
subplot(211); plot(x_all(:,1:2));
subplot(212); scatter(x_all(:,1),x_all(:,2),[],parula(size(x_all,1)));
monloc = get(groot,'MonitorPositions');
axis equal;
axis([xmin xmin+xwid -ymin-yhig -ymin])