get_overallratings_170519.m

function data = get_overallratings(overall_types, data, rating_types, run_i, tr_i)

% data = get_overallratings(overall_types, data, rating_types, run_i, tr_i)

global theWindow W H; % window property
global white red orange bgcolor; % color
global t r; % pressure device udp channel
global fontsize window_rect prompt_ex lb rb scale_W anchor_y anchor_y2 anchor promptW promptH; % rating scale

eval(['start_t = data.dat{run_i}{tr_i}.' overall_types '_timestamp;']);
Screen(theWindow,'FillRect',bgcolor, window_rect);
Screen('Flip', theWindow);

start_center = strcmp(overall_types, 'overall_aversive_ornot') || ...
    strcmp(overall_types, 'overall_pain_ornot') || ...
    strcmp(overall_types, 'overall_alertness') || ...
    strcmp(overall_types, 'overall_resting_positive') || ...
    strcmp(overall_types, 'overall_resting_negative') || ...
    strcmp(overall_types, 'overall_resting_myself') || ...
    strcmp(overall_types, 'overall_resting_others') || ...
    strcmp(overall_types, 'overall_resting_imagery') || ...
    strcmp(overall_types, 'overall_resting_present') || ...
    strcmp(overall_types, 'overall_resting_past') || ...
    strcmp(overall_types, 'overall_resting_future');
    
if start_center
    SetMouse((rb+lb)/2,H/2); % set mouse at the center
    lb2 = W/3; rb2 = (W*2)/3; % new bound for or not
else
    SetMouse(lb,H/2); % set mouse at the left
end

rec_i = 0;
i = strcmp(rating_types.alltypes, overall_types);

% ornot questions use different scales
ornot = strcmp(overall_types, 'overall_aversive_ornot') || ...
    strcmp(overall_types, 'overall_pain_ornot');
while (1) % button
    rec_i = rec_i+1;
   
    [x,~,button] = GetMouse(theWindow);
    if ornot
        if x < lb2
            x = lb2;
        elseif x > rb2
            x = rb2;
        end
    else
        if x < lb
            x = lb;
        elseif x > rb
            x = rb;
        end
    end
    
    if button(1), break, end
    
    if iscell(rating_types.prompts{i}) % when prompt is too long
        for j = 1:numel(rating_types.prompts{i})
            Screen('DrawText', theWindow, rating_types.prompts{i}{j}, ...
                W/2-promptW{i}{j}/2,H/2-promptH/2-150-(40*(numel(rating_types.prompts{i})+1-j)),white);
        end
    else
        Screen('DrawText', theWindow, rating_types.prompts{i}, W/2-promptW{i}/2,H/2-promptH/2-150,white);
    end
    draw_scale(overall_types); % draw scale
    Screen('DrawLine', theWindow, orange, x, H/2, x, H/2+scale_W, 6);
    Screen('Flip', theWindow);
        
    cur_t = GetSecs;
    eval(['data.dat{run_i}{tr_i}.' overall_types '_time_fromstart(rec_i,1) = cur_t-start_t;']);
    eval(['data.dat{run_i}{tr_i}.' overall_types '_cont_rating(rec_i,1) = (x-lb)./(rb-lb);']);
    
    if cur_t-start_t >= 7
        break
    end
    
end

end_t = GetSecs;

% freeze the screen 0.5 second with red line
draw_scale(overall_types); % draw scale
if iscell(rating_types.prompts{i}) % when prompt is too long
    for j = 1:numel(rating_types.prompts{i})
        Screen('DrawText', theWindow, rating_types.prompts{i}{j}, ...
            W/2-promptW{i}{j}/2,H/2-promptH/2-150-(40*(numel(rating_types.prompts{i})+1-j)),white);
    end
else
    Screen('DrawText', theWindow, rating_types.prompts{i}, W/2-promptW{i}/2,H/2-promptH/2-150,white);
end
Screen('DrawLine', theWindow, red, x, H/2, x, H/2+scale_W, 6);
Screen('Flip', theWindow);
WaitSecs(0.5);

eval(['data.dat{run_i}{tr_i}.' overall_types '_rating = (x-lb)./(rb-lb);']);
eval(['data.dat{run_i}{tr_i}.' overall_types '_RT = end_t-start_t;']);

end