Poniendo barreras a la creatividad

Estos días de atrás os he estado poniendo ejemplos de scripts realizados en MATLAB para la generación de melodías improvisadas por el propio ordenador.

La última versión dejaba que el ordenador eligiese una nota de entre las pertenecientes a una escala que definiéramos al principio, y además le dejábamos que decidiera cuánto debía durar esa nota (en múltiplos enteros de 1/8 parte la nota de mayor tiempo).

Personalmente creo que esa versión estaba muy bien, y que acotar más el script es "hacer trampas" :p! (también podríamos decirle directamente que toque las notas que queramos cuando queramos, pero eso no es dejar que el ordenador "componga"). Sin embargo, nuestro oido está acostumbrado, por lo general, a estructuras rítmicas simples y periódicas... así que he realizado una versión del script mucho más restringida, de tal manera que la primera melodía que genere sean negras graves, y que según vayan añadiéndose melodías aumenten cada vez una octava y la velocidad al doble (corcheas, semicorcheas, fusas...). En otras palabras, el ritmo viene definido de antemano (pudiéndose modificar con el tercer argumento del script, que recordemos que era, y sigue siendo, la velocidad que marca el metrónomo), y el ordenador sólo elige qué nota tocar de entre las que le demos nosotros, estando la octava también determinada por el número de melodía monofónica que sea.

No toda va a ser malo (si no, no estaría colgando una entrada sobre este script :p), el resultado es quizá algo más agradable al oido inexperto, puesto que es mucho más simple rítmicamente, dando la sensación de ser una melodía más "compacta", y no un montón de notas al azar.

Aquí os dejo un ejemplo de varias salidas del script restringido, con distintas escalas:

El código, que podéis descargar pinchando aquí, es el siguiente:

function [Y]=musicgenRR(n,m,Time)
%
% Script creado por Astaroth (O.R.G.) para generar melodías polifónicas
%a través de números aleatorios (método de MonteCarlo).
%
% Dados "n" (el número de notas que contendrá cada melodía monofónica), y
%"m" (el número de melodías que conformarán la melodía polofónica), este
%script elegirá en cada momento qué nota desea tocar (de la escala a la
%que hayamos definido). La prmera melodía generará notas lentas y graves,
%a partir de ella, las siguientes serán cada vez más rápidas (el doble) y
%más agudas (una octava por vez).
%
% Por defecto se considerará un tiempo de metrónomo de 60 (60 golpes por
%minuto). Esto podrá cambiarse especificando el tiempo de metrónomo en el
%tercer argumento de este script.
%
% Si m=1 (melodía monofónica), la salida será un archivo ".wav" mono. En
%caso de ser m>1, entonces la salida será un archivo *.wav estéreo,
%grabándose una vez en cada canal (izquierdo/derecho) cada melodía monofónica
%generada.
%
% Para más información, visitar:
%
% http://astarothsworld.blogspot.com/2009/06/oh-no-pronto-las-maquinas-dominaran-el.html#arriba
%
% Escalas:
%
% Ahora se pueden modificar las escalas. Simplemente añade la tuya:
%
% Escala=[números asociados a los tonos]
%
% Y comenta las que no utilices poniéndo el sómbolo "%" delante. No
%importa cuántos tonos tenga la escala, el programa se encarga de
%redimensionar los índices que haga falta automáticamente.
%
Escala=[-2,1,3,5,8,10,13,15,17,20,22]; % Pentatonica de Lam
%Escala=[-7,-4,-2,0,3,5,8,10,12,15,17]; % Pentatonica de Mim
%Escala=[-2,-1,2,3,5,6,9,10,11,14,15]; % Árabe
%Escala=[1,4,5,7,8,10,11,13]; % Húngara Mayor
%Escala=[1,3,4,7,8,9,11,13]; % Gitana Húngara
%Escala=[1,2,5,7,9,11,12,13]; % Enigmática
%Escala=[1,2,5,6,8,9,11,13]; % Española
%Escala=[1,3,5,6,8,9,11,13]; % Hindú
%Escala=[1,3,6,8,11,13]; % Egipcia
%Escala=[1,2,6,8,9,13]; % Japonesa
%Escala=[-2,1,5,10,13,17,22]; % Acorde de Lam
Escala=[1,5,8,13,17,20,25]; % Acorde de DoM
e=max(size(Escala));
if nargin<2

disp(' ')
disp('Tienes que introducir como argumentos de entrada, al menos, el número de notas que quieras')
disp('que tenga cada melodía y el número de melodías que quieras que haya. Opcionalmente, puedes')
disp('especificar el valor de la negra dado por el metrónomo (por ejemplo: 60 => 1 negra dura 1 segundo).')
disp(' ')
else if (nargin==2)|(nargin==3)

if nargin==2

disp(' ')
disp('**********************************************************************************')
disp('Al no introducir el tercer argumento de entrada suponemos que 1 negra = 1 segundo.')
disp('**********************************************************************************')
disp(' ')
Time=60;

end
Y=0;
k=0;
for i=1:m

y=0;
T0=0;
o=8000;
for j=1:(n*2^(i-1))

nota=Escala(round(rand*(e-1))+1);
alex=2^(2-i);
freq=440*(2).^[((nota-10)./12)];
ale=60/Time*alex;
tm=round(o*ale);
t=linspace(0,1,tm);
Ond=sin(2*pi*freq*ale*(t+T0));
T0=tm;
y=[y,Ond];

end
if Y==0

Y=zeros(2,max(size(y)));

end
MY=size(Y);
MY=MY(2);
my=size(y);
my=my(2);
if MY
Y(:,MY+1:my)=0;

else if MY>my

y(my+1:MY)=0;

end

end
if (-1)^k==1

fila=1;

else

fila=2;

end
Y(fila,:)=1/2*(Y(fila,:)+y);
k=k+1;

end
if m==1

wavwrite(Y(1,:),'AudioTotal.wav');

else

wavwrite(Y','AudioTotal.wav');

end
disp(' ')
disp('****************************************')
disp('Ya tienes tu archivo de audio creado ;)!')
disp('****************************************')
disp(' ')

end

end