diff options
-rw-r--r-- | midi-dump.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/midi-dump.hs b/midi-dump.hs index 5084258..1fb1fdd 100644 --- a/midi-dump.hs +++ b/midi-dump.hs | |||
@@ -301,8 +301,7 @@ toSingleTrackMidi evts = midi | |||
301 | ticksPerSecond = ticksPerBeat * beatsPerSecond | 301 | ticksPerSecond = ticksPerBeat * beatsPerSecond |
302 | beatsPerSecond = 120 `div` 60 | 302 | beatsPerSecond = 120 `div` 60 |
303 | ticksPerBeat :: Integer | 303 | ticksPerBeat :: Integer |
304 | -- ticksPerBeat = 2^(15::Int) - 1 | 304 | ticksPerBeat = 500 -- 1ms resolution. See git blame. |
305 | ticksPerBeat = 2400 | ||
306 | 305 | ||
307 | playEvents :: [RecordedEvent] -> MidiController () | 306 | playEvents :: [RecordedEvent] -> MidiController () |
308 | playEvents evts@(_:_) = | 307 | playEvents evts@(_:_) = |