File: MakeMonoPrimary.m

package info (click to toggle)
psychtoolbox-3 3.0.19.14.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 86,796 kB
  • sloc: ansic: 176,245; cpp: 20,103; objc: 5,393; sh: 2,753; python: 1,397; php: 384; makefile: 193; 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;