"Bobby McNulty" <[EMAIL PROTECTED]> writes:
> Here is a small midi file to test out your timidity.
> Jeremy's causes problems under 2.13.2 under windows XP
Looks & sounds normal.
Timidity 2.13.2, GNU/Linux (Fedora 8)
-- Johan
MIDI::Opus->new({
'format' => 1,
'ticks' => 120,
'tracks' => [ # 9 tracks...
# Track #0 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 3 events.
['set_tempo', 0, 500000], # 0 001-01-00-00
Tempo: q = 120
['key_signature', 0, 0, 0], # 0 001-01-00-00 Key
= C
['time_signature', 0, 4, 2, 24, 8], # 0 001-01-00-00 Time
= 4/4, Click = 24, NoteQ = 8
]
}),
# Track #1 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 18 events.
['patch_change', 0, 0, 0], # 0 001-01-00-00
Channel 0, patch = Acoustic Grand
['control_change', 0, 0, 7, 127], # 0 001-01-00-00
Volume = 127
['note_on', 0, 0, 65, 100], # 0 001-01-00-00 On:
F3
['note_on', 120, 0, 65, 0], # 120 001-02-00-00 Off:
F3
['note_on', 0, 0, 69, 100], # 120 001-02-00-00 On:
A3
['note_on', 120, 0, 69, 0], # 240 001-03-00-00 Off:
A3
['note_on', 0, 0, 72, 100], # 240 001-03-00-00 On:
C4
['note_on', 120, 0, 72, 0], # 360 001-04-00-00 Off:
C4
['note_on', 0, 0, 76, 100], # 360 001-04-00-00 On:
E4
['note_on', 120, 0, 76, 0], # 480 002-01-00-00 Off:
E4
['note_on', 0, 0, 71, 100], # 480 002-01-00-00 On:
B3
['note_on', 120, 0, 71, 0], # 600 002-02-00-00 Off:
B3
['note_on', 0, 0, 72, 100], # 600 002-02-00-00 On:
C4
['note_on', 120, 0, 72, 0], # 720 002-03-00-00 Off:
C4
['note_on', 0, 0, 71, 100], # 720 002-03-00-00 On:
B3
['note_on', 120, 0, 71, 0], # 840 002-04-00-00 Off:
B3
['note_on', 0, 0, 69, 100], # 840 002-04-00-00 On:
A3
['note_on', 120, 0, 69, 0], # 960 003-01-00-00 Off:
A3
]
}),
# Track #2 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 1, 0], # 0 001-01-00-00
Channel 1, patch = Acoustic Grand
['control_change', 0, 1, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
# Track #3 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 2, 0], # 0 001-01-00-00
Channel 2, patch = Acoustic Grand
['control_change', 0, 2, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
# Track #4 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 3, 0], # 0 001-01-00-00
Channel 3, patch = Acoustic Grand
['control_change', 0, 3, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
# Track #5 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 4, 0], # 0 001-01-00-00
Channel 4, patch = Acoustic Grand
['control_change', 0, 4, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
# Track #6 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 5, 0], # 0 001-01-00-00
Channel 5, patch = Acoustic Grand
['control_change', 0, 5, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
# Track #7 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 6, 0], # 0 001-01-00-00
Channel 6, patch = Acoustic Grand
['control_change', 0, 6, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
# Track #8 ...
MIDI::Track->new({
'type' => 'MTrk',
'events' => [ # 2 events.
['patch_change', 0, 7, 0], # 0 001-01-00-00
Channel 7, patch = Acoustic Grand
['control_change', 0, 7, 7, 127], # 0 001-01-00-00
Volume = 127
]
}),
]
});
-------------------------------------------------------------------------
Sponsored by: SourceForge.net Community Choice Awards: VOTE NOW!
Studies have shown that voting for your favorite open source project,
along with a healthy diet, reduces your potential for chronic lameness
and boredom. Vote Now at http://www.sourceforge.net/community/cca08
_______________________________________________
Timidity-talk mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/timidity-talk
