Fix creature glare direction

src/Dodge/WorldActions.hs

@@ -482,7 +482,7 @@ crGlareWidth wdth col alphay p cr =
                                 )
         }
     where l x = uncurry translate x
-                $ rotate (pi*0.5 + argV (p -.- x))
+                $ rotate (-0.25*pi + argV (p -.- x))
                 $ color (withAlpha alphay col) 
                 $ thickArc 0 (pi/2) (_crRad cr) wdth
           cp = _crPos cr
@@ -527,18 +527,6 @@ wallGlare p wl = wallGlareWidth 10 5 white 0.5 p wl
 
 crGlare :: Point2 -> Creature -> Particle'
 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' p w = foldr (lowLightHit' p) w ps