«trash» by ab2

on 09 Dec'21 00:45 in eguitar

just a very limited attempt for reference purpose of a hoped for eguitar synth ´ based on https://sccode.org/1-5aC#c982

log fork json 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
(
    var gspring;
        gspring = { |freq|
          var delay, sinc, env, line, impul;

   	      delay = freq.reciprocal;
	      impul = Impulse.ar(0);
		  env = Env.perc(0.001, 0.01).ar;
		  line = Line.ar(1000, 50, 0.01 );
	      sinc = SinOsc.ar(line);

	      Pluck.ar( sinc * env, impul, delay, delay, 5, 0.5);
	    };


SynthDef.new('eguitar',
	{   arg amp=1, freq=150, out_bus=0, pan=0;

		var snd;

    	snd = gspring.value(freq-50) +
		       gspring.value(freq) +
		       gspring.value(freq+50);

		snd = (snd * 32.dbamp).tanh;
		snd = RLPF.ar(snd, 2800+freq, 0.5);
		snd = (snd * 32.dbamp).tanh;
		snd = RLPF.ar(snd, 300+freq, 0.5);
		snd = (snd * 32.dbamp).tanh;

		snd * -20.dbamp;

		Out.ar(out_bus, snd );
}).add
)

Synth('eguitar', [freq: 360]);
raw 803 chars (focus & ctrl+a+c to copy)
reception
comments