reanimate 0.1.7.0 → 0.1.8.0
raw patch · 36 files changed
+687/−71 lines, 36 filesdep ~chiphunkdep ~reanimate-svgbinary-added
Dependency ranges changed: chiphunk, reanimate-svg
Files
- data/CIE_XYZ.csv +441/−0
- docs/gifs/doc_cividis.gif binary
- docs/gifs/doc_greyscale.gif binary
- docs/gifs/doc_hsv.gif binary
- docs/gifs/doc_hsvMatlab.gif binary
- docs/gifs/doc_inferno.gif binary
- docs/gifs/doc_jet.gif binary
- docs/gifs/doc_latex.gif binary
- docs/gifs/doc_latexAlign.gif binary
- docs/gifs/doc_magma.gif binary
- docs/gifs/doc_parula.gif binary
- docs/gifs/doc_pause.gif binary
- docs/gifs/doc_plasma.gif binary
- docs/gifs/doc_sinebow.gif binary
- docs/gifs/doc_turbo.gif binary
- docs/gifs/doc_viridis.gif binary
- docs/gifs/doc_xelatex.gif binary
- reanimate.cabal +7/−4
- src/Reanimate.hs +16/−0
- src/Reanimate/Animation.hs +11/−3
- src/Reanimate/Builtin/Documentation.hs +6/−1
- src/Reanimate/Builtin/TernaryPlot.hs +65/−0
- src/Reanimate/ColorMap.hs +26/−0
- src/Reanimate/ColorSpace.hs +9/−1
- src/Reanimate/Driver.hs +7/−3
- src/Reanimate/Driver/CLI.hs +9/−5
- src/Reanimate/Driver/Check.hs +1/−1
- src/Reanimate/Driver/Server.hs +1/−1
- src/Reanimate/LaTeX.hs +25/−0
- src/Reanimate/Raster.hs +3/−2
- src/Reanimate/Scene.hs +0/−31
- src/Reanimate/Svg.hs +22/−0
- src/Reanimate/Svg/BoundingBox.hs +12/−3
- src/Reanimate/Svg/Constructors.hs +20/−11
- src/Reanimate/Svg/Unuse.hs +3/−3
- test/UnitTests.hs +3/−2
+ data/CIE_XYZ.csv view
@@ -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
+ docs/gifs/doc_cividis.gif view
binary file changed (absent → 5597 bytes)
+ docs/gifs/doc_greyscale.gif view
binary file changed (absent → 5600 bytes)
+ docs/gifs/doc_hsv.gif view
binary file changed (absent → 5598 bytes)
+ docs/gifs/doc_hsvMatlab.gif view
binary file changed (absent → 5600 bytes)
+ docs/gifs/doc_inferno.gif view
binary file changed (absent → 5595 bytes)
+ docs/gifs/doc_jet.gif view
binary file changed (absent → 5597 bytes)
+ docs/gifs/doc_latex.gif view
binary file changed (absent → 3446 bytes)
+ docs/gifs/doc_latexAlign.gif view
binary file changed (absent → 4378 bytes)
+ docs/gifs/doc_magma.gif view
binary file changed (absent → 5595 bytes)
+ docs/gifs/doc_parula.gif view
binary file changed (absent → 5588 bytes)
docs/gifs/doc_pause.gif view
binary file changed (14583 → 12035 bytes)
+ docs/gifs/doc_plasma.gif view
binary file changed (absent → 5598 bytes)
+ docs/gifs/doc_sinebow.gif view
binary file changed (absent → 5600 bytes)
+ docs/gifs/doc_turbo.gif view
binary file changed (absent → 5589 bytes)
+ docs/gifs/doc_viridis.gif view
binary file changed (absent → 5592 bytes)
+ docs/gifs/doc_xelatex.gif view
binary file changed (absent → 3353 bytes)
reanimate.cabal view
@@ -1,8 +1,9 @@+cabal-version: 1.18 -- Initial reani.cabal generated by cabal init. For further documentation, -- see http://haskell.org/cabal/users-guide/ name: reanimate-version: 0.1.7.0+version: 0.1.8.0 -- synopsis: -- description: license: PublicDomain@@ -14,8 +15,8 @@ build-type: Simple extra-source-files: ChangeLog.md extra-doc-files: docs/gifs/*.gif-cabal-version: >=1.18 + description: Animation library based on SVGs. Can import (and manipulate) SVGs from LaTeX and diagrams. Exports gifs, mp4s, and more. Ships with a webbased@@ -29,6 +30,7 @@ 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@@ -63,6 +65,7 @@ Reanimate.Scene Reanimate.Povray Reanimate.Effect+ Reanimate.Builtin.TernaryPlot Reanimate.Constants Reanimate.Chiphunk Reanimate.PolyShape@@ -75,13 +78,13 @@ Paths_reanimate build-depends: base >=4.10 && <4.13, time, text, filepath, process, directory,- containers, reanimate-svg >= 0.9.2.1, xml, bytestring, lens, linear, mtl, matrix,+ containers, reanimate-svg >= 0.9.3.0, xml, bytestring, lens, linear, mtl, matrix, JuicyPixels, attoparsec, parallel, diagrams, diagrams-svg, diagrams-core, diagrams-lib, diagrams-contrib, svg-builder, cubicbezier, palette, websockets, hashable, fsnotify, open-browser, random-shuffle, base64-bytestring, vector, colour, cassava, ansi-wl-pprint, here, temporary,- optparse-applicative, chiphunk+ optparse-applicative, chiphunk >= 0.1.2.0 ghc-options: -Wall test-suite spec
src/Reanimate.hs view
@@ -57,6 +57,21 @@ bellS, oscillateS, fromListS,+ -- ** Scenes+ (#),+ ZIndex,+ Scene,+ sceneAnimation,+ fork,+ play,+ playZ,+ queryNow,+ waitAll,+ waitUntil,+ wait,+ adjustZ ,+ withSceneDuration,+ -- * SVG module Reanimate.Svg.Constructors, module Reanimate.Svg.LineCommand,@@ -104,3 +119,4 @@ import Reanimate.Svg.BoundingBox import Reanimate.Svg.Constructors import Reanimate.Svg.LineCommand+import Reanimate.Scene
src/Reanimate/Animation.hs view
@@ -3,12 +3,14 @@ import Control.Arrow () import Data.Fixed (mod') import qualified Data.Map as M-import Graphics.SvgTree (Document (..), Number (..),+import Graphics.SvgTree (Alignment (..), Document (..),+ Number (..),+ PreserveAspectRatio (..), Tree (..), xmlOfTree) import Graphics.SvgTree.Printer import Reanimate.Constants-import Reanimate.Svg.Constructors import Reanimate.Signal+import Reanimate.Svg.Constructors import Text.XML.Light.Output -- | Duration of an animation or effect. Usually measured in seconds.@@ -110,7 +112,7 @@ -- -- Example: ----- > pause 1 `seqA` drawCircle+-- > pause 1 `seqA` drawProgress -- -- <<docs/gifs/doc_pause.gif>> pause :: Duration -> Animation@@ -149,6 +151,7 @@ , _definitions = M.empty , _description = "" , _documentLocation = ""+ , _documentAspectRatio = PreserveAspectRatio False AlignNone Nothing } -- | Map over the SVG produced by an animation at every frame.@@ -192,6 +195,11 @@ -- <<docs/gifs/doc_pauseAround.gif>> pauseAround :: Duration -> Duration -> Animation -> Animation pauseAround start end = pauseAtEnd end . pauseAtBeginning start++-- XXX: Rename to 'setDurationFreeze'. Add 'setDurationDrop' and+-- 'setDurationLoop'.+pauseUntil :: Duration -> Animation -> Animation+pauseUntil d a = pauseAtEnd (d-duration a) a -- Freeze frame at time @t@. freezeFrame :: Double -> Animation -> (Time -> SVG)
src/Reanimate/Builtin/Documentation.hs view
@@ -9,7 +9,7 @@ [ mkBackground "white" , withFillOpacity 0 $ withStrokeWidth 0.1 $- withStrokeColor "black" svg ]+ withStrokeColor "black" (mkGroup [svg]) ] -- | <<docs/gifs/doc_drawBox.gif>> drawBox :: Animation@@ -21,6 +21,11 @@ drawCircle :: Animation drawCircle = mkAnimation 2 $ \t -> partialSvg t $ pathify $+ mkCircle (screenHeight/3)++drawBall :: Animation+drawBall = mkAnimation 2 $ \t ->+ scale t $ withFillOpacity 1 $ withFillColor "red" $ mkCircle (screenHeight/3) -- | <<docs/gifs/doc_drawProgress.gif>>
+ src/Reanimate/Builtin/TernaryPlot.hs view
@@ -0,0 +1,65 @@+module Reanimate.Builtin.TernaryPlot where++import Codec.Picture+import Graphics.SvgTree (Tree)+import Reanimate.Raster+import Reanimate.Svg++-- (top, left, right)+-- a+b+c=1+type ACoord = Double+type BCoord = Double+type CCoord = Double++-- Creates a centered ternary plot with a width of 5.+raster :: Int -> (ACoord -> BCoord -> CCoord -> PixelRGBA8) -> Tree+raster density fn =+ scaleToWidth stdWidth $+ translate (-cX) (-cY) $+ scaleToWidth 1 $+ flipYAxis $+ translate (fromIntegral density/2) (-fromIntegral height/2) $+ embedImage $ generateImage gen density height+ where+ stdWidth = 5+ (cX, cY) = toCartesianCoords (1/3) (1/3)+ height = round (fromIntegral density * (sqrt 3 / 2) :: Double)+ gen x y =+ let+ x' = (fromIntegral x / fromIntegral density)+ y' = (fromIntegral y / fromIntegral density)+ aCoord = (x'*2-bCoord)/2+ bCoord = y' / (sqrt 3 / 2)+ cCoord = 1 - aCoord - bCoord+ in if aCoord + bCoord > 1 || aCoord < 0 || bCoord < 0 || cCoord < 0+ then PixelRGBA8 0 0 0 0+ else fn aCoord bCoord cCoord++atCenter :: Double -> Tree -> Tree+atCenter stdWidth = translate (-cX*stdWidth) (-cY*stdWidth)+ where+ (cX, cY) = toCartesianCoords (1/3) (1/3)++radius :: Double+radius = sqrt (cX*cX + cY*cY)+ where+ (cX, cY) = toCartesianCoords (1/3) (1/3)++toCartesianCoords :: ACoord -> BCoord -> (Double, Double)+toCartesianCoords a b = (x, y)+ where+ x = (a+2*b)/2+ y = (sqrt 3 / 2) * a++toOffsetCartesianCoords :: ACoord -> BCoord -> (Double, Double)+toOffsetCartesianCoords a b =+ (tx-zx, ty-zy)+ where+ (zx,zy) = toCartesianCoords (1/3) (1/3)+ (tx,ty) = toCartesianCoords a b++fromCartesianCoords :: Double -> Double -> (ACoord, BCoord, CCoord)+fromCartesianCoords x y = (a,b,1-a-b)+ where+ a = (x*2-b)/2+ b = y / (sqrt 3 / 2)
src/Reanimate/ColorMap.hs view
@@ -26,6 +26,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “turbo” color scheme by Anton Mikhailov.+--+-- <<docs/gifs/doc_turbo.gif>> turbo :: Double -> PixelRGB8 turbo t = PixelRGB8 red green blue where@@ -38,6 +40,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “viridis” perceptually-uniform color scheme designed by van der Walt, -- Smith and Firing for matplotlib, represented as an RGB string.+--+-- <<docs/gifs/doc_viridis.gif>> viridis :: Double -> PixelRGB8 viridis = ramp (colors "44015444025645045745055946075a46085c460a5d460b5e470d60470e614710634711644713\@@ -65,6 +69,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “magma” perceptually-uniform color scheme designed by van der Walt and -- Smith for matplotlib, represented as an RGB string.+--+-- <<docs/gifs/doc_magma.gif>> magma :: Double -> PixelRGB8 magma = ramp (colors "00000401000501010601010802010902020b02020d03030f0303120404140504160605180605\@@ -92,6 +98,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “inferno” perceptually-uniform color scheme designed by van der Walt -- and Smith for matplotlib, represented as an RGB string.+--+-- <<docs/gifs/doc_inferno.gif>> inferno :: Double -> PixelRGB8 inferno = ramp (colors "00000401000501010601010802010a02020c02020e0302100403120403140504170604190705\@@ -119,6 +127,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “plasma” perceptually-uniform color scheme designed by van der Walt and -- Smith for matplotlib, represented as an RGB string.+--+-- <<docs/gifs/doc_plasma.gif>> plasma :: Double -> PixelRGB8 plasma = ramp (colors "0d088710078813078916078a19068c1b068d1d068e20068f2206902406912605912805922a05\@@ -145,6 +155,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “sinebow” color scheme by Jim Bumgardner and Charlie Loyd.+--+-- <<docs/gifs/doc_sinebow.gif>> sinebow :: Double -> PixelRGB8 sinebow t = PixelRGB8 r g b where@@ -158,6 +170,8 @@ -- | Given a number t in the range [0,1], returns the corresponding color from -- the “cividis” color vision deficiency-optimized color scheme designed by -- Nuñez, Anderton, and Renslow, represented as an RGB string.+--+-- <<docs/gifs/doc_cividis.gif>> cividis :: Double -> PixelRGB8 cividis t = PixelRGB8 red green blue where@@ -168,6 +182,8 @@ trunc = fromIntegral . min 255 . max 0 -- | Jet colormap. Used to be the default in matlab. Obsolete.+--+-- <<docs/gifs/doc_jet.gif>> jet :: Double -> PixelRGB8 jet t = PixelRGB8 red green blue where@@ -178,22 +194,32 @@ trunc = round . min 255 . max 0 . (*) 255 -- | hsv colormap. Goes from 0 degrees to 360 degrees.+--+-- <<docs/gifs/doc_hsv.gif>> 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.+--+-- <<docs/gifs/doc_hsvMatlab.gif>> 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 +-- | Greyscale colormap.+--+-- <<docs/gifs/doc_greyscale.gif>> greyscale :: Double -> PixelRGB8 greyscale t = PixelRGB8 v v v where v = round $ t * 255 +-- | Parula is the default colormap for matlab.+--+-- <<docs/gifs/doc_parula.gif>> parula :: Double -> PixelRGB8 parula = ramp vec where
src/Reanimate/ColorSpace.hs view
@@ -25,6 +25,14 @@ 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 @@ 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
src/Reanimate/Driver.hs view
@@ -18,21 +18,25 @@ presetFormat Youtube = RenderMp4 presetFormat ExampleGif = RenderGif presetFormat Quick = RenderMp4+presetFormat MediumQ = RenderMp4+presetFormat HighQ = RenderMp4 presetFPS :: Preset -> FPS presetFPS Youtube = 60 presetFPS ExampleGif = 24 presetFPS Quick = 15+presetFPS MediumQ = 30+presetFPS HighQ = 30 presetWidth :: Preset -> Width presetWidth Youtube = 2560 presetWidth ExampleGif = 320 presetWidth Quick = 320+presetWidth MediumQ = 800+presetWidth HighQ = 1920 presetHeight :: Preset -> Height-presetHeight Youtube = 1440-presetHeight ExampleGif = 180-presetHeight Quick = 180+presetHeight preset = presetWidth preset * 9 `div` 16 formatFPS :: Format -> FPS formatFPS RenderMp4 = 60
src/Reanimate/Driver/CLI.hs view
@@ -33,7 +33,7 @@ } deriving (Show) -data Preset = Youtube | ExampleGif | Quick+data Preset = Youtube | ExampleGif | Quick | MediumQ | HighQ deriving (Show) readFormat :: String -> Maybe Format@@ -55,12 +55,16 @@ "youtube" -> Just Youtube "gif" -> Just ExampleGif "quick" -> Just Quick+ "medium" -> Just MediumQ+ "high" -> Just HighQ _ -> Nothing showPreset :: Preset -> String showPreset Youtube = "youtube" showPreset ExampleGif = "gif" showPreset Quick = "quick"+showPreset MediumQ = "medium"+showPreset HighQ = "high" options :: Parser Options options = Options <$> commandP@@ -91,19 +95,19 @@ parse = pure Test checkCommand :: ParserInfo Command-checkCommand = info (parse)+checkCommand = info parse (progDesc "Run a system's diagnostic and report any missing external dependencies.") where parse = pure Check viewCommand :: ParserInfo Command-viewCommand = info (parse)+viewCommand = info parse (progDesc "Play animation in browser window.") where parse = pure View renderCommand :: ParserInfo Command-renderCommand = info (parse)+renderCommand = info parse (progDesc "Render animation to file.") where -- fromPreset :: (Maybe Preset -> (Command -> Command))@@ -137,7 +141,7 @@ <*> optional (option (maybeReader readPreset) (long "preset" <> showDefaultWith showPreset <> metavar "TYPE"- <> help "Parameter presets: youtube, gif, quick"))+ <> help "Parameter presets: youtube, gif, quick, medium, high")) opts :: ParserInfo Options opts = info (options <**> helper )
src/Reanimate/Driver/Check.hs view
@@ -26,7 +26,7 @@ runCheck "Has XeLaTeX" hasXeLaTeX runCheck "Has dvisvgm" hasDvisvgm runCheck "Has povray" hasPovray- runCheck ("Has LaTeX package '"++ "babel" ++ "'") $ hasTeXPackage "latex" $+ runCheck ("Has LaTeX package '"++ "babel" ++ "'") $ hasTeXPackage "latex" "[english]{babel}" forM_ latexPackages $ \pkg -> runCheck ("Has LaTeX package '"++ pkg ++ "'") $ hasTeXPackage "latex" $
src/Reanimate/Driver/Server.hs view
@@ -109,7 +109,7 @@ expectFrame :: Either String Text -> IO (Integer, Text) expectFrame (Left "") = do sendTextData conn (T.pack "Done")- exitWith ExitSuccess+ exitSuccess expectFrame (Left err) = do sendTextData conn $ T.pack $ "Error" ++ err exitWith (ExitFailure 1)
src/Reanimate/LaTeX.hs view
@@ -15,14 +15,39 @@ import System.FilePath (replaceExtension, takeFileName, (</>)) import System.IO.Unsafe (unsafePerformIO) +-- | Invoke latex and import the result as an SVG object. SVG objects are+-- cached to improve performance.+--+-- Example:+--+-- > latex "$e^{i\\pi}+1=0$"+--+-- <<docs/gifs/doc_latex.gif>> latex :: T.Text -> Tree latex tex = (unsafePerformIO . (cacheMem . cacheDiskSvg) latexToSVG) ("% plain latex\n" <> tex) +-- | Invoke xelatex and import the result as an SVG object. SVG objects are+-- cached to improve performance. Xelatex has support for non-western scripts.+--+-- Example:+--+-- > xelatex "中文"+--+-- <<docs/gifs/doc_xelatex.gif>> xelatex :: Text -> Tree xelatex tex = (unsafePerformIO . (cacheMem . cacheDiskSvg) xelatexToSVG) ("% xelatex\n" <> tex) +-- | Invoke latex and import the result as an SVG object. SVG objects are+-- cached to improve performance. This wraps the TeX code in an 'align*'+-- context.+--+-- Example:+--+-- > latexAlign "R = \\frac{{\\Delta x}}{{kA}}"+--+-- <<docs/gifs/doc_latexAlign.gif>> latexAlign :: Text -> Tree latexAlign tex = latex $ T.unlines ["\\begin{align*}", tex, "\\end{align*}"]
src/Reanimate/Raster.hs view
@@ -16,13 +16,13 @@ import qualified Graphics.SvgTree as Svg import Reanimate.Misc import Reanimate.Animation+import Reanimate.Svg.Constructors import System.FilePath import System.IO import System.IO.Temp import System.IO.Unsafe --- XXX: Use Px instead of Num for width and height? {-# INLINE embedImage #-} embedImage :: PngSavable a => Image a -> Tree embedImage img = embedPng width height (encodePng img)@@ -31,8 +31,9 @@ height = fromIntegral $ imageHeight img embedPng :: Double -> Double -> LBS.ByteString -> Tree-embedPng w h png =+embedPng w h png = flipYAxis $ ImageTree $ defaultSvg+ & Svg.imageCornerUpperLeft .~ (Svg.Num (-w/2), Svg.Num (-h/2)) & Svg.imageWidth .~ Svg.Num w & Svg.imageHeight .~ Svg.Num h & Svg.imageHref .~ ("data:image/png;base64," ++ imgData)
src/Reanimate/Scene.hs view
@@ -5,11 +5,9 @@ import Control.Monad.ST import Data.List import Data.Ord-import Debug.Trace import Reanimate.Animation import Reanimate.Svg.Constructors -data World type ZIndex = Int (#) :: a -> (a -> b) -> b@@ -61,12 +59,6 @@ where (_, s, p, tl) = runST (unM action 0) -debug :: String -> Scene s ()-debug msg = M $ \_ -> trace msg (return ((), 0, 0, emptyTimeline))--someaction :: Scene s ()-someaction = debug "someaction"- fork :: Scene s a -> Scene s a fork (M action) = M $ \t -> do (a, s, p, tl) <- action t@@ -109,26 +101,3 @@ s t2 <- queryNow return (t2-t1)--{--blackness-show numbers-fade in colormap-slide to middle--do fork $ play $ setDuration 5 showNumbers- # fadeOut 1 # fadeIn 1- wait 3-- fork $ do- playZ (-1) $ setDuration 5 $ revealImage 0 0.5- # pauseAround 1 1- playZ (-1) $ setDuration 5 $ revealImage 0.5 1- # pauseAtEnd 1-- play $ setDuration 5 $ colormap 0 0.5- # fadeIn 1 # pauseAround 1 1- play $ setDuration 5 $ colormap 0.5 1- # fadeOut 1 # pauseAtEnd 1---}
src/Reanimate/Svg.hs view
@@ -132,7 +132,29 @@ DefinitionTree{} -> return () _ -> modify $ \(n, l, r) -> (n, acc t:l, r)+{-+<g transform="translate(10,10)">+ <g transform="scale(2)">+ <circle/>+ </g>+ <g transform="scale(0.5)">+ <rect/>+ </g>+</g> +[ (\svg -> <g transform="translate(10,10)"><g transform="scale(2)">svg</g></g>, <circle/>)+, (\svg -> <g transform="translate(10,10)"><g transform="scale(0.5)">svg</g></g>, <rect/>)]+-}+svgGlyphs :: Tree -> [(Tree -> Tree, DrawAttributes, Tree)]+svgGlyphs = worker id defaultSvg+ where+ worker acc attr =+ \case+ GroupTree g ->+ let acc' sub = acc (GroupTree $ g & groupChildren .~ [sub])+ attr' = (g^.drawAttributes) `mappend` attr+ in concatMap (worker acc' attr') (g ^. groupChildren)+ t -> [(acc, attr, t)] pathify :: Tree -> Tree pathify = mapTree worker
src/Reanimate/Svg/BoundingBox.hs view
@@ -1,4 +1,3 @@-{-# LANGUAGE LambdaCase #-} module Reanimate.Svg.BoundingBox where import Control.Arrow@@ -25,6 +24,16 @@ 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+ (_w, h, _x, _y) = boundingBox t++svgWidth :: Tree -> Double+svgWidth t = w+ where+ (w, _h, _x, _y) = boundingBox t+ linePoints :: [LineCommand] -> [RPoint] linePoints = worker zero where@@ -56,7 +65,7 @@ LineTree line -> map pointToRPoint [line^.linePoint1, line^.linePoint2] RectangleTree rect -> case pointToRPoint (rect^.rectUpperLeftCorner) of- V2 x y -> [V2 x y] +++ V2 x y -> V2 x y : case mapTuple (fmap $ toUserUnit defaultDPI) (rect^.rectWidth, rect^.rectHeight) of (Just (Num w), Just (Num h)) -> [V2 (x+w) (y+h)] _ -> []@@ -73,5 +82,5 @@ mapTuple f = f *** f pointToRPoint p = case mapTuple (toUserUnit defaultDPI) p of- (Num x, Num y) -> (V2 x y)+ (Num x, Num y) -> V2 x y _ -> error "Reanimate.Svg.svgBoundingPoints: Unrecognized number format."
src/Reanimate/Svg/Constructors.hs view
@@ -1,7 +1,7 @@ module Reanimate.Svg.Constructors where import Codec.Picture (PixelRGBA8 (..))-import Control.Lens ((&), (.~))+import Control.Lens ((&), (.~), (?~)) import Data.Attoparsec.Text (parseOnly) import qualified Data.Map as Map import qualified Data.Text as T@@ -15,7 +15,7 @@ withTransformations :: [Transformation] -> Tree -> Tree withTransformations transformations t =- mkGroup [t] & transform .~ Just transformations+ mkGroup [t] & transform ?~ transformations translate :: Double -> Double -> Tree -> Tree translate x y = withTransformations [Translate x y]@@ -56,6 +56,12 @@ scaleXY :: Double -> Double -> Tree -> Tree scaleXY x y = withTransformations [Scale x (Just y)] +flipXAxis :: Tree -> Tree+flipXAxis = scaleXY (-1) 1++flipYAxis :: Tree -> Tree+flipYAxis = scaleXY 1 (-1)+ center :: Tree -> Tree center t = translate (-x-w/2) (-y-h/2) t where@@ -90,10 +96,10 @@ withFillColorPixel color = fillColor .~ pure (ColorRef color) withFillOpacity :: Double -> Tree -> Tree-withFillOpacity opacity = fillOpacity .~ Just (realToFrac opacity)+withFillOpacity opacity = fillOpacity ?~ realToFrac opacity withGroupOpacity :: Double -> Tree -> Tree-withGroupOpacity opacity = groupOpacity .~ Just (realToFrac opacity)+withGroupOpacity opacity = groupOpacity ?~ realToFrac opacity withStrokeWidth :: Double -> Tree -> Tree withStrokeWidth width = strokeWidth .~ pure (Num width)@@ -102,13 +108,13 @@ withClipPathRef ref = clipPathRef .~ pure ref withId :: String -> Tree -> Tree-withId idTag = attrId .~ Just idTag+withId idTag = attrId ?~ idTag mkRect :: Double -> Double -> Tree mkRect width height = translate (-width/2) (-height/2) $ RectangleTree $ defaultSvg & rectUpperLeftCorner .~ (Num 0, Num 0)- & rectWidth .~ Just (Num width)- & rectHeight .~ Just (Num height)+ & rectWidth ?~ Num width+ & rectHeight ?~ Num height mkCircle :: Double -> Tree mkCircle radius = CircleTree $ defaultSvg@@ -132,9 +138,12 @@ mkUse name = UseTree (defaultSvg & useName .~ name) Nothing mkClipPath :: String -> [Tree] -> Tree-mkClipPath idTag forest = withId idTag $ ClipPathTree $ (defaultSvg+mkClipPath idTag forest = withId idTag $ ClipPathTree (defaultSvg & clipPathContent .~ forest) +mkPath :: [PathCommand] -> Tree+mkPath cmds = PathTree $ defaultSvg & pathDefinition .~ cmds+ mkPathString :: String -> Tree mkPathString = mkPathText . T.pack @@ -142,7 +151,7 @@ mkPathText str = case parseOnly pathParser str of Left err -> error err- Right cmds -> PathTree $ defaultSvg & pathDefinition .~ cmds+ Right cmds -> mkPath cmds mkLinePath :: [(Double, Double)] -> Tree mkLinePath [] = mkGroup []@@ -161,8 +170,8 @@ gridLayout :: [[Tree]] -> Tree gridLayout rows = mkGroup- [ translate (-screenWidth/2+colSep*(nCol))- (screenHeight/2-rowSep*(nRow))+ [ translate (-screenWidth/2+colSep*nCol)+ (screenHeight/2-rowSep*nRow) elt | (nRow, col) <- zip [1..] rows , let nCols = length col
src/Reanimate/Svg/Unuse.hs view
@@ -3,7 +3,7 @@ , unbox ) where -import Control.Lens ((%~), (&), (.~), (^.))+import Control.Lens ((%~), (&), (.~), (^.),(?~)) import qualified Data.Map as Map import Graphics.SvgTree hiding (height, line, path, use, width)@@ -25,7 +25,7 @@ Just tree -> GroupTree $ defaultSvg & groupChildren .~ [tree]- & transform .~ Just [baseToTransformation (use^.useBase)]+ & transform ?~ [baseToTransformation (use^.useBase)] replace x = x baseToTransformation (x,y) = case (toUserUnit defaultDPI x, toUserUnit defaultDPI y) of@@ -44,7 +44,7 @@ unbox doc@Document{_viewBox = Just (minx, minw, _width, _height)} = GroupTree $ defaultSvg & groupChildren .~ doc^.elements- & transform .~ Just [Translate (-minx) (-minw)]+ & transform ?~ [Translate (-minx) (-minw)] unbox doc = GroupTree $ defaultSvg & groupChildren .~ doc^.elements
test/UnitTests.hs view
@@ -67,9 +67,10 @@ files <- getDirectoryContents path return $ testGroup "videos" [ testCase dir $ do- (ret, _stdout, _stderr) <- readProcessWithExitCode "stack" (["ghc","--", fullPath] ++ ghcOpts) ""+ (ret, _stdout, err) <- readProcessWithExitCode "stack" (["ghc","--", "-i"++path</>dir, fullPath] ++ ghcOpts) ""+ _ <- evaluate (length err) case ret of- ExitFailure{} -> assertFailure "Failed to compile"+ ExitFailure{} -> assertFailure $ "Failed to compile:\n" ++ err ExitSuccess -> return () | dir <- files , let fullPath = path </> dir </> dir <.> "hs"