Data.Geometry.HalfLine
data HalfLine d r
startPoint
halfLineDirection
halfLineToSubLine
fromSubLine
onHalfLine
toHalfLine