aadit/tetris-cli
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix rotating I shapes

Browse source
This commit is contained in:
Sam Tay 2017-07-03 00:30:52 -04:00
parent 99d6a9c56a
commit 6a3764fa9a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Tetris.hs
View file

@ -110,7 +110,7 @@ rotate' b@(Block s o@(V2 xo yo) cs)
rotateWith dir = b & extra %~ fmap dir rotateWith dir = b & extra %~ fmap dir
clockwise = (+ o) . (cwperp) . (subtract o) clockwise = (+ o) . (cwperp) . (subtract o)
counterclockwise = (+ o) . LV.perp . (subtract o) counterclockwise = (+ o) . LV.perp . (subtract o)
cwperp (V2 x y) = V2 x (-y) cwperp (V2 x y) = V2 y (-x)
-- | Get coordinates of entire block -- | Get coordinates of entire block
coords :: Block -> [Coord] coords :: Block -> [Coord]