Improve speed of polygon rendering by folding tree type

2021-02-17 16:54:46 +01:00
parent c7aa5f707e
commit 6f838ed1ef
10 changed files with 378 additions and 200 deletions
@@ -13,6 +13,7 @@ import Data.Maybe
 import Control.Applicative

 zeroZ :: Point2 -> Point3
+{-# INLINE zeroZ #-}
 zeroZ (x,y) = (x,y,0)

 infixl 6 +.+, -.-