File: MakeMonoPrimary.m

package info (click to toggle)
psychtoolbox-3 3.0.15.20190207.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 101,848 kB
  • sloc: ansic: 174,133; cpp: 11,232; objc: 4,832; sh: 1,874; python: 1,047; php: 384; makefile: 189; java: 113
file content (16 lines) | stat: -rw-r--r-- 399 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
function primary = MakeMonoPrimary(wl,S)
% primary = MakeMonoPrimary(wl,S)
%
% Make a monochromatic primary SPD at the passed
% wavelength sampling.
%
% Note, this routine will do the wrong thing
% if the passed wavelength is not represented
% in the underlying wavelength sampling.
%
% 10/3/95		dhb		Wrote it.

primary = zeros(S(3),1);
wls = SToWls(S);
index = find(wls == wl);
primary(index) = 1;