fix lineLength
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Feb 2009 22:45:09 +0000 (23:45 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 8 Feb 2009 22:45:09 +0000 (23:45 +0100)
src/Lseed/Geometry.hs

index b0ac9c1..4974a71 100644 (file)
@@ -17,7 +17,7 @@ lightFalloff = 0.7
 
 eps = 1e-9
 
-lineLength ((x1,y1),(x2,y2)) = sqrt (x1*x2 + y1*y2)
+lineLength ((x1,y1),(x2,y2)) = sqrt ((x1-x2)^2 + (y1-y2)^2)
 
 -- | from http://www.pdas.com/lineint.htm
 crossPoint :: Line -> Line -> Maybe Point