Add simple high pipes
This commit is contained in:
@@ -2,7 +2,7 @@
|
||||
module Geometry.Vector
|
||||
where
|
||||
import Geometry.Data
|
||||
{- | Moves from to three dimensions, adding zero in z direction. -}
|
||||
{- | Moves from two to three dimensions, adding zero in z direction. -}
|
||||
zeroZ :: Point2 -> Point3
|
||||
{-# INLINE zeroZ #-}
|
||||
zeroZ (x,y) = (x,y,0)
|
||||
|
||||
Reference in New Issue
Block a user