Skip to content

Instantly share code, notes, and snippets.

View ALOUT's full-sized avatar

Taichi Arai ALOUT

  • 日本
View GitHub Profile
@ALOUT
ALOUT / TaskSeq.scd
Created June 11, 2014 07:10
タスクベース(大枠シーケンサ)
(
SynthDef("testSynth", {|amp=1.0, freq=440, decay=0.2|
var out;
out = SinOsc.ar(freq);
out = out * Line.kr(amp, 0, decay, doneAction:2);
out = out + DelayC.ar(out, 10.0,1.2, 1.0);
out = Pan2.ar(out);
out = out * 1.5;
Out.ar(0, out);
@ALOUT
ALOUT / 140603SynthDefAll
Created June 5, 2014 11:46
Glanular+Bass+Drum+MasterEffects SynthDef
(
SynthDef("testSynth", {|amp=1.0, freq=440, decay=0.2|
var out;
out = SinOsc.ar(freq);
out = out * Line.kr(amp, 0, decay, doneAction:2);
out = Pan2.ar(out);
Out.ar(0, out);
}).send(s);
SynthDef("hat", {
@ALOUT
ALOUT / bass.scd
Created June 5, 2014 11:45
ベースSynthDef
SynthDef("Bass", {
arg amp=0.7, freq=0, gate=1;
var out,env,sweep;
sweep = Impulse.kr(4).round;
out = SinOsc.ar(freq,(Sweep.ar(sweep, 2pi * [52.8, 200]) + (pi/6)).wrap(-pi, pi), [1, 0.1]).mean.tanh;
env = EnvGen.kr(
Env([0.1, 0.5, 0.4, 0], [0, 0.2, 0.1], -5),
gate,
@ALOUT
ALOUT / granulerSynthDef.scd
Created June 5, 2014 08:56
グラニュラーシンセシス
b = Buffer.read(s, "/Applications/SuperCollider/sounds/fools_gold.wav");
SynthDef("grain1", {
arg outBus= 0, gate = 1, amp = 0.5, pan = 0, sndbuf, envbuf = -1;
var env, freqdev, grain, out;
env = EnvGen.kr(
Env.linen(0, 0.1, 1/8, 0.3, \sine),
gate,
doneAction:2);
@ALOUT
ALOUT / chord.scd
Created June 3, 2014 08:39
和音の度数(基本形)
[0,4,7] // M
[0,3,7] // m
[0,4,7,10] // 7
[0,4,7,11] // M7
[0,3,7,10] // m7
[0,3,7,11] // mM7
[0,4,8] // aug
[0,3,6,9] // dim
[0,5,7] // sus4
[0,5,7,10] // 7sus4
@ALOUT
ALOUT / amenGlitches.scd
Created June 1, 2014 11:40
amen Glitchテンプレート
// @phrontist
// https://soundcloud.com/phrontist/lazy-amen-break-glitches
s.reboot;
s.stop;
~amen = Buffer.readChannel(s,"/Applications/SuperCollider/sounds/fools_gold.wav", channels:[0,0]);
SynthDef(\loop, {| out = 0, bufnum = 0, gate = 1, pos = 0, speed = 1, freq = 0, endfreq = 0.001, sustain, wobble = 1, boost = 1|
@ALOUT
ALOUT / mono2stereo.scd
Created June 1, 2014 10:58
mono->stereo Buffer
~amen = Buffer.readChannel(s,"/Applications/SuperCollider/sounds/Break001.aiff", channels:[0,0]);
@ALOUT
ALOUT / WAVRecording.scd
Created June 1, 2014 09:25
WAV録音テンプレート
s = Server.default;
s.waitForBoot{
s.recChannels_(2);
s.recHeaderFormat_('WAV');
s.recSampleFormat_('float');
s.prepareForRecord("/Users/kinksaiz/Desktop/multi.wav");
s.sync;
s.record;
};
@ALOUT
ALOUT / PianoSeq
Last active August 29, 2015 14:02
ピアノパターン #01
(
SynthDef(\mdapiano1, { |out=0, freq=440, gate=1|
var son = MdaPiano.ar(freq, gate, release: 0.9, stereo: 0.3, sustain: 0);
DetectSilence.ar(son, 0.01, doneAction:2);
Out.ar(out, son * 0.1);
}).add;
)
TempoClock.default.tempo = 0.8;
@ALOUT
ALOUT / dewdrop_libMixer.scd
Created May 31, 2014 01:14
dewdrop_libMixerテンプレート
MixerChannelDef(\mix1x4, 1, 4,
SynthDef(\mix1x4, { |busin, busout, xpos, ypos, level|
var sig = In.ar(busin, 1);
sig = Pan4.ar(sig, xpos, ypos, level);
Out.ar(busout, sig);
ReplaceOut.ar(busin, sig);
}),
controls: (xpos: \bipolar,
ypos: \bipolar,
level: (value: 0.75, spec: \amp))