Refactor wall points from lists to pairs

2021-05-04 01:31:55 +02:00
parent e21178b688
commit 6d4c17fc07
23 changed files with 260 additions and 255 deletions
@@ -126,8 +126,7 @@ moveFlame rotd w pt
        , _btVel' = reflV wl
        }
    pOut p = p +.+ safeNormalizeV (sp -.- p)
-    reflV wall = (0.3 *.* reflectIn (_wlLine wall !! 1 -.- _wlLine wall !! 0)
-                            vel )
+    reflV wall = (0.3 *.* reflectIn ((snd $ _wlLine wall) -.- (fst $ _wlLine wall)) vel )
                    +.+
                 (0.2 *.* vel)
    smokeGen = makeFlamerSmokeAt ep