;;;; tables.lisp

(in-package #:iip-project)

; values sourced and procesed from
; https://andi-siess.de/rgb-to-color-temperature/
(defconstant +color-temp-table+
             #((1000.0d0  . #(255 56  0))
               (1100.0d0  . #(255 71  0))
               (1200.0d0  . #(255 83  0))
               (1300.0d0  . #(255 93  0))
               (1400.0d0  . #(255 101 0))
               (1500.0d0  . #(255 109 0))
               (1600.0d0  . #(255 115 0))
               (1700.0d0  . #(255 121 0))
               (1800.0d0  . #(255 126 0))
               (1900.0d0  . #(255 131 0))
               (2000.0d0  . #(255 138 18))
               (2100.0d0  . #(255 142 33))
               (2200.0d0  . #(255 147 44))
               (2300.0d0  . #(255 152 54))
               (2400.0d0  . #(255 157 63))
               (2500.0d0  . #(255 161 72))
               (2600.0d0  . #(255 165 79))
               (2700.0d0  . #(255 169 87))
               (2800.0d0  . #(255 173 94))
               (2900.0d0  . #(255 177 101))
               (3000.0d0  . #(255 180 107))
               (3100.0d0  . #(255 184 114))
               (3200.0d0  . #(255 187 120))
               (3300.0d0  . #(255 190 126))
               (3400.0d0  . #(255 193 132))
               (3500.0d0  . #(255 196 137))
               (3600.0d0  . #(255 199 143))
               (3700.0d0  . #(255 201 148))
               (3800.0d0  . #(255 204 153))
               (3900.0d0  . #(255 206 159))
               (4000.0d0  . #(255 209 163))
               (4100.0d0  . #(255 211 168))
               (4200.0d0  . #(255 213 173))
               (4300.0d0  . #(255 215 177))
               (4400.0d0  . #(255 217 182))
               (4500.0d0  . #(255 219 186))
               (4600.0d0  . #(255 221 190))
               (4700.0d0  . #(255 223 194))
               (4800.0d0  . #(255 225 198))
               (4900.0d0  . #(255 227 202))
               (5000.0d0  . #(255 228 206))
               (5100.0d0  . #(255 230 210))
               (5200.0d0  . #(255 232 213))
               (5300.0d0  . #(255 233 217))
               (5400.0d0  . #(255 235 220))
               (5500.0d0  . #(255 236 224))
               (5600.0d0  . #(255 238 227))
               (5700.0d0  . #(255 239 230))
               (5800.0d0  . #(255 240 233))
               (5900.0d0  . #(255 242 236))
               (6000.0d0  . #(255 243 239))
               (6100.0d0  . #(255 244 242))
               (6200.0d0  . #(255 245 245))
               (6300.0d0  . #(255 246 247))
               (6400.0d0  . #(255 248 251))
               (6500.0d0  . #(255 249 253))
               (6600.0d0  . #(254 249 255))
               (6700.0d0  . #(252 247 255))
               (6800.0d0  . #(249 246 255))
               (6900.0d0  . #(247 245 255))
               (7000.0d0  . #(245 243 255))
               (7100.0d0  . #(243 242 255))
               (7200.0d0  . #(240 241 255))
               (7300.0d0  . #(239 240 255))
               (7400.0d0  . #(237 239 255))
               (7500.0d0  . #(235 238 255))
               (7600.0d0  . #(233 237 255))
               (7700.0d0  . #(231 236 255))
               (7800.0d0  . #(230 235 255))
               (7900.0d0  . #(228 234 255))
               (8000.0d0  . #(227 233 255))
               (8100.0d0  . #(225 232 255))
               (8200.0d0  . #(224 231 255))
               (8300.0d0  . #(222 230 255))
               (8400.0d0  . #(221 230 255))
               (8500.0d0  . #(220 229 255))
               (8600.0d0  . #(218 229 255))
               (8700.0d0  . #(217 227 255))
               (8800.0d0  . #(216 227 255))
               (8900.0d0  . #(215 226 255))
               (9000.0d0  . #(214 225 255))
               (9100.0d0  . #(212 225 255))
               (9200.0d0  . #(211 224 255))
               (9300.0d0  . #(210 223 255))
               (9400.0d0  . #(209 223 255))
               (9500.0d0  . #(208 222 255))
               (9600.0d0  . #(207 221 255))
               (9700.0d0  . #(207 221 255))
               (9800.0d0  . #(206 220 255))
               (9900.0d0  . #(205 220 255))
               (10000.0d0 . #(207 218 255))
               (10100.0d0 . #(207 218 255))
               (10200.0d0 . #(206 217 255))
               (10300.0d0 . #(205 217 255))
               (10400.0d0 . #(204 216 255))
               (10500.0d0 . #(204 216 255))
               (10600.0d0 . #(203 215 255))
               (10700.0d0 . #(202 215 255))
               (10800.0d0 . #(202 214 255))
               (10900.0d0 . #(201 214 255))
               (11000.0d0 . #(200 213 255))
               (11100.0d0 . #(200 213 255))
               (11200.0d0 . #(199 212 255))
               (11300.0d0 . #(198 212 255))
               (11400.0d0 . #(198 212 255))
               (11500.0d0 . #(197 211 255))
               (11600.0d0 . #(197 211 255))
               (11700.0d0 . #(197 210 255))
               (11800.0d0 . #(196 210 255))
               (11900.0d0 . #(195 210 255))
               (12000.0d0 . #(195 209 255))))