VEC: add sortedYX

2015-01-08 01:39:23 +01:00
parent ede0d6eccf
commit 4385ef127b
1 changed files with 5 additions and 0 deletions
--- a/Algebra/Vector.hs
+++ b/Algebra/Vector.hs
@@ -140,6 +140,11 @@ sortedXY :: [PT] -> [PT]
 sortedXY = fmap p2 . sortLex . fmap unp2


+-- |Sort Y and X coordinates lexicographically.
+sortedYX :: [PT] -> [PT]
+sortedYX = fmap p2 . sortLexSwapped . fmap unp2
+
+
 -- |Sort all points according to their X-coordinates only.
 sortedX :: [PT] -> [PT]
 sortedX xs =