justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Thicken autodoors to allow shadows to cover them

Browse Source
This commit is contained in:
justin
2021-03-06 12:28:26 +01:00
parent d57bfcf354
commit e9eed18666
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/LevelGen.hs
+7 -6
View File
@@ -392,19 +392,20 @@ mkAutoDoor pl pr xs = addSound $ zipWith4 (autoDoorPane [pl,pr])
, [pru,prd] , [pru,prd]
, [prd,prrd,pr,pr] , [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) hw = 0.5 *.* (pl +.+ pr)
perp = 20 *.* normalizeV (pl -.- pr) parallel = 20 *.* normalizeV (pl -.- pr)
plu = pl +.+ norm plu = pl +.+ norm
pld = pl -.- norm pld = pl -.- norm
pru = pr +.+ norm pru = pr +.+ norm
prd = pr -.- norm prd = pr -.- norm
hwu = hw +.+ norm hwu = hw +.+ norm
hwd = hw -.- norm hwd = hw -.- norm
pllu = plu +.+ perp pllu = plu +.+ parallel
plld = pld +.+ perp plld = pld +.+ parallel
prru = pru -.- perp prru = pru -.- parallel
prrd = prd -.- perp prrd = prd -.- parallel
addSound (x:xs) = f x : xs addSound (x:xs) = f x : xs
f wl = over doorMech g wl 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 g dm w | dist wp pld > 1 && dist wp hwd > 1 = soundFrom (WallSound (head xs)) (fromIntegral doorSound) 1 0