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

Fix creature glare direction

Browse Source
This commit is contained in:
justin
2021-03-09 01:50:12 +01:00
parent aa74075e3f
commit c29aa46bc5
1 changed files with 1 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldActions.hs
+1 -13
View File
@@ -482,7 +482,7 @@ crGlareWidth wdth col alphay p cr =
) )
} }
where l x = uncurry translate x where l x = uncurry translate x
$ rotate (pi*0.5 + argV (p -.- x)) $ rotate (-0.25*pi + argV (p -.- x))
$ color (withAlpha alphay col) $ color (withAlpha alphay col)
$ thickArc 0 (pi/2) (_crRad cr) wdth $ thickArc 0 (pi/2) (_crRad cr) wdth
cp = _crPos cr cp = _crPos cr
@@ -527,18 +527,6 @@ wallGlare p wl = wallGlareWidth 10 5 white 0.5 p wl
crGlare :: Point2 -> Creature -> Particle' crGlare :: Point2 -> Creature -> Particle'
crGlare = crGlareCol white 0.5 crGlare = crGlareCol white 0.5
-- crGlare p cr =
-- Particle'
-- { _ptPict' = [(l, [levLayer WlLayer + 2])]
-- , _ptUpdate' = ptTimer' 1
-- }
-- where l = uncurry translate cp
-- $ rotate (90 - (radToDeg $ argV (p -.- cp)))
-- $ color (withAlpha 0.5 white)
-- $ thickArc 0 180 (_crRad cr) 5
-- -- where l = rotate (radToDeg $ argV (cp -.- p)) $ uncurry translate cp $ color (withAlpha 0.5 white) $ thickArc 0 25 (_crRad cr) 5
-- cp = _crPos cr
lowLightAt' :: Point2 -> World -> World lowLightAt' :: Point2 -> World -> World
lowLightAt' p w = foldr (lowLightHit' p) w ps lowLightAt' p w = foldr (lowLightHit' p) w ps