/* Adapted from fortran code 
c      RGB VALUES FOR VISIBLE WAVELENGTHS   by Dan Bruton (astro@tamu.edu)
c
c      This program can be found at 
c      http://www.physics.sfasu.edu/astro/color.html
c      and was last updated on February 20, 1996.
c
*/

// ----------------------------------------
#declare c_spline = spline{
        linear_spline
        0,   <0,0,0>
        379, <0,0,0>
        380, <1,0,1>
        440, <0,0,1>
        490, <0,1,1>
        510, <0,1,0>
        580, <1,1,0>
        645, <1,0,0>
        780, <1,0,0>
        781, <0,0,0>
        800, <0,0,0>
}
#declare ss_spline = spline{
        linear_spline
        0,   <0,0>
        379, <0,0>
        380, <.3,0>
        420, <1,0>
        700, <1,0>
        780, <.2,0>
        781, <0,0>
        900, <0,0>
}