-rollCycle rGrid cGrid = foldl' go rGrid [ (V2 0 0, V2 0 1, V2 1 0)
- , (V2 0 0, V2 1 0, V2 0 1)
- , (V2 r 0, V2 0 1, V2 -1 0)
- , (V2 0 c, V2 1 0, V2 0 -1)
- ]
+rollCycle rGrid cGrid = roll [ (V2 0 0, V2 0 1, V2 1 0)
+ , (V2 0 0, V2 1 0, V2 0 1)
+ , (V2 r 0, V2 0 1, V2 -1 0)
+ , (V2 0 c, V2 1 0, V2 0 -1)
+ ]
+ cGrid rGrid