Improve level generation speed

2021-08-16 20:56:49 +02:00
parent 37db056f23
commit 650e58bdfa
11 changed files with 168 additions and 133 deletions
@@ -13,6 +13,12 @@ data Verx = Verx
    }
 newtype ShadNum = ShadNum { _unShadNum :: Int }
 polyNum, polyzNum, bezNum, textNum, arcNum, ellNum :: ShadNum
+{-# INLINE polyNum #-}
+{-# INLINE polyzNum #-}
+{-# INLINE bezNum #-}
+{-# INLINE textNum #-}
+{-# INLINE arcNum #-}
+{-# INLINE ellNum #-}
 polyNum     = ShadNum 0
 polyzNum    = ShadNum 1
 bezNum      = ShadNum 2