richard/abcmidi
1
0
Fork 0
mirror of https://github.com/sshlien/abcmidi.git synced 2025-12-06 06:55:06 +00:00
Code Issues Projects Releases Wiki Activity

2022.01.27

Browse Source
This commit is contained in:
Seymour Shlien
2022-01-27 12:46:08 -05:00
parent fb5479e801
commit 0b83ee2c7b
5 changed files with 57 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
genmidi.c
View File

@@ -1420,8 +1420,6 @@ static void midi_re_tune (int channel) {
this is done.
*/
char data[2];
data[0] = (char) (bend & 0x7f); /* least significant bits */
data[1] = (char) ((bend >>7) & 0x7f);
/* indicate that we are applying RPN fine and gross tuning using
the following two control commands.
control 101 0
@@ -1444,6 +1442,29 @@ data[1] = (char) (bend & 0x7f); /* least significant bits */
write_event(control_change, channel, data, 2);
}
/* [SS] 2022-01-27 */
static void midiPitchBendRange (int semis) {
/* by default the pitch whell maps 0 to 16383 to a range of 2
* semitones. This function uses the RPN control command to
* expand the range to semis semitones.
*/
char data[2];
/* indicate that we are applying RPN fine and gross tuning using
the following two control commands.
control 101 0
control 100 0 */
data[0] = 101; /* RPN command */
data[1] = 0; /* type of command */
write_event(control_change, channel, data, 2);
data[0] = 6; /* contains most significant byte */
data[1] = semis;
write_event(control_change, channel, data, 2);
data[0] = 38; /* contains least significant byte (range in cents) */
data[1] = 0;
write_event(control_change, channel, data, 2);
}
/* [SS] 2011-07-04 */
@@ -2100,6 +2121,14 @@ int noteson;
else bendtype = 2;
}
/* [SS] 2022-01-27 */
else if (strcmp(command, "pitchbendrange") == 0) {
int semis;
semis = readsnump(&p);
midiPitchBendRange(semis);
done = 1;
}
else if (strcmp(command, "drone") == 0) {
skipspace(&p);