119 lines
4.9 KiB
Common Lisp
119 lines
4.9 KiB
Common Lisp
|
;;;; 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))))
|