File: MakeMonoPrimary.m

package info (click to toggle)
psychtoolbox-3 3.0.14.20170103%2Bgit6-g605ff5c.dfsg1-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 103,044 kB
  • ctags: 69,483
  • sloc: ansic: 167,371; cpp: 11,232; objc: 4,708; sh: 1,875; python: 383; php: 344; makefile: 207; 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;