diff options
Diffstat (limited to 'midi-dump.hs')
| -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@(_:_) = |