From: John Benediktsson Date: Mon, 22 Jan 2018 22:16:50 +0000 (-0800) Subject: physics: moving to math.physics to match IN: declarations. X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor-unmaintained.git;a=commitdiff_plain;h=2eeb9a29c2bb5dde116ee52d38195208188aca01 physics: moving to math.physics to match IN: declarations. --- diff --git a/math/physics/pos/pos.factor b/math/physics/pos/pos.factor new file mode 100644 index 0000000..6915568 --- /dev/null +++ b/math/physics/pos/pos.factor @@ -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 index 0000000..5fc815e --- /dev/null +++ b/math/physics/vel/vel.factor @@ -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 index 6915568..0000000 --- a/physics/pos/pos.factor +++ /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 index 5fc815e..0000000 --- a/physics/vel/vel.factor +++ /dev/null @@ -1,7 +0,0 @@ - -USING: math.physics.pos ; - -IN: math.physics.vel - -TUPLE: vel < pos vel ; -