From 4a4d49200a9303ae43596ef70027add188285e0c Mon Sep 17 00:00:00 2001 From: hasufell Date: Sat, 25 Oct 2014 14:49:59 +0200 Subject: [PATCH] VEC: rm unused function --- Algebra/Vector.hs | 9 --------- 1 file changed, 9 deletions(-) diff --git a/Algebra/Vector.hs b/Algebra/Vector.hs index 1b5d026..10a1911 100644 --- a/Algebra/Vector.hs +++ b/Algebra/Vector.hs @@ -75,15 +75,6 @@ det a b c = (cx, cy) = unp2 c --- |Computes the determinant of 2 points. -det' :: PT -> PT -> Double -det' a b = - ax * by - ay * bx - where - (ax, ay) = unp2 a - (bx, by) = unp2 b - - -- |Get the point where two lines intesect, if any. intersectSeg' :: Segment -> Segment -> Maybe PT intersectSeg' (a, b) (c, d) =