diff --git a/src/Dodge/LevelGen.hs b/src/Dodge/LevelGen.hs
index 008a939cb..a623fa5ec 100644
--- a/src/Dodge/LevelGen.hs
+++ b/src/Dodge/LevelGen.hs
@@ -392,19 +392,20 @@ mkAutoDoor pl pr xs = addSound $ zipWith4 (autoDoorPane [pl,pr])
                                , [pru,prd]
                                , [prd,prrd,pr,pr]
                                ]
-    where norm = 10 *.* errorNormalizeV 49 ( vNormal (pr -.- pl))
+    where norm = 15.1 *.* errorNormalizeV 49 ( vNormal (pr -.- pl))
+                    -- .1 hack, there was flickering
           hw = 0.5 *.* (pl +.+ pr)
-          perp = 20 *.* normalizeV (pl -.- pr)
+          parallel = 20 *.* normalizeV (pl -.- pr)
           plu = pl +.+ norm
           pld = pl -.- norm
           pru = pr +.+ norm
           prd = pr -.- norm
           hwu = hw +.+ norm
           hwd = hw -.- norm
-          pllu = plu +.+ perp
-          plld = pld +.+ perp
-          prru = pru -.- perp
-          prrd = prd -.- perp
+          pllu = plu +.+ parallel
+          plld = pld +.+ parallel
+          prru = pru -.- parallel
+          prrd = prd -.- parallel
           addSound (x:xs) = f x : xs
           f wl = over doorMech g wl
           g dm w | dist wp pld > 1 && dist wp hwd > 1 = soundFrom (WallSound (head xs)) (fromIntegral doorSound) 1 0