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

Separate out concrete part of world

Browse Source
This commit is contained in:
justin
2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/WorldEvent/Flash.hs
+3 -3
View File
@@ -23,7 +23,7 @@ import LensHelp
import System.Random
muzFlareAt :: Color -> Point3 -> Float -> World -> World
muzFlareAt col tranv dir w = w & flares .:~ MuzFlare
muzFlareAt col tranv dir w = w & cWorld . flares .:~ MuzFlare
{ _flarePoly = map (rotateV dir)
[ V2 0 0
, V2 a (-b)
@@ -37,7 +37,7 @@ muzFlareAt col tranv dir w = w & flares .:~ MuzFlare
(a:b:c:d:_) = randomRs (2,20) (_randGen w)
flareCircleAt :: Color -> Float -> Point3 -> World -> World
flareCircleAt col alphax tranv = flares .:~ CircFlare
flareCircleAt col alphax tranv = cWorld . flares .:~ CircFlare
{ _flareTime = 2
, _flareColor = col
, _flareAlpha = alphax
@@ -46,4 +46,4 @@ flareCircleAt col alphax tranv = flares .:~ CircFlare
explosionFlashAt :: Point2 -> World -> World
explosionFlashAt p = tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 p)
explosionFlashAt p = cWorld . tempLightSources .:~ tlsTimeRadFunPos 20 150 (TLSFade 1 10) (addZ 20 p)