hasufell/cga
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VEC: rm unused function

Browse Source
This commit is contained in:
hasufell 2014-10-25 14:49:59 +02:00
parent c4ab68c76d
commit 4a4d49200a
No known key found for this signature in database
GPG Key ID: 220CD1C5BDEED020
1 changed files with 0 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Algebra/Vector.hs
View File

@ -75,15 +75,6 @@ det a b c =
(cx, cy) = unp2 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. -- |Get the point where two lines intesect, if any.
intersectSeg' :: Segment -> Segment -> Maybe PT intersectSeg' :: Segment -> Segment -> Maybe PT
intersectSeg' (a, b) (c, d) = intersectSeg' (a, b) (c, d) =