44kwm20

AAYAAAU0eJyFU01rE1EUPS+ZvPfSBCULQeomuNHSD2YmM82ECFK0aEujQsGl5mtKA2mbNgnURbrSlW6q4KYt/RC6cNlFobVx2ZW4EH+Agn+gaxn0ziRpZ1LBvGTyQs6999xz7gX4ND+F7/Xnj/vuXRGZrVUrDShmIaNh8kzclRqEmnWPHsLwIdjWfB/KWeczcseHkm2wvAHIXLPaqNSqL6DMqbYJZ0e+Fk8htKzuAhmcXYZwrlCDoo+bFpx9GRavcM1LNGaY9MhkR+nWRW8zRJ40q3UbSlFPpZFoET2Gq4bh4s1slwAj3n0UBy0RFc99FBFhLNEKIT7RLFeWko+bjVqTwLY1Pgdw/iUaRVTtJlQBZaaySFUzxXQBw0dCipu47v01oo2oY6pKT/o1qmU1t/ygdbl3hHmbnyFKALXLEoqb2K7XoZRT5RKcTTklhhDvNd9h6uyCOfv9ku/Jh/y3rx9nk1AbRP1Rc6For0BJp40UnA/ip7jlwUgeT0Iqmaus6lC0tGkgb/C8/I6YSsQ7HwLJNgOftat2yVXELukUJn6JT11j+g4FJFpBG0/kZ/HSE2jMNHtOmgEnQ0FJD8lIGzc6kia1kSSJqpn01VNVJblioaAI+SF+InWfCMsHYIk1QEwt1DpjYpkaeRHhbRqTmDcmPc75oX94NMDb4plvPsFYsKQ85m/FaWCOqGTL9XHyPvlopzSb9OPT0SuIeBBi82DFLjRcT4yMRVpu0BLc7rhsXri8Q/6dBM1BjP+Q3/zmuCpwBuFRShpQxq000Y7zr/KNizs/RIyDWqYe7y0tNlaWqnW3R4vAIZrD04vh1sI0mlR7D6HhI7pOlMtkypxFNu7KVdpGcS6Zsy0DriXWqG7xf67Fg9uzfMDfXQpSNV+QW2k9wAQK+XIHUs2avdUZCGbdmhe1SwPUnzVv0ADlbFKDokpFWnTGP4r3GCQV9K4aek8XL0hjTB7jL64UGWo=

44kwm20

bps(130/120)

let hcho = ifp ((== 0). (flip mod 4)) ( const (sound $ "hc ho")) (const (sound $ "[hc ho] hc")) $ sound "~"

d1 $ sound "{sync}%16" # nudge "0.01"

d2 $ stack[
  sound "bd [~ ~ ~ bd] [~ bd bd ~][~]" # n "20" # shape "0.6" # gain "1",
  stack [ whenmod 4 3 (const (sound $ "~ ~ ~ [~ [~ drum]]")) $ sound "~", sound "~ drum ~ drum " ] # shape "0.5" # gain "0.95" # n "1" # cut "2" # speed "0.9" # end "0.9" ,
  stack [ whenmod 4 3 (const (sound $ "~ ~ ~ [~ [~ ho]]")) $ sound "~", wedge (6/8) (sound "hc hc hc hc hc hc") (hcho) ] # cut "1" # gain "0.9",

44kwm20

////////////////////////////
// SynthDef ////////////////
////////////////////////////
(
	SynthDef(\clap,{
		arg output=0, vari=0, acc = 1;
		var noiz, amp, filt1, filt2, aEnv, fEnv, tap;

		noiz = WhiteNoise.ar;
		aEnv = EnvGen.kr(Env.perc(0.01, 0.4, 1, -10).delay(Rand(0,0.02)), 1, doneAction:2);

44kwm20

////////////////////////////
// SynthDef ////////////////
////////////////////////////
(
	SynthDef(\clap,{
		arg output=0, vari=0, acc = 1;
		var noiz, amp, filt1, filt2, aEnv, fEnv, tap;

		noiz = WhiteNoise.ar;
		aEnv = EnvGen.kr(Env.perc(0.01, 0.4, 1, -10).delay(Rand(0,0.02)), 1, doneAction:2);

44kwm20

//////////
// 説明
// 1のカッコを実行 > 2にてサンプルのパス、ビートの長さ、音量、確率を入力 > 
// 2のカッコを実行 > 3のbpmを設定 > 3のカッコを実行 
//
// - 2について -
//・ループさせたいサンプルについて、ビートの長さは4分音符分を"1"とし計算。4/4一小節分は"4"になります。
//・ワンショットで鳴らしたいサンプルについて、ビートの長さを"0"にしてください。
//・確率の部分は「合計して100にする」と言った事は必要ありません。単純に他のサンプルとの比率を記入して下さい。
//

44kwm20

(
(SynthDef(\aaaa,{
	arg gate=1,freq,amp=1,de,atk=2,rls=2,bus;
	var mix,osc1;
	var env1;
	
	osc1 = FSinOsc.ar(freq+({Rand(-1*de,de)}!2));
	env1 = EnvGen.kr(
	Env([0,1,1,1,0],[atk,0,0,rls],[2,1,1,-2],3),gate,doneAction:2);
	mix = osc1 * env1 * amp;