From 0aff35bfeece4d7d6c2edf742838a1f758031f3b Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Wed, 28 Apr 2010 18:52:40 -0700 Subject: [PATCH] game.models.half-edge: additional vertex-diagonals word --- extra/game/models/half-edge/half-edge-tests.factor | 3 +++ extra/game/models/half-edge/half-edge.factor | 3 +++ 2 files changed, 6 insertions(+) diff --git a/extra/game/models/half-edge/half-edge-tests.factor b/extra/game/models/half-edge/half-edge-tests.factor index 5431fcb077..cbfe514d7e 100644 --- a/extra/game/models/half-edge/half-edge-tests.factor +++ b/extra/game/models/half-edge/half-edge-tests.factor @@ -62,5 +62,8 @@ connect-cube-edges [ { 1 4 2 } ] [ cube-edges first vertex-neighbors ] unit-test +[ { 3 5 6 } ] +[ cube-edges first vertex-diagonals ] unit-test + [ { 1 4 3 5 } ] [ cube-edges first face-neighbors ] unit-test diff --git a/extra/game/models/half-edge/half-edge.factor b/extra/game/models/half-edge/half-edge.factor index 1b799bb4b3..eeb3e6116f 100644 --- a/extra/game/models/half-edge/half-edge.factor +++ b/extra/game/models/half-edge/half-edge.factor @@ -37,6 +37,9 @@ TUPLE: edge < identity-tuple face vertex opposite-edge next-edge ; : vertex-neighbors ( edge -- edges ) [ opposite-edge>> vertex>> ] [ each-vertex-edge ] (collect) ; +: vertex-diagonals ( edge -- edges ) + [ next-edge>> opposite-edge>> vertex>> ] [ each-vertex-edge ] (collect) ; + : vertex-valence ( edge -- count ) [ each-vertex-edge ] (count) ;