File tree Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Expand file tree Collapse file tree 1 file changed +3
-3
lines changed Original file line number Diff line number Diff line change @@ -57,12 +57,12 @@ main = do
57
57
58
58
-- Load with a mask
59
59
drop <- load " data/cherry.png"
60
- t <- mapRGB (surfaceGetPixelFormat drop ) 0 255 0
60
+ t <- mapRGB (surfaceGetPixelFormat drop ) 0 255 0
61
61
setColorKey drop [SrcColorKey , RLEAccel ] t
62
62
63
63
-- Load with a mask
64
64
paddle <- load " data/player.png"
65
- t <- mapRGB (surfaceGetPixelFormat paddle) 0 255 0
65
+ t <- mapRGB (surfaceGetPixelFormat paddle) 0 255 0
66
66
setColorKey paddle [SrcColorKey , RLEAccel ] t
67
67
68
68
-- Create window, no mouse
@@ -135,7 +135,7 @@ moveForward dt gs = gs { raindrops = movedRaindrops }
135
135
raindropsPaddle :: GameState -> GameState
136
136
raindropsPaddle gs = gs { raindrops = remainingRaindrops
137
137
, points = points gs + pts
138
- }
138
+ }
139
139
where remainingRaindrops = filter (not . collidesWithPaddle) (raindrops gs)
140
140
pts = length (raindrops gs) - length remainingRaindrops
141
141
collidesWithPaddle (x,y) = (within x paddleXMin paddleXMax
You can’t perform that action at this time.
0 commit comments