Add possible cosmetic pipes to tanks

src/Dodge/Placement/Instance/Pipe.hs

@@ -1,5 +1,12 @@
 module Dodge.Placement.Instance.Pipe where
 import Shape
+import Geometry
+import Quaternion
 
 verticalPipe :: Float -> Shape
-verticalPipe = flip upperPrismPoly $ polyCirc  4 5
+verticalPipe = flip upperPrismPoly $ polyCirc 2 5
+
+horPipe :: Float -> Point2 -> Point2 -> Shape
+horPipe h x y = translateSH (x `v2z` h) $ overPosSH (rotateToZ (V3 xd yd 0)) $ verticalPipe (dist x y)
+  where
+    V2 xd yd = x -.- y