hashirama/reanimate
Watch
1
0
Fork
You've already forked reanimate
 0
mirror of https://github.com/reanimate/reanimate.git synced 2026-09-09 15:12:21 +00:00
Code Issues Projects Releases Wiki Activity

More color-theory dev.

Browse source 
Former-commit-id: f1836eac8309ba0df2a7e6f863f2544cab0c86db
This commit is contained in:
David Himmelstrup 2019-09-20 11:24:00 +08:00
commit 1c93dcfe13
8 changed files with 739 additions and 96 deletions
Download patch file Download diff file Expand all files Collapse all files

441
data/CIE_XYZ.csv Normal file
View file

@ -0,0 +1,441 @@
390,3.769647E-03,4.146161E-04,1.847260E-02
391,4.532416E-03,5.028333E-04,2.221101E-02
392,5.446553E-03,6.084991E-04,2.669819E-02
393,6.538868E-03,7.344436E-04,3.206937E-02
394,7.839699E-03,8.837389E-04,3.847832E-02
395,9.382967E-03,1.059646E-03,4.609784E-02
396,1.120608E-02,1.265532E-03,5.511953E-02
397,1.334965E-02,1.504753E-03,6.575257E-02
398,1.585690E-02,1.780493E-03,7.822113E-02
399,1.877286E-02,2.095572E-03,9.276013E-02
400,2.214302E-02,2.452194E-03,1.096090E-01
401,2.601285E-02,2.852216E-03,1.290077E-01
402,3.043036E-02,3.299115E-03,1.512047E-01
403,3.544325E-02,3.797466E-03,1.764441E-01
404,4.109640E-02,4.352768E-03,2.049517E-01
405,4.742986E-02,4.971717E-03,2.369246E-01
406,5.447394E-02,5.661014E-03,2.725123E-01
407,6.223612E-02,6.421615E-03,3.117820E-01
408,7.070048E-02,7.250312E-03,3.547064E-01
409,7.982513E-02,8.140173E-03,4.011473E-01
410,8.953803E-02,9.079860E-03,4.508369E-01
411,9.974848E-02,1.005608E-02,5.034164E-01
412,1.104019E-01,1.106456E-02,5.586361E-01
413,1.214566E-01,1.210522E-02,6.162734E-01
414,1.328741E-01,1.318014E-02,6.760982E-01
415,1.446214E-01,1.429377E-02,7.378822E-01
416,1.566468E-01,1.545004E-02,8.013019E-01
417,1.687901E-01,1.664093E-02,8.655573E-01
418,1.808328E-01,1.785302E-02,9.295791E-01
419,1.925216E-01,1.907018E-02,9.921293E-01
420,2.035729E-01,2.027369E-02,1.051821E+00
421,2.137531E-01,2.144805E-02,1.107509E+00
422,2.231348E-01,2.260041E-02,1.159527E+00
423,2.319245E-01,2.374789E-02,1.208869E+00
424,2.403892E-01,2.491247E-02,1.256834E+00
425,2.488523E-01,2.612106E-02,1.305008E+00
426,2.575896E-01,2.739923E-02,1.354758E+00
427,2.664991E-01,2.874993E-02,1.405594E+00
428,2.753532E-01,3.016909E-02,1.456414E+00
429,2.838921E-01,3.165145E-02,1.505960E+00
430,2.918246E-01,3.319038E-02,1.552826E+00
431,2.989200E-01,3.477912E-02,1.595902E+00
432,3.052993E-01,3.641495E-02,1.635768E+00
433,3.112031E-01,3.809569E-02,1.673573E+00
434,3.169047E-01,3.981843E-02,1.710604E+00
435,3.227087E-01,4.157940E-02,1.748280E+00
436,3.288194E-01,4.337098E-02,1.787504E+00
437,3.349242E-01,4.517180E-02,1.826609E+00
438,3.405452E-01,4.695420E-02,1.863108E+00
439,3.451688E-01,4.868718E-02,1.894332E+00
440,3.482554E-01,5.033657E-02,1.917479E+00
441,3.494153E-01,5.187611E-02,1.930529E+00
442,3.489075E-01,5.332218E-02,1.934819E+00
443,3.471746E-01,5.470603E-02,1.932650E+00
444,3.446705E-01,5.606335E-02,1.926395E+00
445,3.418483E-01,5.743393E-02,1.918437E+00
446,3.390240E-01,5.885107E-02,1.910430E+00
447,3.359926E-01,6.030809E-02,1.901224E+00
448,3.324276E-01,6.178644E-02,1.889000E+00
449,3.280157E-01,6.326570E-02,1.871996E+00
450,3.224637E-01,6.472352E-02,1.848545E+00
451,3.156225E-01,6.614749E-02,1.817792E+00
452,3.078201E-01,6.757256E-02,1.781627E+00
453,2.994771E-01,6.904928E-02,1.742514E+00
454,2.909776E-01,7.063280E-02,1.702749E+00
455,2.826646E-01,7.238339E-02,1.664439E+00
456,2.747962E-01,7.435960E-02,1.629207E+00
457,2.674312E-01,7.659383E-02,1.597360E+00
458,2.605847E-01,7.911436E-02,1.568896E+00
459,2.542749E-01,8.195345E-02,1.543823E+00
460,2.485254E-01,8.514816E-02,1.522157E+00
461,2.433039E-01,8.872657E-02,1.503611E+00
462,2.383414E-01,9.266008E-02,1.486673E+00
463,2.333253E-01,9.689723E-02,1.469595E+00
464,2.279619E-01,1.013746E-01,1.450709E+00
465,2.219781E-01,1.060145E-01,1.428440E+00
466,2.151735E-01,1.107377E-01,1.401587E+00
467,2.075619E-01,1.155111E-01,1.370094E+00
468,1.992183E-01,1.203122E-01,1.334220E+00
469,1.902290E-01,1.251161E-01,1.294275E+00
470,1.806905E-01,1.298957E-01,1.250610E+00
471,1.707154E-01,1.346299E-01,1.203696E+00
472,1.604471E-01,1.393309E-01,1.154316E+00
473,1.500244E-01,1.440235E-01,1.103284E+00
474,1.395705E-01,1.487372E-01,1.051347E+00
475,1.291920E-01,1.535066E-01,9.991789E-01
476,1.189859E-01,1.583644E-01,9.473958E-01
477,1.090615E-01,1.633199E-01,8.966222E-01
478,9.951424E-02,1.683761E-01,8.473981E-01
479,9.041850E-02,1.735365E-01,8.001576E-01
480,8.182895E-02,1.788048E-01,7.552379E-01
481,7.376817E-02,1.841819E-01,7.127879E-01
482,6.619477E-02,1.896559E-01,6.725198E-01
483,5.906380E-02,1.952101E-01,6.340976E-01
484,5.234242E-02,2.008259E-01,5.972433E-01
485,4.600865E-02,2.064828E-01,5.617313E-01
486,4.006154E-02,2.121826E-01,5.274921E-01
487,3.454373E-02,2.180279E-01,4.948809E-01
488,2.949091E-02,2.241586E-01,4.642586E-01
489,2.492140E-02,2.307302E-01,4.358841E-01
490,2.083981E-02,2.379160E-01,4.099313E-01
491,1.723591E-02,2.458706E-01,3.864261E-01
492,1.407924E-02,2.546023E-01,3.650566E-01
493,1.134516E-02,2.640760E-01,3.454812E-01
494,9.019658E-03,2.742490E-01,3.274095E-01
495,7.097731E-03,2.850680E-01,3.105939E-01
496,5.571145E-03,2.964837E-01,2.948102E-01
497,4.394566E-03,3.085010E-01,2.798194E-01
498,3.516303E-03,3.211393E-01,2.654100E-01
499,2.887638E-03,3.344175E-01,2.514084E-01
500,2.461588E-03,3.483536E-01,2.376753E-01
501,2.206348E-03,3.629601E-01,2.241211E-01
502,2.149559E-03,3.782275E-01,2.107484E-01
503,2.337091E-03,3.941359E-01,1.975839E-01
504,2.818931E-03,4.106582E-01,1.846574E-01
505,3.649178E-03,4.277595E-01,1.720018E-01
506,4.891359E-03,4.453993E-01,1.596918E-01
507,6.629364E-03,4.635396E-01,1.479415E-01
508,8.942902E-03,4.821376E-01,1.369428E-01
509,1.190224E-02,5.011430E-01,1.268279E-01
510,1.556989E-02,5.204972E-01,1.176796E-01
511,1.997668E-02,5.401387E-01,1.094970E-01
512,2.504698E-02,5.600208E-01,1.020943E-01
513,3.067530E-02,5.800972E-01,9.527993E-02
514,3.674999E-02,6.003172E-01,8.890075E-02
515,4.315171E-02,6.206256E-01,8.283548E-02
516,4.978584E-02,6.409398E-01,7.700982E-02
517,5.668554E-02,6.610772E-01,7.144001E-02
518,6.391651E-02,6.808134E-01,6.615436E-02
519,7.154352E-02,6.999044E-01,6.117199E-02
520,7.962917E-02,7.180890E-01,5.650407E-02
521,8.821473E-02,7.351593E-01,5.215121E-02
522,9.726978E-02,7.511821E-01,4.809566E-02
523,1.067504E-01,7.663143E-01,4.431720E-02
524,1.166192E-01,7.807352E-01,4.079734E-02
525,1.268468E-01,7.946448E-01,3.751912E-02
526,1.374060E-01,8.082074E-01,3.446846E-02
527,1.482471E-01,8.213817E-01,3.163764E-02
528,1.593076E-01,8.340701E-01,2.901901E-02
529,1.705181E-01,8.461711E-01,2.660364E-02
530,1.818026E-01,8.575799E-01,2.438164E-02
531,1.931090E-01,8.682408E-01,2.234097E-02
532,2.045085E-01,8.783061E-01,2.046415E-02
533,2.161166E-01,8.879907E-01,1.873456E-02
534,2.280650E-01,8.975211E-01,1.713788E-02
535,2.405015E-01,9.071347E-01,1.566174E-02
536,2.535441E-01,9.169947E-01,1.429644E-02
537,2.671300E-01,9.269295E-01,1.303702E-02
538,2.811351E-01,9.366731E-01,1.187897E-02
539,2.954164E-01,9.459482E-01,1.081725E-02
540,3.098117E-01,9.544675E-01,9.846470E-03
541,3.241678E-01,9.619834E-01,8.960687E-03
542,3.384319E-01,9.684390E-01,8.152811E-03
543,3.525786E-01,9.738289E-01,7.416025E-03
544,3.665839E-01,9.781519E-01,6.744115E-03
545,3.804244E-01,9.814106E-01,6.131421E-03
546,3.940988E-01,9.836669E-01,5.572778E-03
547,4.076972E-01,9.852081E-01,5.063463E-03
548,4.213484E-01,9.863813E-01,4.599169E-03
549,4.352003E-01,9.875357E-01,4.175971E-03
550,4.494206E-01,9.890228E-01,3.790291E-03
551,4.641616E-01,9.910811E-01,3.438952E-03
552,4.794395E-01,9.934913E-01,3.119341E-03
553,4.952180E-01,9.959172E-01,2.829038E-03
554,5.114395E-01,9.980205E-01,2.565722E-03
555,5.280233E-01,9.994608E-01,2.327186E-03
556,5.448696E-01,9.999930E-01,2.111280E-03
557,5.618898E-01,9.997557E-01,1.915766E-03
558,5.790137E-01,9.989839E-01,1.738589E-03
559,5.961882E-01,9.979123E-01,1.577920E-03
560,6.133784E-01,9.967737E-01,1.432128E-03
561,6.305897E-01,9.957356E-01,1.299781E-03
562,6.479223E-01,9.947115E-01,1.179667E-03
563,6.654866E-01,9.935534E-01,1.070694E-03
564,6.833782E-01,9.921156E-01,9.718623E-04
565,7.016774E-01,9.902549E-01,8.822531E-04
566,7.204110E-01,9.878596E-01,8.010231E-04
567,7.394495E-01,9.849324E-01,7.273884E-04
568,7.586285E-01,9.815036E-01,6.606347E-04
569,7.777885E-01,9.776035E-01,6.001146E-04
570,7.967750E-01,9.732611E-01,5.452416E-04
571,8.154530E-01,9.684764E-01,4.954847E-04
572,8.337389E-01,9.631369E-01,4.503642E-04
573,8.515493E-01,9.571062E-01,4.094455E-04
574,8.687862E-01,9.502540E-01,3.723345E-04
575,8.853376E-01,9.424569E-01,3.386739E-04
576,9.011588E-01,9.336897E-01,3.081396E-04
577,9.165278E-01,9.242893E-01,2.804370E-04
578,9.318245E-01,9.146707E-01,2.552996E-04
579,9.474524E-01,9.052333E-01,2.324859E-04
580,9.638388E-01,8.963613E-01,2.117772E-04
581,9.812596E-01,8.883069E-01,1.929758E-04
582,9.992953E-01,8.808462E-01,1.759024E-04
583,1.017343E+00,8.736445E-01,1.603947E-04
584,1.034790E+00,8.663755E-01,1.463059E-04
585,1.051011E+00,8.587203E-01,1.335031E-04
586,1.065522E+00,8.504295E-01,1.218660E-04
587,1.078421E+00,8.415047E-01,1.112857E-04
588,1.089944E+00,8.320109E-01,1.016634E-04
589,1.100320E+00,8.220154E-01,9.291003E-05
590,1.109767E+00,8.115868E-01,8.494468E-05
591,1.118438E+00,8.007874E-01,7.769425E-05
592,1.126266E+00,7.896515E-01,7.109247E-05
593,1.133138E+00,7.782053E-01,6.507936E-05
594,1.138952E+00,7.664733E-01,5.960061E-05
595,1.143620E+00,7.544785E-01,5.460706E-05
596,1.147095E+00,7.422473E-01,5.005417E-05
597,1.149464E+00,7.298229E-01,4.590157E-05
598,1.150838E+00,7.172525E-01,4.211268E-05
599,1.151326E+00,7.045818E-01,3.865437E-05
600,1.151033E+00,6.918553E-01,3.549661E-05
601,1.150002E+00,6.791009E-01,3.261220E-05
602,1.148061E+00,6.662846E-01,2.997643E-05
603,1.144998E+00,6.533595E-01,2.756693E-05
604,1.140622E+00,6.402807E-01,2.536339E-05
605,1.134757E+00,6.270066E-01,2.334738E-05
606,1.127298E+00,6.135148E-01,2.150221E-05
607,1.118342E+00,5.998494E-01,1.981268E-05
608,1.108033E+00,5.860682E-01,1.826500E-05
609,1.096515E+00,5.722261E-01,1.684667E-05
610,1.083928E+00,5.583746E-01,1.554631E-05
611,1.070387E+00,5.445535E-01,1.435360E-05
612,1.055934E+00,5.307673E-01,1.325915E-05
613,1.040592E+00,5.170130E-01,1.225443E-05
614,1.024385E+00,5.032889E-01,1.133169E-05
615,1.007344E+00,4.895950E-01,1.048387E-05
616,9.895268E-01,4.759442E-01,0.000000E+00
617,9.711213E-01,4.623958E-01,0.000000E+00
618,9.523257E-01,4.490154E-01,0.000000E+00
619,9.333248E-01,4.358622E-01,0.000000E+00
620,9.142877E-01,4.229897E-01,0.000000E+00
621,8.952798E-01,4.104152E-01,0.000000E+00
622,8.760157E-01,3.980356E-01,0.000000E+00
623,8.561607E-01,3.857300E-01,0.000000E+00
624,8.354235E-01,3.733907E-01,0.000000E+00
625,8.135565E-01,3.609245E-01,0.000000E+00
626,7.904565E-01,3.482860E-01,0.000000E+00
627,7.664364E-01,3.355702E-01,0.000000E+00
628,7.418777E-01,3.228963E-01,0.000000E+00
629,7.171219E-01,3.103704E-01,0.000000E+00
630,6.924717E-01,2.980865E-01,0.000000E+00
631,6.681600E-01,2.861160E-01,0.000000E+00
632,6.442697E-01,2.744822E-01,0.000000E+00
633,6.208450E-01,2.631953E-01,0.000000E+00
634,5.979243E-01,2.522628E-01,0.000000E+00
635,5.755410E-01,2.416902E-01,0.000000E+00
636,5.537296E-01,2.314809E-01,0.000000E+00
637,5.325412E-01,2.216378E-01,0.000000E+00
638,5.120218E-01,2.121622E-01,0.000000E+00
639,4.922070E-01,2.030542E-01,0.000000E+00
640,4.731224E-01,1.943124E-01,0.000000E+00
641,4.547417E-01,1.859227E-01,0.000000E+00
642,4.368719E-01,1.778274E-01,0.000000E+00
643,4.193121E-01,1.699654E-01,0.000000E+00
644,4.018980E-01,1.622841E-01,0.000000E+00
645,3.844986E-01,1.547397E-01,0.000000E+00
646,3.670592E-01,1.473081E-01,0.000000E+00
647,3.497167E-01,1.400169E-01,0.000000E+00
648,3.326305E-01,1.329013E-01,0.000000E+00
649,3.159341E-01,1.259913E-01,0.000000E+00
650,2.997374E-01,1.193120E-01,0.000000E+00
651,2.841189E-01,1.128820E-01,0.000000E+00
652,2.691053E-01,1.067113E-01,0.000000E+00
653,2.547077E-01,1.008052E-01,0.000000E+00
654,2.409319E-01,9.516653E-02,0.000000E+00
655,2.277792E-01,8.979594E-02,0.000000E+00
656,2.152431E-01,8.469044E-02,0.000000E+00
657,2.033010E-01,7.984009E-02,0.000000E+00
658,1.919276E-01,7.523372E-02,0.000000E+00
659,1.810987E-01,7.086061E-02,0.000000E+00
660,1.707914E-01,6.671045E-02,0.000000E+00
661,1.609842E-01,6.277360E-02,0.000000E+00
662,1.516577E-01,5.904179E-02,0.000000E+00
663,1.427936E-01,5.550703E-02,0.000000E+00
664,1.343737E-01,5.216139E-02,0.000000E+00
665,1.263808E-01,4.899699E-02,0.000000E+00
666,1.187979E-01,4.600578E-02,0.000000E+00
667,1.116088E-01,4.317885E-02,0.000000E+00
668,1.047975E-01,4.050755E-02,0.000000E+00
669,9.834835E-02,3.798376E-02,0.000000E+00
670,9.224597E-02,3.559982E-02,0.000000E+00
671,8.647506E-02,3.334856E-02,0.000000E+00
672,8.101986E-02,3.122332E-02,0.000000E+00
673,7.586514E-02,2.921780E-02,0.000000E+00
674,7.099633E-02,2.732601E-02,0.000000E+00
675,6.639960E-02,2.554223E-02,0.000000E+00
676,6.206225E-02,2.386121E-02,0.000000E+00
677,5.797409E-02,2.227859E-02,0.000000E+00
678,5.412533E-02,2.079020E-02,0.000000E+00
679,5.050600E-02,1.939185E-02,0.000000E+00
680,4.710606E-02,1.807939E-02,0.000000E+00
681,4.391411E-02,1.684817E-02,0.000000E+00
682,4.091411E-02,1.569188E-02,0.000000E+00
683,3.809067E-02,1.460446E-02,0.000000E+00
684,3.543034E-02,1.358062E-02,0.000000E+00
685,3.292138E-02,1.261573E-02,0.000000E+00
686,3.055672E-02,1.170696E-02,0.000000E+00
687,2.834146E-02,1.085608E-02,0.000000E+00
688,2.628033E-02,1.006476E-02,0.000000E+00
689,2.437465E-02,9.333376E-03,0.000000E+00
690,2.262306E-02,8.661284E-03,0.000000E+00
691,2.101935E-02,8.046048E-03,0.000000E+00
692,1.954647E-02,7.481130E-03,0.000000E+00
693,1.818727E-02,6.959987E-03,0.000000E+00
694,1.692727E-02,6.477070E-03,0.000000E+00
695,1.575417E-02,6.027677E-03,0.000000E+00
696,1.465854E-02,5.608169E-03,0.000000E+00
697,1.363571E-02,5.216691E-03,0.000000E+00
698,1.268205E-02,4.851785E-03,0.000000E+00
699,1.179394E-02,4.512008E-03,0.000000E+00
700,1.096778E-02,4.195941E-03,0.000000E+00
701,1.019964E-02,3.902057E-03,0.000000E+00
702,9.484317E-03,3.628371E-03,0.000000E+00
703,8.816851E-03,3.373005E-03,0.000000E+00
704,8.192921E-03,3.134315E-03,0.000000E+00
705,7.608750E-03,2.910864E-03,0.000000E+00
706,7.061391E-03,2.701528E-03,0.000000E+00
707,6.549509E-03,2.505796E-03,0.000000E+00
708,6.071970E-03,2.323231E-03,0.000000E+00
709,5.627476E-03,2.153333E-03,0.000000E+00
710,5.214608E-03,1.995557E-03,0.000000E+00
711,4.831848E-03,1.849316E-03,0.000000E+00
712,4.477579E-03,1.713976E-03,0.000000E+00
713,4.150166E-03,1.588899E-03,0.000000E+00
714,3.847988E-03,1.473453E-03,0.000000E+00
715,3.569452E-03,1.367022E-03,0.000000E+00
716,3.312857E-03,1.268954E-03,0.000000E+00
717,3.076022E-03,1.178421E-03,0.000000E+00
718,2.856894E-03,1.094644E-03,0.000000E+00
719,2.653681E-03,1.016943E-03,0.000000E+00
720,2.464821E-03,9.447269E-04,0.000000E+00
721,2.289060E-03,8.775171E-04,0.000000E+00
722,2.125694E-03,8.150438E-04,0.000000E+00
723,1.974121E-03,7.570755E-04,0.000000E+00
724,1.833723E-03,7.033755E-04,0.000000E+00
725,1.703876E-03,6.537050E-04,0.000000E+00
726,1.583904E-03,6.078048E-04,0.000000E+00
727,1.472939E-03,5.653435E-04,0.000000E+00
728,1.370151E-03,5.260046E-04,0.000000E+00
729,1.274803E-03,4.895061E-04,0.000000E+00
730,1.186238E-03,4.555970E-04,0.000000E+00
731,1.103871E-03,4.240548E-04,0.000000E+00
732,1.027194E-03,3.946860E-04,0.000000E+00
733,9.557493E-04,3.673178E-04,0.000000E+00
734,8.891262E-04,3.417941E-04,0.000000E+00
735,8.269535E-04,3.179738E-04,0.000000E+00
736,7.689351E-04,2.957441E-04,0.000000E+00
737,7.149425E-04,2.750558E-04,0.000000E+00
738,6.648590E-04,2.558640E-04,0.000000E+00
739,6.185421E-04,2.381142E-04,0.000000E+00
740,5.758303E-04,2.217445E-04,0.000000E+00
741,5.365046E-04,2.066711E-04,0.000000E+00
742,5.001842E-04,1.927474E-04,0.000000E+00
743,4.665005E-04,1.798315E-04,0.000000E+00
744,4.351386E-04,1.678023E-04,0.000000E+00
745,4.058303E-04,1.565566E-04,0.000000E+00
746,3.783733E-04,1.460168E-04,0.000000E+00
747,3.526892E-04,1.361535E-04,0.000000E+00
748,3.287199E-04,1.269451E-04,0.000000E+00
749,3.063998E-04,1.183671E-04,0.000000E+00
750,2.856577E-04,1.103928E-04,0.000000E+00
751,2.664108E-04,1.029908E-04,0.000000E+00
752,2.485462E-04,9.611836E-05,0.000000E+00
753,2.319529E-04,8.973323E-05,0.000000E+00
754,2.165300E-04,8.379694E-05,0.000000E+00
755,2.021853E-04,7.827442E-05,0.000000E+00
756,1.888338E-04,7.313312E-05,0.000000E+00
757,1.763935E-04,6.834142E-05,0.000000E+00
758,1.647895E-04,6.387035E-05,0.000000E+00
759,1.539542E-04,5.969389E-05,0.000000E+00
760,1.438270E-04,5.578862E-05,0.000000E+00
761,1.343572E-04,5.213509E-05,0.000000E+00
762,1.255141E-04,4.872179E-05,0.000000E+00
763,1.172706E-04,4.553845E-05,0.000000E+00
764,1.095983E-04,4.257443E-05,0.000000E+00
765,1.024685E-04,3.981884E-05,0.000000E+00
766,9.584715E-05,3.725877E-05,0.000000E+00
767,8.968316E-05,3.487467E-05,0.000000E+00
768,8.392734E-05,3.264765E-05,0.000000E+00
769,7.853708E-05,3.056140E-05,0.000000E+00
770,7.347551E-05,2.860175E-05,0.000000E+00
771,6.871576E-05,2.675841E-05,0.000000E+00
772,6.425257E-05,2.502943E-05,0.000000E+00
773,6.008292E-05,2.341373E-05,0.000000E+00
774,5.620098E-05,2.190914E-05,0.000000E+00
775,5.259870E-05,2.051259E-05,0.000000E+00
776,4.926279E-05,1.921902E-05,0.000000E+00
777,4.616623E-05,1.801796E-05,0.000000E+00
778,4.328212E-05,1.689899E-05,0.000000E+00
779,4.058715E-05,1.585309E-05,0.000000E+00
780,3.806114E-05,1.487243E-05,0.000000E+00
781,3.568818E-05,1.395085E-05,0.000000E+00
782,3.346023E-05,1.308528E-05,0.000000E+00
783,3.137090E-05,1.227327E-05,0.000000E+00
784,2.941371E-05,1.151233E-05,0.000000E+00
785,2.758222E-05,1.080001E-05,0.000000E+00
786,2.586951E-05,1.013364E-05,0.000000E+00
787,2.426701E-05,9.509919E-06,0.000000E+00
788,2.276639E-05,8.925630E-06,0.000000E+00
789,2.136009E-05,8.377852E-06,0.000000E+00
790,2.004122E-05,7.863920E-06,0.000000E+00
791,1.880380E-05,7.381539E-06,0.000000E+00
792,1.764358E-05,6.929096E-06,0.000000E+00
793,1.655671E-05,6.505136E-06,0.000000E+00
794,1.553939E-05,6.108221E-06,0.000000E+00
795,1.458792E-05,5.736935E-06,0.000000E+00
796,1.369853E-05,5.389831E-06,0.000000E+00
797,1.286705E-05,5.065269E-06,0.000000E+00
798,1.208947E-05,4.761667E-06,0.000000E+00
799,1.136207E-05,4.477561E-06,0.000000E+00
800,1.068141E-05,4.211597E-06,0.000000E+00
801,1.004411E-05,3.962457E-06,0.000000E+00
802,9.446399E-06,3.728674E-06,0.000000E+00
803,8.884754E-06,3.508881E-06,0.000000E+00
804,8.356050E-06,3.301868E-06,0.000000E+00
805,7.857521E-06,3.106561E-06,0.000000E+00
806,7.386996E-06,2.922119E-06,0.000000E+00
807,6.943576E-06,2.748208E-06,0.000000E+00
808,6.526548E-06,2.584560E-06,0.000000E+00
809,6.135087E-06,2.430867E-06,0.000000E+00
810,5.768284E-06,2.286786E-06,0.000000E+00
811,5.425069E-06,2.151905E-06,0.000000E+00
812,5.103974E-06,2.025656E-06,0.000000E+00
813,4.803525E-06,1.907464E-06,0.000000E+00
814,4.522350E-06,1.796794E-06,0.000000E+00
815,4.259166E-06,1.693147E-06,0.000000E+00
816,4.012715E-06,1.596032E-06,0.000000E+00
817,3.781597E-06,1.504903E-06,0.000000E+00
818,3.564496E-06,1.419245E-06,0.000000E+00
819,3.360236E-06,1.338600E-06,0.000000E+00
820,3.167765E-06,1.262556E-06,0.000000E+00
821,2.986206E-06,1.190771E-06,0.000000E+00
822,2.814999E-06,1.123031E-06,0.000000E+00
823,2.653663E-06,1.059151E-06,0.000000E+00
824,2.501725E-06,9.989507E-07,0.000000E+00
825,2.358723E-06,9.422514E-07,0.000000E+00
826,2.224206E-06,8.888804E-07,0.000000E+00
827,2.097737E-06,8.386690E-07,0.000000E+00
828,1.978894E-06,7.914539E-07,0.000000E+00
829,1.867268E-06,7.470770E-07,0.000000E+00
830,1.762465E-06,7.053860E-07,0.000000E+00
1 390 3.769647E-03 4.146161E-04 1.847260E-02
2 391 4.532416E-03 5.028333E-04 2.221101E-02
3 392 5.446553E-03 6.084991E-04 2.669819E-02
4 393 6.538868E-03 7.344436E-04 3.206937E-02
5 394 7.839699E-03 8.837389E-04 3.847832E-02
6 395 9.382967E-03 1.059646E-03 4.609784E-02
7 396 1.120608E-02 1.265532E-03 5.511953E-02
8 397 1.334965E-02 1.504753E-03 6.575257E-02
9 398 1.585690E-02 1.780493E-03 7.822113E-02
10 399 1.877286E-02 2.095572E-03 9.276013E-02
11 400 2.214302E-02 2.452194E-03 1.096090E-01
12 401 2.601285E-02 2.852216E-03 1.290077E-01
13 402 3.043036E-02 3.299115E-03 1.512047E-01
14 403 3.544325E-02 3.797466E-03 1.764441E-01
15 404 4.109640E-02 4.352768E-03 2.049517E-01
16 405 4.742986E-02 4.971717E-03 2.369246E-01
17 406 5.447394E-02 5.661014E-03 2.725123E-01
18 407 6.223612E-02 6.421615E-03 3.117820E-01
19 408 7.070048E-02 7.250312E-03 3.547064E-01
20 409 7.982513E-02 8.140173E-03 4.011473E-01
21 410 8.953803E-02 9.079860E-03 4.508369E-01
22 411 9.974848E-02 1.005608E-02 5.034164E-01
23 412 1.104019E-01 1.106456E-02 5.586361E-01
24 413 1.214566E-01 1.210522E-02 6.162734E-01
25 414 1.328741E-01 1.318014E-02 6.760982E-01
26 415 1.446214E-01 1.429377E-02 7.378822E-01
27 416 1.566468E-01 1.545004E-02 8.013019E-01
28 417 1.687901E-01 1.664093E-02 8.655573E-01
29 418 1.808328E-01 1.785302E-02 9.295791E-01
30 419 1.925216E-01 1.907018E-02 9.921293E-01
31 420 2.035729E-01 2.027369E-02 1.051821E+00
32 421 2.137531E-01 2.144805E-02 1.107509E+00
33 422 2.231348E-01 2.260041E-02 1.159527E+00
34 423 2.319245E-01 2.374789E-02 1.208869E+00
35 424 2.403892E-01 2.491247E-02 1.256834E+00
36 425 2.488523E-01 2.612106E-02 1.305008E+00
37 426 2.575896E-01 2.739923E-02 1.354758E+00
38 427 2.664991E-01 2.874993E-02 1.405594E+00
39 428 2.753532E-01 3.016909E-02 1.456414E+00
40 429 2.838921E-01 3.165145E-02 1.505960E+00
41 430 2.918246E-01 3.319038E-02 1.552826E+00
42 431 2.989200E-01 3.477912E-02 1.595902E+00
43 432 3.052993E-01 3.641495E-02 1.635768E+00
44 433 3.112031E-01 3.809569E-02 1.673573E+00
45 434 3.169047E-01 3.981843E-02 1.710604E+00
46 435 3.227087E-01 4.157940E-02 1.748280E+00
47 436 3.288194E-01 4.337098E-02 1.787504E+00
48 437 3.349242E-01 4.517180E-02 1.826609E+00
49 438 3.405452E-01 4.695420E-02 1.863108E+00
50 439 3.451688E-01 4.868718E-02 1.894332E+00
51 440 3.482554E-01 5.033657E-02 1.917479E+00
52 441 3.494153E-01 5.187611E-02 1.930529E+00
53 442 3.489075E-01 5.332218E-02 1.934819E+00
54 443 3.471746E-01 5.470603E-02 1.932650E+00
55 444 3.446705E-01 5.606335E-02 1.926395E+00
56 445 3.418483E-01 5.743393E-02 1.918437E+00
57 446 3.390240E-01 5.885107E-02 1.910430E+00
58 447 3.359926E-01 6.030809E-02 1.901224E+00
59 448 3.324276E-01 6.178644E-02 1.889000E+00
60 449 3.280157E-01 6.326570E-02 1.871996E+00
61 450 3.224637E-01 6.472352E-02 1.848545E+00
62 451 3.156225E-01 6.614749E-02 1.817792E+00
63 452 3.078201E-01 6.757256E-02 1.781627E+00
64 453 2.994771E-01 6.904928E-02 1.742514E+00
65 454 2.909776E-01 7.063280E-02 1.702749E+00
66 455 2.826646E-01 7.238339E-02 1.664439E+00
67 456 2.747962E-01 7.435960E-02 1.629207E+00
68 457 2.674312E-01 7.659383E-02 1.597360E+00
69 458 2.605847E-01 7.911436E-02 1.568896E+00
70 459 2.542749E-01 8.195345E-02 1.543823E+00
71 460 2.485254E-01 8.514816E-02 1.522157E+00
72 461 2.433039E-01 8.872657E-02 1.503611E+00
73 462 2.383414E-01 9.266008E-02 1.486673E+00
74 463 2.333253E-01 9.689723E-02 1.469595E+00
75 464 2.279619E-01 1.013746E-01 1.450709E+00
76 465 2.219781E-01 1.060145E-01 1.428440E+00
77 466 2.151735E-01 1.107377E-01 1.401587E+00
78 467 2.075619E-01 1.155111E-01 1.370094E+00
79 468 1.992183E-01 1.203122E-01 1.334220E+00
80 469 1.902290E-01 1.251161E-01 1.294275E+00
81 470 1.806905E-01 1.298957E-01 1.250610E+00
82 471 1.707154E-01 1.346299E-01 1.203696E+00
83 472 1.604471E-01 1.393309E-01 1.154316E+00
84 473 1.500244E-01 1.440235E-01 1.103284E+00
85 474 1.395705E-01 1.487372E-01 1.051347E+00
86 475 1.291920E-01 1.535066E-01 9.991789E-01
87 476 1.189859E-01 1.583644E-01 9.473958E-01
88 477 1.090615E-01 1.633199E-01 8.966222E-01
89 478 9.951424E-02 1.683761E-01 8.473981E-01
90 479 9.041850E-02 1.735365E-01 8.001576E-01
91 480 8.182895E-02 1.788048E-01 7.552379E-01
92 481 7.376817E-02 1.841819E-01 7.127879E-01
93 482 6.619477E-02 1.896559E-01 6.725198E-01
94 483 5.906380E-02 1.952101E-01 6.340976E-01
95 484 5.234242E-02 2.008259E-01 5.972433E-01
96 485 4.600865E-02 2.064828E-01 5.617313E-01
97 486 4.006154E-02 2.121826E-01 5.274921E-01
98 487 3.454373E-02 2.180279E-01 4.948809E-01
99 488 2.949091E-02 2.241586E-01 4.642586E-01
100 489 2.492140E-02 2.307302E-01 4.358841E-01
101 490 2.083981E-02 2.379160E-01 4.099313E-01
102 491 1.723591E-02 2.458706E-01 3.864261E-01
103 492 1.407924E-02 2.546023E-01 3.650566E-01
104 493 1.134516E-02 2.640760E-01 3.454812E-01
105 494 9.019658E-03 2.742490E-01 3.274095E-01
106 495 7.097731E-03 2.850680E-01 3.105939E-01
107 496 5.571145E-03 2.964837E-01 2.948102E-01
108 497 4.394566E-03 3.085010E-01 2.798194E-01
109 498 3.516303E-03 3.211393E-01 2.654100E-01
110 499 2.887638E-03 3.344175E-01 2.514084E-01
111 500 2.461588E-03 3.483536E-01 2.376753E-01
112 501 2.206348E-03 3.629601E-01 2.241211E-01
113 502 2.149559E-03 3.782275E-01 2.107484E-01
114 503 2.337091E-03 3.941359E-01 1.975839E-01
115 504 2.818931E-03 4.106582E-01 1.846574E-01
116 505 3.649178E-03 4.277595E-01 1.720018E-01
117 506 4.891359E-03 4.453993E-01 1.596918E-01
118 507 6.629364E-03 4.635396E-01 1.479415E-01
119 508 8.942902E-03 4.821376E-01 1.369428E-01
120 509 1.190224E-02 5.011430E-01 1.268279E-01
121 510 1.556989E-02 5.204972E-01 1.176796E-01
122 511 1.997668E-02 5.401387E-01 1.094970E-01
123 512 2.504698E-02 5.600208E-01 1.020943E-01
124 513 3.067530E-02 5.800972E-01 9.527993E-02
125 514 3.674999E-02 6.003172E-01 8.890075E-02
126 515 4.315171E-02 6.206256E-01 8.283548E-02
127 516 4.978584E-02 6.409398E-01 7.700982E-02
128 517 5.668554E-02 6.610772E-01 7.144001E-02
129 518 6.391651E-02 6.808134E-01 6.615436E-02
130 519 7.154352E-02 6.999044E-01 6.117199E-02
131 520 7.962917E-02 7.180890E-01 5.650407E-02
132 521 8.821473E-02 7.351593E-01 5.215121E-02
133 522 9.726978E-02 7.511821E-01 4.809566E-02
134 523 1.067504E-01 7.663143E-01 4.431720E-02
135 524 1.166192E-01 7.807352E-01 4.079734E-02
136 525 1.268468E-01 7.946448E-01 3.751912E-02
137 526 1.374060E-01 8.082074E-01 3.446846E-02
138 527 1.482471E-01 8.213817E-01 3.163764E-02
139 528 1.593076E-01 8.340701E-01 2.901901E-02
140 529 1.705181E-01 8.461711E-01 2.660364E-02
141 530 1.818026E-01 8.575799E-01 2.438164E-02
142 531 1.931090E-01 8.682408E-01 2.234097E-02
143 532 2.045085E-01 8.783061E-01 2.046415E-02
144 533 2.161166E-01 8.879907E-01 1.873456E-02
145 534 2.280650E-01 8.975211E-01 1.713788E-02
146 535 2.405015E-01 9.071347E-01 1.566174E-02
147 536 2.535441E-01 9.169947E-01 1.429644E-02
148 537 2.671300E-01 9.269295E-01 1.303702E-02
149 538 2.811351E-01 9.366731E-01 1.187897E-02
150 539 2.954164E-01 9.459482E-01 1.081725E-02
151 540 3.098117E-01 9.544675E-01 9.846470E-03
152 541 3.241678E-01 9.619834E-01 8.960687E-03
153 542 3.384319E-01 9.684390E-01 8.152811E-03
154 543 3.525786E-01 9.738289E-01 7.416025E-03
155 544 3.665839E-01 9.781519E-01 6.744115E-03
156 545 3.804244E-01 9.814106E-01 6.131421E-03
157 546 3.940988E-01 9.836669E-01 5.572778E-03
158 547 4.076972E-01 9.852081E-01 5.063463E-03
159 548 4.213484E-01 9.863813E-01 4.599169E-03
160 549 4.352003E-01 9.875357E-01 4.175971E-03
161 550 4.494206E-01 9.890228E-01 3.790291E-03
162 551 4.641616E-01 9.910811E-01 3.438952E-03
163 552 4.794395E-01 9.934913E-01 3.119341E-03
164 553 4.952180E-01 9.959172E-01 2.829038E-03
165 554 5.114395E-01 9.980205E-01 2.565722E-03
166 555 5.280233E-01 9.994608E-01 2.327186E-03
167 556 5.448696E-01 9.999930E-01 2.111280E-03
168 557 5.618898E-01 9.997557E-01 1.915766E-03
169 558 5.790137E-01 9.989839E-01 1.738589E-03
170 559 5.961882E-01 9.979123E-01 1.577920E-03
171 560 6.133784E-01 9.967737E-01 1.432128E-03
172 561 6.305897E-01 9.957356E-01 1.299781E-03
173 562 6.479223E-01 9.947115E-01 1.179667E-03
174 563 6.654866E-01 9.935534E-01 1.070694E-03
175 564 6.833782E-01 9.921156E-01 9.718623E-04
176 565 7.016774E-01 9.902549E-01 8.822531E-04
177 566 7.204110E-01 9.878596E-01 8.010231E-04
178 567 7.394495E-01 9.849324E-01 7.273884E-04
179 568 7.586285E-01 9.815036E-01 6.606347E-04
180 569 7.777885E-01 9.776035E-01 6.001146E-04
181 570 7.967750E-01 9.732611E-01 5.452416E-04
182 571 8.154530E-01 9.684764E-01 4.954847E-04
183 572 8.337389E-01 9.631369E-01 4.503642E-04
184 573 8.515493E-01 9.571062E-01 4.094455E-04
185 574 8.687862E-01 9.502540E-01 3.723345E-04
186 575 8.853376E-01 9.424569E-01 3.386739E-04
187 576 9.011588E-01 9.336897E-01 3.081396E-04
188 577 9.165278E-01 9.242893E-01 2.804370E-04
189 578 9.318245E-01 9.146707E-01 2.552996E-04
190 579 9.474524E-01 9.052333E-01 2.324859E-04
191 580 9.638388E-01 8.963613E-01 2.117772E-04
192 581 9.812596E-01 8.883069E-01 1.929758E-04
193 582 9.992953E-01 8.808462E-01 1.759024E-04
194 583 1.017343E+00 8.736445E-01 1.603947E-04
195 584 1.034790E+00 8.663755E-01 1.463059E-04
196 585 1.051011E+00 8.587203E-01 1.335031E-04
197 586 1.065522E+00 8.504295E-01 1.218660E-04
198 587 1.078421E+00 8.415047E-01 1.112857E-04
199 588 1.089944E+00 8.320109E-01 1.016634E-04
200 589 1.100320E+00 8.220154E-01 9.291003E-05
201 590 1.109767E+00 8.115868E-01 8.494468E-05
202 591 1.118438E+00 8.007874E-01 7.769425E-05
203 592 1.126266E+00 7.896515E-01 7.109247E-05
204 593 1.133138E+00 7.782053E-01 6.507936E-05
205 594 1.138952E+00 7.664733E-01 5.960061E-05
206 595 1.143620E+00 7.544785E-01 5.460706E-05
207 596 1.147095E+00 7.422473E-01 5.005417E-05
208 597 1.149464E+00 7.298229E-01 4.590157E-05
209 598 1.150838E+00 7.172525E-01 4.211268E-05
210 599 1.151326E+00 7.045818E-01 3.865437E-05
211 600 1.151033E+00 6.918553E-01 3.549661E-05
212 601 1.150002E+00 6.791009E-01 3.261220E-05
213 602 1.148061E+00 6.662846E-01 2.997643E-05
214 603 1.144998E+00 6.533595E-01 2.756693E-05
215 604 1.140622E+00 6.402807E-01 2.536339E-05
216 605 1.134757E+00 6.270066E-01 2.334738E-05
217 606 1.127298E+00 6.135148E-01 2.150221E-05
218 607 1.118342E+00 5.998494E-01 1.981268E-05
219 608 1.108033E+00 5.860682E-01 1.826500E-05
220 609 1.096515E+00 5.722261E-01 1.684667E-05
221 610 1.083928E+00 5.583746E-01 1.554631E-05
222 611 1.070387E+00 5.445535E-01 1.435360E-05
223 612 1.055934E+00 5.307673E-01 1.325915E-05
224 613 1.040592E+00 5.170130E-01 1.225443E-05
225 614 1.024385E+00 5.032889E-01 1.133169E-05
226 615 1.007344E+00 4.895950E-01 1.048387E-05
227 616 9.895268E-01 4.759442E-01 0.000000E+00
228 617 9.711213E-01 4.623958E-01 0.000000E+00
229 618 9.523257E-01 4.490154E-01 0.000000E+00
230 619 9.333248E-01 4.358622E-01 0.000000E+00
231 620 9.142877E-01 4.229897E-01 0.000000E+00
232 621 8.952798E-01 4.104152E-01 0.000000E+00
233 622 8.760157E-01 3.980356E-01 0.000000E+00
234 623 8.561607E-01 3.857300E-01 0.000000E+00
235 624 8.354235E-01 3.733907E-01 0.000000E+00
236 625 8.135565E-01 3.609245E-01 0.000000E+00
237 626 7.904565E-01 3.482860E-01 0.000000E+00
238 627 7.664364E-01 3.355702E-01 0.000000E+00
239 628 7.418777E-01 3.228963E-01 0.000000E+00
240 629 7.171219E-01 3.103704E-01 0.000000E+00
241 630 6.924717E-01 2.980865E-01 0.000000E+00
242 631 6.681600E-01 2.861160E-01 0.000000E+00
243 632 6.442697E-01 2.744822E-01 0.000000E+00
244 633 6.208450E-01 2.631953E-01 0.000000E+00
245 634 5.979243E-01 2.522628E-01 0.000000E+00
246 635 5.755410E-01 2.416902E-01 0.000000E+00
247 636 5.537296E-01 2.314809E-01 0.000000E+00
248 637 5.325412E-01 2.216378E-01 0.000000E+00
249 638 5.120218E-01 2.121622E-01 0.000000E+00
250 639 4.922070E-01 2.030542E-01 0.000000E+00
251 640 4.731224E-01 1.943124E-01 0.000000E+00
252 641 4.547417E-01 1.859227E-01 0.000000E+00
253 642 4.368719E-01 1.778274E-01 0.000000E+00
254 643 4.193121E-01 1.699654E-01 0.000000E+00
255 644 4.018980E-01 1.622841E-01 0.000000E+00
256 645 3.844986E-01 1.547397E-01 0.000000E+00
257 646 3.670592E-01 1.473081E-01 0.000000E+00
258 647 3.497167E-01 1.400169E-01 0.000000E+00
259 648 3.326305E-01 1.329013E-01 0.000000E+00
260 649 3.159341E-01 1.259913E-01 0.000000E+00
261 650 2.997374E-01 1.193120E-01 0.000000E+00
262 651 2.841189E-01 1.128820E-01 0.000000E+00
263 652 2.691053E-01 1.067113E-01 0.000000E+00
264 653 2.547077E-01 1.008052E-01 0.000000E+00
265 654 2.409319E-01 9.516653E-02 0.000000E+00
266 655 2.277792E-01 8.979594E-02 0.000000E+00
267 656 2.152431E-01 8.469044E-02 0.000000E+00
268 657 2.033010E-01 7.984009E-02 0.000000E+00
269 658 1.919276E-01 7.523372E-02 0.000000E+00
270 659 1.810987E-01 7.086061E-02 0.000000E+00
271 660 1.707914E-01 6.671045E-02 0.000000E+00
272 661 1.609842E-01 6.277360E-02 0.000000E+00
273 662 1.516577E-01 5.904179E-02 0.000000E+00
274 663 1.427936E-01 5.550703E-02 0.000000E+00
275 664 1.343737E-01 5.216139E-02 0.000000E+00
276 665 1.263808E-01 4.899699E-02 0.000000E+00
277 666 1.187979E-01 4.600578E-02 0.000000E+00
278 667 1.116088E-01 4.317885E-02 0.000000E+00
279 668 1.047975E-01 4.050755E-02 0.000000E+00
280 669 9.834835E-02 3.798376E-02 0.000000E+00
281 670 9.224597E-02 3.559982E-02 0.000000E+00
282 671 8.647506E-02 3.334856E-02 0.000000E+00
283 672 8.101986E-02 3.122332E-02 0.000000E+00
284 673 7.586514E-02 2.921780E-02 0.000000E+00
285 674 7.099633E-02 2.732601E-02 0.000000E+00
286 675 6.639960E-02 2.554223E-02 0.000000E+00
287 676 6.206225E-02 2.386121E-02 0.000000E+00
288 677 5.797409E-02 2.227859E-02 0.000000E+00
289 678 5.412533E-02 2.079020E-02 0.000000E+00
290 679 5.050600E-02 1.939185E-02 0.000000E+00
291 680 4.710606E-02 1.807939E-02 0.000000E+00
292 681 4.391411E-02 1.684817E-02 0.000000E+00
293 682 4.091411E-02 1.569188E-02 0.000000E+00
294 683 3.809067E-02 1.460446E-02 0.000000E+00
295 684 3.543034E-02 1.358062E-02 0.000000E+00
296 685 3.292138E-02 1.261573E-02 0.000000E+00
297 686 3.055672E-02 1.170696E-02 0.000000E+00
298 687 2.834146E-02 1.085608E-02 0.000000E+00
299 688 2.628033E-02 1.006476E-02 0.000000E+00
300 689 2.437465E-02 9.333376E-03 0.000000E+00
301 690 2.262306E-02 8.661284E-03 0.000000E+00
302 691 2.101935E-02 8.046048E-03 0.000000E+00
303 692 1.954647E-02 7.481130E-03 0.000000E+00
304 693 1.818727E-02 6.959987E-03 0.000000E+00
305 694 1.692727E-02 6.477070E-03 0.000000E+00
306 695 1.575417E-02 6.027677E-03 0.000000E+00
307 696 1.465854E-02 5.608169E-03 0.000000E+00
308 697 1.363571E-02 5.216691E-03 0.000000E+00
309 698 1.268205E-02 4.851785E-03 0.000000E+00
310 699 1.179394E-02 4.512008E-03 0.000000E+00
311 700 1.096778E-02 4.195941E-03 0.000000E+00
312 701 1.019964E-02 3.902057E-03 0.000000E+00
313 702 9.484317E-03 3.628371E-03 0.000000E+00
314 703 8.816851E-03 3.373005E-03 0.000000E+00
315 704 8.192921E-03 3.134315E-03 0.000000E+00
316 705 7.608750E-03 2.910864E-03 0.000000E+00
317 706 7.061391E-03 2.701528E-03 0.000000E+00
318 707 6.549509E-03 2.505796E-03 0.000000E+00
319 708 6.071970E-03 2.323231E-03 0.000000E+00
320 709 5.627476E-03 2.153333E-03 0.000000E+00
321 710 5.214608E-03 1.995557E-03 0.000000E+00
322 711 4.831848E-03 1.849316E-03 0.000000E+00
323 712 4.477579E-03 1.713976E-03 0.000000E+00
324 713 4.150166E-03 1.588899E-03 0.000000E+00
325 714 3.847988E-03 1.473453E-03 0.000000E+00
326 715 3.569452E-03 1.367022E-03 0.000000E+00
327 716 3.312857E-03 1.268954E-03 0.000000E+00
328 717 3.076022E-03 1.178421E-03 0.000000E+00
329 718 2.856894E-03 1.094644E-03 0.000000E+00
330 719 2.653681E-03 1.016943E-03 0.000000E+00
331 720 2.464821E-03 9.447269E-04 0.000000E+00
332 721 2.289060E-03 8.775171E-04 0.000000E+00
333 722 2.125694E-03 8.150438E-04 0.000000E+00
334 723 1.974121E-03 7.570755E-04 0.000000E+00
335 724 1.833723E-03 7.033755E-04 0.000000E+00
336 725 1.703876E-03 6.537050E-04 0.000000E+00
337 726 1.583904E-03 6.078048E-04 0.000000E+00
338 727 1.472939E-03 5.653435E-04 0.000000E+00
339 728 1.370151E-03 5.260046E-04 0.000000E+00
340 729 1.274803E-03 4.895061E-04 0.000000E+00
341 730 1.186238E-03 4.555970E-04 0.000000E+00
342 731 1.103871E-03 4.240548E-04 0.000000E+00
343 732 1.027194E-03 3.946860E-04 0.000000E+00
344 733 9.557493E-04 3.673178E-04 0.000000E+00
345 734 8.891262E-04 3.417941E-04 0.000000E+00
346 735 8.269535E-04 3.179738E-04 0.000000E+00
347 736 7.689351E-04 2.957441E-04 0.000000E+00
348 737 7.149425E-04 2.750558E-04 0.000000E+00
349 738 6.648590E-04 2.558640E-04 0.000000E+00
350 739 6.185421E-04 2.381142E-04 0.000000E+00
351 740 5.758303E-04 2.217445E-04 0.000000E+00
352 741 5.365046E-04 2.066711E-04 0.000000E+00
353 742 5.001842E-04 1.927474E-04 0.000000E+00
354 743 4.665005E-04 1.798315E-04 0.000000E+00
355 744 4.351386E-04 1.678023E-04 0.000000E+00
356 745 4.058303E-04 1.565566E-04 0.000000E+00
357 746 3.783733E-04 1.460168E-04 0.000000E+00
358 747 3.526892E-04 1.361535E-04 0.000000E+00
359 748 3.287199E-04 1.269451E-04 0.000000E+00
360 749 3.063998E-04 1.183671E-04 0.000000E+00
361 750 2.856577E-04 1.103928E-04 0.000000E+00
362 751 2.664108E-04 1.029908E-04 0.000000E+00
363 752 2.485462E-04 9.611836E-05 0.000000E+00
364 753 2.319529E-04 8.973323E-05 0.000000E+00
365 754 2.165300E-04 8.379694E-05 0.000000E+00
366 755 2.021853E-04 7.827442E-05 0.000000E+00
367 756 1.888338E-04 7.313312E-05 0.000000E+00
368 757 1.763935E-04 6.834142E-05 0.000000E+00
369 758 1.647895E-04 6.387035E-05 0.000000E+00
370 759 1.539542E-04 5.969389E-05 0.000000E+00
371 760 1.438270E-04 5.578862E-05 0.000000E+00
372 761 1.343572E-04 5.213509E-05 0.000000E+00
373 762 1.255141E-04 4.872179E-05 0.000000E+00
374 763 1.172706E-04 4.553845E-05 0.000000E+00
375 764 1.095983E-04 4.257443E-05 0.000000E+00
376 765 1.024685E-04 3.981884E-05 0.000000E+00
377 766 9.584715E-05 3.725877E-05 0.000000E+00
378 767 8.968316E-05 3.487467E-05 0.000000E+00
379 768 8.392734E-05 3.264765E-05 0.000000E+00
380 769 7.853708E-05 3.056140E-05 0.000000E+00
381 770 7.347551E-05 2.860175E-05 0.000000E+00
382 771 6.871576E-05 2.675841E-05 0.000000E+00
383 772 6.425257E-05 2.502943E-05 0.000000E+00
384 773 6.008292E-05 2.341373E-05 0.000000E+00
385 774 5.620098E-05 2.190914E-05 0.000000E+00
386 775 5.259870E-05 2.051259E-05 0.000000E+00
387 776 4.926279E-05 1.921902E-05 0.000000E+00
388 777 4.616623E-05 1.801796E-05 0.000000E+00
389 778 4.328212E-05 1.689899E-05 0.000000E+00
390 779 4.058715E-05 1.585309E-05 0.000000E+00
391 780 3.806114E-05 1.487243E-05 0.000000E+00
392 781 3.568818E-05 1.395085E-05 0.000000E+00
393 782 3.346023E-05 1.308528E-05 0.000000E+00
394 783 3.137090E-05 1.227327E-05 0.000000E+00
395 784 2.941371E-05 1.151233E-05 0.000000E+00
396 785 2.758222E-05 1.080001E-05 0.000000E+00
397 786 2.586951E-05 1.013364E-05 0.000000E+00
398 787 2.426701E-05 9.509919E-06 0.000000E+00
399 788 2.276639E-05 8.925630E-06 0.000000E+00
400 789 2.136009E-05 8.377852E-06 0.000000E+00
401 790 2.004122E-05 7.863920E-06 0.000000E+00
402 791 1.880380E-05 7.381539E-06 0.000000E+00
403 792 1.764358E-05 6.929096E-06 0.000000E+00
404 793 1.655671E-05 6.505136E-06 0.000000E+00
405 794 1.553939E-05 6.108221E-06 0.000000E+00
406 795 1.458792E-05 5.736935E-06 0.000000E+00
407 796 1.369853E-05 5.389831E-06 0.000000E+00
408 797 1.286705E-05 5.065269E-06 0.000000E+00
409 798 1.208947E-05 4.761667E-06 0.000000E+00
410 799 1.136207E-05 4.477561E-06 0.000000E+00
411 800 1.068141E-05 4.211597E-06 0.000000E+00
412 801 1.004411E-05 3.962457E-06 0.000000E+00
413 802 9.446399E-06 3.728674E-06 0.000000E+00
414 803 8.884754E-06 3.508881E-06 0.000000E+00
415 804 8.356050E-06 3.301868E-06 0.000000E+00
416 805 7.857521E-06 3.106561E-06 0.000000E+00
417 806 7.386996E-06 2.922119E-06 0.000000E+00
418 807 6.943576E-06 2.748208E-06 0.000000E+00
419 808 6.526548E-06 2.584560E-06 0.000000E+00
420 809 6.135087E-06 2.430867E-06 0.000000E+00
421 810 5.768284E-06 2.286786E-06 0.000000E+00
422 811 5.425069E-06 2.151905E-06 0.000000E+00
423 812 5.103974E-06 2.025656E-06 0.000000E+00
424 813 4.803525E-06 1.907464E-06 0.000000E+00
425 814 4.522350E-06 1.796794E-06 0.000000E+00
426 815 4.259166E-06 1.693147E-06 0.000000E+00
427 816 4.012715E-06 1.596032E-06 0.000000E+00
428 817 3.781597E-06 1.504903E-06 0.000000E+00
429 818 3.564496E-06 1.419245E-06 0.000000E+00
430 819 3.360236E-06 1.338600E-06 0.000000E+00
431 820 3.167765E-06 1.262556E-06 0.000000E+00
432 821 2.986206E-06 1.190771E-06 0.000000E+00
433 822 2.814999E-06 1.123031E-06 0.000000E+00
434 823 2.653663E-06 1.059151E-06 0.000000E+00
435 824 2.501725E-06 9.989507E-07 0.000000E+00
436 825 2.358723E-06 9.422514E-07 0.000000E+00
437 826 2.224206E-06 8.888804E-07 0.000000E+00
438 827 2.097737E-06 8.386690E-07 0.000000E+00
439 828 1.978894E-06 7.914539E-07 0.000000E+00
440 829 1.867268E-06 7.470770E-07 0.000000E+00
441 830 1.762465E-06 7.053860E-07 0.000000E+00

1
reanimate.cabal
View file

@ -28,6 +28,7 @@ data-files: viewer/build/*.js
viewer/build/static/js/runtime~main.9eb600ee.js
viewer/build/static/css/main.f7ad3e9b.chunk.css
data/CIExyz.csv
data/CIE_XYZ.csv
data/cone_sensitivity_lms.csv
Source-Repository head

7
src/Reanimate/Builtin/TernaryPlot.hs
View file

@ -1,7 +1,7 @@
module Reanimate.Builtin.TernaryPlot where
import Codec.Picture
import Graphics.SvgTree (Tree)
import Graphics.SvgTree (Tree, Number(..))
import Reanimate.Raster
import Reanimate.Svg
@ -14,8 +14,11 @@ type CCoord = Double
-- Creates a centered ternary plot with a width of 5.
raster :: Int -> (ACoord -> BCoord -> CCoord -> PixelRGBA8) -> Tree
raster density fn =
translate (-cX*stdWidth) (-cY*stdWidth) $
scaleToWidth stdWidth $
translate (-cX) (-cY) $
scaleToWidth 1 $
flipYAxis $
translate (fromIntegral density/2) (-fromIntegral height/2) $
embedImage $ generateImage gen density height
where
stdWidth = 5

10
src/Reanimate/ColorSpace.hs
View file

@ -25,6 +25,14 @@ lightXYZCoordinates = unsafePerformIO $ do
Right vec -> return $ Map.fromList
[ (nm, (x,y,z)) | (nm,x,y,z) <- V.toList vec, nm <= 700 ]
bigXYZCoordinates :: Map Nanometer (Double, Double, Double)
bigXYZCoordinates = unsafePerformIO $ do
dat <- BS.readFile =<< getDataFileName "data/CIE_XYZ.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 $
@ -53,7 +61,7 @@ coneSensitivity = unsafePerformIO $ do
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 ]
[ (nm, (l,m,fromMaybe 0 s)) | (nm,l,m,s) <- V.toList vec, nm <= 700 ]
renderSensitivity :: Tree
renderSensitivity = mkGroup

3
src/Reanimate/Monad.hs
View file

@ -115,6 +115,9 @@ mapF fn frame = Frame $ \d t -> do
pauseAtEnd :: Double -> Animation -> Animation
pauseAtEnd p a = a `andThen` pause p
pauseUntil :: Double -> Animation -> Animation
pauseUntil p a = a `andThen` pause (p - duration a)
pauseAtBeginning :: Double -> Animation -> Animation
pauseAtBeginning d1 a =
Animation d1 (freezeFrame 0 a) `before` a

15
src/Reanimate/Svg.hs
View file

@ -322,6 +322,16 @@ boundingBox t =
worker (minx, miny, maxx, maxy) (V2 x y) =
(min minx x, min miny y, max maxx x, max maxy y)
svgHeight :: Tree -> Double
svgHeight t = h
where
(_x,_y,_w,h) = boundingBox t
svgWidth :: Tree -> Double
svgWidth t = w
where
(_x,_y,w,_h) = boundingBox t
linePoints :: [LineCommand] -> [RPoint]
linePoints = worker zero
where
@ -597,7 +607,10 @@ mkPathText :: T.Text -> Tree
mkPathText str =
case parseOnly pathParser str of
Left err -> error err
Right cmds -> PathTree $ defaultSvg & pathDefinition .~ cmds
Right cmds -> mkPath cmds
mkPath :: [PathCommand] -> Tree
mkPath cmds = PathTree $ defaultSvg & pathDefinition .~ cmds
mkLinePath :: [(Double, Double)] -> Tree
mkLinePath [] = mkGroup []

352
videos/color-theory/Colorspace.hs
View file

@ -1,36 +1,139 @@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecursiveDo #-}
module Colorspace (colorSpacesScene) where
import Control.Lens ((&), (.~))
import Control.Lens ((&), (.~))
import qualified Data.Map as Map
import Codec.Picture
import Data.Colour
import Data.Colour.CIE
import Data.Colour.CIE.Illuminant
import Data.Colour.RGBSpace
import Data.Colour.SRGB
import Data.Colour
import Data.Colour.SRGB.Linear
import Graphics.SvgTree
import Data.List
import qualified Data.Map as Map
import Data.Ord
import Data.Text (Text)
import Graphics.SvgTree hiding (Text)
import Linear.V2
import qualified Reanimate.Builtin.TernaryPlot as Ternary
import Reanimate.ColorMap
import Reanimate.ColorSpace
import Reanimate.Driver (reanimate)
import Reanimate.Constants
import Reanimate.Driver (reanimate)
import Reanimate.LaTeX
import Reanimate.Monad
import Reanimate.Raster
import Reanimate.Scene
import Reanimate.Effect
import Reanimate.Signal
import Reanimate.Svg
import Reanimate.Constants
import qualified Reanimate.Builtin.TernaryPlot as Ternary
labScaleX = 128
labScaleY = 128
screenScale = 100
blueName = "royalblue"
greenName = "green"
redName = "maroon"
colorSpacesScene :: Animation
colorSpacesScene = mkAnimation 2 $ do
colorSpacesScene = sceneAnimation $ mdo
beginT <- queryNow
fork $ play $ frame
# setDuration (endT-beginT)
fork $ playZ 1 $ mkAnimation 1 (emit spectrumGrid)
# setDuration (endT-beginT)
dur <- withSceneDuration $ do
fork $ play $ drawSensitivity 1 short blueName
# setDuration drawDur
# pauseAtBeginning (drawStagger*0)
# pauseUntil dur
fork $ do
wait (drawStagger*0 + drawDur)
play $ drawLabel "S" 1 short blueName
# setDuration 2
# applyE (overBeginning 0.3 fadeInE)
fork $ play $ drawSensitivity 1 medium greenName
# setDuration drawDur
# pauseAtBeginning (drawStagger*1)
# pauseUntil dur
fork $ do
wait (drawStagger*1 + drawDur)
play $ drawLabel "M" 1 medium greenName
# setDuration 2
# applyE (overBeginning 0.3 fadeInE)
fork $ do
wait (drawStagger*2 + drawDur)
play $ drawLabel "L" 1 long redName
# setDuration 2
# applyE (overBeginning 0.3 fadeInE)
play $ drawSensitivity 1 long redName
# setDuration drawDur
# pauseAtBeginning (drawStagger*2)
# pauseAtEnd drawPause
-- waitAll $ do
-- fork $ play $ drawSensitivity 1 short "blue"
-- # setDuration drawDur
-- # reverseAnimation
-- fork $ play $ drawSensitivity 1 medium "green"
-- # setDuration drawDur
-- # reverseAnimation
-- fork $ play $ drawSensitivity 1 long "red"
-- # setDuration drawDur
-- # reverseAnimation
dur2 <- withSceneDuration $ do
fork $ do
wait drawDur
fork $ play $ drawLabel "Z" 2 zCoords blueName
# setDuration 2
# applyE (overBeginning 0.3 fadeInE)
wait drawStagger
fork $ play $ drawLabel "Y" 2 yCoords greenName
# setDuration 2
# applyE (overBeginning 0.3 fadeInE)
wait drawStagger
fork $ play $ drawLabel "X" 2 xCoords redName
# setDuration 2
# applyE (overBeginning 0.3 fadeInE)
fork $ play $ morphSensitivity 1 2 short zCoords blueName
# setDuration drawDur
-- # pauseAtBeginning (drawStagger*0)
# pauseUntil dur2
fork $ play $ morphSensitivity 1 2 medium yCoords greenName
# setDuration drawDur
-- # pauseAtBeginning (drawStagger*1)
# pauseUntil dur2
play $ morphSensitivity 1 2 long xCoords redName
# setDuration drawDur
-- # pauseAtBeginning (drawStagger*2)
# pauseAtEnd drawPause
endT <- queryNow
return ()
where
playAndFreezeUntil endT ani = do
now <- queryNow
fork $ play $ ani # pauseUntil (now-endT)
drawDur = 3
drawStagger = 1
drawPause = 4
long = [ (nm, l) | (nm, (l, m, s)) <- Map.toList coneSensitivity ]
medium = [ (nm, m) | (nm, (l, m, s)) <- Map.toList coneSensitivity ]
short = [ (nm, s) | (nm, (l, m, s)) <- Map.toList coneSensitivity ]
xCoords = [ (nm, x) | (nm, (x, y, z)) <- Map.toList bigXYZCoordinates ]
yCoords = [ (nm, y) | (nm, (x, y, z)) <- Map.toList bigXYZCoordinates ]
zCoords = [ (nm, z) | (nm, (x, y, z)) <- Map.toList bigXYZCoordinates ]
frame = mkAnimation 2 $ do
-- emit $ mkBackground "black"
-- emit $ spectrumGrid
s <- getSignal signalLinear
let cm = hsv
emit $ mkGroup
@ -42,57 +145,31 @@ colorSpacesScene = mkAnimation 2 $ do
[ simplify
obsColors
]
]
let centerPic = translate (-screenScale/2) (-screenScale/2)
emit $ mkGroup
[ mkBackground "black"
-- , translate (-60) 0 $ mkGroup
-- [ -- withClipPathRef (Ref "sRGB") $
-- center $
-- scaleToWidth 100 $ img1
-- ]
, translate (-screenWidth*0.2) 0 $ mkGroup
[ -- withClipPathRef (Ref "sRGB") $
--withClipPathRef (Ref "visible") $
mkGroup [img1]
, withStrokeColor "white" $
sRGBTriangle
, withStrokeColor "white" $
obsColors
, mkClipPath "spectrum" $
let margin = 1 in
[ simplify $ lowerTransformations $
translate 0 (margin/2) $
pathify $
mkRect (Num spectrumWidth) (Num $ spectrumHeight+margin)
]
, translate (screenWidth*0.2) 0 $ mkGroup
[ -- withClipPathRef (Ref "sRGB") $
withClipPathRef (Ref "sRGB") $
mkGroup [img1]
-- , withFillOpacity 0 $
-- withStrokeColor "white" $
-- mkCircle (Num $ Ternary.radius * 100)
-- , let (zx,zy) = Ternary.toCartesianCoords (1/3) (1/3)
-- (tx,ty) = Ternary.toCartesianCoords 0 0
-- in
-- withFillOpacity 0 $
-- withStrokeColor "white" $
-- scaleXY 1 (-1) $
-- lowerTransformations $
-- -- scale (100) $
-- translate ((tx-zx)*100) ((ty-zy)*100) $
-- pathify $
-- mkCircle (Num $ 3)
-- ,
-- withStrokeColor "white" $
-- obsColors
]
-- , translate (-60) 0 $ center $ mkGroup
-- [ center $ scaleToSize 100 100 $ cieXYImageOld 100 100
-- -- , withStrokeColor "white" $ labColors
-- , lowerTransformations $
-- withStrokeColor "white" $
-- scale 100 $
-- renderXYZCoordinates
-- ]
-- , translate (60) 0 $ scale 0.2 img2
-- , translate 60 0 $ center $ renderSensitivity
]
-- emit $ mkGroup
-- [ translate (-screenWidth*0.2) 0 $ mkGroup
-- [ -- withClipPathRef (Ref "sRGB") $
-- --withClipPathRef (Ref "visible") $
-- mkGroup [img1]
-- , withStrokeColor "white" $
-- sRGBTriangle
-- , withStrokeColor "white" $
-- obsColors
-- ]
-- , translate (screenWidth*0.2) 0 $ mkGroup
-- [ -- withClipPathRef (Ref "sRGB") $
-- withClipPathRef (Ref "sRGB") $
-- mkGroup [img1]
-- ]
-- ]
where
imgSize :: Num a => a
imgSize = 1000
@ -119,38 +196,6 @@ renderXYZCoordinatesTernary =
]
cieXYImageOld :: Int -> Int -> Tree
cieXYImageOld width height = embedImage $ generateImage gen width height
where
gen x y =
let
x' = (fromIntegral x / fromIntegral width)
y' = 1-(fromIntegral y / fromIntegral height)
z' = 1 - x' - y'
RGB r g b = toSRGBBounded (cieXYZ x' y' z')
-- RGB r g b = toSRGBBounded (cieXYZ xPrim yPrim zPrim)
in if x' + y' > 1
then PixelRGB8 0 0 0
else PixelRGB8 r g b
{-
cieXYImage_ :: Int -> Tree
cieXYImage_ width = embedImage $ generateImage gen width height
where
height = round $ fromIntegral width * sin (60/180*pi)
gen x y =
let
x' = (fromIntegral x / fromIntegral width)
y' = (fromIntegral y / fromIntegral width)
z' = 1 - x' - y'
aCoord = (x'*2-bCoord)/2
bCoord = y' / (sqrt 3 / 2)
cCoord = 1 - aCoord - bCoord
-- RGB r g b = toSRGBBounded (cieXYZ x' y' z')
RGB r g b = toSRGBBounded (cieXYZ aCoord bCoord cCoord)
in if aCoord + bCoord > 1 || aCoord < 0 || bCoord < 0 || cCoord < 0
then PixelRGBA8 0 0 0 0
else PixelRGBA8 r g b 0xFF
-}
cieXYImage :: Int -> Tree
cieXYImage density = Ternary.raster density $ \aCoord bCoord cCoord ->
let RGB r g b = toSRGBBounded (cieXYZ aCoord bCoord cCoord)
@ -227,3 +272,130 @@ mkClosedLinePath ((startX, startY):rest) =
cmds = [ MoveTo OriginAbsolute [V2 startX startY]
, LineTo OriginAbsolute [ V2 x y | (x, y) <- rest ]
, EndPath ]
spectrumHeight = screenHeight * 0.5
spectrumWidth = screenWidth * 0.7
spectrumGrid :: Tree
spectrumGrid =
withStrokeWidth (Num strokeWidth) $
mkGroup
[ center $
withFillOpacity 0 $ withStrokeColor "white" $ mkPath $
[ MoveTo OriginAbsolute [V2 0 0]
, HorizontalTo OriginRelative [tickLength,-tickLength]
, VerticalTo OriginRelative [-spectrumHeight]
, HorizontalTo OriginRelative [spectrumWidth]
, VerticalTo OriginRelative [tickLength,-tickLength]
]
++ concat
[ [ MoveTo OriginAbsolute [V2 (n / (nTicksX-1) * spectrumWidth) (-spectrumHeight)]
, VerticalTo OriginRelative [tickLength]]
| n <- [0..nTicksX-1]
]
++ concat
[ [ MoveTo OriginAbsolute [V2 0 (n / (nTicksY-1) * negate spectrumHeight)]
, HorizontalTo OriginRelative [tickLength]]
| n <- [0..nTicksY-1]
]
, withFillColor "white" $
translate (-spectrumWidth*0.5 - svgWidth sensitivity) (0) $
sensitivity
, withFillColor "white" $
translate 0 (-spectrumHeight*0.5 -svgHeight wavelength) $
wavelength
, withFillColor "white" $
translate (-spectrumWidth*0.5 + svgWidth shortWaves/2)
(-spectrumHeight*0.5 -svgHeight shortWaves) $
shortWaves
, withFillColor "white" $
translate (spectrumWidth*0.5 - svgWidth shortWaves/2)
(-spectrumHeight*0.5 -svgHeight shortWaves) $
longWaves
]
where
strokeWidth = 0.03
nTicksX = 24
nTicksY = fromIntegral (round (spectrumHeight/spectrumWidth * nTicksX))
tickLength = spectrumHeight*0.02
sensitivity =
center $
scale 0.4 $ rotate 90 $
latex "Sensitivity $\\rightarrow$"
wavelength =
center $
scale 0.4 $
latex "Wavelength"
shortWaves =
center $
scale 0.3 $
latex "400 nm"
longWaves =
center $
scale 0.3 $
latex "700 nm"
drawSensitivity :: Double -> [(Nanometer, Double)] -> String -> Animation
drawSensitivity maxHeight dat c = mkAnimation 1 $ do
limit <- getSignal signalLinear
emit $ sensitivitySVG maxHeight limit dat c
morphSensitivity
:: Double
-> Double
-> [(Nanometer, Double)]
-> [(Nanometer, Double)]
-> String
-> Animation
morphSensitivity maxHeightA maxHeightB datA datB c = mkAnimation 1 $ do
m <- getSignal $ signalCurve 2 -- signalLinear
let maxHeight = signalFromTo maxHeightA maxHeightB id m
dat = [ (nm, signalFromTo a b id m)
| ((nm,a),(_,b)) <- zip datA datB ]
emit $ sensitivitySVG maxHeight 1 dat c
-- emit $
-- withClipPathRef (Ref "spectrum") $
-- simplify $ lowerTransformations $ pathify $
-- mkBackground "green"
sensitivitySVG :: Double -> Double -> [(Nanometer, Double)] -> String -> Tree
sensitivitySVG maxHeight limit dat c =
withClipPathRef (Ref "spectrum") $
simplify $ lowerTransformations $
withStrokeColor c $
withFillOpacity 0 $
translate (-spectrumWidth/2) (-spectrumHeight/2) $
mkPath $ MoveTo OriginAbsolute [V2 0 0] :
[ LineTo OriginAbsolute [V2 x y]
| (nm, n) <- dat
, fromIntegral nm <= lastNM
, let percent = (fromIntegral nm-initNM)/(lastNM-initNM)
x = percent * spectrumWidth
y = n/maxHeight * spectrumHeight
, percent <= limit
]
where
initNM = fromIntegral $ fst (head dat)
lastNM = 700 -- fromIntegral $ fst (last dat)
drawLabel :: Text -> Double -> [(Nanometer, Double)] -> String -> Animation
drawLabel label maxHeight dat c = mkAnimation 1 $ do
emit $
translate (0) (svgHeight labelSVG) $
translate (spectrumWidth*percent) labelY $
translate (-spectrumWidth/2) (-spectrumHeight/2) $
-- withStrokeWidth (Num 0.01) $
-- withStrokeColor c $
withFillColor c $
labelSVG
where
labelSVG =
center $
scale 1 $
latex label
labelY = (v/maxHeight) * spectrumHeight
(nm,v) = maximumBy (comparing snd) dat
initNM = fromIntegral $ fst (head dat)
lastNM = 700
percent = (fromIntegral nm-initNM)/(lastNM-initNM)

6
videos/color-theory/color-theory.hs
View file

@ -26,6 +26,7 @@ import Reanimate.Raster
import Reanimate.Scene
import Reanimate.Signal
import Reanimate.Svg
import Reanimate.ColorSpace
import Reanimate.Constants
import System.IO.Unsafe
@ -45,8 +46,9 @@ dropA d1 (Animation d2 f) = Animation (max 0 (d2-d1)) $
main :: IO ()
main = reanimate $
(mkAnimation 0 $ emit $ mkBackground "black") `sim`
monalisaScene
-- colorSpacesScene
-- monalisaScene
colorSpacesScene
-- clipPathTest
monalisaScene :: Animation