Move towards introducing pipes, generalise blocks

2022-06-16 02:18:22 +01:00
parent f404f32241
commit a7201b8fb6
13 changed files with 154 additions and 65 deletions
@@ -0,0 +1,5 @@
+module Dodge.Placement.Instance.Pipe where
+import Shape
+
+verticalPipe :: Float -> Shape
+verticalPipe = flip upperPrismPoly $ polyCirc  4 5