visbra_blockMvpa_oneRun.m

%% Visual Braille study - VWFA event related (for MVPA)
%
% Orinigally from cpp_lab\visual_motion_localizer
% (C) Copyright 2018 Mohamed Rezk
% (C) Copyright 2020 CPP visual motion localizer developpers
%
% Rearranged and modified by Filippo Cerpelloni
% Last update 02/05/2022

getOnlyPress = 1;

% Clear all the previous stuff
clc;
if ~ismac
    close all;  clear Screen;
end

% make sure we got access to all the required functions and inputs
visbra_initEnv();

% set and load all the parameters to run the experiment
cfg = vbBlock_setParameters;
cfg = vbBlock_userInputs(cfg);

cfg = createFilename(cfg);

% load the stimuli from inputs
load('inputs/blockMvpa_stimuli.mat');

%%  Experiment
% Safety loop: close the screen if code crashes
try
    
    %% Init the experiment
    
    % creates window and launches, with all the parameters
    cfg = visbra_initPTB(cfg);
    
    % creates design of experiment: re-made suited on me
    cfg = vbBlock_expDesign(cfg);
    
    % Prepare for the output logfiles with all
    logFile.extraColumns = cfg.extraColumns;
    logFile = saveEventsFile('init', cfg, logFile);
    logFile = saveEventsFile('open', cfg, logFile);
    
    % prepare the KbQueue to collect responses
    getResponse('init', cfg.keyboard.responseBox, cfg);
    
    % Wait for Trigger from Scanner
    waitForTrigger(cfg);
    
    %% Experiment Start
    
    % Fixation cross and get starting time
    cfg = getExperimentStart(cfg);
    
    getResponse('start', cfg.keyboard.responseBox);
    
    waitFor(cfg, cfg.timing.onsetDelay);
    
    %% Actual presentation of stimuli
    
    talkToMe(cfg, sprintf('\nData will be saved in this file:\n\t%s\n', cfg.fileName.events));
    
    fprintf('\n Running Run %.0f %s\n', string(cfg.subject.runNb));
    
    iRun = cfg.subject.runNb;
    
    % we run all the experiment in a single script, there will be a 'space'
    % to press to start the following run
    
    % By blocks we actually mean chunks / repetitions of stimuli.
    % there's no IBI in fact, but it keeps things in order
    for iBlock = 1:cfg.design.nbBlocks
        
        previousEvent.target = 0;
        
        % Get which condition are we calling, a.k.a from which
        % struct to pick the images
        currentCondition = cfg.design.blockMatrix(iRun, iBlock);
        
        % if we're presenting either french or braille real words
            wrdCat = '';
            if strcmp(currentCondition, "frw") || strcmp(currentCondition, "brw")
            
                % give a name based on the semantic group
                thisBlockEvents = cfg.design.presentationMatrix(iBlock,:,iRun);

                if all(thisBlockEvents(1:4) <= 6) % all living
                    wrdCat = '_liv';
                elseif any(thisBlockEvents(1:4) <= 6) % some living, mixed block
                    wrdCat = '_mix';
                else                            % non living
                    wrdCat = '_nli';
                end  
            end
        
        % Let me know what's happening
        fprintf('\n Running Block %.0f - %s\n', iBlock, string(currentCondition));
        
        % For each event in the block. Refer to blockLengths, each
        % COLUMN represents a run, each cell represents a block within
        % that run
        for iEvent = 1:cfg.design.blockLengths(iRun, iBlock)
            
            % Check for experiment abortion from operator
            checkAbort(cfg, cfg.keyboard.keyboard);
            
            [thisEvent, thisFixation, cfg] = vbBlock_preTrialSetup(cfg, iBlock, iEvent, iRun);
            
            % Get the path of the specific .png image
            currentImgIndex = cfg.design.presentationMatrix(iBlock,iEvent,iRun);
            
            % Go pick the corresponding image
            % w0 is a images made of only zeros, so no word dispalyed
            % IMPORTANT: with the indented targets, choose the folder beforehand
            eval(['thisImage = images.' char(currentCondition) '.w' char(string(currentImgIndex)) ';']);
            
            % WORD EVENT
            % show the word and collect onset and duraton of the event
            [onset, duration] = vbBlock_showStim(cfg, thisEvent, thisFixation, thisImage, iEvent);
            
            % Save image ID
            switch currentCondition
                case {'frw','brw'}
                    imgToSave = char(stimuli.french.rw(currentImgIndex));
                case {'fpw','bpw'}
                    imgToSave = char(stimuli.french.pw(currentImgIndex));
                case {'fnw','bnw','ffs','bfs'}
                    imgToSave = char(stimuli.french.nw(currentImgIndex));
            end

            isi = cfg.design.isiMatrix(iBlock,iEvent,iRun);
           
            % Save word event
            thisEvent = vbBlock_preSaveSetup(thisEvent, thisFixation, iBlock, iEvent, ...
                duration, onset, cfg, imgToSave, isi, wrdCat, logFile);
            
            saveEventsFile('save', cfg, thisEvent);
            
            % collect the responses and appends to the event structure for saving in the tsv file
            responseEvents = getResponse('check', cfg.keyboard.responseBox, cfg, getOnlyPress);
            
            triggerString = ['trigger_' cfg.design.blockNames{iBlock}];
            saveResponsesAndTriggers(responseEvents, cfg, logFile, triggerString);
            
            previousEvent = thisEvent;

            % ISI
            %
            % wait accordingly to the randomized variable delay
            % plus, draw fixation (inside the waitFor function)
            waitFor(cfg, cfg.design.isiMatrix(iBlock,iEvent,iRun));
            
        end
        
        % "prepare" cross for the baseline block
        % if MT / MST this allows us to set the cross at the position of the next block
        if iBlock < cfg.design.nbBlocks
            nextBlock = iBlock + 1;
        else
            nextBlock = cfg.design.nbBlocks;
        end
        
        waitFor(cfg, cfg.timing.IBI);
        
        % trigger monitoring
        triggerEvents = getResponse('check', cfg.keyboard.responseBox, cfg, ...
            getOnlyPress);
        
        triggerString = 'trigger_baseline';
        saveResponsesAndTriggers(triggerEvents, cfg, logFile, triggerString);
        
    end
    
    
    % End of the run for the BOLD to go down
    waitFor(cfg, cfg.timing.endDelay);
    
    cfg = getExperimentEnd(cfg);
    
    % Close the logfiles
    saveEventsFile('close', cfg, logFile);
    
    getResponse('stop', cfg.keyboard.responseBox);
    getResponse('release', cfg.keyboard.responseBox);
    
    createJson(cfg, cfg);
    
    cleanUp();
    
catch
    
    cleanUp();
    psychrethrow(psychlasterror);
    
end