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/ShiftPoint.hs
+2 -1
View File
@@ -1,8 +1,9 @@
{-# LANGUAGE BangPatterns #-}
module Dodge.ShiftPoint where
import Geometry
shiftPointBy :: (Point2,Float) -> Point2 -> Point2
shiftPointBy (pos,rot) p = pos +.+ rotateV rot p
shiftPointBy (pos,rot) !p = pos +.+ rotateV rot p
invShiftPointBy :: (Point2,Float) -> Point2 -> Point2
invShiftPointBy (p1,r) p2 = rotateV (-r) $ p2 -.- p1