Move debug flags to config, various perf improvements

2021-09-24 13:25:24 +01:00
parent 899cf6ef81
commit 7da1a8bc45
17 changed files with 112 additions and 265 deletions
@@ -479,7 +479,7 @@ pistolerRoom = do
    aa <- state $ randomR (0,2*pi)
    ab <- state $ randomR (0,2*pi)
    ac <- state $ randomR (0,2*pi)
-    let plmnts = [sPS (ps !! 0) aa $ PutCrit pistolCrit
+    let plmnts = [sPS (head ps) aa $ PutCrit pistolCrit
                 ,sPS (ps !! 1) ab $ PutCrit pistolCrit
                 ,sPS (ps !! 2) ac $ PutCrit pistolCrit
                 ,sPS (V2 (w/2) (h-50)) 0 putLamp