Rendering optimisations (mainly inlining)

2021-07-31 23:38:37 +02:00
parent d7649b951b
commit 54c912224b
7 changed files with 92 additions and 34 deletions
@@ -72,14 +72,14 @@ makeExplosionAt p w
    . explosionFlashAt p
    $ makeShockwaveAt [] p 50 10 1 white w
  where 
-    fVs  = replicateM 75 (randInCirc 1)  & evalState $ _randGen w
-    fPs'' = replicateM 75 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w
+    fVs  = replicateM 15 (randInCirc 1)  & evalState $ _randGen w
+    fPs'' = replicateM 15 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w
    (fPs',zs) = let (a,b,c) = unzip3 $ map fromV3 fPs''
                in (zipWith V2 a b, c)
    fPs  = map (pushAgainstWalls . (+.+) p . (*.*) 0.5) fPs'
    inversePushOut v = (15 - magV v) * 0.01 *.* v
    fVs' = zipWith (+.+) fVs $ map inversePushOut fPs'
-    sizes = randomRs (2,6) $ _randGen w
+    sizes = randomRs (2,9) $ _randGen w
    times = randomRs (20,25) $ _randGen w
    mF q z v size time = makeFlameletTimed q z v Nothing size time
    newFs = zipWith5 mF fPs zs (fmap (3 *.*) fVs') sizes times