Add simple high pipes

This commit is contained in:
jgk
2021-06-21 16:29:24 +02:00
parent 04ed034a3e
commit c2297cd114
8 changed files with 54 additions and 12 deletions
+1 -1
View File
@@ -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)