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

Fix clockwise rotation

Browse source
This commit is contained in:
Sam Tay 2017-06-17 21:30:57 -04:00
parent ef6ed845c2
commit e64715d051
1 changed files with 2 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Tetris.hs
View file

@ -116,16 +116,8 @@ rotate' b@(Block s o@(xo,yo) cs)
| otherwise = rotateWith counterclockwise b | otherwise = rotateWith counterclockwise b
where where
rotateWith :: (Coord -> Coord -> Coord) -> Block -> Block rotateWith :: (Coord -> Coord -> Coord) -> Block -> Block
rotateWith dir b = b & extra %~ fmap (dir (b ^. origin)) rotateWith dir b = b & extra %~ fmap (dir (b ^. origin))
clockwise (xo, yo) (x, y) = (xo + y - yo, xo + yo - x)
clockwise :: Coord -- ^ origin
-> Coord -- ^ point to rotate around origin
-> Coord
clockwise (xo, yo) (x, y) = (xo + y - yo, xo + y - x)
counterclockwise :: Coord -- ^ origin
-> Coord -- ^ point to rotate around origin
-> Coord
counterclockwise (xo, yo) (x, y) = (xo + yo - y, x + yo - xo) counterclockwise (xo, yo) (x, y) = (xo + yo - y, x + yo - xo)
-- | Get coordinates of entire block -- | Get coordinates of entire block