@explorable-viz/fluid 0.0.23 → 0.7.2

package/dist/fluid/fluid/example/percent.fld

@@ -0,0 +1 @@
+mkPercent 0.25

package/dist/fluid/fluid/example/plot/methane.fld

@@ -0,0 +1,14 @@
+let series type = [
+   { x: row.year, y: row.emissions }
+   | row <- methane, row.type == type
+] in LineChart {
+   size: { width: 450, height: 285 },
+   tickLabels: { x: Rotated, y: Default },
+   caption: "Sources of methane emissions for Africa and the Middle East (IPCC AR6)",
+   plots: [
+      LinePlot { name: type, points: series type }
+      | type <- ["Agricultural Waste Burning", "Agriculture", "Energy Sector",
+                 "Forest Burning", "Grassland Burning", "Industrial Sector",
+                 "Residential Commercial Other", "Transportation Sector", "Waste"]
+   ]
+}

package/dist/fluid/fluid/example/plot/non-renewables.fld

@@ -0,0 +1,22 @@
+let countries = ["BRA", "EGY", "IND", "JPN"];
+let totalFor year country =
+   let [ row ] = [ row | row <- nonRenewables, row.year == year, row.country == country ]
+   in row.nuclearOut + row.gasOut + row.coalOut + row.petrolOut;
+    stack year = [ { y: country, z: totalFor year country } | country <- countries ];
+    yearData year = [ row | row <- nonRenewables, row.year == year, row.country `elem` countries ]
+in MultiView {
+   barChart: BarChart {
+      caption: "Non-renewables output",
+      size: { width: 275, height: 185 },
+      stackedBars: [ { x: numToStr year, bars: stack year } | year <- [2014..2018] ]
+   },
+   scatterPlot: ScatterPlot {
+      caption: "",
+      points: [ {
+         x: sum [ row.nuclearOut | row <- yearData year ],
+         y: sum [ row.nuclearCap | row <- yearData year ]
+      } | year <- [2014..2018] ],
+      xlabel: "Nuclear capacity",
+      ylabel: "Nuclear output"
+   }
+}

package/dist/fluid/fluid/example/slicing/convolution/edgeDetect.expect.fld

@@ -0,0 +1 @@
+convolve inputImage filter extend

package/dist/fluid/fluid/example/slicing/convolution/edgeDetect.fld

@@ -0,0 +1 @@
+convolve inputImage filter extend

package/dist/fluid/fluid/example/slicing/convolution/emboss-wrap.fld

@@ -0,0 +1 @@
+convolve inputImage filter wrap

package/dist/fluid/fluid/example/slicing/convolution/emboss.expect.fld

@@ -0,0 +1 @@
+convolve inputImage filter zero

package/dist/fluid/fluid/example/slicing/convolution/emboss.fld

@@ -0,0 +1 @@
+convolve inputImage filter zero

package/dist/fluid/fluid/example/slicing/convolution/gaussian.expect.fld

@@ -0,0 +1 @@
+convolve inputImage filter zero

package/dist/fluid/fluid/example/slicing/convolution/gaussian.fld

@@ -0,0 +1 @@
+convolve inputImage filter zero

package/dist/{article → fluid}/fluid/example/slicing/convolution/test-image.fld

@@ -1,4 +1,4 @@
-let input_image =
+let inputImage =
    let image = [[15, 13,  6, 9, 16],
                  [12,  5, 15, 4, 13],
                  [14,  9, 20, 8,  1],

package/dist/fluid/fluid/example/slicing/dict/create.expect.fld

@@ -0,0 +1,2 @@
+{["a"] : 5,
+  [⸨"a"⸩ ++ ⸨"b"⸩] : 6}

package/dist/fluid/fluid/example/slicing/dict/create.fld

@@ -0,0 +1 @@
+{ ["a"]: 5, ["a" ++ "b"]: 6 }

package/dist/fluid/fluid/example/slicing/dict/difference.expect.fld

@@ -0,0 +1,4 @@
+let e = ⸨{["a"] : 5,
+            ["a" ++ "b"] : 6}⸩;
+    f = ⸨{["ab"] : 12}⸩ in
+dict_difference e f

package/dist/fluid/fluid/example/slicing/dict/difference.fld

@@ -0,0 +1,3 @@
+let e = { ["a"]: 5, ["a" ++ "b"]: 6 };
+    f = { ["ab"]: 12 }
+in dict_difference e f

package/dist/fluid/fluid/example/slicing/dict/disjointUnion.expect.fld

@@ -0,0 +1,2 @@
+{⸨a⸩ : 5,
+  b : 6} `dict_disjointUnion` {c : ⸨7⸩}

package/dist/fluid/fluid/example/slicing/dict/disjointUnion.fld

@@ -0,0 +1 @@
+{ a: 5, b: 6 } `dict_disjointUnion` { c: 7 }

package/dist/fluid/fluid/example/slicing/dict/foldl.expect.fld

@@ -0,0 +1,3 @@
+foldl (*) 1 (dict_foldl concat2 [] {a : [5, 6],
+                                         b : [⸨0⸩, 10],
+                                         c : [3, 4]})

package/dist/fluid/fluid/example/slicing/dict/foldl.fld

@@ -0,0 +1 @@
+foldl (*) 1 (dict_foldl concat2 [] { a: [5, 6], b: [0, 10], c: [3, 4] })

package/dist/fluid/fluid/example/slicing/dict/get.expect.fld

@@ -0,0 +1,5 @@
+let d = {a : 5,
+          ["a" ++ "b"] : {fst : 6,
+                             snd : ⸨0⸩}};
+    a = "a" in
+d.a * d.[(a ++ "b")].snd

package/dist/fluid/fluid/example/slicing/dict/get.fld

@@ -0,0 +1,3 @@
+let d = { a: 5, ["a" ++ "b"]: {fst: 6, snd: 0} };
+    a = "a"
+in d.a * d.[a ++ "b"].snd

package/dist/fluid/fluid/example/slicing/dict/intersectionWith.expect.fld

@@ -0,0 +1,5 @@
+dict_intersectionWith (let x = ⸨2⸩ in
+                        (fun n m = (n + m) * x)) {a : 5,
+                                                        b : ⸨6⸩,
+                                                        c : ⸨3⸩} {b : ⸨-6⸩,
+                                                                      c : ⸨7⸩}

package/dist/fluid/fluid/example/slicing/dict/intersectionWith.fld

@@ -0,0 +1,4 @@
+ dict_intersectionWith
+   (let x = 2 in (fun n m  = (( n  +  m ) *  x )) )
+   { a: 5, b: 6, c: 3 }
+   { b: -6, c: 7 }

package/dist/fluid/fluid/example/slicing/dict/map.expect.fld

@@ -0,0 +1,8 @@
+let incHead = let x = ⸨3⸩ in
+              (fun xs = head xs + x);
+    d = {a : [⸨5⸩, 6],
+          b : [⸨9⸩, 10],
+          c : [3, 4]};
+    e = {c : []};
+    d' = dict_map incHead (dict_difference d e) in
+d'.a + d'.b

package/dist/fluid/fluid/example/slicing/dict/map.fld

@@ -0,0 +1,5 @@
+let incHead = let x = 3 in fun xs -> head xs + x;
+    d = { a: [5, 6], b: [9, 10], c: [3, 4] };
+    e = { c: [] };
+    d' = dict_map incHead (dict_difference d e)
+in d'.a + d'.b

package/dist/fluid/fluid/example/slicing/dict/match.expect.fld

@@ -0,0 +1,6 @@
+let f {fst : x,
+        snd : []} = x;
+    f {fst : x,
+        snd : (y : ys)} = y in
+⸨{⸨a⸩ : f {snd : [],
+                fst : ⸨2⸩}}⸩

package/dist/fluid/fluid/example/slicing/dict/match.fld

@@ -0,0 +1,5 @@
+let f {fst: x, snd: []} = x;
+    f {fst: x, snd: (y: ys)} = y
+in {
+   a: f {snd: [], fst: 2 }
+}

package/dist/fluid/fluid/example/slicing/explained.expect.fld

@@ -0,0 +1 @@
+@ (1 + 1) @

package/dist/fluid/fluid/example/slicing/explained.fld

@@ -0,0 +1 @@
+@ (1 + 1) @

package/dist/{article → fluid}/fluid/example/slicing/linked-outputs/bar-chart-line-chart.fld

@@ -1,5 +1,5 @@
-MultiView {|
-   "bar-chart" :=
+MultiView {
+   barChart:
       let totalFor c rows =
          sum [ row.output | row <- rows, row.country == c ];
       let data2015 = [ row | row <- renewables, row.year == 2015 ];
@@ -7,20 +7,23 @@ MultiView {|
                         | c <- ["China", "USA", "Germany"] ]
       in BarChart {
          caption: "Total output by country",
-         data: countryData
+         size: { width: 275, height: 185 },
+         stackedBars: countryData
       },
-   "line-chart" :=
+   lineChart:
       let series type country = [
          { x: row.year, y: row.output }
          | year <- [2013..2018], row <- renewables,
          row.year == year, row.energyType == type, row.country == country
       ] in LineChart {
+         tickLabels: { x: Default, y: Default },
+         size: { width: 330, height: 285 },
          caption: "Output of USA relative to China",
          plots: [
-            LinePlot { name: type, data: plot }
+            LinePlot { name: type, points: plot }
             | type <- ["Bio", "Hydro", "Solar", "Wind"],
             let plot = zipWith (fun p1 p2 -> { x: p1.x, y: p1.y / p2.y })
                                (series type "USA") (series type "China")
          ]
       }
-|}
+}

package/dist/{article → fluid}/fluid/example/slicing/linked-outputs/stacked-bar-scatter-plot.fld

@@ -1,5 +1,5 @@
-MultiView {|
-   "stacked-bar-chart" :=
+MultiView {
+   stackedBarChart:
       let totalFor year country rows =
          let [ row ] = [ row | row <- rows, row.year == year, row.country == country ]
          in row.nuclearOut + row.gasOut + row.coalOut + row.petrolOut;
@@ -7,10 +7,11 @@ MultiView {|
                      | country <- ["BRA", "EGY", "IND", "JPN"] ]
       in BarChart {
          caption: "Non-renewables by country",
-         data: [ { x: numToStr year, bars: stack year }
-               | year <- [2014..2018] ]
+         size: { width: 275, height: 185 },
+         stackedBars: [ { x: numToStr year, bars: stack year }
+                      | year <- [2014..2018] ]
       },
-   "scatter-plot" :=
+   scatterPlot:
       let isCountry name x = name == x.country;
          isYear year x = year == x.year;
 
@@ -31,8 +32,8 @@ MultiView {|
 
       in ScatterPlot {
          caption: "Clean energy efficiency vs proportion of renewable energy capacity",
-         data: plot 2018 [ "BRA", "CHN", "DEU", "FRA", "EGY", "IND", "JPN", "MEX", "NGA", "USA" ],
+         points: plot 2018 [ "BRA", "CHN", "DEU", "FRA", "EGY", "IND", "JPN", "MEX", "NGA", "USA" ],
          xlabel: "Renewables/TotalEnergyCap",
          ylabel: "Clean Capacity Factor"
       }
-|}
+}