@explorable-viz/fluid 0.7.88 → 0.7.90

package/.spago/profunctor-lenses/v8.0.0/.tidyrc.json

@@ -1,10 +0,0 @@
-{
-  "importSort": "source",
-  "importWrap": "source",
-  "indent": 2,
-  "operatorsFile": null,
-  "ribbon": 1,
-  "typeArrowPlacement": "first",
-  "unicode": "never",
-  "width": null
-}

package/dist/fluid/fluid/lib/convolution.fld

@@ -1,31 +0,0 @@
-let zero m n image =
-    let (m_max, n_max) = dims image
-    in if (m >= 1) `and` (m <= m_max) `and` (n >= 1) `and` (n <= n_max) 
-    then image!(m, n)
-    else 0;
-
-let wrap m n image = 
-    let (m_max, n_max) = dims image
-    in image!( ((m - 1) `mod` m_max) + 1, ((n - 1) `mod` n_max) + 1);
-
-let extend m n image = 
-    let (m_max, n_max) = dims image;
-        m' = min (max m 1) m_max;
-        n' = min (max n 1) n_max
-    in image!(m', n');
-
-let matrixSum matr =
-    let (m, n) = dims matr
-    in sum [ matr!(i, j) | (i, j) <- range (1, 1) (m, n)];
-
-let convolve image kernel lookup =
-    let ((m, n), (i, j)) = (dims image, dims kernel);
-        (half_i, half_j) = (i `quot` 2, j `quot` 2);
-        area = i * j
-    in [|let interMatrix = [|
-        let x = m' + i' - 1 - half_i;
-            y = n' + j' - 1 - half_j
-        in lookup x y image * kernel!(i', j')
-     | (i', j') in (i, j) |]
-     in matrixSum interMatrix `quot` area
-     | (m', n') in (m, n) |];

package/script/bundle-page.sh

@@ -1,30 +0,0 @@
-#!/usr/bin/env bash
-# run from project root
-set -xe
-
-PREFIX=""
-
-if [ -n "${2:-}" ]; then
-   PREFIX=$2
-fi
-
-MODULE=$1
-SRC_PATH=${MODULE//./\/}
-SRC_PATH_LISP_CASE=$(./$PREFIX/script/util/lisp-case.sh "$SRC_PATH")
-echo "$SRC_PATH -> $SRC_PATH_LISP_CASE"
-
-if [[ -e "website/$SRC_PATH.purs" ]]; then
-   . "${PREFIX:+$PREFIX}/script/util/bundle.sh" $SRC_PATH_LISP_CASE Website.$MODULE
-
-   if [[ -e "website/$SRC_PATH.html" ]]; then
-      cp website/$SRC_PATH.html dist/$SRC_PATH_LISP_CASE/index.html
-   else
-      cp website/template.html dist/$SRC_PATH_LISP_CASE/index.html
-   fi
-fi
-
-if [[ -e "website/$SRC_PATH.json" ]]; then
-   mkdir -p dist/$SRC_PATH_LISP_CASE
-   cp website/$SRC_PATH.html dist/$SRC_PATH_LISP_CASE/index.html
-   cp website/$SRC_PATH.json dist/$SRC_PATH_LISP_CASE/spec.json
-fi