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

Remove parallelization of pokeTopPrism

Browse Source
This commit is contained in:
justin
2022-06-26 14:26:39 +01:00
parent d386b0ea89
commit c3f9dad233
8 changed files with 30 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Placement/PlaceSpot.hs
+3 -2
View File
@@ -121,8 +121,9 @@ placeSpotID ps pt w = case pt of
doShift = shiftPointBy (p,rot)
placeShape :: Shape -> Point2 -> Float -> World -> (Int, World)
placeShape sh p rot w =
(0, w & foregroundShape %~ ((uncurryV translateSHf p . rotateSH rot) sh <>))
placeShape sh p rot w = (0, w & foregroundShape %~ (newsh <>))
where
newsh = (uncurryV translateSHf p . rotateSH rot) sh
evaluateRandPS :: State StdGen PSType -> PlacementSpot -> World -> (Int,World)
evaluateRandPS rgen ps w = placeSpotID ps evaluatedType (set randGen g w)