13 lines
353 B
Haskell
13 lines
353 B
Haskell
module Dodge.Placement.Instance.Pipe where
|
|
import Shape
|
|
import Geometry
|
|
import Quaternion
|
|
|
|
verticalPipe :: Float -> Shape
|
|
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
|