always to a vect

2025-08-11 09:14:29 +02:00 · 2019-05-02 10:22:31 +08:00
parent 69f43afe46
commit f215f27f9f
1 changed files with 15 additions and 6 deletions
--- a/src/m_translation.scad
+++ b/src/m_translation.scad
@@ -1,6 +1,15 @@
-function m_translation(v) = [
-    [1, 0, 0, v[0]],
-    [0, 1, 0, v[1]],
-    [0, 0, 1, v[2]],
+function _to_vect(v) =
+     len(v) == 3 ? v : (
+         len(v) == 2 ? [v[0], v[1], 0] : (
+             len(v) == 1 ? [v[0], 0, 0] : [v, 0, 0]
+         ) 
+     );
+
+function m_translation(v) = 
+    let(vt = _to_vect(v))
+    [
+        [1, 0, 0, vt[0]],
+        [0, 1, 0, vt[1]],
+        [0, 0, 1, vt[2]],
        [0, 0, 0, 1]
    ];