yotamorimoto

スネアドラムをつくる


スネア（響き線）と膜面の振動を単純なモデルでシミュレート
SynthDef(\snr, { |amp=0.1|
	var sig, env, snr, mem;
	env = EnvGen.kr(Env.perc(0, 0.05), 1, amp, doneAction: 2);
	snr = WhiteNoise.ar;//スネア音
	mem = FSinOsc.ar(200);//膜面
	sig = LPF.ar(snr + mem, 12000);//両方を足し 1.2kHz 以上をカット

yotamorimoto

キックとキーワード sustain について

正弦波を周波数変調する
高い周波数からすばやく低い方へ減衰することでキックのアタックをつくる
(
SynthDef(\kik, {| amp=0.3, sustain=1, freq=30 |
	var sig, frqEnv, ampEnv;
	frqEnv = EnvGen.kr(Env.perc, 1, freq*10, freq, 0.023);//freq*10 から freq まで 0.023 秒で減衰
	ampEnv = EnvGen.kr(Env.linen(0.01, 0.1, 0.3, 1, [-5,1,-4]), 1, amp, 0, sustain, 2);
	sig = SinOsc.ar(frqEnv, 0, ampEnv);

yotamorimoto

エフェクト作り
ライディーンのイントロ・フレーズをつくる

(
// ハイハットのようなパーカッション
// out 引数を用意
SynthDef(\prc, {| out=0, amp=0.1 |
	var sig, env;
	env = EnvGen.kr(Env.perc(0, 0.08), 1, amp, doneAction: 2);
	sig = WhiteNoise.ar;

yotamorimoto

ベース作りと音階、音度、オクターブについて

倍音成分が豊かな「ノコギリ波」をフィルタリングしてつくる
(
// 引数 freq, gate を準備
SynthDef(\bss, { |gate=1, amp=0.1, sustain=1, freq=440|
	var sig, env;
	env = EnvGen.kr(Env.adsr, gate, amp, 0, sustain, 2);
	// ２つのノコギリ波をmixし少し歪みを加える
	sig = Mix(Saw.ar([freq,freq+0.1])).tanh;

yotamorimoto

(
// これまで作ったリズム隊のパターンを再定義します
// シンセ定義は以前のものを使う
~hatA = Pbind(\instrument, \hat, 
	\dur, Pn(0.25, 4 * 4 * 8), //　注１
	\amp, Pseq([0.4, 0.2, 0.3, 0.2], inf),
	\pan, -0.5
);
~snrA = Pbind(\instrument, \snr, 
	\dur, Pseq([

yotamorimoto

(
// ノコギリ波をつかう
SynthDef(\arp, { |gate=1, amp=0.1, sustain=1, freq=440, pan=0|
	var sig, env;
	env = EnvGen.kr(Env.adsr, gate, amp, 0, sustain, 2);
	sig = Mix(LFSaw.ar([freq,freq+0.1])).softclip;
	sig = RLPF.ar(sig, 4500, 0.5);
	sig = Pan2.ar(sig, pan, env);
	Out.ar(0, sig);
}).add;

yotamorimoto

和音と配列

(
SynthDef(\hrm, { |amp, freq=440|
	var sig, env;
	env = EnvGen.kr(Env.perc, 1, amp, doneAction: 2);
	sig = Saw.ar([freq, freq*0.99]);
	sig = RLPF.ar(sig, 3200);
	Out.ar(0, sig * env);
}).add;

yotamorimoto

リードシンセとリバーブ
(
// メロディ用のリードシンセ
SynthDef(\lead, { |out=0, gate=1, amp=0.1, freq=440|
	var sig, env;
	env = EnvGen.kr(Env.adsr(0.01), gate, amp, 0, 1, 2);
	sig = Mix.ar(LFTri.ar([freq, freq*2])); // オクターブを重ねる
	sig = HPF.ar(sig, 500);
	sig = sig * env;
	Out.ar(out, sig);

yotamorimoto

/*******************************************************************************
"rydeen" -- ymo
	old school exercise -- yota morimoto
		2024 動作確認済み
*******************************************************************************/
(
// ダブルクリックで選択後、実行
// ページ下の再生コードを実行
TempoClock.default.tempo = 142/60;
s = Server.default;

yotamorimoto

/*******************************************************************************
 2012年制作
 2021年動作確認
 demo live-coding using synth emulations from ymo 'rydeen'
								yota morimoto
*******************************************************************************/
(
// double clicking selection.
s = Server.default;
TempoClock.default.tempo = 128/60;