Корректные MIDI-модели для систем Чистой Интонации

[combinare]

http://tonalsoft.com/enc/e/equal-temperament.aspxВложение 80834
судя по всему,нет такого мессаджа и приходится вручную создавать
по несколько экземпляров каждого из 7 классов с различными питчами?

[commator]

приходится вручную создавать

Для переноса музыки из 12РДО в 31РДО я такое сделал:

switch (NameOfNote) {

case ("Gx") {NotePitchBend = "-48c~B 66,48";}
case ("Gbb"){NotePitchBend = "+42c~B 54,77";}
case ("Gb-"){NotePitchBend = "+81c~B 103,89";}
case ("Gb") {NotePitchBend = "+19c~B 25,70";}
case ("G#+"){NotePitchBend = "+13c~B 17,68";}
case ("G#") {NotePitchBend = "-26c~B 95,55";}
case ("G+") {NotePitchBend = "+35c~B 45,75";}
case ("G-") {NotePitchBend = "+58c~B 74,82";}
case ("G") {NotePitchBend = "-3c~B 124,62";}

case ("Fx") {NotePitchBend = "-42c~B 74,50";}
case ("Fbb"){NotePitchBend = "+48c~B 62,79";}
case ("Fb-"){NotePitchBend = "+87c~B 111,91";}
case ("Fb") {NotePitchBend = "+26c~B 33,72";}
case ("F#+"){NotePitchBend = "+19c~B 25,70";}
case ("F#") {NotePitchBend = "-19c~B 103,57";}
case ("F+") {NotePitchBend = "+42c~B 54,77";}
case ("F-") {NotePitchBend = "+65c~B 83,84";}
case ("F") {NotePitchBend = "+3c~B 4,65";}

case ("Ex") {NotePitchBend = "-58c~B 54,45";}
case ("Ebb"){NotePitchBend = "+32c~B 41,74";}
case ("Eb-"){NotePitchBend = "+71c~B 91,86";}
case ("Eb") {NotePitchBend = "+10c~B 12,67";}
case ("E#+"){NotePitchBend = "+3&c~B 4,65";}
case ("E#") {NotePitchBend = "-35c~B 83,52";}
case ("E+") {NotePitchBend = "+26c~B 33,72";}
case ("E-") {NotePitchBend = "+48c~B 62,79";}
case ("E") {NotePitchBend = "-13c~B 111,59";}

case ("Dx") {NotePitchBend = "-52c~B 62,47";}
case ("Dbb"){NotePitchBend = "+39c~B 50,76";}
case ("Db-"){NotePitchBend = "+77c~B 99,88";}
case ("Db") {NotePitchBend = "+16c~B 21,69";}
case ("D#+"){NotePitchBend = "+10c~B 12,67";}
case ("D#") {NotePitchBend = "-29c~B 91,54";}
case ("D+") {NotePitchBend = "+32c~B 41,74";}
case ("D-") {NotePitchBend = "+55c~B 70, 81";}
case ("D") {NotePitchBend = "-6c~B 120,61";}

case ("Cx") {NotePitchBend = "-45c~B 70,49";}
case ("Cbb"){NotePitchBend = "+45c~B 58,78";}
case ("Cb-"){NotePitchBend = "+84c~B 107,90";}
case ("Cb") {NotePitchBend = "+23c~B 29,71";}
case ("C#+"){NotePitchBend = "+16c~B 21,69";}
case ("C#") {NotePitchBend = "-23c~B 99,56";}
case ("C+") {NotePitchBend = "+39c~B 50,76";}
case ("C-") {NotePitchBend = "+61c~B 78,83";}
case ("C") {NotePitchBend = "±0c~B 0,64";}

case ("Bx") {NotePitchBend = "-61c~B 50,44";}
case ("Bb-"){NotePitchBend = "+68c~B 87,85";}
case ("Bbb"){NotePitchBend = "+29c~B 37,73";}
case ("Bb") {NotePitchBend = "+6c~B 8,66";}
case ("B#+"){NotePitchBend = "±0c~B 0,64";}
case ("B#") {NotePitchBend = "-3c~B 78,51";}
case ("B+") {NotePitchBend = "+23c~B 29,71";}
case ("B-") {NotePitchBend = "+45c~B 58,78";}
case ("B") {NotePitchBend = "-16c~B 107,58";}

case ("Ax") {NotePitchBend = "-55c~B 58,46";}
case ("Abb"){NotePitchBend = "+35c~B 45,75";}
case ("Ab-"){NotePitchBend = "+74c~B 95,87";}
case ("Ab") {NotePitchBend = "+13c~B 17,68";}
case ("A#+"){NotePitchBend = "+6c~B 8,66";}
case ("A#") {NotePitchBend = "-32c~B 87,53";}
case ("A+") {NotePitchBend = "+29c~B 37,73";}
case ("A-") {NotePitchBend = "+52c~B 66,80";}
case ("A") {NotePitchBend = "-10c~B 116,60";}

default {NotePitchBend = "±00с~B 0,64";}
} return NotePitchBend;

Опубликовано:

Khramov, M. Microtonal MIDI models in form of selfsounding scores for Web. Proceedings of the Third International Conference ITA 09, pp. 64-73. Glyndŵr University, Wrexham, Wales, UK, 2009, ISBN: 978-0-946881-65-9

[combinare]

С Вашей стороны было бы гораздо вежливее просто сказать
Сообщение от combinare



огромное спасибо!

огромное спасибо!

[commator]

визуальная шпаргалка,звучать,конечно ЭТО не будет.

Вопреки Вашему торопливо-наивному прогнозу это

switch (NameOfNote) {

case ("Gx") {NotePitchBend = "-48c~B 66,48";}
case ("Gbb"){NotePitchBend = "+42c~B 54,77";}
case ("Gb-"){NotePitchBend = "+81c~B 103,89";}
case ("Gb") {NotePitchBend = "+19c~B 25,70";}
case ("G#+"){NotePitchBend = "+13c~B 17,68";}
case ("G#") {NotePitchBend = "-26c~B 95,55";}
case ("G+") {NotePitchBend = "+35c~B 45,75";}
case ("G-") {NotePitchBend = "+58c~B 74,82";}
case ("G") {NotePitchBend = "-3c~B 124,62";}

case ("Fx") {NotePitchBend = "-42c~B 74,50";}
case ("Fbb"){NotePitchBend = "+48c~B 62,79";}
case ("Fb-"){NotePitchBend = "+87c~B 111,91";}
case ("Fb") {NotePitchBend = "+26c~B 33,72";}
case ("F#+"){NotePitchBend = "+19c~B 25,70";}
case ("F#") {NotePitchBend = "-19c~B 103,57";}
case ("F+") {NotePitchBend = "+42c~B 54,77";}
case ("F-") {NotePitchBend = "+65c~B 83,84";}
case ("F") {NotePitchBend = "+3c~B 4,65";}

case ("Ex") {NotePitchBend = "-58c~B 54,45";}
case ("Ebb"){NotePitchBend = "+32c~B 41,74";}
case ("Eb-"){NotePitchBend = "+71c~B 91,86";}
case ("Eb") {NotePitchBend = "+10c~B 12,67";}
case ("E#+"){NotePitchBend = "+3c~B 4,65";}
case ("E#") {NotePitchBend = "-35c~B 83,52";}
case ("E+") {NotePitchBend = "+26c~B 33,72";}
case ("E-") {NotePitchBend = "+48c~B 62,79";}
case ("E") {NotePitchBend = "-13c~B 111,59";}

case ("Dx") {NotePitchBend = "-52c~B 62,47";}
case ("Dbb"){NotePitchBend = "+39c~B 50,76";}
case ("Db-"){NotePitchBend = "+77c~B 99,88";}
case ("Db") {NotePitchBend = "+16c~B 21,69";}
case ("D#+"){NotePitchBend = "+10c~B 12,67";}
case ("D#") {NotePitchBend = "-29c~B 91,54";}
case ("D+") {NotePitchBend = "+32c~B 41,74";}
case ("D-") {NotePitchBend = "+55c~B 70, 81";}
case ("D") {NotePitchBend = "-6c~B 120,61";}

case ("Cx") {NotePitchBend = "-45c~B 70,49";}
case ("Cbb"){NotePitchBend = "+45c~B 58,78";}
case ("Cb-"){NotePitchBend = "+84c~B 107,90";}
case ("Cb") {NotePitchBend = "+23c~B 29,71";}
case ("C#+"){NotePitchBend = "+16c~B 21,69";}
case ("C#") {NotePitchBend = "-23c~B 99,56";}
case ("C+") {NotePitchBend = "+39c~B 50,76";}
case ("C-") {NotePitchBend = "+61c~B 78,83";}
case ("C") {NotePitchBend = "±0c~B 0,64";}

case ("Bx") {NotePitchBend = "-61c~B 50,44";}
case ("Bb-"){NotePitchBend = "+68c~B 87,85";}
case ("Bbb"){NotePitchBend = "+29c~B 37,73";}
case ("Bb") {NotePitchBend = "+6c~B 8,66";}
case ("B#+"){NotePitchBend = "±0c~B 0,64";}
case ("B#") {NotePitchBend = "-3c~B 78,51";}
case ("B+") {NotePitchBend = "+23c~B 29,71";}
case ("B-") {NotePitchBend = "+45c~B 58,78";}
case ("B") {NotePitchBend = "-16c~B 107,58";}

case ("Ax") {NotePitchBend = "-55c~B 58,46";}
case ("Abb"){NotePitchBend = "+35c~B 45,75";}
case ("Ab-"){NotePitchBend = "+74c~B 95,87";}
case ("Ab") {NotePitchBend = "+13c~B 17,68";}
case ("A#+"){NotePitchBend = "+6c~B 8,66";}
case ("A#") {NotePitchBend = "-32c~B 87,53";}
case ("A+") {NotePitchBend = "+29c~B 37,73";}
case ("A-") {NotePitchBend = "+52c~B 66,80";}
case ("A") {NotePitchBend = "-10c~B 116,60";}

default {NotePitchBend = "±00с~B 0,64";}
} return NotePitchBend;

Опубликовано:

Khramov, M. Microtonal MIDI models in form of selfsounding scores for Web. Proceedings of the Third International Conference ITA 09, pp. 64-73. Glyndŵr University, Wrexham, Wales, UK, 2009, ISBN: 978-0-946881-65-9

звучит, будучи основным фрагментом плагина, добавляющего над каждой нотой 12РДО партитуры команду управления Pitch Bend.

С Вашей стороны было бы гораздо вежливее просто сказать

огромное спасибо!

[combinare]

Вопреки Вашему торопливо-наивному прогнозу это
звучит, будучи основным фрагментом плагина

Ваша правда,поторопился!И не в последней степени "благодаря" схожести синтаксиса switch statement на разных языках.
Но,конечно же,в первую очередь из-за отсутствия в Вашей функции сообщения Note on.

[combinare]

case ("Dbb"){NotePitchBend = "+39c~B 50,76";}
Допустим 1-я октава С = Note Number 60
Какой 2-й байт сообщения Note on следует за командой Pitch Wheel?
Иными словами,+39c прибавляется к ноте с каким номером?

[commator]

case ("Dbb"){NotePitchBend = "+39c~B 50,76";}
Допустим 1-я октава С = Note Number 60
Какой 2-й байт сообщения Note on следует за командой Pitch Wheel?
Иными словами,+39c прибавляется к ноте с каким номером?

К ноте с номером 60: в опорной для Sibelius системе 12РДО ответ на DЫ* совпадает с ответом на C и прочего не дано.

Для высоты DЫ системы 31РДО справедливо равенство

DЫ = C‡,

где значок ‡ (гипербекар, или гиподиез) предписывает повышение высоты C на один диезис, т. е. округлённо на 39 центов.

*) Чтобы не тратить на bb два знакоместа, мною предложено пользоваться одноместным Ы.

Khramov, M. On Amount of Notes in Octave. Proceedings of the International Symposium FRSM-2012, pp. 16-19. Kamrah International Institute of Technology, Gurgaon, India, 2012.

Доклад был также опубликован в свободно доступном журнале

журнал Ninaad (volume 25, December 2011, Journal of ITC Sangeet Research Academy, ISSN 0973-3787). Там есть моя статья On Amount of Notes in Octave (О количестве нот в октаве)

Этот журнал на Сети (PDF).

Статья на русском теперь также доступна.

[combinare]

var diesis = 1200/31;var MSB = 100/32;var LSB = MSB/128;
console.log(diesis+";"+MSB+";"+LSB );//(38.70967741935484;3.125;0.0244140625)

console.log(Math.floor(diesis/MSB)+";"+diesis%MSB);//(12;1.2096774193548399)

console.log(diesis/MSB+";"+(diesis%MSB/LSB));
//(37.5;12.387096774193548;49.54838709677424)

MidiOut(0xe0,50,76);

[commator]

var diesis = 1200/31;var MSB = 100/32;var LSB = MSB/128;
console.log(diesis+";"+MSB+";"+LSB );//(38.70967741935484;3.125;0.0244140625)

console.log(Math.floor(diesis/MSB)+";"+diesis%MSB);//(12;1.2096774193548399)

console.log(diesis/MSB+";"+(diesis%MSB/LSB));
//(37.5;12.387096774193548;49.54838709677424)

MidiOut(0xe0,50,76);

К сожалению давно отказался от безграничных свобод продвинутого программирования в пользу ограниченных удобств продвинутого пользования.

Не могу составить о Вашем коде определённого мнения.

[combinare]

Вводим переменные,вычисляются их значения,округляется diesis/MSB - 12 (прибавить к 64 ).получаем остаток от деления и делим на 0.0244140625 - округленно 50 (2-й байт).

так лаконичнее:

var diesis = 1200/31;var MSB = 100/32;var LSB = MSB/128;

console.log(diesis+";"+MSB+";"+LSB);//38.70967741935484;3.125;0.0244140625
console.log(Math.round(diesis%MSB/LSB) +";"+ (64+Math.floor(diesis/MSB)));//50;76

MidiOut(0xe0,50,76);
не могли бы Вы добавить значения Note On для остальных 29 нот?