Represent all the middle points of a pipe

This allows for arbitrary shapes, and paves a way to print out the
program too.

Author: Minoru

src/Types/LL.hs

@@ -20,8 +20,9 @@ data Room = Room {
   }
 
 data Pipe = Pipe {
-  start :: Point
-  , end :: Point
+    startPoint :: Point
+  , middlePoints :: [Point]
+  , endPoint :: Point
   }
 
 data ManProgram = ManProgram {