Fix arc rendering bug (make vertex attribs correct size)

src/Picture/Tree.hs

@@ -57,14 +57,6 @@ polyToTris :: [s] -> [s]
 polyToTris (a:b:c:as) = a : intercalate [a] (zipWith (\x y->[x,y]) (init (b:c:as)) (c:as))
 polyToTris _ = []
 
-tripFirst :: (a -> a') -> (a,b,c) -> (a',b,c)
-{-# INLINE tripFirst #-}
-tripFirst f (x,y,z) = (f x,y,z)
-
-tripSecond :: (b -> b') -> (a,b,c) -> (a,b',c)
-{-# INLINE tripSecond #-}
-tripSecond f (x,y,z) = (x,f y,z)
-
 scaleT :: (Float,Float) -> (Point3,Point4,Point3) -> (Point3,Point4,Point3)
 {-# INLINE scaleT #-}
 scaleT (x,y) (a,b,(o,s,t)) = (a,b,(o,s*x,t*y))
@@ -95,24 +87,6 @@ overSca :: (Point2 -> Point2) -> RenderType -> RenderType
 overSca f (RenderText vs) = RenderText $ map (scaleT (f (1,1))) vs
 overSca f p = p
 
-scaleRen,translateRen :: Float -> Float -> RenderType -> RenderType
-{-# INLINE scaleRen #-}
-scaleRen x y (RenderText vs) = overPos (scale3 x y) $ RenderText $ map (scaleT (x,y)) vs
-scaleRen x y rt = overPos (scale3 x y) rt
-{-# INLINE translateRen #-}
-translateRen x y = overPos $ translate3 x y
-rotateRen,setDepthRen :: Float -> RenderType -> RenderType
-{-# INLINE rotateRen #-}
-rotateRen a (RenderArc (p,c,(as,ae,r,w))) = overPos (rotate3 a) $ RenderArc (p,c,(f as,f ae,r,w))
-    --where f b = normalizeAngle $ a + b
-    where f b = a + b
-rotateRen a pic = overPos (rotate3 a) pic
-{-# INLINE setDepthRen #-}
-setDepthRen d = overPos $ \(x,y,_) -> (x,y,-d)
-{-# INLINE colorRen #-}
-colorRen :: RGBA -> RenderType -> RenderType
-colorRen c = overCol $ const c
-
 stringToList :: String -> [(Point3,Point4,Point3)]
 {-# INLINE stringToList #-}
 stringToList s = zipWith (\x (a,b,c) -> (translate3 x 0 a,b,c))