/usr/share/psychtoolbox-3/PsychBasic/Beeper.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 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 60 61 62 63 64 65 66 | function Beeper(frequency, fVolume, durationSec);
% function Beeper(frequency, [fVolume], [durationSec]);
%
% Play a beep sound. Default is 400 Hz for .15 sec.
% frequency can be a number, or else the string 'high', 'med', or 'low'.
%
% fVolume - normalized to range of 0 - 1. Default is 0.4;
% Warning: 1 is the maximum volume and is often very loud!
%
% Funny name is because Matlab 6 contains a built-in function called "beep".
%
% 2006-02-15 - cburns
% - Added fVolume param
% - Swapped parameter order
%
% 2006-02-02 - cburns
% - Scaled down the volume of the sound to match the system volume better. It was at maximum volume.
% Would scare you enough to rip the bite bar off it's mount!
% And switched to useing the sound() function, instead of the soundsc() function
% which, by default, maximizes the volume.
% - Update, using the PsychToolbox Snd function which should return immediately.
% Were experiencing delays with sound function
%
% 12/2/00 Backus - original version
if ~exist('frequency', 'var')
frequency = 400;
end
if ~exist('durationSec', 'var')
durationSec = 0.15;
end
if ~exist('fVolume', 'var')
fVolume = 0.4;
else
% Clamp if necessary
if (fVolume > 1.0)
fVolume = 1.0;
elseif (fVolume < 0)
fVolume = 0;
end
end
if ischar(frequency)
if strcmp(lower(frequency), 'high') frequency = 1000;
elseif strcmp(lower(frequency), 'med') frequency = 400;
elseif strcmp(lower(frequency), 'medium') frequency = 400;
elseif strcmp(lower(frequency), 'low') frequency = 220;
end
end
sampleRate = Snd('DefaultRate');
nSample = sampleRate*durationSec;
soundVec = sin(2*pi*frequency*(1:nSample)/sampleRate);
% Scale down the volume
soundVec = soundVec * fVolume;
% sound(soundVec);
try % this part sometimes crashes for unknown reasons. If it happens replace sound with normal beep
Snd('Play', soundVec, sampleRate);
catch
beep
end
|