Add simple high pipes

src/Picture/Data.hs

@@ -80,6 +80,7 @@ data Picture
     | Polygon Int [Point2]
     | BezierQuad Int [(Point2,RGBA,Point2,Point2)]
     | PolygonCol Int [(Point2,RGBA)]
+    | Poly3D Int [(Point3,RGBA)]
     | Circle Int RGBA RGBA Float
     | ThickArc Int Float Float Float Float
     | Line Int [Point2]

src/Picture/Tree.hs

@@ -24,6 +24,7 @@ picToLTree mx (Polygon i ps)
 picToLTree mx (PolygonCol i vs)
     = filtB mx i $ LLeaf $ RenderPoly $ zip (map zeroZ $ polyToTris ps) $ polyToTris cs
         where (ps,cs) = unzip vs
+picToLTree mx (Poly3D i vs) = filtB mx i $ LLeaf $ RenderPoly $ polyToTris vs
 picToLTree mx (BezierQuad i vs) 
     = filtB mx i $ LLeaf $ RenderBezQ $ zip3 (map zeroZ ps) cols rs
         where (ps,cols,offps,rads) = unzip4 vs