Vector products: Difference between revisions

Content added Content deleted

Inline

@@ Line 3,433: / Line 3,433: @@
 def crossProduct    /# x y -- z #/
+get rot 2 get rot * >ps
-    len var lon
-var a 2 var b
+get rot 2 get rot * >ps
+get rot 1 get rot * >ps
+get rot 1 get rot * >ps
-    lon for drop
-for drop
+get rot 3 get rot * >ps
-            a get rot b get rot * >ps
+get rot 3 get rot * ps> - ps> ps> - ps> ps> - 3 tolist
-        endfor
+    nip nip
-        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