Example script

function Shocker_7T

% 24 reps with block duration 10 is 490 seconds total - 245 vols % 12 reps with block 10 is 250s

Reps = 24;%12 loop counter BlockDuration = 10;%void 10 AssertOpenGL;

% Here we call some default settings for setting up Psychtoolbox PsychDefaultSetup(2);

% Get the screen numbers. This gives us a number for each of the screens % attached to our computer. screens = Screen('Screens'); Screen('Preference', 'SkipSyncTests', 3);

% To draw we select the maximum of these numbers. So in a situation where we % have two screens attached to our monitor we will draw to the external % screen. screenNumber = min(screens); screenNumber = 1;

% Define black and white (white will be 1 and black 0). This is because % in general luminace values are defined between 0 and 1 with 255 steps in % between. All values in Psychtoolbox are defined between 0 and 1 white = WhiteIndex(screenNumber); black = BlackIndex(screenNumber); [width,height] = WindowSize(screenNumber); colorText = [0,255,0,155];

% Open an on screen window and color it black [window, windowRect] = PsychImaging('OpenWindow', screenNumber, black);

% Get the size of the on screen window in pixels % For help see: Screen WindowSize? [screenXpixels, screenYpixels] = Screen('WindowSize', window);

% Get the centre coordinate of the window in pixels % For help see: help RectCenter [xCenter, yCenter] = RectCenter(windowRect);

addpath('./MATLAB_port-IO'); % initialize access to the inpoutx64 low-level I/O driver config_io; % optional step: verify that the inpoutx64 driver was successfully initialized global cogent; if( cogent.io.status ~= 0 )

  error('inp/outp installation failed');

end

address = hex2dec('AFE8'); %check address device manager, ports (COM &LP), LPT1 resources 1st entry iorange

try

   w=Screen('OpenWindow', screenNumber);
   Screen('FillRect', w,[0,0,0,0]);
   Screen('TextFont',w, 'Courier New');
   Screen('TextSize',w, 80);      Screen('TextStyle',w, 1);
   DrawFormattedText(w, '+', 'center', 'center',[0,255,0,155], [], 0);
   Screen('Flip',w);
   % add here the duration if overall length not right
   KbTriggerWait(KbName('t'),-3)%-3 makes sure the Forb box is caught
   getStart = GetSecs;
   
   pause(BlockDuration);  %extra rest block at start
   
   for loopNums = 1:Reps
   BlockStart = GetSecs;
   Screen('FillRect', w, [0,0,0,0]);
   DrawFormattedText (w, '+', 'center', 'center', [0,255,0,155], [], 0);
   Screen('Flip',w);
   while GetSecs-BlockStart<BlockDuration
       %send trig to shock 
       disp(GetSecs-BlockStart)
       byte = 0;
       outp(address,byte);
       byte = 255;
       outp(address,byte);
       pause(0.1)   
   end
   
   BlockStart = GetSecs;
   Screen('FillRect', w, [0,0,0,0]);
   DrawFormattedText(w, '+', 'center', 'center', [0,255,0,155], [], 0);
   Screen('Flip',w);
   pause(BlockDuration);
   end
   

catch

   % This "catch" section executes in case of an error in the "try" section
   % above.  Importantly, it closes the onscreen window if it's open.
   Screen('CloseAll');
   psychrethrow(psychlasterror);

end

getEnd = GetSecs;

% Clear the screen. Screen('CloseAll'); sca;

disp(['Duration was :' num2str(getEnd-getStart)]);

end