L-Chiptune

Tenía tiempo que quería hacer algo con sonido de 8 bits, tipo videojuego de los ochentas, mi amigo Daniel Daowz me dio unos buenos consejos y me animé a hacer una impro. Aprovechando la clase con el Dr. Roberto Morales y su plática de los sistemas L, preparé una improvización donde las melodías van cambiando por niveles que se comportan de forma autosimilar. Aquí la parte ganadora del código es “Prewrite”, se los paso para que lo prueben.  Para el sonido tipo 8 bits con ondas utilicé el NES VST 1.28BPimage2015101918429391068


MIDIClient.init;
~mid = MIDIOut(2);

(
~d = Dictionary[
0 ->#[0,5,1],
1 ->#[7,\r,2],
2 ->#[3,0],
5 ->#[6,1],
\r -> #[\r,\r]
];

)

(
Pdef(\a,
Pbind(
\type, \midi,
\midicmd, \noteOn,
\midiout, ~mid, // MIDI target
\scale, Scale.aeolian,
\chan, 0,
\degree, 0+Prewrite(0,~d,60).trace,
\dur, 0.5,
\amp,Pbrown(0.2,1,0.1,inf)
)
).play;
)
(
Pdef(\b,
Pbind(
\type, \midi,
\midicmd, \noteOn,
\midiout, ~mid, // MIDI target
\chan, 1,
\scale, Scale.aeolian,
\degree, 4+Prewrite(0,~d,60).trace,
\dur, 1,
\amp,Pbrown(0.2,1,0.1,inf)
)
).play;
)
(
Pdef(\c,
Pbind(
\type, \midi,
\midicmd, \noteOn,
\midiout, ~mid, // MIDI target
\chan, 2,
\scale, Scale.aeolian,
\degree, (-7)+Prewrite(0,~d,60).trace,
\dur, 0.25,
\amp,Pbrown(0.2,1,0.1,inf)
)
).play;
)
(
Pdef(\e,
Pbind(
\type, \midi,
\midicmd, \noteOn,
\midiout, ~mid, // MIDI target
\chan, 3,
\scale, Scale.aeolian,
\degree, (-14)+Prewrite(0,~d,60).trace,
\dur, 1.5,
\amp,0.5
)
).stop;

)

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s