diff options
Diffstat (limited to 'axis.hs')
-rw-r--r-- | axis.hs | 6 |
1 files changed, 1 insertions, 5 deletions
@@ -37,8 +37,7 @@ main = | |||
37 | warpMouse = do | 37 | warpMouse = do |
38 | _ <- SDL.warpMouse (fromIntegral (width `div` 2)) (fromIntegral (height `div` 2)) | 38 | _ <- SDL.warpMouse (fromIntegral (width `div` 2)) (fromIntegral (height `div` 2)) |
39 | return () | 39 | return () |
40 | --screen <- SDL.setVideoMode width height 32 [SDL.SWSurface, SDL.Fullscreen] | 40 | screen <- SDL.setVideoMode width height 32 [SDL.SWSurface, SDL.Fullscreen] |
41 | screen <- SDL.setVideoMode width height 32 [SDL.SWSurface] | ||
42 | 41 | ||
43 | _ <- SDL.TTF.init | 42 | _ <- SDL.TTF.init |
44 | font <- SDL.TTF.openFont "LiberationMono-Bold.ttf" 30 | 43 | font <- SDL.TTF.openFont "LiberationMono-Bold.ttf" 30 |
@@ -60,19 +59,16 @@ main = | |||
60 | let x' = either (const "") id ex | 59 | let x' = either (const "") id ex |
61 | 60 | ||
62 | Control.Monad.when (x /= x' && x' /= "") $ do | 61 | Control.Monad.when (x /= x' && x' /= "") $ do |
63 | putStrLn x' | ||
64 | textBand videoSurface videoClipRect (SDL.Rect 0 0 0 70) font x' | 62 | textBand videoSurface videoClipRect (SDL.Rect 0 0 0 70) font x' |
65 | return () | 63 | return () |
66 | 64 | ||
67 | Control.Monad.when (midiKeysDown' /= midiKeysDown) $ do | 65 | Control.Monad.when (midiKeysDown' /= midiKeysDown) $ do |
68 | let chord = showChord midiKeysDown' | 66 | let chord = showChord midiKeysDown' |
69 | Control.Monad.when (chord /= "") $ putStrLn chord | ||
70 | textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord | 67 | textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord |
71 | return () | 68 | return () |
72 | 69 | ||
73 | Control.Monad.when (keysDown' /= keysDown) $ do | 70 | Control.Monad.when (keysDown' /= keysDown) $ do |
74 | let chord = unwords $ map (\k -> drop 5 (show k)) $ Set.toList keysDown' | 71 | let chord = unwords $ map (\k -> drop 5 (show k)) $ Set.toList keysDown' |
75 | Control.Monad.when (chord /= "") $ putStrLn chord | ||
76 | textBand videoSurface videoClipRect (SDL.Rect 0 210 0 70) font chord | 72 | textBand videoSurface videoClipRect (SDL.Rect 0 210 0 70) font chord |
77 | return () | 73 | return () |
78 | 74 | ||