Add simple high pipes

src/Picture.hs

@@ -2,6 +2,7 @@ module Picture
     ( module Picture.Data
     , polygon
     , polygonCol
+    , poly3D
     , bezierQuad
     , arc
     , arcSolid
@@ -65,6 +66,10 @@ polygonCol :: [(Point2,RGBA)] -> Picture
 {-# INLINE polygonCol #-}
 polygonCol = PolygonCol 0
 
+poly3D :: [(Point3,RGBA)] -> Picture
+{-# INLINE poly3D #-}
+poly3D = Poly3D 0
+
 -- note that much of work computing the width of the bezier curve is done here
 bezierQuad :: Color -> Color -> Float -> Float -> Point2 -> Point2 -> Point2 -> Picture
 bezierQuad cola colc ra rc a b c