Tweak vbo again

2021-06-11 21:13:01 +02:00
parent c2360a5f0f
commit 1f87dca6ec
4 changed files with 7 additions and 2 deletions
@@ -85,6 +85,7 @@ overPos f (RenderText vs) = RenderText $ map (\(a,b,c) -> (f a,b,c)) vs
 overPos f (RenderBezQ vs) = RenderBezQ $ map (\(a,b,c) -> (f a,b,c)) vs
 overPos f (RenderEllipse vs) = RenderEllipse $ map (first f) vs
 overPos f (RenderArc (a,b,c))  = RenderArc (f a,b,c)
+overPos _ _ = undefined

 overRot :: Float -> RenderType -> RenderType
 {-# INLINE overRot #-}
@@ -99,6 +100,7 @@ overCol f (RenderEllipse vs)  = RenderEllipse $ map (second f) vs
 overCol f (RenderText vs)     = RenderText    $ map (\(a,b,c) -> (a,f b,c)) vs
 overCol f (RenderBezQ vs)     = RenderBezQ    $ map (\(a,b,c) -> (a,f b,c)) vs
 overCol f (RenderArc (a,b,c)) = RenderArc (a,f b,c)
+overCol _ _ = undefined

 overSca :: (Point2 -> Point2) -> RenderType -> RenderType
 {-# INLINE overSca #-}