]> gitweb.factorcode.org Git - factor-unmaintained.git/commitdiff
physics: moving to math.physics to match IN: declarations.
authorJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Jan 2018 22:16:50 +0000 (14:16 -0800)
committerJohn Benediktsson <mrjbq7@gmail.com>
Mon, 22 Jan 2018 22:16:50 +0000 (14:16 -0800)
math/physics/pos/pos.factor [new file with mode: 0644]
math/physics/vel/vel.factor [new file with mode: 0644]
physics/pos/pos.factor [deleted file]
physics/vel/vel.factor [deleted file]

diff --git a/math/physics/pos/pos.factor b/math/physics/pos/pos.factor
new file mode 100644 (file)
index 0000000..6915568
--- /dev/null
@@ -0,0 +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 ;
+
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
diff --git a/math/physics/vel/vel.factor b/math/physics/vel/vel.factor
new file mode 100644 (file)
index 0000000..5fc815e
--- /dev/null
@@ -0,0 +1,7 @@
+
+USING: math.physics.pos ;
+
+IN: math.physics.vel
+
+TUPLE: vel < pos vel ;
+
diff --git a/physics/pos/pos.factor b/physics/pos/pos.factor
deleted file mode 100644 (file)
index 6915568..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-
-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 ;
-
-! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-
diff --git a/physics/vel/vel.factor b/physics/vel/vel.factor
deleted file mode 100644 (file)
index 5fc815e..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-
-USING: math.physics.pos ;
-
-IN: math.physics.vel
-
-TUPLE: vel < pos vel ;
-