More strictifiiiying

2021-07-30 01:25:11 +02:00
parent 2d8b27746c
commit 7b7fd302d8
37 changed files with 459 additions and 448 deletions
@@ -74,8 +74,8 @@ makeExplosionAt p w
  where 
    fVs  = replicateM 75 (randInCirc 1)  & evalState $ _randGen w
    fPs'' = replicateM 75 (fmap (15 *.*.*) randInHemisphere) & evalState $ _randGen w
-    (fPs',zs) = let (a,b,c) = unzip3 fPs''
-                in (zip a b, c)
+    (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'