diff options
Diffstat (limited to 'axis.hs')
-rw-r--r-- | axis.hs | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -103,9 +103,9 @@ main = | |||
103 | 103 | ||
104 | let (axis_key_size, axis_key_locations) = getKeyLocations videoClipRect | 104 | let (axis_key_size, axis_key_locations) = getKeyLocations videoClipRect |
105 | 105 | ||
106 | let allPitches = [_AXIS_BOTTOM_PITCH .. _AXIS_TOP_PITCH] | 106 | let _ALL_PITCHES = [_AXIS_BOTTOM_PITCH .. _AXIS_TOP_PITCH] |
107 | --drawKeys allPitches videoSurface font blue axis_key_locations axis_key_size | 107 | let allKeysOFF = eraseKeys _ALL_PITCHES videoSurface font axis_key_locations axis_key_size |
108 | eraseKeys allPitches videoSurface font axis_key_locations axis_key_size | 108 | allKeysOFF |
109 | 109 | ||
110 | putStrLn "Initialized." | 110 | putStrLn "Initialized." |
111 | 111 | ||
@@ -134,6 +134,8 @@ main = | |||
134 | -- textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord | 134 | -- textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord |
135 | return () | 135 | return () |
136 | 136 | ||
137 | Control.Monad.when (keysDown' /= keysDown && keyDown SDL.SDLK_BACKSPACE keysDown') allKeysOFF | ||
138 | |||
137 | -- Control.Monad.when (keysDown' /= keysDown) $ do | 139 | -- Control.Monad.when (keysDown' /= keysDown) $ do |
138 | -- let chord = unwords $ map (\k -> drop 5 (show k)) $ Set.toList keysDown' | 140 | -- let chord = unwords $ map (\k -> drop 5 (show k)) $ Set.toList keysDown' |
139 | -- textBand videoSurface videoClipRect (SDL.Rect 0 210 0 70) font chord | 141 | -- textBand videoSurface videoClipRect (SDL.Rect 0 210 0 70) font chord |