Vector products: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,434: / Line 3,434: @@
 def crossProduct    /# x y -- z #/
+    len var lon
-get rot 2 get rot * >ps
-get rot 2 get rot * >ps
+var a 2 var b
-get rot 1 get rot * >ps
+    lon for drop
-get rot 1 get rot * >ps
-get rot 3 get rot * >ps
+for drop
-get rot 3 get rot * ps> - ps> ps> - ps> ps> - 3 tolist
+            a get rot b get rot * >ps
-    nip nip
+        endfor
+        a 1 - dup 0 == if drop lon endif var a
+        b 1 - dup 0 == if drop lon endif var b
+    endfor
+    drop drop
+    lon for drop
+        ps> ps> -
+    endfor
+    lon tolist
 enddef