From c1328ac08e0500dcce7bba0c600d13cd386da884 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Sat, 12 Jul 2008 12:22:27 -0500
Subject: [PATCH] math.physics.pos: distance method

---
 extra/math/physics/pos/pos.factor | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/extra/math/physics/pos/pos.factor b/extra/math/physics/pos/pos.factor
index 1582c42108..69155686c8 100644
--- a/extra/math/physics/pos/pos.factor
+++ b/extra/math/physics/pos/pos.factor
@@ -1,5 +1,17 @@
 
+USING: kernel sequences multi-methods accessors math.vectors ;
+
 IN: math.physics.pos
 
 TUPLE: pos pos ;
 
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+GENERIC: distance ( a b -- c )
+
+METHOD: distance { sequence sequence } v- norm ;
+
+METHOD: distance { pos pos } [ pos>> ] bi@ distance ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+