/usr/share/psychtoolbox-3/PsychGLImageProcessing/private/bvlShearDots.m is in psychtoolbox-3-common 3.0.11.20140816.dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | function newDots = bvlShearDots(scal,dots, strDir, delta)
% newDots = bvlShearDots(dots, strDir, delta)
%
% Shearing of dots in the given direction by the specified amount.
%
% dots - [Nx2] array of dots to be translated. First column is the x
% coordinate, Second Column the y coordinate.
% [x1 y1; x2 y2; .... xN yN];
%
% strDir - string specifing the direction
% 'top2right', 'top2left', 'right2up', 'right2down'
%
% delta - amount to translate
%
% newDots - [Nx2] translated array
%
% NOTE: Origin is at top-left of screen.
% This was designed to be used with the Spatial Calibrate code in the UC
% Berkeley Bankslab. Created a series of transformation functions so we
% can update the transforms in one location instead of scattered throughout
% several .m files or even throughout one giant file as was the case.
%
% This code was added when switching to Psychtoolbox 3.x. In updated the
% code, switch to OpenGL screen space with origin at top-left. Several
% places in the calibrate code used lower-left. This created a lot of
% problems with the mouse input.
%
% Created: 2007-05-17 - cburns.
if nargin < 3
disp('Usage: newDots = bvlShearDots(dots, dir, delta);');
return;
end
xmax = scal.rect(3)/2 - .5; % x coord for rightmost points (origin at center screen)
ymax = scal.rect(4)/2 - .5; % (Same values as xmid, ymid, but new name for new use)
newDots = dots;
% Don't do anything if the dots array is empty.
% Sometimes this happens when people are selecting dots. Shouldn't crash
% or anything, just move on.
if isempty(dots)
return
end
if strcmp(strDir, 'top2right') % LeftArrow
newDots(:,1) = dots(:,1) - (delta * dots(:,2)/ymax);
elseif strcmp(strDir, 'top2left') % RightArrow
newDots(:,1) = dots(:,1) + (delta * dots(:,2)/ymax);
elseif strcmp(strDir, 'right2up') % UpArrow
newDots(:,2) = dots(:,2) - (delta * dots(:,1)/xmax);
elseif strcmp(strDir, 'right2down') % DownArrow
newDots(:,2) = dots(:,2) + (delta * dots(:,1)/xmax);
else
fprintf('Error::bvlShearDots, unknown direction: %s\n', strDir);
end
|