test/renders/rainbow.cal

{ RCSid $Id$ }
{
        Simple function to return spectral band along (0,1) interval
}

inBand(w,m) = A3/2 - abs(A1 + (A2-A1)*m - w);   { wavelength in bandwidth for 0<m<1 ? }

xrainbow(w) = if(inBand(w,Px), 1, 0);   { simple on-off value along X axis }
Revision:	1.1
Committed:	Fri Nov 17 21:22:27 2023 UTC (17 months, 2 weeks ago) by greg
Branch:	MAIN
CVS Tags:	HEAD
Log Message:	test: Added hyperspectral test scene "spectra.rif" and test-spectra-fish
#	Content
1	{ RCSid $Id$ }
2	{
3	Simple function to return spectral band along (0,1) interval
4	}
5
6	inBand(w,m) = A3/2 - abs(A1 + (A2-A1)*m - w); { wavelength in bandwidth for 0<m<1 ? }
7
8	xrainbow(w) = if(inBand(w,Px), 1, 0); { simple on-off value along X axis }