Add simple high pipes

2021-06-21 16:29:24 +02:00
parent 04ed034a3e
commit c2297cd114
8 changed files with 54 additions and 12 deletions
@@ -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