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

Add in "linear" lWorld to separate time reversable worlds

Browse Source
This commit is contained in:
justin
2022-10-28 12:24:51 +01:00
parent 5f6bd43599
commit 7e790b7153
130 changed files with 827 additions and 980 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/Flash.hs
+3 -3
View File
@@ -25,7 +25,7 @@ import System.Random
muzFlareAt :: Color -> Point3 -> Float -> World -> World
muzFlareAt col tranv dir w =
w & cWorld . flares
w & cWorld . lWorld . flares
.:~ MuzFlare
{ _flarePoly =
map
@@ -43,7 +43,7 @@ muzFlareAt col tranv dir w =
flareCircleAt :: Color -> Float -> Point3 -> World -> World
flareCircleAt col alphax tranv =
cWorld . flares
cWorld . lWorld . flares
.:~ CircFlare
{ _flareTime = 2
, _flareColor = col
@@ -52,4 +52,4 @@ flareCircleAt col alphax tranv =
}
explosionFlashAt :: Point2 -> World -> World
explosionFlashAt p = cWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 p)
explosionFlashAt p = cWorld . lWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 p)