Coding Carpenter
John Howard Carpenter (Carthage, 16 gennaio 1948) è un regista, sceneggiatore, compositore, musicista, attore, produttore cinematografico e montatore statunitense.
la Freak Track è composta Realtime, generando, valutando e modificando codice;
(
~sinfb = Pbind(\instrument,\daf_bass,\scale,Scale.major,\root,2,\octave,[3,4],
\degree,Pseq([7,1,3,1],inf),\dur,Pbjorklund2(5,8)/4,\amp,0.15,\fb,0.1,\rel,
0.3);
~feedback = {SinOsc.kr(0.1,-1,1).range(0,1.713)};
~sinfb.set(\fb,~feedback);
~sinfb.play(quant:0.1);
~h.play;
~k.play;
~k2.play;
)
(
var i=2;
~sinfb = Pbind(\instrument,\daf_bass,\scale,Scale.major,\root,2,\octave,[3,4],
\degree,Pseq([1,Pfunc({i=i+1;if (i==18) {i=17}; i}),1,Pfunc({i=i+1;if (i==18)
{i=17}; i})],inf),\dur,Pbjorklund2(5,8)/4,\amp,0.15,\fb,0.1,\rel,
0.3);
~feedback = {SinOsc.kr(0.1,-1,1).range(0,1.713)};
~sinfb.set(\fb,~feedback);
~sinfb.play;
~h.play;
~k.stop;
~k2.stop;
~piano.stop(1);
~piano2.stop(1);
)
(
~sinfb = Pbind(\instrument,\daf_bass,\scale,Scale.major,\root,2,\octave,[3,4],
\degree,Pseq([1,1,1,1],inf),\dur,Pbjorklund2(5,8)/4,\amp,0.15,\fb,0.1,\rel,
0.3,\pan, -0.7);
~feedback = {SinOsc.kr(0.1,-1,1).range(0,1.713)};
~sinfb.set(\fb,~feedback);
~sinfb.play(fadeTime:0);
~h.play;
~chords.play(fadeTime:0);
)
(
~piano = Pbind(\instrument,\pianovel,\scale,Scale.major,\root,2,\octave,[5,6],
\degree,Pseq([Pseq([1,2,3,4,5,6,7,8,9].reverse,3),Pseq([2,3,4,5,6,7,8,9].reverse,1),
Pseq([1,2,3,4,5,6,7,8,9],4),Pseq([1,1,1,1,1,1,1,1,1],4)], inf),\dur,Pbjorklund2(5,8)/4,\amp,1.5,\rel,
0.3,\pan, 0.7);
~piano.play;
)
(
(
~chords = Pbind(\instrument,\bpfsaw,
\dur,Pwhite(4.5,7.0,inf),
\degree,Pseq([
\D,
\F,
\A,
].chordProg,inf),
\detune, Pexprand(0.0001,0.1,inf),
\cfmin,100,
\cfmax,1500,
\rqmin,Pexprand(0.02,0.15,inf),
\atk,Pwhite(2.0,4.5,inf),
\rel,Pwhite(6.5,10.0,inf),
\ldb,6,
\amp,Pwhite(0.8,2.0),
\out,0)
);
~chords.play;
)
