Add (ugly) support for fractional volumes

src/Dodge/Item/Weapon/LaserPath.hs

@@ -2,6 +2,7 @@ module Dodge.Item.Weapon.LaserPath
     ( reflectLaserAlong
     ) where
 import Dodge.Data
+import Dodge.Wall.Reflect
 --import Dodge.Creature.HandPos
 import Dodge.WorldEvent
 --import Dodge.Default
@@ -18,12 +19,16 @@ import Data.Tuple
 
 -- not sure why we need to keep a list of seen walls, but seems to loop
 -- infinitely when removed
+-- this needs to be tested with both reflections and refractions
 reflectLaserAlong :: Float -> [Wall] -> Point2 -> Point2 -> World 
     -> (Maybe (Point2,Either Creature Wall),[Point2])
 reflectLaserAlong phasev seenWl sp ep w = case find (notseen seenWl) 
         $ thingsHitExceptCrLongLine Nothing sp ep w of
     Just (p,Right wl) 
-        | _wlOpacity wl == SeeThrough -> second (p:) $ reflectLaserAlong phasev (wl:seenWl) p (refract sp ep wl p) w
+        | _wlReflect wl -> second (p:) $ reflectLaserAlong phasev (wl:seenWl) p 
+            (p +.+ 800 *.* unitVectorAtAngle (reflDirWall sp p wl)) w
+        | _wlOpacity wl == SeeThrough -> second (p:) $ reflectLaserAlong phasev (wl:seenWl) p 
+            (refract sp ep wl p) w
         | otherwise -> (Just (p,Right wl), [p])
     Just (p,obj) -> (Just (p,obj), [p])
     Nothing -> (Nothing, [ep])