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
|
function rects = CenterRectArrayOnPoint(rects, x, y)
% rects = CenterRectArrayOnPoint(rects, x, y)
%
% Centers a group of rectangles 'rects' on a given
% coordinate (x,y). The center of the bounding box
% of all given 'rects' is placed onto position (x,y)
% by shifting the whole set of 'rects' accordingly.
%
% Also see PsychRects.
%
% History:
% 19-Apr-2015 Written by Natalia Zaretskaya.
%
if nargin ~= 3
error('Usage: CenterRectArrayOnPoint(rects, x, y)');
end
boundingRect = [min(rects(:,1)) min(rects(:,2)) max(rects(:,3)) max(rects(:,4))];
[bRectx, bRecty] = RectCenter(boundingRect);
offsetx = x - bRectx;
offsety = y - bRecty;
rects = OffsetRect(rects, offsetx, offsety);
return;
|
