Color space support (CIExyz, CIElab)

Former-commit-id: fa6a7b4fac3d2dafbf59ed4c1dfec19ed4b59066

data/CIExyz.csv

@@ -0,0 +1,441 @@
+390,0.16638,0.01830,0.81532
+391,0.16635,0.01846,0.81519
+392,0.16629,0.01858,0.81513
+393,0.16620,0.01867,0.81513
+394,0.16609,0.01872,0.81519
+395,0.16595,0.01874,0.81531
+396,0.16579,0.01872,0.81548
+397,0.16561,0.01867,0.81572
+398,0.16542,0.01857,0.81601
+399,0.16521,0.01844,0.81635
+400,0.16499,0.01827,0.81673
+401,0.16477,0.01807,0.81716
+402,0.16455,0.01784,0.81761
+403,0.16433,0.01761,0.81806
+404,0.16412,0.01738,0.81849
+405,0.16393,0.01718,0.81888
+406,0.16376,0.01702,0.81922
+407,0.16359,0.01688,0.81953
+408,0.16341,0.01676,0.81983
+409,0.16320,0.01664,0.82015
+410,0.16296,0.01653,0.82052
+411,0.16266,0.01640,0.82094
+412,0.16233,0.01627,0.82140
+413,0.16198,0.01614,0.82188
+414,0.16162,0.01603,0.82235
+415,0.16126,0.01594,0.82280
+416,0.16093,0.01587,0.82320
+417,0.16060,0.01583,0.82357
+418,0.16028,0.01582,0.82390
+419,0.15994,0.01584,0.82422
+420,0.15958,0.01589,0.82453
+421,0.15920,0.01597,0.82483
+422,0.15879,0.01608,0.82513
+423,0.15836,0.01622,0.82542
+424,0.15793,0.01637,0.82570
+425,0.15750,0.01653,0.82596
+426,0.15709,0.01671,0.82620
+427,0.15669,0.01690,0.82641
+428,0.15628,0.01712,0.82660
+429,0.15586,0.01738,0.82677
+430,0.15540,0.01767,0.82692
+431,0.15491,0.01802,0.82706
+432,0.15439,0.01841,0.82720
+433,0.15384,0.01883,0.82733
+434,0.15329,0.01926,0.82745
+435,0.15276,0.01968,0.82756
+436,0.15225,0.02008,0.82767
+437,0.15178,0.02047,0.82775
+438,0.15131,0.02086,0.82782
+439,0.15085,0.02128,0.82787
+440,0.15036,0.02173,0.82790
+441,0.14985,0.02225,0.82791
+442,0.14929,0.02282,0.82789
+443,0.14871,0.02343,0.82785
+444,0.14811,0.02409,0.82780
+445,0.14749,0.02478,0.82773
+446,0.14687,0.02550,0.82763
+447,0.14624,0.02625,0.82751
+448,0.14560,0.02706,0.82734
+449,0.14493,0.02795,0.82712
+450,0.14423,0.02895,0.82682
+451,0.14349,0.03007,0.82643
+452,0.14271,0.03133,0.82597
+453,0.14186,0.03271,0.82543
+454,0.14095,0.03422,0.82483
+455,0.13997,0.03584,0.82419
+456,0.13890,0.03759,0.82351
+457,0.13775,0.03945,0.82279
+458,0.13653,0.04145,0.82202
+459,0.13525,0.04359,0.82116
+460,0.13392,0.04588,0.82020
+461,0.13254,0.04834,0.81912
+462,0.13112,0.05098,0.81790
+463,0.12964,0.05384,0.81652
+464,0.12807,0.05695,0.81498
+465,0.12638,0.06036,0.81326
+466,0.12456,0.06410,0.81134
+467,0.12259,0.06822,0.80919
+468,0.12046,0.07275,0.80678
+469,0.11818,0.07773,0.80409
+470,0.11574,0.08320,0.80106
+471,0.11313,0.08922,0.79766
+472,0.11034,0.09582,0.79384
+473,0.10736,0.10307,0.78956
+474,0.10418,0.11103,0.78479
+475,0.10078,0.11975,0.77947
+476,0.09715,0.12930,0.77354
+477,0.09329,0.13971,0.76700
+478,0.08923,0.15097,0.75980
+479,0.08497,0.16308,0.75195
+480,0.08055,0.17601,0.74344
+481,0.07599,0.18973,0.73427
+482,0.07130,0.20429,0.72441
+483,0.06649,0.21974,0.71378
+484,0.06155,0.23615,0.70230
+485,0.05651,0.25359,0.68990
+486,0.05138,0.27212,0.67650
+487,0.04622,0.29169,0.66209
+488,0.04108,0.31224,0.64668
+489,0.03604,0.33365,0.63031
+490,0.03117,0.35580,0.61304
+491,0.02654,0.37853,0.59493
+492,0.02222,0.40175,0.57604
+493,0.01827,0.42531,0.55642
+494,0.01477,0.44909,0.53614
+495,0.01178,0.47294,0.51529
+496,0.00933,0.49673,0.49393
+497,0.00741,0.52049,0.47210
+498,0.00596,0.54424,0.44980
+499,0.00490,0.56805,0.42705
+500,0.00418,0.59194,0.40387
+501,0.00374,0.61593,0.38033
+502,0.00364,0.63984,0.35652
+503,0.00393,0.66346,0.33260
+504,0.00471,0.68656,0.30872
+505,0.00605,0.70890,0.28505
+506,0.00802,0.73018,0.26180
+507,0.01073,0.74993,0.23934
+508,0.01424,0.76771,0.21805
+509,0.01860,0.78319,0.19821
+510,0.02382,0.79618,0.18001
+511,0.02983,0.80664,0.16352
+512,0.03645,0.81498,0.14857
+513,0.04345,0.82161,0.13495
+514,0.05062,0.82692,0.12246
+515,0.05780,0.83125,0.11095
+516,0.06485,0.83484,0.10031
+517,0.07183,0.83765,0.09052
+518,0.07882,0.83959,0.08158
+519,0.08593,0.84060,0.07347
+520,0.09322,0.84063,0.06615
+521,0.10076,0.83968,0.05957
+522,0.10849,0.83786,0.05365
+523,0.11636,0.83533,0.04831
+524,0.12431,0.83221,0.04349
+525,0.13227,0.82861,0.03912
+526,0.14020,0.82463,0.03517
+527,0.14806,0.82034,0.03160
+528,0.15582,0.81580,0.02838
+529,0.16344,0.81106,0.02550
+530,0.17090,0.80617,0.02292
+531,0.17820,0.80119,0.02062
+532,0.18536,0.79609,0.01855
+533,0.19247,0.79084,0.01668
+534,0.19958,0.78542,0.01500
+535,0.20674,0.77980,0.01346
+536,0.21399,0.77394,0.01207
+537,0.22130,0.76790,0.01080
+538,0.22862,0.76172,0.00966
+539,0.23592,0.75544,0.00864
+540,0.24316,0.74912,0.00773
+541,0.25030,0.74278,0.00692
+542,0.25736,0.73644,0.00620
+543,0.26434,0.73010,0.00556
+544,0.27125,0.72376,0.00499
+545,0.27809,0.71742,0.00448
+546,0.28489,0.71108,0.00403
+547,0.29164,0.70474,0.00362
+548,0.29834,0.69841,0.00326
+549,0.30499,0.69208,0.00293
+550,0.31161,0.68576,0.00263
+551,0.31821,0.67944,0.00236
+552,0.32481,0.67307,0.00211
+553,0.33148,0.66663,0.00189
+554,0.33825,0.66006,0.00170
+555,0.34516,0.65332,0.00152
+556,0.35222,0.64642,0.00136
+557,0.35937,0.63941,0.00123
+558,0.36653,0.63237,0.00110
+559,0.37363,0.62538,0.00099
+560,0.38061,0.61851,0.00089
+561,0.38743,0.61177,0.00080
+562,0.39416,0.60512,0.00072
+563,0.40087,0.59849,0.00064
+564,0.40763,0.59179,0.00058
+565,0.41450,0.58498,0.00052
+566,0.42152,0.57801,0.00047
+567,0.42864,0.57094,0.00042
+568,0.43579,0.56383,0.00038
+569,0.44293,0.55672,0.00034
+570,0.45001,0.54968,0.00031
+571,0.45698,0.54274,0.00028
+572,0.46388,0.53587,0.00025
+573,0.47071,0.52906,0.00023
+574,0.47751,0.52229,0.00020
+575,0.48429,0.51553,0.00019
+576,0.49105,0.50878,0.00017
+577,0.49782,0.50203,0.00015
+578,0.50458,0.49529,0.00014
+579,0.51133,0.48854,0.00013
+580,0.51808,0.48181,0.00011
+581,0.52481,0.47509,0.00010
+582,0.53145,0.46846,0.00009
+583,0.53795,0.46197,0.00008
+584,0.54425,0.45567,0.00008
+585,0.55031,0.44962,0.00007
+586,0.55610,0.44384,0.00006
+587,0.56167,0.43828,0.00006
+588,0.56707,0.43288,0.00005
+589,0.57236,0.42759,0.00005
+590,0.57757,0.42238,0.00004
+591,0.58273,0.41723,0.00004
+592,0.58783,0.41214,0.00004
+593,0.59283,0.40714,0.00003
+594,0.59772,0.40225,0.00003
+595,0.60249,0.39748,0.00003
+596,0.60712,0.39285,0.00003
+597,0.61163,0.38834,0.00002
+598,0.61604,0.38394,0.00002
+599,0.62034,0.37963,0.00002
+600,0.62457,0.37541,0.00002
+601,0.62871,0.37127,0.00002
+602,0.63276,0.36723,0.00002
+603,0.63668,0.36330,0.00002
+604,0.64046,0.35952,0.00001
+605,0.64409,0.35589,0.00001
+606,0.64756,0.35243,0.00001
+607,0.65088,0.34911,0.00001
+608,0.65405,0.34594,0.00001
+609,0.65708,0.34291,0.00001
+610,0.66000,0.33999,0.00001
+611,0.66280,0.33719,0.00001
+612,0.66548,0.33451,0.00001
+613,0.66807,0.33193,0.00001
+614,0.67055,0.32945,0.00001
+615,0.67293,0.32706,0.00001
+616,0.67523,0.32477,0.00000
+617,0.67744,0.32256,0.00000
+618,0.67958,0.32042,0.00000
+619,0.68166,0.31834,0.00000
+620,0.68369,0.31631,0.00000
+621,0.68567,0.31433,0.00000
+622,0.68758,0.31242,0.00000
+623,0.68940,0.31060,0.00000
+624,0.69111,0.30889,0.00000
+625,0.69269,0.30731,0.00000
+626,0.69415,0.30585,0.00000
+627,0.69549,0.30451,0.00000
+628,0.69675,0.30325,0.00000
+629,0.69793,0.30207,0.00000
+630,0.69907,0.30093,0.00000
+631,0.70017,0.29983,0.00000
+632,0.70124,0.29876,0.00000
+633,0.70228,0.29772,0.00000
+634,0.70329,0.29671,0.00000
+635,0.70426,0.29574,0.00000
+636,0.70520,0.29480,0.00000
+637,0.70612,0.29388,0.00000
+638,0.70703,0.29297,0.00000
+639,0.70795,0.29205,0.00000
+640,0.70887,0.29113,0.00000
+641,0.70980,0.29020,0.00000
+642,0.71071,0.28929,0.00000
+643,0.71157,0.28843,0.00000
+644,0.71236,0.28764,0.00000
+645,0.71304,0.28696,0.00000
+646,0.71361,0.28639,0.00000
+647,0.71410,0.28590,0.00000
+648,0.71452,0.28548,0.00000
+649,0.71490,0.28510,0.00000
+650,0.71528,0.28472,0.00000
+651,0.71566,0.28434,0.00000
+652,0.71605,0.28395,0.00000
+653,0.71645,0.28355,0.00000
+654,0.71685,0.28315,0.00000
+655,0.71725,0.28275,0.00000
+656,0.71764,0.28236,0.00000
+657,0.71802,0.28198,0.00000
+658,0.71840,0.28160,0.00000
+659,0.71876,0.28124,0.00000
+660,0.71912,0.28088,0.00000
+661,0.71946,0.28054,0.00000
+662,0.71978,0.28022,0.00000
+663,0.72009,0.27991,0.00000
+664,0.72037,0.27963,0.00000
+665,0.72062,0.27938,0.00000
+666,0.72084,0.27916,0.00000
+667,0.72104,0.27896,0.00000
+668,0.72122,0.27878,0.00000
+669,0.72139,0.27861,0.00000
+670,0.72154,0.27846,0.00000
+671,0.72169,0.27831,0.00000
+672,0.72182,0.27818,0.00000
+673,0.72195,0.27805,0.00000
+674,0.72208,0.27792,0.00000
+675,0.72219,0.27781,0.00000
+676,0.72230,0.27770,0.00000
+677,0.72239,0.27761,0.00000
+678,0.72248,0.27752,0.00000
+679,0.72257,0.27743,0.00000
+680,0.72265,0.27735,0.00000
+681,0.72272,0.27728,0.00000
+682,0.72279,0.27721,0.00000
+683,0.72285,0.27715,0.00000
+684,0.72291,0.27709,0.00000
+685,0.72296,0.27704,0.00000
+686,0.72300,0.27700,0.00000
+687,0.72304,0.27696,0.00000
+688,0.72308,0.27692,0.00000
+689,0.72311,0.27689,0.00000
+690,0.72314,0.27686,0.00000
+691,0.72317,0.27683,0.00000
+692,0.72320,0.27680,0.00000
+693,0.72323,0.27677,0.00000
+694,0.72325,0.27675,0.00000
+695,0.72327,0.27673,0.00000
+696,0.72328,0.27672,0.00000
+697,0.72329,0.27671,0.00000
+698,0.72329,0.27671,0.00000
+699,0.72329,0.27671,0.00000
+700,0.72329,0.27671,0.00000
+701,0.72329,0.27671,0.00000
+702,0.72329,0.27671,0.00000
+703,0.72329,0.27671,0.00000
+704,0.72329,0.27671,0.00000
+705,0.72329,0.27671,0.00000
+706,0.72329,0.27671,0.00000
+707,0.72328,0.27672,0.00000
+708,0.72327,0.27673,0.00000
+709,0.72325,0.27675,0.00000
+710,0.72323,0.27677,0.00000
+711,0.72320,0.27680,0.00000
+712,0.72318,0.27682,0.00000
+713,0.72314,0.27686,0.00000
+714,0.72311,0.27689,0.00000
+715,0.72308,0.27692,0.00000
+716,0.72305,0.27695,0.00000
+717,0.72301,0.27699,0.00000
+718,0.72298,0.27702,0.00000
+719,0.72295,0.27705,0.00000
+720,0.72292,0.27708,0.00000
+721,0.72288,0.27712,0.00000
+722,0.72284,0.27716,0.00000
+723,0.72280,0.27720,0.00000
+724,0.72276,0.27724,0.00000
+725,0.72272,0.27728,0.00000
+726,0.72268,0.27732,0.00000
+727,0.72264,0.27736,0.00000
+728,0.72259,0.27741,0.00000
+729,0.72255,0.27745,0.00000
+730,0.72251,0.27749,0.00000
+731,0.72246,0.27754,0.00000
+732,0.72242,0.27758,0.00000
+733,0.72237,0.27763,0.00000
+734,0.72233,0.27767,0.00000
+735,0.72228,0.27772,0.00000
+736,0.72222,0.27778,0.00000
+737,0.72217,0.27783,0.00000
+738,0.72211,0.27789,0.00000
+739,0.72204,0.27796,0.00000
+740,0.72198,0.27802,0.00000
+741,0.72191,0.27809,0.00000
+742,0.72184,0.27816,0.00000
+743,0.72177,0.27823,0.00000
+744,0.72169,0.27831,0.00000
+745,0.72162,0.27838,0.00000
+746,0.72155,0.27845,0.00000
+747,0.72148,0.27852,0.00000
+748,0.72141,0.27859,0.00000
+749,0.72134,0.27866,0.00000
+750,0.72127,0.27873,0.00000
+751,0.72120,0.27880,0.00000
+752,0.72112,0.27888,0.00000
+753,0.72105,0.27895,0.00000
+754,0.72098,0.27902,0.00000
+755,0.72091,0.27909,0.00000
+756,0.72083,0.27917,0.00000
+757,0.72075,0.27925,0.00000
+758,0.72068,0.27932,0.00000
+759,0.72060,0.27940,0.00000
+760,0.72052,0.27948,0.00000
+761,0.72044,0.27956,0.00000
+762,0.72037,0.27963,0.00000
+763,0.72030,0.27970,0.00000
+764,0.72022,0.27978,0.00000
+765,0.72015,0.27985,0.00000
+766,0.72008,0.27992,0.00000
+767,0.72001,0.27999,0.00000
+768,0.71994,0.28006,0.00000
+769,0.71987,0.28013,0.00000
+770,0.71980,0.28020,0.00000
+771,0.71973,0.28027,0.00000
+772,0.71966,0.28034,0.00000
+773,0.71958,0.28042,0.00000
+774,0.71951,0.28049,0.00000
+775,0.71943,0.28057,0.00000
+776,0.71936,0.28064,0.00000
+777,0.71928,0.28072,0.00000
+778,0.71920,0.28080,0.00000
+779,0.71912,0.28088,0.00000
+780,0.71904,0.28096,0.00000
+781,0.71895,0.28105,0.00000
+782,0.71887,0.28113,0.00000
+783,0.71879,0.28121,0.00000
+784,0.71870,0.28130,0.00000
+785,0.71862,0.28138,0.00000
+786,0.71853,0.28147,0.00000
+787,0.71845,0.28155,0.00000
+788,0.71836,0.28164,0.00000
+789,0.71828,0.28172,0.00000
+790,0.71819,0.28181,0.00000
+791,0.71810,0.28190,0.00000
+792,0.71802,0.28198,0.00000
+793,0.71793,0.28207,0.00000
+794,0.71783,0.28217,0.00000
+795,0.71774,0.28226,0.00000
+796,0.71764,0.28236,0.00000
+797,0.71753,0.28247,0.00000
+798,0.71743,0.28257,0.00000
+799,0.71732,0.28268,0.00000
+800,0.71721,0.28279,0.00000
+801,0.71710,0.28290,0.00000
+802,0.71699,0.28301,0.00000
+803,0.71688,0.28312,0.00000
+804,0.71677,0.28323,0.00000
+805,0.71666,0.28334,0.00000
+806,0.71655,0.28345,0.00000
+807,0.71644,0.28356,0.00000
+808,0.71633,0.28367,0.00000
+809,0.71622,0.28378,0.00000
+810,0.71611,0.28389,0.00000
+811,0.71599,0.28401,0.00000
+812,0.71588,0.28412,0.00000
+813,0.71577,0.28423,0.00000
+814,0.71566,0.28434,0.00000
+815,0.71555,0.28445,0.00000
+816,0.71544,0.28456,0.00000
+817,0.71533,0.28467,0.00000
+818,0.71522,0.28478,0.00000
+819,0.71512,0.28488,0.00000
+820,0.71502,0.28498,0.00000
+821,0.71492,0.28508,0.00000
+822,0.71482,0.28518,0.00000
+823,0.71473,0.28527,0.00000
+824,0.71464,0.28536,0.00000
+825,0.71455,0.28545,0.00000
+826,0.71447,0.28553,0.00000
+827,0.71439,0.28561,0.00000
+828,0.71431,0.28569,0.00000
+829,0.71424,0.28576,0.00000
+830,0.71417,0.28583,0.00000

data/cone_sensitivity_lms.csv

@@ -0,0 +1,441 @@
+390,  4.15003E-04,  3.68349E-04,  9.54729E-03
+391,  5.02650E-04,  4.48015E-04,  1.14794E-02
+392,  6.07367E-04,  5.43965E-04,  1.37986E-02
+393,  7.31850E-04,  6.58983E-04,  1.65746E-02
+394,  8.79012E-04,  7.96121E-04,  1.98869E-02
+395,  1.05192E-03,  9.58658E-04,  2.38250E-02
+396,  1.25373E-03,  1.15002E-03,  2.84877E-02
+397,  1.48756E-03,  1.37367E-03,  3.39832E-02
+398,  1.75633E-03,  1.63296E-03,  4.04274E-02
+399,  2.06261E-03,  1.93089E-03,  4.79417E-02
+400,  2.40836E-03,  2.26991E-03,  5.66498E-02
+401,  2.79522E-03,  2.65210E-03,  6.66757E-02
+402,  3.22640E-03,  3.08110E-03,  7.81479E-02
+403,  3.70617E-03,  3.56156E-03,  9.11925E-02
+404,  4.23972E-03,  4.09900E-03,  1.05926E-01
+405,  4.83339E-03,  4.70010E-03,  1.22451E-01
+406,  5.49335E-03,  5.37186E-03,  1.40844E-01
+407,  6.21933E-03,  6.11757E-03,  1.61140E-01
+408,  7.00631E-03,  6.93795E-03,  1.83325E-01
+409,  7.84503E-03,  7.83144E-03,  2.07327E-01
+410,  8.72127E-03,  8.79369E-03,  2.33008E-01
+411,  9.61879E-03,  9.81865E-03,  2.60183E-01
+412,  1.05324E-02,  1.09044E-02,  2.88723E-01
+413,  1.14620E-02,  1.20509E-02,  3.18512E-01
+414,  1.24105E-02,  1.32582E-02,  3.49431E-01
+415,  1.33837E-02,  1.45277E-02,  3.81363E-01
+416,  1.43870E-02,  1.58600E-02,  4.14141E-01
+417,  1.54116E-02,  1.72496E-02,  4.47350E-01
+418,  1.64424E-02,  1.86878E-02,  4.80439E-01
+419,  1.74614E-02,  2.01638E-02,  5.12767E-01
+420,  1.84480E-02,  2.16649E-02,  5.43618E-01
+421,  1.93852E-02,  2.31801E-02,  5.72399E-01
+422,  2.02811E-02,  2.47139E-02,  5.99284E-01
+423,  2.11545E-02,  2.62785E-02,  6.24786E-01
+424,  2.20286E-02,  2.78905E-02,  6.49576E-01
+425,  2.29317E-02,  2.95714E-02,  6.74474E-01
+426,  2.38896E-02,  3.13438E-02,  7.00186E-01
+427,  2.49026E-02,  3.32151E-02,  7.26460E-01
+428,  2.59631E-02,  3.51889E-02,  7.52726E-01
+429,  2.70619E-02,  3.72683E-02,  7.78333E-01
+430,  2.81877E-02,  3.94566E-02,  8.02555E-01
+431,  2.93303E-02,  4.17546E-02,  8.24818E-01
+432,  3.04898E-02,  4.41544E-02,  8.45422E-01
+433,  3.16694E-02,  4.66432E-02,  8.64961E-01
+434,  3.28731E-02,  4.92050E-02,  8.84100E-01
+435,  3.41054E-02,  5.18199E-02,  9.03573E-01
+436,  3.53670E-02,  5.44645E-02,  9.23844E-01
+437,  3.66400E-02,  5.71131E-02,  9.44055E-01
+438,  3.78988E-02,  5.97369E-02,  9.62920E-01
+439,  3.91148E-02,  6.23038E-02,  9.79057E-01
+440,  4.02563E-02,  6.47782E-02,  9.91020E-01
+441,  4.12989E-02,  6.71329E-02,  9.97765E-01
+442,  4.22582E-02,  6.93844E-02,  9.99982E-01
+443,  4.31627E-02,  7.15658E-02,  9.98861E-01
+444,  4.40444E-02,  7.37164E-02,  9.95628E-01
+445,  4.49380E-02,  7.58812E-02,  9.91515E-01
+446,  4.58729E-02,  7.80980E-02,  9.87377E-01
+447,  4.68459E-02,  8.03538E-02,  9.82619E-01
+448,  4.78446E-02,  8.26198E-02,  9.76301E-01
+449,  4.88555E-02,  8.48644E-02,  9.67513E-01
+450,  4.98639E-02,  8.70524E-02,  9.55393E-01
+451,  5.08618E-02,  8.91640E-02,  9.39499E-01
+452,  5.18731E-02,  9.12523E-02,  9.20807E-01
+453,  5.29317E-02,  9.33950E-02,  9.00592E-01
+454,  5.40746E-02,  9.56775E-02,  8.80040E-01
+455,  5.53418E-02,  9.81934E-02,  8.60240E-01
+456,  5.67734E-02,  1.01031E-01,  8.42031E-01
+457,  5.83973E-02,  1.04229E-01,  8.25572E-01
+458,  6.02409E-02,  1.07814E-01,  8.10860E-01
+459,  6.23353E-02,  1.11817E-01,  7.97902E-01
+460,  6.47164E-02,  1.16272E-01,  7.86704E-01
+461,  6.74131E-02,  1.21204E-01,  7.77119E-01
+462,  7.04040E-02,  1.26573E-01,  7.68365E-01
+463,  7.36489E-02,  1.32311E-01,  7.59538E-01
+464,  7.70978E-02,  1.38334E-01,  7.49777E-01
+465,  8.06894E-02,  1.44541E-01,  7.38268E-01
+466,  8.43613E-02,  1.50828E-01,  7.24389E-01
+467,  8.80904E-02,  1.57146E-01,  7.08113E-01
+468,  9.18630E-02,  1.63457E-01,  6.89572E-01
+469,  9.56637E-02,  1.69721E-01,  6.68927E-01
+470,  9.94755E-02,  1.75893E-01,  6.46359E-01
+471,  1.03286E-01,  1.81938E-01,  6.22112E-01
+472,  1.07103E-01,  1.87872E-01,  5.96591E-01
+473,  1.10947E-01,  1.93731E-01,  5.70216E-01
+474,  1.14838E-01,  1.99557E-01,  5.43373E-01
+475,  1.18802E-01,  2.05398E-01,  5.16411E-01
+476,  1.22863E-01,  2.11302E-01,  4.89647E-01
+477,  1.27026E-01,  2.17283E-01,  4.63406E-01
+478,  1.31293E-01,  2.23347E-01,  4.37965E-01
+479,  1.35666E-01,  2.29501E-01,  4.13549E-01
+480,  1.40145E-01,  2.35754E-01,  3.90333E-01
+481,  1.44731E-01,  2.42108E-01,  3.68394E-01
+482,  1.49415E-01,  2.48545E-01,  3.47582E-01
+483,  1.54189E-01,  2.55037E-01,  3.27724E-01
+484,  1.59038E-01,  2.61554E-01,  3.08676E-01
+485,  1.63952E-01,  2.68063E-01,  2.90322E-01
+486,  1.68932E-01,  2.74561E-01,  2.72626E-01
+487,  1.74063E-01,  2.81180E-01,  2.55772E-01
+488,  1.79457E-01,  2.88097E-01,  2.39945E-01
+489,  1.85241E-01,  2.95508E-01,  2.25280E-01
+490,  1.91556E-01,  3.03630E-01,  2.11867E-01
+491,  1.98532E-01,  3.12649E-01,  1.99719E-01
+492,  2.06182E-01,  3.22565E-01,  1.88674E-01
+493,  2.14485E-01,  3.33319E-01,  1.78557E-01
+494,  2.23411E-01,  3.44844E-01,  1.69217E-01
+495,  2.32926E-01,  3.57061E-01,  1.60526E-01
+496,  2.42992E-01,  3.69895E-01,  1.52368E-01
+497,  2.53616E-01,  3.83355E-01,  1.44620E-01
+498,  2.64810E-01,  3.97467E-01,  1.37173E-01
+499,  2.76587E-01,  4.12260E-01,  1.29937E-01
+500,  2.88959E-01,  4.27764E-01,  1.22839E-01
+501,  3.01934E-01,  4.44001E-01,  1.15834E-01
+502,  3.15508E-01,  4.60947E-01,  1.08922E-01
+503,  3.29673E-01,  4.78562E-01,  1.02118E-01
+504,  3.44416E-01,  4.96795E-01,  9.54374E-02
+505,  3.59716E-01,  5.15587E-01,  8.88965E-02
+506,  3.75550E-01,  5.34868E-01,  8.25343E-02
+507,  3.91895E-01,  5.54575E-01,  7.64613E-02
+508,  4.08722E-01,  5.74640E-01,  7.07769E-02
+509,  4.25998E-01,  5.94984E-01,  6.55491E-02
+510,  4.43683E-01,  6.15520E-01,  6.08210E-02
+511,  4.61731E-01,  6.36162E-01,  5.65919E-02
+512,  4.80094E-01,  6.56872E-01,  5.27659E-02
+513,  4.98717E-01,  6.77624E-01,  4.92440E-02
+514,  5.17539E-01,  6.98393E-01,  4.59470E-02
+515,  5.36494E-01,  7.19154E-01,  4.28123E-02
+516,  5.55493E-01,  7.39844E-01,  3.98014E-02
+517,  5.74386E-01,  7.60235E-01,  3.69227E-02
+518,  5.92995E-01,  7.80039E-01,  3.41909E-02
+519,  6.11124E-01,  7.98941E-01,  3.16158E-02
+520,  6.28561E-01,  8.16610E-01,  2.92033E-02
+521,  6.45139E-01,  8.32783E-01,  2.69536E-02
+522,  6.60907E-01,  8.47550E-01,  2.48575E-02
+523,  6.75993E-01,  8.61113E-01,  2.29047E-02
+524,  6.90542E-01,  8.73698E-01,  2.10855E-02
+525,  7.04720E-01,  8.85550E-01,  1.93912E-02
+526,  7.18662E-01,  8.96873E-01,  1.78145E-02
+527,  7.32323E-01,  9.07638E-01,  1.63514E-02
+528,  7.45606E-01,  9.17757E-01,  1.49980E-02
+529,  7.58410E-01,  9.27137E-01,  1.37497E-02
+530,  7.70630E-01,  9.35687E-01,  1.26013E-02
+531,  7.82208E-01,  9.43362E-01,  1.15466E-02
+532,  7.93290E-01,  9.50309E-01,  1.05766E-02
+533,  8.04084E-01,  9.56733E-01,  9.68268E-03
+534,  8.14813E-01,  9.62844E-01,  8.85746E-03
+535,  8.25711E-01,  9.68858E-01,  8.09453E-03
+536,  8.36943E-01,  9.74919E-01,  7.38890E-03
+537,  8.48349E-01,  9.80850E-01,  6.73799E-03
+538,  8.59676E-01,  9.86388E-01,  6.13947E-03
+539,  8.70656E-01,  9.91267E-01,  5.59073E-03
+540,  8.81011E-01,  9.95217E-01,  5.08900E-03
+541,  8.90496E-01,  9.98007E-01,  4.63120E-03
+542,  8.99052E-01,  9.99595E-01,  4.21366E-03
+543,  9.06669E-01,  9.99982E-01,  3.83286E-03
+544,  9.13341E-01,  9.99177E-01,  3.48559E-03
+545,  9.19067E-01,  9.97193E-01,  3.16893E-03
+546,  9.23898E-01,  9.94102E-01,  2.88021E-03
+547,  9.28099E-01,  9.90204E-01,  2.61698E-03
+548,  9.31995E-01,  9.85855E-01,  2.37701E-03
+549,  9.35916E-01,  9.81404E-01,  2.15829E-03
+550,  9.40198E-01,  9.77193E-01,  1.95896E-03
+551,  9.45076E-01,  9.73441E-01,  1.77737E-03
+552,  9.50367E-01,  9.69881E-01,  1.61218E-03
+553,  9.55775E-01,  9.66133E-01,  1.46215E-03
+554,  9.61000E-01,  9.61823E-01,  1.32606E-03
+555,  9.65733E-01,  9.56583E-01,  1.20277E-03
+556,  9.69744E-01,  9.50167E-01,  1.09118E-03
+557,  9.73133E-01,  9.42773E-01,  9.90135E-04
+558,  9.76086E-01,  9.34709E-01,  8.98564E-04
+559,  9.78793E-01,  9.26271E-01,  8.15524E-04
+560,  9.81445E-01,  9.17750E-01,  7.40174E-04
+561,  9.84186E-01,  9.09339E-01,  6.71772E-04
+562,  9.86965E-01,  9.00895E-01,  6.09693E-04
+563,  9.89678E-01,  8.92197E-01,  5.53372E-04
+564,  9.92220E-01,  8.83035E-01,  5.02292E-04
+565,  9.94486E-01,  8.73205E-01,  4.55979E-04
+566,  9.96386E-01,  8.62565E-01,  4.13997E-04
+567,  9.97895E-01,  8.51173E-01,  3.75940E-04
+568,  9.99004E-01,  8.39132E-01,  3.41439E-04
+569,  9.99706E-01,  8.26545E-01,  3.10160E-04
+570,  9.99993E-01,  8.13509E-01,  2.81800E-04
+571,  9.99837E-01,  8.00082E-01,  2.56084E-04
+572,  9.99123E-01,  7.86166E-01,  2.32764E-04
+573,  9.97719E-01,  7.71635E-01,  2.11616E-04
+574,  9.95491E-01,  7.56376E-01,  1.92436E-04
+575,  9.92310E-01,  7.40291E-01,  1.75039E-04
+576,  9.88146E-01,  7.23369E-01,  1.59257E-04
+577,  9.83345E-01,  7.05890E-01,  1.44940E-04
+578,  9.78342E-01,  6.88184E-01,  1.31948E-04
+579,  9.73564E-01,  6.70554E-01,  1.20157E-04
+580,  9.69429E-01,  6.53274E-01,  1.09454E-04
+581,  9.66211E-01,  6.36524E-01,  9.97367E-05
+582,  9.63630E-01,  6.20217E-01,  9.09125E-05
+583,  9.61273E-01,  6.04211E-01,  8.28976E-05
+584,  9.58732E-01,  5.88375E-01,  7.56160E-05
+585,  9.55602E-01,  5.72597E-01,  6.89991E-05
+586,  9.51569E-01,  5.56783E-01,  6.29846E-05
+587,  9.46654E-01,  5.40896E-01,  5.75163E-05
+588,  9.40962E-01,  5.24912E-01,  5.25432E-05
+589,  9.34600E-01,  5.08817E-01,  4.80192E-05
+590,  9.27673E-01,  4.92599E-01,  4.39024E-05
+591,  9.20264E-01,  4.76268E-01,  4.01551E-05
+592,  9.12391E-01,  4.59893E-01,  3.67431E-05
+593,  9.04050E-01,  4.43551E-01,  3.36353E-05
+594,  8.95243E-01,  4.27314E-01,  3.08037E-05
+595,  8.85969E-01,  4.11246E-01,  2.82228E-05
+596,  8.76242E-01,  3.95396E-01,  2.58697E-05
+597,  8.66117E-01,  3.79782E-01,  2.37235E-05
+598,  8.55658E-01,  3.64410E-01,  2.17653E-05
+599,  8.44926E-01,  3.49289E-01,  1.99779E-05
+600,  8.33982E-01,  3.34429E-01,  1.83459E-05
+601,  8.22859E-01,  3.19843E-01,  1.68551E-05
+602,  8.11491E-01,  3.05564E-01,  1.54929E-05
+603,  7.99794E-01,  2.91625E-01,  1.42476E-05
+604,  7.87689E-01,  2.78053E-01,  1.31087E-05
+605,  7.75103E-01,  2.64872E-01,  1.20667E-05
+606,  7.61996E-01,  2.52099E-01,  1.11131E-05
+607,  7.48425E-01,  2.39747E-01,  1.02399E-05
+608,  7.34470E-01,  2.27822E-01,  9.43999E-06
+609,  7.20208E-01,  2.16330E-01,  8.70695E-06
+610,  7.05713E-01,  2.05273E-01,  8.03488E-06
+611,  6.91044E-01,  1.94650E-01,  7.41844E-06
+612,  6.76212E-01,  1.84448E-01,  6.85279E-06
+613,  6.61220E-01,  1.74654E-01,  6.33352E-06
+614,  6.46072E-01,  1.65256E-01,  5.85662E-06
+615,  6.30773E-01,  1.56243E-01,  5.41843E-06
+616,  6.15349E-01,  1.47602E-01,
+617,  5.99888E-01,  1.39329E-01,
+618,  5.84489E-01,  1.31416E-01,
+619,  5.69240E-01,  1.23856E-01,
+620,  5.54224E-01,  1.16641E-01,
+621,  5.39469E-01,  1.09766E-01,
+622,  5.24827E-01,  1.03226E-01,
+623,  5.10124E-01,  9.70205E-02,
+624,  4.95206E-01,  9.11430E-02,
+625,  4.79941E-01,  8.55872E-02,
+626,  4.64270E-01,  8.03428E-02,
+627,  4.48338E-01,  7.53913E-02,
+628,  4.32329E-01,  7.07136E-02,
+629,  4.16406E-01,  6.62924E-02,
+630,  4.00711E-01,  6.21120E-02,
+631,  3.85355E-01,  5.81595E-02,
+632,  3.70377E-01,  5.44276E-02,
+633,  3.55793E-01,  5.09098E-02,
+634,  3.41618E-01,  4.75991E-02,
+635,  3.27864E-01,  4.44879E-02,
+636,  3.14541E-01,  4.15659E-02,
+637,  3.01662E-01,  3.88152E-02,
+638,  2.89239E-01,  3.62181E-02,
+639,  2.77278E-01,  3.37599E-02,
+640,  2.65784E-01,  3.14282E-02,
+641,  2.54740E-01,  2.92176E-02,
+642,  2.44054E-01,  2.71403E-02,
+643,  2.33634E-01,  2.52084E-02,
+644,  2.23399E-01,  2.34286E-02,
+645,  2.13284E-01,  2.18037E-02,
+646,  2.03257E-01,  2.03285E-02,
+647,  1.93370E-01,  1.89779E-02,
+648,  1.83688E-01,  1.77272E-02,
+649,  1.74263E-01,  1.65560E-02,
+650,  1.65141E-01,  1.54480E-02,
+651,  1.56354E-01,  1.43924E-02,
+652,  1.47916E-01,  1.33896E-02,
+653,  1.39834E-01,  1.24414E-02,
+654,  1.32111E-01,  1.15488E-02,
+655,  1.24749E-01,  1.07120E-02,
+656,  1.17744E-01,  9.92994E-03,
+657,  1.11081E-01,  9.20057E-03,
+658,  1.04747E-01,  8.52126E-03,
+659,  9.87277E-02,  7.88945E-03,
+660,  9.30085E-02,  7.30255E-03,
+661,  8.75769E-02,  6.75820E-03,
+662,  8.24219E-02,  6.25474E-03,
+663,  7.75328E-02,  5.79045E-03,
+664,  7.28989E-02,  5.36347E-03,
+665,  6.85100E-02,  4.97179E-03,
+666,  6.43554E-02,  4.61300E-03,
+667,  6.04242E-02,  4.28339E-03,
+668,  5.67057E-02,  3.97940E-03,
+669,  5.31896E-02,  3.69803E-03,
+670,  4.98661E-02,  3.43667E-03,
+671,  4.67258E-02,  3.19326E-03,
+672,  4.37598E-02,  2.96653E-03,
+673,  4.09594E-02,  2.75543E-03,
+674,  3.83165E-02,  2.55896E-03,
+675,  3.58233E-02,  2.37617E-03,
+676,  3.34725E-02,  2.20618E-03,
+677,  3.12583E-02,  2.04809E-03,
+678,  2.91751E-02,  1.90110E-03,
+679,  2.72173E-02,  1.76442E-03,
+680,  2.53790E-02,  1.63734E-03,
+681,  2.36541E-02,  1.51916E-03,
+682,  2.20336E-02,  1.40913E-03,
+683,  2.05092E-02,  1.30655E-03,
+684,  1.90735E-02,  1.21078E-03,
+685,  1.77201E-02,  1.12128E-03,
+686,  1.64451E-02,  1.03766E-03,
+687,  1.52510E-02,  9.59892E-04,
+688,  1.41404E-02,  8.87951E-04,
+689,  1.31137E-02,  8.21729E-04,
+690,  1.21701E-02,  7.61051E-04,
+691,  1.13063E-02,  7.05623E-04,
+692,  1.05131E-02,  6.54874E-04,
+693,  9.78127E-03,  6.08240E-04,
+694,  9.10300E-03,  5.65240E-04,
+695,  8.47170E-03,  5.25457E-04,
+696,  7.88227E-03,  4.88550E-04,
+697,  7.33213E-03,  4.54277E-04,
+698,  6.81928E-03,  4.22436E-04,
+699,  6.34173E-03,  3.92839E-04,
+700,  5.89749E-03,  3.65317E-04,
+701,  5.48444E-03,  3.39710E-04,
+702,  5.09978E-03,  3.15856E-04,
+703,  4.74086E-03,  2.93607E-04,
+704,  4.40538E-03,  2.72834E-04,
+705,  4.09129E-03,  2.53417E-04,
+706,  3.79703E-03,  2.35265E-04,
+707,  3.52187E-03,  2.18331E-04,
+708,  3.26520E-03,  2.02574E-04,
+709,  3.02632E-03,  1.87948E-04,
+710,  2.80447E-03,  1.74402E-04,
+711,  2.59882E-03,  1.61878E-04,
+712,  2.40849E-03,  1.50305E-04,
+713,  2.23259E-03,  1.39612E-04,
+714,  2.07024E-03,  1.29734E-04,
+715,  1.92058E-03,  1.20608E-04,
+716,  1.78269E-03,  1.12176E-04,
+717,  1.65540E-03,  1.04373E-04,
+718,  1.53762E-03,  9.71383E-05,
+719,  1.42839E-03,  9.04202E-05,
+720,  1.32687E-03,  8.41716E-05,
+721,  1.23238E-03,  7.83538E-05,
+722,  1.14456E-03,  7.29425E-05,
+723,  1.06308E-03,  6.79164E-05,
+724,  9.87592E-04,  6.32542E-05,
+725,  9.17777E-04,  5.89349E-05,
+726,  8.53264E-04,  5.49360E-05,
+727,  7.93589E-04,  5.12291E-05,
+728,  7.38306E-04,  4.77872E-05,
+729,  6.87018E-04,  4.45862E-05,
+730,  6.39373E-04,  4.16049E-05,
+731,  5.95057E-04,  3.88245E-05,
+732,  5.53797E-04,  3.62302E-05,
+733,  5.15350E-04,  3.38086E-05,
+734,  4.79496E-04,  3.15474E-05,
+735,  4.46035E-04,  2.94354E-05,
+736,  4.14809E-04,  2.74634E-05,
+737,  3.85749E-04,  2.56268E-05,
+738,  3.58792E-04,  2.39217E-05,
+739,  3.33861E-04,  2.23432E-05,
+740,  3.10869E-04,  2.08860E-05,
+741,  2.89699E-04,  1.95424E-05,
+742,  2.70145E-04,  1.82990E-05,
+743,  2.52007E-04,  1.71423E-05,
+744,  2.35117E-04,  1.60611E-05,
+745,  2.19329E-04,  1.50458E-05,
+746,  2.04535E-04,  1.40893E-05,
+747,  1.90692E-04,  1.31899E-05,
+748,  1.77771E-04,  1.23462E-05,
+749,  1.65736E-04,  1.15569E-05,
+750,  1.54549E-04,  1.08200E-05,
+751,  1.44167E-04,  1.01334E-05,
+752,  1.34528E-04,  9.49367E-06,
+753,  1.25574E-04,  8.89736E-06,
+754,  1.17251E-04,  8.34135E-06,
+755,  1.09508E-04,  7.82271E-06,
+756,  1.02300E-04,  7.33865E-06,
+757,  9.55828E-05,  6.88612E-06,
+758,  8.93161E-05,  6.46228E-06,
+759,  8.34631E-05,  6.06462E-06,
+760,  7.79912E-05,  5.69093E-06,
+761,  7.28730E-05,  5.33942E-06,
+762,  6.80921E-05,  5.00929E-06,
+763,  6.36342E-05,  4.69984E-06,
+764,  5.94841E-05,  4.41034E-06,
+765,  5.56264E-05,  4.13998E-06,
+766,  5.20430E-05,  3.88772E-06,
+767,  4.87063E-05,  3.65186E-06,
+768,  4.55900E-05,  3.43070E-06,
+769,  4.26710E-05,  3.22278E-06,
+770,  3.99295E-05,  3.02683E-06,
+771,  3.73509E-05,  2.84192E-06,
+772,  3.49326E-05,  2.66795E-06,
+773,  3.26730E-05,  2.50491E-06,
+774,  3.05690E-05,  2.35267E-06,
+775,  2.86163E-05,  2.21100E-06,
+776,  2.68077E-05,  2.07946E-06,
+777,  2.51286E-05,  1.95700E-06,
+778,  2.35645E-05,  1.84258E-06,
+779,  2.21026E-05,  1.73528E-06,
+780,  2.07321E-05,  1.63433E-06,
+781,  1.94444E-05,  1.53910E-06,
+782,  1.82351E-05,  1.44932E-06,
+783,  1.71008E-05,  1.36478E-06,
+784,  1.60380E-05,  1.28526E-06,
+785,  1.50432E-05,  1.21054E-06,
+786,  1.41127E-05,  1.14038E-06,
+787,  1.32420E-05,  1.07446E-06,
+788,  1.24263E-05,  1.01247E-06,
+789,  1.16618E-05,  9.54130E-07,
+790,  1.09446E-05,  8.99170E-07,
+791,  1.02716E-05,  8.47379E-07,
+792,  9.64036E-06,  7.98635E-07,
+793,  9.04897E-06,  7.52832E-07,
+794,  8.49535E-06,  7.09857E-07,
+795,  7.97750E-06,  6.69594E-07,
+796,  7.49341E-06,  6.31907E-07,
+797,  7.04079E-06,  5.96604E-07,
+798,  6.61744E-06,  5.63495E-07,
+799,  6.22133E-06,  5.32408E-07,
+800,  5.85057E-06,  5.03187E-07,
+801,  5.50333E-06,  4.75686E-07,
+802,  5.17756E-06,  4.49753E-07,
+803,  4.87135E-06,  4.25249E-07,
+804,  4.58300E-06,  4.02050E-07,
+805,  4.31102E-06,  3.80046E-07,
+806,  4.05422E-06,  3.59156E-07,
+807,  3.81213E-06,  3.39356E-07,
+808,  3.58438E-06,  3.20633E-07,
+809,  3.37053E-06,  3.02966E-07,
+810,  3.17009E-06,  2.86329E-07,
+811,  2.98248E-06,  2.70687E-07,
+812,  2.80691E-06,  2.55980E-07,
+813,  2.64257E-06,  2.42147E-07,
+814,  2.48873E-06,  2.29130E-07,
+815,  2.34468E-06,  2.16878E-07,
+816,  2.20974E-06,  2.05338E-07,
+817,  2.08315E-06,  1.94449E-07,
+818,  1.96419E-06,  1.84155E-07,
+819,  1.85222E-06,  1.74407E-07,
+820,  1.74666E-06,  1.65158E-07,
+821,  1.64705E-06,  1.56373E-07,
+822,  1.55307E-06,  1.48031E-07,
+823,  1.46448E-06,  1.40117E-07,
+824,  1.38100E-06,  1.32615E-07,
+825,  1.30241E-06,  1.25508E-07,
+826,  1.22844E-06,  1.18781E-07,
+827,  1.15888E-06,  1.12416E-07,
+828,  1.09348E-06,  1.06398E-07,
+829,  1.03203E-06,  1.00711E-07,
+830,  9.74306E-07,  9.53411E-08,

reanimate.cabal

@@ -27,6 +27,8 @@ data-files:           viewer/build/*.js
                       viewer/build/static/js/main.db22f45d.chunk.js
                       viewer/build/static/js/runtime~main.9eb600ee.js
                       viewer/build/static/css/main.6efe09fd.chunk.css
+                      data/CIExyz.csv
+                      data/cone_sensitivity_lms.csv
 
 Source-Repository head
     Type:      git
@@ -50,6 +52,7 @@ library
                       Reanimate.Morph
                       Reanimate.Raster
                       Reanimate.ColorMap
+                      Reanimate.ColorSpace
   other-modules:      Reanimate.Svg.NamedColors
                       Reanimate.Cache
                       Paths_reanimate
@@ -60,7 +63,7 @@ library
                        diagrams-core, diagrams-lib, diagrams-contrib,
                        svg-builder, matrices, cubicbezier, palette, websockets,
                        hashable, fsnotify, open-browser, random-shuffle, base64-bytestring,
-                       vector, colour
+                       vector, colour, cassava
 
 Flag server
   Description: Enable rendering server

src/Reanimate/ColorMap.hs

@@ -175,9 +175,15 @@ jet t = PixelRGB8 red green blue
     trunc :: Double -> Pixel8
     trunc = fromIntegral . min 255 . max 0 . round . (*) 255
 
--- | Matlab hsv colormap. Goes from 0 degrees to 330 degrees.
+-- | hsv colormap. Goes from 0 degrees to 360 degrees.
 hsv :: Double -> PixelRGB8
 hsv t = PixelRGB8 (round $ r*255) (round $ g*255) (round $ b*255)
+  where
+    RGB r g b = HSV.hsv (t * 360) 1 1
+
+-- | Matlab hsv colormap. Goes from 0 degrees to 330 degrees.
+hsvMatlab :: Double -> PixelRGB8
+hsvMatlab t = PixelRGB8 (round $ r*255) (round $ g*255) (round $ b*255)
   where
     RGB r g b = HSV.hsv (t * 330) 1 1
 

src/Reanimate/ColorSpace.hs

@@ -0,0 +1,72 @@
+module Reanimate.ColorSpace where
+
+import qualified Data.ByteString.Lazy as BS
+import           Data.Csv
+import           Data.Map             (Map)
+import qualified Data.Map             as Map
+import           Data.Maybe
+import qualified Data.Vector          as V
+import Data.Colour.CIE
+import Data.Colour.CIE.Illuminant
+import           Paths_reanimate
+import           System.IO.Unsafe
+
+import           Reanimate.Svg
+import           Graphics.SvgTree (Number(..), Tree)
+
+type Nanometer = Integer
+
+
+lightXYZCoordinates :: Map Nanometer (Double, Double, Double)
+lightXYZCoordinates = unsafePerformIO $ do
+  dat <- BS.readFile =<< getDataFileName "data/CIExyz.csv"
+  case decode NoHeader dat of
+    Left err -> error err
+    Right vec -> return $ Map.fromList
+      [ (nm, (x,y,z)) | (nm,x,y,z) <- V.toList vec, nm <= 700 ]
+
+renderXYZCoordinates :: Tree
+renderXYZCoordinates =
+  withFillOpacity 0 $
+  mkLinePath $
+  [ (x, 1-y)
+  | (ang, (x,y,_z)) <- Map.toList lightXYZCoordinates
+  ]
+
+lightLABCoordinates :: Map Nanometer (Double, Double, Double)
+lightLABCoordinates = Map.map fn lightXYZCoordinates
+  where
+    fn (x,y,z) = cieLABView d65 (cieXYZ x y z)
+
+renderLABCoordinates :: Tree
+renderLABCoordinates =
+  withFillOpacity 0 $
+  mkLinePath $
+  [ (a/350, (1-b)/150)
+  | (ang, (_l,a,b)) <- Map.toList lightLABCoordinates
+  ]
+
+-- (Long, Medium, Short)
+coneSensitivity :: Map Nanometer (Double, Double, Double)
+coneSensitivity = unsafePerformIO $ do
+  dat <- BS.readFile =<< getDataFileName "data/cone_sensitivity_lms.csv"
+  case decode NoHeader dat of
+    Left err -> error err
+    Right vec -> return $ Map.fromList
+      [ (nm, (l,m,fromMaybe 0 s)) | (nm,l,m,s) <- V.toList vec ]
+
+renderSensitivity :: Tree
+renderSensitivity = mkGroup
+  [ withStrokeColor "blue"  $ draw (\(l,m,s) -> s)
+  , withStrokeColor "green" $ draw (\(l,m,s) -> m)
+  , withStrokeColor "red"   $ draw (\(l,m,s) -> l)
+  ]
+  where
+    draw fn = withFillOpacity 0 $ mkLinePath
+      [ (fromIntegral (ang-minAng) / maxAng * width, fn val * height)
+      | (ang, val) <- Map.toList coneSensitivity
+      ]
+    width = 100
+    height = -50
+    maxAng = fromIntegral $ fst (Map.findMax coneSensitivity) - minAng
+    minAng = fst (Map.findMin coneSensitivity)

src/Reanimate/Svg.hs

@@ -524,6 +524,9 @@ withStrokeWidth width = strokeWidth .~ pure width
 withClipPathRef :: ElementRef -> Tree -> Tree
 withClipPathRef ref = clipPathRef .~ pure ref
 
+withId :: String -> Tree -> Tree
+withId idTag = attrId .~ Just idTag
+
 mkRect :: Point -> Number -> Number -> Tree
 mkRect corner width height = RectangleTree $ defaultSvg
   & rectUpperLeftCorner .~ corner
@@ -550,6 +553,14 @@ mkGroup :: [Tree] -> Tree
 mkGroup forest = GroupTree $ defaultSvg
   & groupChildren .~ forest
 
+mkDefinitions :: [Tree] -> Tree
+mkDefinitions forest = DefinitionTree $ defaultSvg
+  & groupChildren .~ forest
+
+mkClipPath :: String -> [Tree] -> Tree
+mkClipPath idTag forest = withId idTag $ ClipPathTree $ (defaultSvg
+  & clipPathContent .~ forest)
+
 mkPathString :: String -> Tree
 mkPathString = mkPathText . T.pack