runtracker.m

function runtracker(gui_color,gui_engine,daspresent)
global Par

if nargin < 3
    Par.daspresent = true;
    if nargin < 2
        Par.gui_engine = 'guide';
        if nargin<1
            Par.tracker_color = 'dark';
        else
            Par.tracker_color = 'light';
        end
    else
        Par.gui_engine = gui_engine;
        Par.tracker_color = 'dark';
    end
else
    Par.gui_engine = gui_engine;
    Par.tracker_color = gui_color;
    Par.daspresent = daspresent;
end
Par.ui = Par.gui_engine;

% announce whether this is a GUIDE or mlapp utility
if strcmp(Par.gui_engine,'guide')
    fprintf('Using GUIDE, which will no longer be supported\n')
else 
    fprintf('Using modern MLAPP instead of GUIDE\n')
end

%clear and welcome message
clc; fprintf('Starting Tracker. Please have some patience...\n');
 
if ~Par.daspresent
    fprintf('NB! Initiating without das card. Use for debugging only.\n');
end

% Ask to select screen and configure accordingly
% BOLD screen at 3T needs to be flipped
% PTB will take care of this
Par.ScreenChoice = questdlg('Which setup (3T/Mock/NIN)?', 'Select Setup',...
    '3T','Mock','NIN','Mock');

% remember the startfolder
Par.StartFolder = cd;

% add scripts shared between projects
addpath(genpath(fullfile(pwd,'SharedScripts'))); 

% Add the log-folder as an environment variable
if ispc % windows
    setenv('TRACKER_LOGS', 'C:\Users\VANDC\Documents\Logs');
else % unix
    setenv('TRACKER_LOGS', fullfile(getenv('HOME'),'Desktop','Logs'));
end
[~,~,~] = mkdir(getenv('TRACKER_LOGS'));

% Select our experiment folder
cd TRACKER_PTB
Par.ExpFolder = uigetdir(pwd,'Choose your experiment root-folder (contains Engine & Experiment folders)');

if Par.ExpFolder
    % Add stuff to the path
    addpath(genpath(Par.ExpFolder));
    
    % Handle daspresent yes/no
    if Par.daspresent
        % remove dasdummy
        rmpath(genpath(fullfile(Par.ExpFolder,'engine','dasdummy')));
    else
        % remove das
        rmpath(genpath(fullfile(Par.ExpFolder,'engine','das64bit')));
    end

    % Go to folder
    cd(Par.ExpFolder);
    % Run tracker
    switch Par.gui_engine
        case 'guide'
            Par.hTracker = tracker_CK; % standard light version of tracker
        case 'mlapp'
            Par.hTracker = tracker_CK_gui; % standard light version of tracker
    end
    Par.hTracker_ax=findobj(Par.hTracker,'Tag','axes1'); 
    if strcmp(Par.tracker_color, 'dark')
        set(Par.hTracker_ax,'Color','k');
    end
else
    fprintf('You did not choose a valid Experiment folder. Exiting...\n')
end