@explorable-viz/fluid 0.7.75 → 0.7.77

package/.spago/affjax-node/v1.0.0/.editorconfig

@@ -0,0 +1,13 @@
+# https://editorconfig.org
+root = true
+
+[*]
+indent_style = space
+indent_size = 2
+end_of_line = lf
+charset = utf-8
+trim_trailing_whitespace = true
+insert_final_newline = true
+
+[*.md]
+trim_trailing_whitespace = false

package/.spago/affjax-node/v1.0.0/.eslintrc.json

@@ -0,0 +1,30 @@
+{
+  "env": { "browser": true },
+  "extends": "eslint:recommended",
+  "parserOptions": { "ecmaVersion": 6, "sourceType": "module" },
+  "rules": {
+    "block-scoped-var": "error",
+    "consistent-return": "error",
+    "eqeqeq": "error",
+    "guard-for-in": "error",
+    "no-bitwise": "error",
+    "no-caller": "error",
+    "no-constant-condition": ["error", { "checkLoops": false }],
+    "no-extra-parens": "off",
+    "no-extend-native": "error",
+    "no-loop-func": "error",
+    "no-new": "error",
+    "no-param-reassign": "error",
+    "no-return-assign": "error",
+    "no-sequences": "error",
+    "no-unused-expressions": "error",
+    "no-use-before-define": "error",
+    "no-undef": "error",
+    "no-eq-null": "error",
+    "radix": ["error", "always"],
+    "indent": ["error", 2, { "SwitchCase": 0 }],
+    "quotes": ["error", "double"],
+    "semi": ["error", "always"],
+    "strict": ["error", "global"]
+  }
+}

package/.spago/affjax-node/v1.0.0/.gitignore

@@ -0,0 +1,13 @@
+.*
+!.gitignore
+!.github
+!.editorconfig
+!.eslintrc.json
+
+output
+generated-docs
+bower_components
+
+node_modules
+package-lock.json
+*.lock

package/.spago/pathy/v9.0.0/.editorconfig

@@ -0,0 +1,13 @@
+# https://editorconfig.org
+root = true
+
+[*]
+indent_style = space
+indent_size = 2
+end_of_line = lf
+charset = utf-8
+trim_trailing_whitespace = true
+insert_final_newline = true
+
+[*.md]
+trim_trailing_whitespace = false

package/.spago/pathy/v9.0.0/.gitignore

@@ -0,0 +1,9 @@
+.*
+!.gitignore
+!.github
+!.editorconfig
+!.tidyrc.json
+
+output
+generated-docs
+bower_components

package/.spago/pathy/v9.0.0/.tidyrc.json

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

package/LICENSE

@@ -1,6 +1,6 @@
 MIT License
 
-Copyright (c) 2019-2024 Open Source Contributors
+Copyright (c) 2019-2025 Open Source Contributors
 
 Permission is hereby granted, free of charge, to any person obtaining a copy
 of this software and associated documentation files (the "Software"), to deal

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

@@ -1,16 +1,31 @@
-let zero n = const n;
-    wrap n n_max = ((n - 1) `mod` n_max) + 1;
-    extend n = min (max n 1);
+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 convolve image kernel boundary =
+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 weightedSum = sum [
-           image!(x, y) * kernel!(i' + 1, j' + 1)
-           | (i', j') <- range (0, 0) (i - 1, j - 1),
-             let x = boundary (m' + i' - half_i) m,
-             let y = boundary (n' + j' - half_j) n,
-             x >= 1, x <= m, y >= 1, y <= n
-         ] in weightedSum `quot` area
-         | (m', n') in (m, n) |];
+    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) |];