From e7c3d888f642e379a6af7c8741f5dfe2148e1ae3 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 8 Apr 2008 04:04:12 -0500
Subject: [PATCH] math.points: Utility words for two and three dimensional
 points

---
 extra/math/points/points.factor | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 extra/math/points/points.factor

diff --git a/extra/math/points/points.factor b/extra/math/points/points.factor
new file mode 100644
index 0000000000..5efd6e07e0
--- /dev/null
+++ b/extra/math/points/points.factor
@@ -0,0 +1,22 @@
+
+USING: kernel arrays math.vectors ;
+
+IN: math.points
+
+<PRIVATE
+
+: X ( x -- point )      0   0 3array ;
+: Y ( y -- point ) 0 swap   0 3array ;
+: Z ( z -- point ) 0    0 rot 3array ;
+
+PRIVATE>
+
+: v+x ( seq x -- seq ) X v+ ;
+: v-x ( seq x -- seq ) X v- ;
+
+: v+y ( seq y -- seq ) Y v+ ;
+: v-y ( seq y -- seq ) Y v- ;
+
+: v+z ( seq z -- seq ) Z v+ ;
+: v-z ( seq z -- seq ) Z v- ;
+