Commit before attempting to remove ptDraw field

2022-07-10 10:49:49 +01:00
parent 2a70dcc9a6
commit 8202d12b6a
8 changed files with 59 additions and 28 deletions
@@ -140,7 +140,8 @@ polyToTris'' _ = []
 polyToTris :: [s] -> [s]
 {-# INLINABLE polyToTris #-}
 --polyToTris (x:xs) = foldr (f x) [] $ foldPairs xs 
-polyToTris (x:xs) = foldr (f x) [] $ zip xs $ tail xs
+polyToTris (x:xs) = foldl' (flip $ f x) [] $ zip xs $ tail xs
+--polyToTris (x:xs) = foldr (f x) [] $ zip xs $ tail xs
  where
    f a (b,c) ls = a:b:c:ls
 polyToTris _ = []