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