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

Simplify laser reflection/refraction

Browse Source
This commit is contained in:
justin
2025-10-27 19:41:52 +00:00
parent 7c40db7153
commit 20042fcf8d
3 changed files with 27 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Base/Wall.hs
+2 -2
View File
@@ -13,8 +13,8 @@ wlIsSeeThrough wl = case _wlOpacity wl of
SeeThrough -> True
_ -> False
reflDirWall :: Point2 -> Point2 -> Wall -> Float
reflDirWall sp ep wl = argV (reflectIn (uncurry (-.-) (_wlLine wl)) (ep -.- sp))
reflWall :: Point2 -> Point2 -> Wall -> Float
reflWall sp ep wl = argV (reflectIn (uncurry (-) (_wlLine wl)) (ep - sp))
-- point free nonsense. 0 for no damping, 1 for full damping
reflVelWallDamp :: Float -> Wall -> Point2 -> Point2