ВходНаше всё Теги codebook 无线电组件 Поиск Опросы Закон Среда
10 июля
349096 Топик полностью
Trashy (24.08.2012 14:08, просмотров: 1) ответил fk0 на src.caxapa.ru куда-то делось. Вкладываю как есть. ВНИМАНИЕ! ГОВНОКОД! ГОВНОКОД! ГОВНОКОД! В тексте программы используются запятые и многое др. Разбирает формат монофических мелодий от мобильников. На выходе частота и длительность. Умеет играть
Из маво древнего:Pain[] = {{ 8b1 8_n 8_f2 8b18g2 8_n 8_f2 8ne28_f2 8_n 8ne2 8_f28g2 8g2 8_f2 8ne28b1 8_n 8_f2 8b18g2 8_n 8_f2 8ne28d2 8_n 8ne2 8d28_c2 8_c2 8d2 8_c2 0,0}},/*FugaBach[] = {{16ne2 16_d2 16ne2 16b1 16g1 16g2 16_f2 16ne2 16_f2 16ne2 16_f2 16_d2 16b1 16a2 16g2 16_f2 16g216ne2 16a2 16ne2 16b2 16ne2 16c3 16ne2 16_d2 16b1 16ne2 16b1 16_f2 16b1 16g2 16b1 16c3 16b216c3 16b2 16c3 16g2 16_f2 16ne2 16_f2 16g2 16a2 16g2 16_f2 16ne2 16d2 16c2 16b2 16a2 16b2 16a216b2 16_f2 16ne2 16d2 16ne2 16_f2 16g2 16_f2 16ne2 16d2 16c2 16b1 16_a1 16_a1 16_c2 16_c2 16ne216ne2 16g2 16g2 16_a2 16_a2 16_c3 16_c3 16ne3 16ne3 16g3 16g3 2g3 16_f3 16ne3 4_f3 8_n 0,0}},*/Bach_fuga[] = {{16a1 16ne1 16b1 16ne1 16c2 16ne1 16a1 16ne1 16b1 16ne1 16c2 16ne1 16d2 16ne1 16b1 16ne1 16c2 16ne116d2 16ne1 16ne2 16ne1 16c2 16ne1 16d2 16ne1 16ne2 16ne1 16f2 16ne1 16d2 16ne1 16ne2 16ne1 16c2 16ne116d2 16ne1 16b1 16ne1 16c2 16ne1 0,0}};/*Bach_joly[] = {{16_f2 16_n 16a2 16_f2 16_c2 16_n 16_f2 16_c2 16a1 16_n 16_c2 16a1 4_f1 16_n 16_n 16_c1 16_f116a1 16_f1 16_g1 16_f1 16_g1 16_f1 16f1 16_g1 16b1 16_g1 8a1 16_f1 16_n 16a1 16ne1 16b1 16ne1 16_g116ne1 8a1 0,0}},Grig_Hall_Of_Mountain_King[] ={{8a1 8b1 8c2 8d2 8ne2 8c2 8ne2 8_n 8_d2 8b1 8_d2 8_n 8d2 8_a1 8d2 8_n 8a1 8b1 8c28d2 8ne2 8c2 8ne2 8a2 8g2 8ne2 8c2 8ne2 2g2 0,0}},Freestyler[] = {{16_a2 16g1 16d2 16_a2 16g1 16d2 16_a2 16g1 16d2 16a2 16g1 16d2 16a2 16g1 16d2 16f2 16_d2 16_d1 16f216_d1 16_a1 16f2 16_d1 16a1 16g2 16f1 16c2 16g2 16f1 16c2 16g2 16a2 0,0}},Smoke_on_the_Water[]={{ 4c1 4_d1 4f1 8f1 4c1 4_d1 8_f1 2f1 4c1 4_d1 8f1 8f1 8f1 4_d1 4c1 8c1 8_d1 8c14c1 4_d1 4f1 8f1 4c1 4_d1 8_f1 2f1 4c1 4_d1 8f1 8f1 8f1 4_d1 4c1 8c1 8_d1 8c1 0,0}},Jinglne_Bnells[]={{ 16ne2 16_n 16ne2 16_n 4ne216ne2 16_n 16ne2 16_n 4ne28ne2 8g2 8c2 16_n 16d2 2ne216f2 16_n 16f2 16_n 8f2 16_n16f2 8f2 8ne2 8ne2 16_n 16ne28g2 8g2 8f2 8d2 4c2 16_n 0,0}};*/