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/Prop/Gib.hs
+3 -3
View File
@@ -79,7 +79,7 @@ addGib4 ::
World
addGib4 p col (v, zs, q, h) =
plNew
(cWorld . props)
(cWorld . lWorld . props)
prID
( aGib & prPos .~ p +.+ (5 *.* normalizeV v)
& prColor .~ col
@@ -93,7 +93,7 @@ addGib4 p col (v, zs, q, h) =
addGibAt :: Float -> Color -> Point2 -> World -> World
addGibAt h col p w =
w
& plNew (cWorld . props) prID gib
& plNew (cWorld . lWorld . props) prID gib
& randGen .~ newg
where
(gib, newg) = runState f $ _randGen w
@@ -116,7 +116,7 @@ addGibAt h col p w =
addGibAtDir :: Float -> Float -> Color -> Point2 -> World -> World
addGibAtDir dir h col p w =
w
& plNew (cWorld . props) prID gib
& plNew (cWorld . lWorld . props) prID gib
& randGen .~ newg
where
(gib, newg) = runState f $ _randGen w