Add (cosmetic, indestructible) pipe connecting storage/distributer

2025-12-08 23:09:17 +00:00
parent 8b028c7f94
commit 928eab3fd7
3 changed files with 20 additions and 3 deletions
@@ -4,7 +4,7 @@ import Geometry
 import Quaternion

 verticalPipe :: Float -> Shape
-verticalPipe = flip (upperBox Small Typical) (polyCirc 2 5)
+verticalPipe = flip (upperCylinder Small Typical) (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)