Floppy & HDD Music
- Войдите на сайт для отправки комментариев
Вс, 29/05/2016 - 15:17
Собственно, см. видео https://youtu.be/oq2bXXktJQs
Подробности чуть позже.
Собственно, см. видео https://youtu.be/oq2bXXktJQs
Подробности чуть позже.
Не понял, звук что-ли сами дисководы издают? Или звук от звуковой карты а на дисководах просто "цветомузыка" сделана?
Судя по звукам, шумит механика. По крайней мере, местами. Вот еще.
Нет, Женя, вместо динамиков используются именно дисководы. А вместо звуковой платы - Ардуино, настроенный на частоту прерываний 40 кГц.
Видео промежуточных этапов:
https://www.youtube.com/watch?v=VqNxzM-S5dk&lc=z12kslihsyapfhpxs04cjp5hv...
https://www.youtube.com/watch?v=k1sQ6k0-MXY
Проект представляет, по сути, музыкальную шкатулку, собранную на базе Ardiono Pro Mini, трех Floppy дисководов и двух накопителей на жестких дисках.
Все это располагается в корпусе теперь уже наверное винтажного ПК цвета слоновой кости. Блок питания - оттуда же: стандартный компьютерный.
Каждый floppy может воспроизводить один голос, а HDD - 2. Итого 7 голосов.
Не обошлось и без некоторой "фейковатости": один НЖМД расположен в корпусе от старого пишущего CDD. Индикаторы, задающие режимы работы, заменены индикаторами включения соответствующих голосов. Второй НЖМД находится в стандартном Mobile Rack'е, но индикаторам присвоемы другие функции - как у первомго НЖМД.
FDD взяты без переделки, но используются только три сигнала: "выбор устройства", "направление" и "шаг". Собственно, шаговый двигатель с головкой и излучают звук. В процесе экспериментов выяснилось, что наиболее грмкий и отчетливый звук (понятное дело, разработчики, наоборот, стремятся сделать свои устройства как можно тише) достигается, если разрешить дисководу перемещаться только в пределах двух (а не 40-80) дорожек. Правда, появляется призвук октавой ниже, но для данного проекта это, возможно, даже плюс.
А вот HDD подверглись серьезной переделке:
- удалена плата контроллера,
- удалены блины и мотор,
- удалены некоторые конструктивные элементы, препятствующие свободному перемещению коромысла.
В И-нете аналогичные проекты попадаются не так уж редко, но, почему-то, везде рекомендуется подпаивать подводящие провода непосредственно к контактам катушки коромысла, хотя коромысло уже соединено с неподвижной колодкой гибким шлейфом, который заодно служит упругим элементом, позиционирующим головку примерно в середину диапазона свободного хода. Я подсоединялся к неподвижному концу шлейфа, в одном случае даже удалось использовать съемный контакт, выпаянный из платы контроллера.
Звук в HDD излучает коромысло, катушка которого имеет сопротивление порядка 7-9 Ом, т.е. такое же, как у стандартного динамика. Поэтому и сигнал на нее подавался со стандартного УМЗЧ, собранного на TDA2004, схема которого была слегка доработана, исходя из особенностей применения.
В качестве радиатора УМЗЧ использовался массивный корпус HDD. Естественно, с использованием теплопроводящей пасты. Усилитель питался от 12В, а индикаторы - от 5В, т.к. активному режиму соответствует низкий уровень (это стандартно для цифровой электроники и для FDD в частности, поэтому было решено не отказываться от этого стандарта и при переделке HDD). Такой подход требует подачи на устройство напряжения 5В, чего можно было бы избежать, если бы активный сигнал был высоким. Но т.к. питание все равно осуществлялось через стандартный molex, было решено оставить, как есть.
Для управления переделанным HDD используется 4 контакта: "звук 1-го канала", "выбор 1-го канала", "звук 2-го канала" и "выбор 2-го канала". "Звук" подается на входы усилителя, а катушка коромысла подключена по "мостовой" схеме. "Выбор" используется исключительно для зажигания светодиодов.
Исходники:
Основная программа:
001#include <TimerOne.h>002#include "Arhat_digOut.c"003#include "voice_0.c"004#include "voice_1.c"005#include "voice_2.c"006#include "voice_3.c"007#include "voice_4.c"008#include "voice_5.c"009#include "voice_6.c"010011// change interrupt period to 25us (40kHz) insteadо 40us (25kHz)012// minimum frequence for 3.5" floppy is 440-520 Hz013014// channel 0, vely low notes: 5.25 floppy - up to ()015#define pin_sound_0 8 //2 // sound pin, for floppy - step016#define pin_dir_0 9 //3 // step direction pin, for floppy only017#define pin_active_0 10 //4 // for LED & activate floppy drive018019// channel 1, low notes: 3.5 floppy - up to C1-F1 (261-347 Hz)020#define pin_sound_1 5 // sound pin, for floppy - step021#define pin_dir_1 6 // step direction pin, for floppy only022#define pin_active_1 7 // for LED & activate floppy drive023024// channel 2, low notes: 3.5 floppy: up to C1-F1 (261-347 Hz)025#define pin_sound_2 2 //8 // sound pin, for floppy - step026#define pin_dir_2 3 //9 // step direction pin, for floppy only027#define pin_active_2 4 //10 // for LED & activate floppy drive028029// channel 3, high notes: 1-st HDD 1-st channel - not limited030#define pin_sound_3 11 // sound pin, for HDD - sound amplifier031#define pin_active_3 12 // for LED only032033// channel 4, high notes: 1-st HDD 2-nd channel - not limited034#define pin_sound_4 13 // sound pin, for HDD - sound amplifier035#define pin_active_4 14 // for LED only036037// channel 5, high notes: 2-nd HDD 1-st channel - not limited038#define pin_sound_5 15 // sound pin, for HDD - sound amplifier039#define pin_active_5 16 // for LED only040041// channel 6, high notes: 2-nd HDD 2-nd channel - not limited042#define pin_sound_6 17 // sound pin, for HDD - sound amplifier043#define pin_active_6 18 // for LED only044045#define pin_button_0 19 // for button input046047#define RESOLUTION 25 //Microsecond resolution for notes (interrupt frequency 40 kHz)048#define FREQUENCE 1000/RESOLUTION // interrupt frequence in kHz049050byteMAX_POSITION_0 = 2;//74; // max head position: double number of track without 2, for 5.25 - 40 tracks051byteMAX_POSITION_1 = 2;//154; // max head position: double number of track without 2, for 3.5 - 80 tracks052byteMAX_POSITION_2 = 2;//154; // max head position: double number of track without 2, for 3.5 - 80 tracks053054bytecurrentPosition[] = {0, 0, 0};// head position (track number)055056charcurrentStateAdd_0 = 1;// addition for currentPosition -1 or +1 (track)057charcurrentStateAdd_1 = 1;058charcurrentStateAdd_2 = 1;059060bytecurrentStateStep[] = {0,0,0,0,0,0,0};// positive or negative half period061unsignedintcurrentPeriodA[] = {0,0,0,0,0,0,0};// positive half period 0 = off.062unsignedintcurrentPeriodB[] = {0,0,0,0,0,0,0};// negative half period 0 = off.063064unsignedintcurrentTick_0 = 1;// sound half-perion counter (from currentPeriod*[] to 0)065unsignedintcurrentTick_1 = 1;066unsignedintcurrentTick_2 = 1;067unsignedintcurrentTick_3 = 1;068unsignedintcurrentTick_4 = 1;069unsignedintcurrentTick_5 = 1;070unsignedintcurrentTick_6 = 1;071072unsignedlongstartTime;073074voidsetup(){075Serial.begin(115200);076077for(bytei = 2; i <= 18; i++)078pinMode(i, OUTPUT);// 0-1 - Serial, 2-10 - floppy control, 11-18 - HDD control, 19(,A6,A7) - buttons079pinMode(A5, INPUT_PULLUP);080081resetAll();082083Timer1.initialize(RESOLUTION);// Set up a timer at the defined resolution084Timer1.attachInterrupt(tick);// Attach the tick function085086resetAll();087delay(2000);088startTime = millis();089}090091voidloop(){092unsignedlongcurrTime = millis() - startTime;093staticunsignedintindex[7] = {0,0,0,0,0,0,0};// array index of the note of each channels094staticbytemelodyOver[7] = {0,0,0,0,0,0,0};095if(!melodyOver[0]) {096if(pgm_read_word(&bach_ch_0[index[0] << 1]) <= currTime/tick_0) {// even values in arrays are start time097unsignedintpp = pgm_read_word(&bach_ch_0[(index[0] << 1) + 1]);// and odd are note period. 0 - pause, 65535 - end098if(pp == 65535){099pp = 0;100melodyOver[0] = 1;101}102currentPeriodA[0] = pp/2;103currentPeriodB[0] = pp - pp/2;104currentTick_0 = currentPeriodA[0];105if(pp != 0) {106digitalWrite(pin_active_0, LOW);107}else{108digitalWrite(pin_active_0, HIGH);109digitalWrite(pin_sound_0, LOW);110}111index[0]++;112}113}114if(!melodyOver[1]) {115if(pgm_read_word(&bach_ch_1[index[1] << 1]) <= currTime/tick_1) {116unsignedintpp = pgm_read_word(&bach_ch_1[(index[1] << 1) + 1]);117if(pp == 65535){118pp = 0;119melodyOver[1] = 1;120}121currentPeriodA[1] = pp/2;122currentPeriodB[1] = pp - pp/2;123currentTick_1 = currentPeriodA[1];124if(pp != 0) {125digitalWrite(pin_active_1, LOW);126}else{127digitalWrite(pin_active_1, HIGH);128digitalWrite(pin_sound_1, LOW);129}130index[1]++;131}132}133if(!melodyOver[2]) {134if(pgm_read_word(&bach_ch_2[index[2] << 1]) <= currTime/tick_2) {135unsignedintpp = pgm_read_word(&bach_ch_2[(index[2] << 1) + 1]);136if(pp == 65535){137pp = 0;138melodyOver[2] = 1;139}140currentPeriodA[2] = pp/2;141currentPeriodB[2] = pp - pp/2;142currentTick_2 = currentPeriodA[2];143if(pp != 0) {144digitalWrite(pin_active_2, LOW);145}else{146digitalWrite(pin_active_2, HIGH);147digitalWrite(pin_sound_2, LOW);148}149index[2]++;150}151}152153if(!melodyOver[3]) {154if(pgm_read_word(&bach_ch_3[index[3] << 1]) <= currTime/tick_3) {155unsignedintpp = pgm_read_word(&bach_ch_3[(index[3] << 1) + 1]);156if(pp == 65535){157pp = 0;158melodyOver[3] = 1;159}160currentPeriodA[3] = pp/2;161currentPeriodB[3] = pp - pp/2;162currentTick_3 = currentPeriodA[3];163if(pp != 0) {164digitalWrite(pin_active_3, LOW);165}else{166digitalWrite(pin_active_3, HIGH);167digitalWrite(pin_sound_3, LOW);168}169index[3]++;170}171}172if(!melodyOver[4]) {173if(pgm_read_word(&bach_ch_4[index[4] << 1]) <= currTime/tick_4) {174unsignedintpp = pgm_read_word(&bach_ch_4[(index[4] << 1) + 1]);175if(pp == 65535){176pp = 0;177melodyOver[4] = 1;178}179currentPeriodA[4] = pp/2;180currentPeriodB[4] = pp - pp/2;181currentTick_4 = currentPeriodA[4];182if(pp != 0) {183digitalWrite(pin_active_4, LOW);184}else{185digitalWrite(pin_active_4, HIGH);186digitalWrite(pin_sound_4, LOW);187}188index[4]++;189}190}191if(!melodyOver[5]) {192if(pgm_read_word(&bach_ch_5[index[5] << 1]) <= currTime/tick_5) {193unsignedintpp = pgm_read_word(&bach_ch_5[(index[5] << 1) + 1]);194if(pp == 65535){195pp = 0;196melodyOver[5] = 1;197}198currentPeriodA[5] = pp/2;199currentPeriodB[5] = pp - pp/2;200currentTick_5 = currentPeriodA[5];201if(pp != 0) {202digitalWrite(pin_active_5, LOW);203}else{204digitalWrite(pin_active_5, HIGH);205digitalWrite(pin_sound_5, LOW);206}207index[5]++;208}209}210if(!melodyOver[6]) {211if(pgm_read_word(&bach_ch_6[index[6] << 1]) <= currTime/tick_6) {212unsignedintpp = pgm_read_word(&bach_ch_6[(index[6] << 1) + 1]);213if(pp == 65535){214pp = 0;215melodyOver[6] = 1;216}217currentPeriodA[6] = pp/2;218currentPeriodB[6] = pp - pp/2;219currentTick_6 = currentPeriodA[6];220if(pp != 0) {221digitalWrite(pin_active_6, LOW);222}else{223digitalWrite(pin_active_6, HIGH);224digitalWrite(pin_sound_6, LOW);225}226index[6]++;227}228}229}230231/* Called by the timer inturrupt at the specified resolution. */232voidtick()// elapsed time ~12us (~50%)233{234// If there is a period set for control pin 2, count the number of235// ticks that pass, and toggle the pin if the current period is reached.236/////////////////////////////////////////////////////////////////////////////237if(currentPeriodA[0]){// if the note is on238currentTick_0--;// decrease tick counter239if(currentTick_0 <= 0){// half-period has been finished240if(currentPosition[0] >= MAX_POSITION_0) {// Switch head directions if end has been reached241currentStateAdd_0 = -1;242pinOutHigh(pin_dir_0);243}elseif(currentPosition[0] <= 0) {244currentStateAdd_0 = 1;245pinOutLow(pin_dir_0);246}247currentPosition[0] += currentStateAdd_0;//Update currentPosition248if(currentStateStep[0]) {249pinOutHigh(pin_sound_0);//Pulse the control pin250currentStateStep[0] = LOW;251currentTick_0 = currentPeriodA[0];252}else{253pinOutLow(pin_sound_0);//Pulse the control pin254currentStateStep[0] = HIGH;255currentTick_0 = currentPeriodB[0];256}257}258}259260if(currentPeriodA[1]){261currentTick_1--;262if(currentTick_1 <= 0){263if(currentPosition[1] >= MAX_POSITION_1) {264currentStateAdd_1 = -1;265pinOutHigh(pin_dir_1);266}elseif(currentPosition[1] <= 0) {267currentStateAdd_1 = 1;268pinOutLow(pin_dir_1);269}270currentPosition[1] += currentStateAdd_1;//Update currentPosition271if(currentStateStep[1]) {272pinOutHigh(pin_sound_1);273currentStateStep[1] = LOW;274currentTick_1 = currentPeriodA[1];275}else{276pinOutLow(pin_sound_1);//Pulse the control pin277currentStateStep[1] = HIGH;278currentTick_1 = currentPeriodB[1];279}280}281}282283if(currentPeriodA[2]){284currentTick_2--;285if(currentTick_2 <= 0){286if(currentPosition[2] >= MAX_POSITION_2) {287currentStateAdd_2 = -1;288pinOutHigh(pin_dir_2);289}elseif(currentPosition[2] <= 0) {290currentStateAdd_2 = 1;291pinOutLow(pin_dir_2);292}293currentPosition[2] += currentStateAdd_2;//Update currentPosition294if(currentStateStep[2]) {295pinOutHigh(pin_sound_2);//Pulse the control pin296currentStateStep[2] = LOW;297currentTick_2 = currentPeriodA[2];298}else{299pinOutLow(pin_sound_2);//Pulse the control pin300currentStateStep[2] = HIGH;301currentTick_2 = currentPeriodB[2];302}303}304}305306if(currentPeriodA[3]){307currentTick_3--;308if(currentTick_3 <= 0){309if(currentStateStep[3]) {310pinOutHigh(pin_sound_3);//Pulse the control pin311currentStateStep[3] = LOW;312currentTick_3 = currentPeriodA[3];313}else{314pinOutLow(pin_sound_3);//Pulse the control pin315currentStateStep[3] = HIGH;316currentTick_3 = currentPeriodB[3];317}318}319}320321if(currentPeriodA[4]){322currentTick_4--;323if(currentTick_4 <= 0){324if(currentStateStep[4]) {325pinOutHigh(pin_sound_4);//Pulse the control pin326currentStateStep[4] = LOW;327currentTick_4 = currentPeriodA[4];328}else{329pinOutLow(pin_sound_4);//Pulse the control pin330currentStateStep[4] = HIGH;331currentTick_4 = currentPeriodB[4];332}333}334}335336if(currentPeriodA[5]){337currentTick_5--;338if(currentTick_5 <= 0){339if(currentStateStep[5]) {340pinOutHigh(pin_sound_5);//Pulse the control pin341currentStateStep[5] = LOW;342currentTick_5 = currentPeriodA[5];343}else{344pinOutLow(pin_sound_5);//Pulse the control pin345currentStateStep[5] = HIGH;346currentTick_5 = currentPeriodB[5];347}348}349}350351if(currentPeriodA[6]){352currentTick_6--;353if(currentTick_6 <= 0){354if(currentStateStep[6]) {355pinOutHigh(pin_sound_6);//Pulse the control pin356currentStateStep[6] = LOW;357currentTick_6 = currentPeriodA[6];358}else{359pinOutLow(pin_sound_6);//Pulse the control pin360currentStateStep[6] = HIGH;361currentTick_6 = currentPeriodB[6];362}363}364}365}366367//Resets all the pins368voidresetAll(){369370pinOutHigh(pin_dir_0);// reverse direction371pinOutHigh(pin_dir_1);372pinOutHigh(pin_dir_2);373pinOutLow(pin_active_0);// drive enable374pinOutLow(pin_active_1);375pinOutLow(pin_active_2);376377// New all-at-once reset378for(bytes=0;s<80;s++){// For max drive's position379pinOutHigh(pin_sound_0);380pinOutHigh(pin_sound_1);381pinOutHigh(pin_sound_2);382delay(3);383pinOutLow(pin_sound_0);384pinOutLow(pin_sound_1);385pinOutLow(pin_sound_2);386delay(3);387}388389currentPosition[0] = 0;// We're reset.390currentPosition[1] = 0;// We're reset.391currentPosition[2] = 0;// We're reset.392393pinOutLow(pin_dir_0);// forward direction394pinOutLow(pin_dir_1);395pinOutLow(pin_dir_2);396pinOutHigh(pin_active_0);// drive disable397pinOutHigh(pin_active_1);398pinOutHigh(pin_active_2);399pinOutHigh(pin_active_3);400pinOutHigh(pin_active_4);401pinOutHigh(pin_active_5);402pinOutHigh(pin_active_6);403404// 2 steps forward405for(bytes=0;s<2;s++){// For max drive's position406pinOutHigh(pin_sound_0);407pinOutHigh(pin_sound_1);408pinOutHigh(pin_sound_2);409delay(3);410pinOutLow(pin_sound_0);411pinOutLow(pin_sound_1);412pinOutLow(pin_sound_2);413delay(3);414}415}Файл с описанием команд быстрого вывода в порт (спасибо Arhat)
001#include <avr/pgmspace.h>002003#define OREG0 PORTD004#define OREG1 PORTD005#define OREG2 PORTD006#define OREG3 PORTD007#define OREG4 PORTD008#define OREG5 PORTD009#define OREG6 PORTD010#define OREG7 PORTD011#define OREG8 PORTB012#define OREG9 PORTB013#define OREG10 PORTB014#define OREG11 PORTB015#define OREG12 PORTB016#define OREG13 PORTB017#define OREG14 PORTC // PORTB018#define OREG15 PORTC // PORTB019#define OREG16 PORTC020#define OREG17 PORTC021#define OREG18 PORTC022#define OREG19 PORTC023//#define OREG20 PORTC024//#define OREG21 PORTC025//#define OREG22 PORTC026027#define SET_MASK_0 (uint8_t)1028#define SET_MASK_1 (uint8_t)2029#define SET_MASK_2 (uint8_t)4030#define SET_MASK_3 (uint8_t)8031#define SET_MASK_4 (uint8_t)16032#define SET_MASK_5 (uint8_t)32033#define SET_MASK_6 (uint8_t)64034#define SET_MASK_7 (uint8_t)128035036#define CLR_MASK_0 (uint8_t)254037#define CLR_MASK_1 (uint8_t)253038#define CLR_MASK_2 (uint8_t)251039#define CLR_MASK_3 (uint8_t)247040#define CLR_MASK_4 (uint8_t)239041#define CLR_MASK_5 (uint8_t)223042#define CLR_MASK_6 (uint8_t)191043#define CLR_MASK_7 (uint8_t)127044045#define BSET0 SET_MASK_0046#define BCLR0 CLR_MASK_0047048#define BSET1 SET_MASK_1049#define BCLR1 CLR_MASK_1050051#define BSET2 SET_MASK_2052#define BCLR2 CLR_MASK_2053054#define BSET3 SET_MASK_3055#define BCLR3 CLR_MASK_3056057#define BSET4 SET_MASK_4058#define BCLR4 CLR_MASK_4059060#define BSET5 SET_MASK_5061#define BCLR5 CLR_MASK_5062063#define BSET6 SET_MASK_6064#define BCLR6 CLR_MASK_6065066#define BSET7 SET_MASK_7067#define BCLR7 CLR_MASK_7068069#define BSET8 SET_MASK_0070#define BCLR8 CLR_MASK_0071072#define BSET9 SET_MASK_1073#define BCLR9 CLR_MASK_1074075#define BSET10 SET_MASK_2076#define BCLR10 CLR_MASK_2077078#define BSET11 SET_MASK_3079#define BCLR11 CLR_MASK_3080081#define BSET12 SET_MASK_4082#define BCLR12 CLR_MASK_4083084#define BSET13 SET_MASK_5085#define BCLR13 CLR_MASK_5086087#define BSET14 SET_MASK_0 // SET_MASK_6088#define BCLR14 CLR_MASK_0 // CLR_MASK_6089090#define BSET15 SET_MASK_1 // SET_MASK_7091#define BCLR15 CLR_MASK_1 // CLR_MASK_7092093#define BSET16 SET_MASK_2 // SET_MASK_6094#define BCLR16 CLR_MASK_2 // CLR_MASK_6095096#define BSET17 SET_MASK_3 // SET_MASK_0097#define BCLR17 CLR_MASK_3 // CLR_MASK_0098099#define BSET18 SET_MASK_4 // SET_MASK_1100#define BCLR18 CLR_MASK_4 // CLR_MASK_1101102#define BSET19 SET_MASK_5 // SET_MASK_2103#define BCLR19 CLR_MASK_5 // CLR_MASK_2104105//#define BSET20 SET_MASK_3106//#define BCLR20 CLR_MASK_3107108//#define BSET21 SET_MASK_4109//#define BCLR21 CLR_MASK_4110111//#define BSET22 SET_MASK_5112//#define BCLR22 CLR_MASK_5113114#define pinOutReg(p) (OREG##p)115#define pinSetMask(p) (BSET##p)116#define pinClearMask(p) (BCLR##p)117#define pinOutHigh(p) (pinOutReg(p) |= pinSetMask(p)) // out 1 (HIGH) to pin. Установка на выводе лог.1:118#define pinOutLow(p) (pinOutReg(p) &= pinClearMask(p)) // out 0 (LOW) to pin. Установка на выводе лог.0:119#define pinOut(p,v) ((v)? pinOutHigh(p) : pinOutLow(p)) // @see digitalWrite().Файлы с данными
01#include <avr/pgmspace.h>0203#define tick_0 204#define NumNotes_0 20506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_0[] PROGMEM = {098640, 545,1014385, 6553511};01#include <avr/pgmspace.h>0203#define tick_1 204#define NumNotes_1 540506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_1[] PROGMEM = {0910, 91,1040, 0,1155, 102,1285, 0,13105, 91,14960, 0,15970, 102,161000, 0,171025, 115,181055, 0,191070, 121,201100, 0,211105, 136,221140, 0,231160, 144,241675, 0,251715, 136,262015, 0,272895, 182,282920, 0,292935, 204,302970, 0,312985, 182,323780, 0,333860, 243,344015, 0,354040, 229,364200, 0,374220, 289,384375, 0,394390, 272,404760, 0,415775, 364,425810, 0,435820, 408,445855, 0,455870, 364,466715, 0,476740, 408,486765, 0,496785, 458,506805, 0,516820, 485,526850, 0,536870, 545,546895, 0,556910, 577,567440, 0,577465, 545,587775, 0,599135, 289,6012465, 0,6112480, 272,6214385, 6553563};01#include <avr/pgmspace.h>0203#define tick_2 204#define NumNotes_2 520506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_2[] PROGMEM = {0910, 45,1050, 0,1165, 51,1295, 0,13105, 45,14955, 0,15980, 51,161010, 0,171020, 57,181055, 0,191070, 61,201100, 0,211105, 68,221145, 0,231150, 72,241680, 0,251705, 68,262015, 0,272900, 91,282930, 0,292935, 102,302975, 0,312980, 91,323785, 0,333860, 121,344020, 0,354035, 115,364205, 0,374210, 144,384385, 0,394400, 136,404755, 0,415775, 182,425810, 0,435815, 204,445865, 0,455870, 182,466715, 0,476740, 204,486780, 0,496775, 229,506820, 0,516830, 243,526860, 0,536875, 272,546905, 0,556910, 289,567440, 0,577465, 272,587770, 0,599600, 243,6012465, 6553561};01#include <avr/pgmspace.h>0203#define tick_3 204#define NumNotes_3 70506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_3[] PROGMEM = {0910095, 204,1012405, 0,1112480, 204,1212945, 0,1312975, 243,1413440, 216,1514385, 6553516};01#include <avr/pgmspace.h>0203#define tick_4 204#define NumNotes_4 40506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_4[] PROGMEM = {0910560, 172,1012465, 0,1112480, 182,1214385, 6553513};101#include <avr/pgmspace.h>0203#define tick_5 204#define NumNotes_5 540506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_5[] PROGMEM = {090, 91,1030, 0,1145, 102,1275, 0,1390, 91,14945, 0,15960, 102,16990, 0,171005, 115,181035, 0,191050, 121,201080, 0,211095, 136,221125, 0,231140, 144,241665, 0,251695, 136,261995, 0,272880, 182,282910, 0,292925, 204,302955, 0,312970, 182,323765, 0,333840, 243,344005, 0,354020, 229,364185, 0,374200, 289,384365, 0,394380, 272,404740, 0,415760, 364,425790, 0,435805, 408,445835, 0,455850, 364,466705, 0,476720, 408,486750, 0,496765, 458,506795, 0,516810, 485,526840, 0,536855, 545,546885, 0,556900, 577,567425, 0,577455, 545,587755, 0,5911055, 144,6012465, 0,6112480, 136,6214385, 6553563};01#include <avr/pgmspace.h>0203#define tick_6 204#define NumNotes_6 520506// Sound Sample Rate: 40000 Hz0708constunsignedintbach_ch_6[] PROGMEM = {090, 45,1030, 0,1145, 51,1285, 0,1390, 45,14945, 0,15960, 51,161000, 0,171005, 57,181045, 0,191050, 61,201090, 0,211095, 68,221135, 0,231140, 72,241665, 0,251695, 68,261995, 0,272880, 91,282910, 0,292925, 102,302965, 0,312970, 91,323765, 0,333840, 121,344005, 0,354020, 115,364185, 0,374200, 144,384365, 0,394380, 136,404740, 0,415760, 182,425790, 0,435805, 204,445845, 0,455850, 182,466705, 0,476720, 204,486760, 0,496765, 229,506805, 0,516810, 243,526850, 0,536855, 272,546895, 0,556900, 289,567425, 0,577455, 272,587755, 0,5911520, 121,6012480, 6553561};Ахренеть!
Снимаю шляпу!
крутотень! а Ду Хаст можно так сделать?
В принципе можно сделать что угодно - 7 голосов достаточно для вменяемой аранжировки любого произведения. В частности, в том фрагменте, что на видео, у Баха звучит максимум 9 нот, так что кое-где пришлось подсократить октаву.
С другой стороны, звук принципиально без динамики. Так что впечатление от результата может быть делеким от желаемого. Наиболее адекватно звучат органные партии.
понял, спасибо за ответ.
примерно так и подумал (про органные партии).