Add simple high pipes

src/Geometry.hs

@@ -399,6 +399,13 @@ divideLineOddNumPoints x a b = take 5000
         | even numPoints' = numPoints'
         | otherwise       = numPoints' + 1
     ns = [0 .. numPoints] :: [Int]
+
+divideLineExact :: Float -> Point2 -> Point2 -> [Point2]
+divideLineExact x a b = map ( (a +.+ ) . ( *.* v) ) [0 , x .. d]
+  where 
+    d = dist a b
+    v = normalizeV $ b -.- a
+
 -- | Given two pairs of Ints, returns a list of pairs of Ints that form 
 -- a digital line between them.
 digitalLine :: (Int,Int) -> (Int,Int) -> [(Int,Int)]