// cpt-city: jjg/physics/bbrad (cpt)
//
// cpt version of the black-body radiation spectrum (Kelvin)
// calculated using a modified version of the program specrend.c
// by John Walker (http://www.fourmilab.ch/)
//
// author: J.J. Green
// copyright: Public domain
// year: 2004
// url: https://phillips.shef.ac.uk/pub/cpt-city/jjg/physics
#declare bbrad =
color_map {
  [0.00000 color rgbf <1.0000,0.0039,0.0000,0.0000>]
  [0.02222 color rgbf <1.0000,0.0549,0.0000,0.0000>]
  [0.04444 color rgbf <1.0000,0.1020,0.0000,0.0000>]
  [0.06667 color rgbf <1.0000,0.1451,0.0000,0.0000>]
  [0.08889 color rgbf <1.0000,0.1882,0.0000,0.0000>]
  [0.11111 color rgbf <1.0000,0.2314,0.0078,0.0000>]
  [0.13333 color rgbf <1.0000,0.2784,0.0275,0.0000>]
  [0.15556 color rgbf <1.0000,0.3255,0.0510,0.0000>]
  [0.17778 color rgbf <1.0000,0.3686,0.0824,0.0000>]
  [0.20000 color rgbf <1.0000,0.4118,0.1137,0.0000>]
  [0.22222 color rgbf <1.0000,0.4549,0.1490,0.0000>]
  [0.24444 color rgbf <1.0000,0.4941,0.1882,0.0000>]
  [0.26667 color rgbf <1.0000,0.5333,0.2314,0.0000>]
  [0.28889 color rgbf <1.0000,0.5686,0.2745,0.0000>]
  [0.31111 color rgbf <1.0000,0.6039,0.3216,0.0000>]
  [0.33333 color rgbf <1.0000,0.6353,0.3686,0.0000>]
  [0.35556 color rgbf <1.0000,0.6667,0.4196,0.0000>]
  [0.37778 color rgbf <1.0000,0.6980,0.4667,0.0000>]
  [0.40000 color rgbf <1.0000,0.7255,0.5176,0.0000>]
  [0.42222 color rgbf <1.0000,0.7529,0.5686,0.0000>]
  [0.44444 color rgbf <1.0000,0.7804,0.6196,0.0000>]
  [0.46667 color rgbf <1.0000,0.8039,0.6706,0.0000>]
  [0.48889 color rgbf <1.0000,0.8275,0.7216,0.0000>]
  [0.51111 color rgbf <1.0000,0.8510,0.7725,0.0000>]
  [0.53333 color rgbf <1.0000,0.8706,0.8235,0.0000>]
  [0.55556 color rgbf <1.0000,0.8902,0.8706,0.0000>]
  [0.57778 color rgbf <1.0000,0.9098,0.9176,0.0000>]
  [0.60000 color rgbf <1.0000,0.9294,0.9647,0.0000>]
  [0.62222 color rgbf <0.9922,0.9373,1.0000,0.0000>]
  [0.64444 color rgbf <0.9490,0.9137,1.0000,0.0000>]
  [0.66667 color rgbf <0.9098,0.8902,1.0000,0.0000>]
  [0.68889 color rgbf <0.8745,0.8706,1.0000,0.0000>]
  [0.71111 color rgbf <0.8431,0.8510,1.0000,0.0000>]
  [0.73333 color rgbf <0.8157,0.8314,1.0000,0.0000>]
  [0.75556 color rgbf <0.7882,0.8157,1.0000,0.0000>]
  [0.77778 color rgbf <0.7647,0.8000,1.0000,0.0000>]
  [0.80000 color rgbf <0.7412,0.7882,1.0000,0.0000>]
  [0.82222 color rgbf <0.7216,0.7725,1.0000,0.0000>]
  [0.84444 color rgbf <0.7020,0.7608,1.0000,0.0000>]
  [0.86667 color rgbf <0.6863,0.7490,1.0000,0.0000>]
  [0.88889 color rgbf <0.6667,0.7373,1.0000,0.0000>]
  [0.91111 color rgbf <0.6549,0.7294,1.0000,0.0000>]
  [0.93333 color rgbf <0.6392,0.7176,1.0000,0.0000>]
  [0.95556 color rgbf <0.6275,0.7098,1.0000,0.0000>]
  [0.97778 color rgbf <0.6157,0.7020,1.0000,0.0000>]
  [1.00000 color rgbf <0.6039,0.6941,1.0000,0.0000>]
}