minor (format some commented-out code)

1 files changed, 13 insertions, 13 deletions

diff --git a/axis.hs b/axis.hs
index a17df54..f7ec772 100644
--- a/axis.hs
+++ b/axis.hs
@@ -123,21 +123,21 @@ main =
         (ex, w') <- stepWire w ds (Right x)
         let x' = either (const "") id ex
 
-        Control.Monad.when (x /= x' && x' /= "") $ do
+--      Control.Monad.when (x /= x' && x' /= "") $ do
 --        textBand videoSurface videoClipRect (SDL.Rect 0 0 0 70) font x'
-          return ()
+--        return ()
 
         Control.Monad.when (midiKeysDown' /= midiKeysDown) $ do
-          --let chord = showChord midiKeysDown'
-          --let chord = show $ pitchList midiKeysDown'
+--        let chord = showChord midiKeysDown'
+--        let chord = show $ pitchList midiKeysDown'
+--        let chord = show $ map (\i->elemIndices i pitchIndex) $ pitchList midiKeysDown'
+--        textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord
           let ignoreThese = Set.intersection midiKeysDown' midiKeysDown
           let drawThese = pitchList $ Set.difference midiKeysDown' ignoreThese
           let eraseThese = pitchList $ Set.difference midiKeysDown ignoreThese
 
-          let chord = show $ map (\i->elemIndices i pitchIndex) $ pitchList midiKeysDown'
           drawKeys  drawThese  videoSurface font axis_key_locations axis_key_size
           eraseKeys eraseThese videoSurface font axis_key_locations axis_key_size
---        textBand videoSurface videoClipRect (SDL.Rect 0 70 0 70) font chord
           return ()
 
         Control.Monad.when (keysDown' /= keysDown && keyDown SDL.SDLK_BACKSPACE keysDown') allKeysOFF
@@ -150,13 +150,13 @@ main =
 --          if keyDown SDL.SDLK_a keysDown' then "arpeggiate" else ""
 --        return ()
 
-        Control.Monad.when(False) $ do
-
-          mouse <- SDL.getRelativeMouseState
-          let (x, y, button) = mouse
-          let text = ((show x) ++ " " ++ (show y) ++ " " ++ (show button))
-          textBand videoSurface videoClipRect (SDL.Rect 0 140 0 70) font text
-          Control.Monad.when (x /= 0 || y /= 0) warpMouse
+--      Control.Monad.when(False) $ do
+--
+--        mouse <- SDL.getRelativeMouseState
+--        let (x, y, button) = mouse
+--        let text = ((show x) ++ " " ++ (show y) ++ " " ++ (show button))
+--        textBand videoSurface videoClipRect (SDL.Rect 0 140 0 70) font text
+--        Control.Monad.when (x /= 0 || y /= 0) warpMouse
 
         _ <- SDL.updateRect videoSurface videoClipRect -- draw it all!  probably a bad idea