research/opl/finetune/gen-sequence
Simon Howard 6d81e82c4b Fine tuning field research.
Subversion-branch: /research
Subversion-revision: 1663
2009-09-11 16:52:51 +00:00

51 lines
815 B
Ruby
Executable file

#!/usr/bin/env ruby
def note_on(delay, channel, note, volume)
# note on
putc delay * 6
putc 0x90 + channel
putc note
putc volume
end
def note_off(delay, channel, note)
# note on
putc delay * 6
putc 0x80 + channel
putc note
putc 0x00
end
def program_change(delay, channel, instrument)
putc delay * 6
putc 0xc0 + channel
putc instrument
end
def end_of_track
putc 0x00
putc 0xff
putc 0x2f
putc 0x00
end
# Instrument 17 has normal tuning, instrument 18 is +10
program_change(0x1, 1, 17)
program_change(0x1, 2, 18)
# Play through some notes, making the same note on each of the two channels.
for i in 10..64
note_on(10, 1, i, 100)
note_on(10, 2, i, 100)
note_off(10, 1, i)
note_off(0, 2, i)
end
# end of track
end_of_track