Improve bezier curve rendering

2021-03-13 14:09:49 +01:00
parent 8f3b5d0bfe
commit 152d017e39
7 changed files with 40 additions and 42 deletions
@@ -19,7 +19,8 @@ picToLTree mx (PolygonCol i vs)
        where (ps,cs) = unzip vs
 picToLTree mx (BezierQuad i vs) 
    = filtB mx i $ LLeaf $ RenderBezQ $ zip3 (map zeroZ ps) cols rs
-        where (ps,cols,rs) = unzip3 vs
+        where (ps,cols,offps,rads) = unzip4 vs
+              rs = zipWith (\(x,y) z -> (x,y,z)) offps rads
                                      
 picToLTree mx (Circle i colC colE r)
    = filtB mx i $ LLeaf $ RenderEllipse [( (-r, r,0), colC)