Skip to content

Instantly share code, notes, and snippets.

@moxuse
moxuse / gist:1148305
Created Aug 16, 2011
bach invention #13
View gist:1148305
(
Pbind(
\note,
Pseq([
\,4,9,12,11,4,11,14,12,16,8,16,9,4,9,12,11,4,11,14,12,9,
16,12,16,9,12,4,7,5,9,14,17,14,11,14,7,11,2,5,4,7,12,16,
12,9,12,5,14,11,7,11,4,12,9,5,9,2,11,12,7,12,16,14,7,14,17,16,19,11,19,
12,7,12,16,14,7,14,17,16,12,19,16,
24,21,16,21,12,16,9,12,14,18,21,24,
23,19,14,19,11,14,7,11,12,16,19,23,
@moxuse
moxuse / gist:1148311
Created Aug 16, 2011
スペランカー
View gist:1148311
Tempo.bpm=144;
Pbind(\midinote,Pseq([
12,12,7,10,9,7,5,4,5,7,4,0,
12,12,7,10,9,7,5,4,5,7,4,0,
12,12,14,15,14,12,15,14,12,15,14,12,
12,12,7,10,9,7,5,4,5,7,4,0,
5,12,15,14,12,10,12,15,14,12,7,10,9,7,9,7
]+60,inf),
\dur,Pseq([
0.75,0.75,0.5,0.5,0.5,0.5,0.5,0.75,0.75,1,0.5,1,
View gist:1148353
(
SynthDef("hh1",{|out=20,amp=1,rate=1|var src;
src=RLPF.ar(Pan2.ar(ClipNoise.ar(0.2)),LFNoise2.ar(0.1,6000,9000),0.3)*EnvGen.ar(Env.perc(0.01,0.07,amp,-6),doneAction:2);
Out.ar(20,src)
}).store;
SynthDef("snr",{|out=20,amp=1,rate=1,src,src2|
src=RHPF.ar(ClipNoise.ar(0.03),LFNoise2.ar(1,700,800),0.3)*EnvGen.ar(Env.perc(0.00,0.125,amp,-3),doneAction:2);
src2=SinOsc.ar(120,0,0.3)*EnvGen.ar(Env.perc(0.00,0.26,amp,-12),doneAction:2);Out.ar(out,(src+src2).dup);
@moxuse
moxuse / gist:1165013
Created Aug 23, 2011
ARTSAT PROJECT 衛星家具
View gist:1165013
///////////////////////////////////////////////
//// ARTSAT PROJECT Dec. 20-21 2010 /////
//// Writen by Koichiro Mori moxus.org /////
///////////////////////////////////////////////
#include <Ethernet.h>
#include "Dhcp.h"
#include <NunniMCAX.h>
#include <string.h>
View gist:1183203
////gymnopedie////
(
//SynthDefs
SynthDef("osc1",{arg freq,amp;
Out.ar(0,
SinOsc.ar([freq,freq*1.01],0,SinOsc.ar(Pulse.ar(freq*2,0.1,freq),0,0.3))
*EnvGen.ar(Env.perc(0.0,0.9,1,-4),doneAction:2)*amp
)
}).store;
@moxuse
moxuse / gist:1183210
Created Aug 31, 2011
LinCong Oscllator
View gist:1183210
ProxySpace.push(s.boot);
~a.play;
(
~a.source={
AllpassC.ar(Mix.fill(12,{SinOsc.ar({[0,5,7,9,12,-12,17].choose+80}.midicps*{[1,0.5,2,0.666,0.75].choose},0.9.rand , LinCongC.ar(
SampleRate.ir/2,
LFNoise0.kr(0.3, 0.1, 0.1),
LFNoise0.kr(0.4, 0.5, 0.1),
@moxuse
moxuse / gist:1183231
Created Aug 31, 2011
Mic Input Convolution
View gist:1183231
(
Instr("convo",{arg amp=0,note=60;
var input, kernel;
input=AudioIn.ar(1)*amp;
kernel= Mix.ar(LFSaw.ar([note,note+5,note+3,note+15].midicps,0,1.0));
Out.ar(0,Convolution.ar(input,kernel, 1024, 0.5).dup);
},[\amp,[1,127,\linear,1]]).test;
)
@moxuse
moxuse / gist:1183235
Created Aug 31, 2011
Cellular Automaton
View gist:1183235
(
Task({
var array,rules;
array = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxa";
rules = [[//rule "Chell"
"a>a>a" -> "x",
"a>a>x" -> "a",
"a>x>a" -> "x",
"a>x>x" -> "a",
"x>a>a" -> "a",
@moxuse
moxuse / gist:1183252
Created Aug 31, 2011
2005_5 Sequence with GUI
View gist:1183252
////////2005_5 moxus/////////
(
Pdef(\comp,
Paddp(\ctranspose, Pseq([0,3,0,-5,0,-3,0,5], inf),
Ppar([
Pbind(\instrument,"sin-f",\midinote,Prand([60,71,\], inf),
\dur,Prand([4],inf),\amp,0.2),
@moxuse
moxuse / gist:1183270
Created Aug 31, 2011
Cut Oscillator Sequence with BBCut
View gist:1183270
(
SynthDef("sinerl0",{arg amp=0.8,att,rel,note;
var src,freq;
src=Mix.fill(3,{freq=(note+[0,5,7,12,36,48].choose).midicps;SinOsc.ar([freq,freq+(5.rand)],0,0.2)*amp})
*EnvGen.ar(Env.perc(att,rel,0.99,-3),doneAction:2);
Out.ar(10,src);
}).store;
SynthDef("sinerl1",{arg amp,note;
var src,freq;