diff options
| author | David Robillard <d@drobilla.net> | 2008-09-30 16:50:21 +0000 |
|---|---|---|
| committer | David Robillard <d@drobilla.net> | 2008-09-30 16:50:21 +0000 |
| commit | 93850c202de8b073a1ce1dd8bd246d407bce4e2f (patch) | |
| tree | 6910b135bf4eff12de1af116cef73f6e9c107cd0 /src/scripts/supercollider/example.sc | |
| parent | a8bf5272d096de73507d2eab47f282c345f4ca8a (diff) | |
| download | ingen-93850c202de8b073a1ce1dd8bd246d407bce4e2f.tar.gz ingen-93850c202de8b073a1ce1dd8bd246d407bce4e2f.tar.bz2 ingen-93850c202de8b073a1ce1dd8bd246d407bce4e2f.zip | |
Flatten ingen source directory heirarchy a bit.
git-svn-id: http://svn.drobilla.net/lad/trunk/ingen@1551 a436a847-0d15-0410-975c-d299462d15a1
Diffstat (limited to 'src/scripts/supercollider/example.sc')
| -rw-r--r-- | src/scripts/supercollider/example.sc | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/scripts/supercollider/example.sc b/src/scripts/supercollider/example.sc new file mode 100644 index 00000000..80a72a7b --- /dev/null +++ b/src/scripts/supercollider/example.sc @@ -0,0 +1,27 @@ +// Boot Ingen (inside SC) and the scsynth server +( +o=Ingen.boot { + o.loadPatch("/home/mlang/src/om-synth/src/clients/patches/303.om"); + s.boot; +} +) +// Connect patch output to one SC input +o.jackConnect("/303/output", "SuperCollider:in_3"); +// Play this input on the default output bus (most simple postprocessor) +{AudioIn.ar(3).dup}.play; +// A simple 303 pattern +( +Tempo.bpm=170; +Ppar([ + Pbind(\type, \om, \target, o.getPatch("/303",true), + \dur, 1/1, \octave,2,\degree, Pseq([Pshuf([0,2,4,6],16)],2)), + Pbind(\type, \om, \target, o.getPatch("/303",true), + \dur, Prand([Pshuf([1/2,1/4,1/4],4),Pshuf([1/3,1/3,1/6,1/6],4)],inf), + \legato, Prand((0.5,0.55..0.9),inf), + \octave,3,\degree, Pseq([Pshuf([0,2,4,6],2)],40)), + Pbind(\type, \om, \omcmd, \setPortValue, + \target, o.getPort("/303/cutoff",true), + \dur, 1/10, \portValue, Pseq((0,0.005..1).mirror,2)), + Pbind(\type, \om, \omcmd, \setPortValue, + \target, o.getPort("/303/resonance",true), \portValue, 1)]).play(quant:4) +) |