Напишите самую красивую композицию bytebeat

24

Bytebeat - это стиль музыки, который можно сочинить, написав простую программу на C, в которую выводится aplayили /dev/dsp.

main(t){for(;;t++)putchar(((t<<1)^((t<<1)+(t>>7)&t>>12))|t>>(4-(1^7&(t>>19)))|t>>7);}

На сайте bytebeat имеется много информации , реализация javascript , а также множество демонстраций и примеров композиций в этой теме .

Очень простые правила: попробуйте написать довольно звучащую композицию. Большинство голосов «за» побеждает, поскольку это, очевидно, субъективно, хотя и не так субъективно, учитывая обычные результаты.

Джефф Берджес
источник
Вы держите это в строгом байтбите (то есть без буферов)?
Питер Тейлор
4
Почему это ограничено C?
неизвестный пользователь
Не существует какой-либо внутренней причины ограничивать использование буферов или других языков, но обычно биение означает, что конкретный цикл C с выводом, определенным формулой. Я проголосовал за ответ Джои Адамса, даже если мысль rand()нестандартная.
Джефф Берджес
Хотя мне нравится эта идея, часто задаваемые вопросы требуют объективных критериев выигрыша (слишком легко попасть в ловушку в расчетах или в искусстве ASCII). Можем ли мы искать что-то более определенное, чем «красивая»?
dmckee

Ответы:

16

(Подписано 16-разрядным прямым порядком байтов, моно 8000 Гц ( --format=S16_LE))

Музыка

Гораздо лучше, чем раньше! (хотя это довольно долго)

main(t){for(;;t++)putchar(((7&(((t>>17)+1)>>2)+((t>>10)&1+2*(t>>18&1))*(("23468643"[7&t>>12]-48)+(3&t>>11))+((3&t>>17)>0)*(3&t>>9)*!(1&t>>10)*(((2+t>>10&3)^(2+t>>11&3))))*t*"@06+"[3&t>>15]/32));}

(Вы можете послушать это здесь )

Я написал это, но даже я не знаю, как работает какая-то часть, как >0и (особенно) первая 7&.

Измените цикл на for(;!(t>>22);t++)... чтобы прослушать его «один раз». Однако я не знаю, точно ли он «зацикливается».

Мелодия (база вышеупомянутой музыки)

Мне нравится эта мелодия, которую я сделал (CGAF ftw), но она слишком "простая" ...

main(t){for(;;t++)putchar(((t>>10)&1)*(t*("23468643"[7&t>>12]-48)+t*(3&t>>11))*"@06+"[3&t>>15]/32);}

Простая музыка (которую я сделал раньше)

main(t){for(;;t++)putchar(t*(3&t>>11)+(t&t>>11)*4*!((t>>11)%3));}

JiminP
источник
Если вы нажмете на приведенную выше ссылку на байт-бит, вы увидите командную строку sox для ее преобразования в файл .wav и странную командную строку компрессора.
Джефф Берджес
3
+1 Удивительно! Несколько битов (например, 1:30 - 1:40) звучат как «заикание», но опять же, большая часть самого обаяния байтбита заключается в этих странных и нетрадиционных ритмах и мелодиях, и общий эффект превосходен. (Ps. Я случайно сыграл это на 8 битах на семпл, и я тоже звучу на удивление хорошо. Вроде как играл винил с 45 об / мин при 33,3 об / мин.)
Илмари Каронен
3

Функция линейки до минор:

#include <math.h>
#include <stdio.h>

#define PI 3.14159265358979323846

#define step(freq, n) ((freq) * pow(2, (n) / 12.0))
#define note(n)       step(440, n)
#define MIDDLE_C      note(-9)

int count_zeros(unsigned int n)
{
    int count = 0;
    for (; (n & 1) == 0; n >>= 1)
        count++;
    return count;
}

int minor_note(int note)
{
    int octave = note / 7;
    int scale[] = {0, 2, 3, 5, 7, 8, 10};

    note %= 7;
    if (note < 0) {
        note += 7;
        octave--;
    }

    return scale[note] + octave*12;
}

int main(void) {
    double t = 0.0;
    double freq = MIDDLE_C * 2;
    double step = PI * 2 / 8192;
    int n = 0;
    int i = 0;

    for (i = 1;; t += step, i++) {
        if (i == 1024) {
            i = 0;
            n++;
            freq = step(MIDDLE_C, minor_note(count_zeros(n)));
        }

        putchar(sin(t * freq) * 50.0 + 128.0);
    }

    return 0;
}
Джои Адамс
источник
Хорошая мелодия, но чтобы быть «композицией», этому ИМО нужно нечто большее ...
Ильмари Каронен
3
main(t){for(;;t+=(t%6)?1:2)putchar((((t<<t^(t>>8))|(t<<7))*((t<<t&(t>>12))|(t<<10))));}
Pubby
источник
Очень классический байтбит, если это не оксюморон. +1 от меня.
Ильмари Каронен
3

Подчеркивая "бить" над "байтом":

#include<math.h>

double s(double,double);double r(double,double);double d(double);double f(double);

char bytebeat(int t){return (d(f(t/4000.)/3) + 1) * 63;}
double f(double t){
  double sn=s(1./2,t-1); sn*=(sn*sn);
  return 3*s(1./4,1/s(1,t))+3*s(4,1/sn)/2+s(4,1/(sn*sn*sn*sn*sn))/4
       +2*s(55+18.3*r(1./2,t),t)+s(110+s(5,t)/4000,t)*s(1,t)+s(220+110*r(1,t)+55*r(3,t),t)/5
       +s(880+440*r(1./2,t)-220*r(1,t)+110*r(2,t)+s(5,t)/4000,t)
       *(2+s(1760+438*r(3./2,t)-1234*r(2,t)+423*r(5,t),t))/9
       +s(s(1,t)+s(1./2,t)+s(1./4,t)+s(1./8,t),t)*s(s(1,t)+s(1./2,t)+s(1./4,t)+s(1./8,t)+1,t)
       +r(264+11*r(1./20,t),t)*s(1./20,t);
}
double s(double f,double t){return d(sin(f*3.14159265*(t+999)));}
double r(double f,double t){return s(f,t)<0;}
double d(double a){return tanh(a+a*a/4);}

main(t){for(;;++t)putchar(bytebeat(t));}

Для использования при 8 кГц, uint8 моно. Звучит лучше, чем приличные динамики с басами.

перестал поворачиваться против часовой стрелки
источник
2
main(){for(;;)putchar(rand());}

Звучит как океан ;-)

Джои Адамс
источник
1
Больше похоже на действительно загруженный железнодорожный переезд для меня. :)
Ильмари Каронен
5
Подсказка: если это звучит как непрерывный тон, ваш ГСЧ сломан.
г-н Лама
3
более легкий путь:$ cat /dev/urandom | aplay
Брэден Бест
2
@ B1KMusic гораздо проще:aplay /dev/urandom
minmaxavg
0

Сочетание мелодии и гармонии:

r=3,
r=3,
m=(t*(t>>12|t>>13|t>>14|t>>15|t>>16|t>>17|t>>18))&63,

h= ((t&t>>7&t>>6)|t*5&t>>8-c^t*6&t>>9-c|t*7&t>>12-c^t*9&t>>11-c^t*11&t>>22^t*19&t>>20^t*14&t>>20|t*23&t>>15-c|t*12&t>>9|t*30&t>>30|t>>5|t>>4)-31, m|h
Кенн Дауни
источник