Move main to allow for new executables

src/Dodge/Picture.hs

@@ -45,12 +45,12 @@ wedgeOfThickness t x y
 verticalPipe :: Float -> Color -> Point2 -> Float -> Float -> Picture
 verticalPipe w col (V2 xx xy) za zb = pictures $ map (poly3Col . f) ps
   where
-    x = (V3 xx xy 0)
-    xs = map (\(V2 a b) -> x +.+.+ (V3 a b za)) (map toV2 [(w,0),(0,w),(-w,0),(0,-w)])
+    x = V3 xx xy 0
+    xs = map ((\(V2 a b) -> x +.+.+ V3 a b za) . toV2) [(w,0),(0,w),(-w,0),(0,-w)]
     ps = zip xs (tail xs ++ [head xs])
     f (a,b) = map f' [a,b,g b,g a]
     g :: Point3 -> Point3
-    g (V3 a b _) = (V3 a b zb)
+    g (V3 a b _) = V3 a b zb
     f' a = (a,col)
 
 expandLine :: Point3 -> Point3 -> Point3 -> [Point3]