test_slideScale.m

% Preliminary stuff
% check for Opengl compatibility, abort otherwise:
AssertOpenGL;

% Hiding the mourse cursor
HideCursor;

KbName('UnifyKeyNames');

% Back ground colour
bgColor   = [128 128 128];

% Get information about the screen and set general things
Screen('Preference', 'SuppressAllWarnings',1);
Screen('Preference', 'SkipSyncTests', 1);

% Creating screen etc.
[myScreen, rect] = Screen('OpenWindow', 0, bgColor);

% Input for slide scale
question  = 'Did you like the picture?';
endPoints = {'no', 'yes'};

% The code below creates as slide scale form 0 to 100 for keyboard use with
% left starting position. The left and right control keys are used to
% control the slider and enter is used to log the response. 
[position, RT, answer] = slideScale(myScreen, ...
    question, ...
    rect, ...
    endPoints, ...
    'device', 'keyboard', ...
    'stepsize', 10, ...
    'responseKeys', [KbName('return') KbName('LeftControl') KbName('RightControl')], ...
    'startposition', 'left', ...
    'range', 2);

% The code below creates as slide scale form -100 to 100 for nouse use with
% right starting position. Length of scale is 99%. 
[position, RT, answer] = slideScale(myScreen, ...
    question, ...
    rect, ...
    endPoints, ...
    'scalalength', 0.99, ... 
    'device', 'mouse', ...
    'startposition', 'right', ...
    'range', 1);

% Close window
Screen('CloseAll')