/usr/share/psychtoolbox-3/PsychOneliners/Resolute.m is in psychtoolbox-3-common 3.0.11.20131230.dfsg1-1build1.
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 | function newplaat = Resolute(plaat,newres)
% newplaat = Resolute(plaat,newres)
% accepts matrix PLAAT and resizes it to NEWRES
% resizing is done by cutting and/or adding a white background
%
% JvR & DN 2008 Wrote it
% DN 2008-07-30 Simplified
res = size(plaat);
maxres = max([res(1:2); newres]);
maxplaat = 255*ones([maxres 3]); % create white canvas the size of the output
center = CenterRect([1 1 res(1:2)],[1 1 maxres]); % PsychToolBox function
newcenter = CenterRect([1 1 newres] ,[1 1 maxres]);
maxplaat(center(1):center(3),center(2):center(4),:)...
= plaat;
newplaat = maxplaat(newcenter(1):newcenter(3),newcenter(2):newcenter(4),:);
|