«alarm!» by LFSaw

on 22 Jan'24 00:33 in alarmringtone

Good Morning!

Inspired by a Nokia alarm clock sound from one of their non-smartphone mobiles, I designed an alarm clock sound for your mobile. The basic idea is to start with a very simple and short grain, giving you a chance to reach for the phone and turn it off before it starts to get annoying.

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
38
39
40
s.options.memSize = 8192 * 8;


(
SynthDef(\grain, {|out = 0, freq = 100, attack = 0, decay = 1, sustain = 0.1, distort = 0, fTime = 0.1, fFac = 1.2, amp = 1, delay = 0|
    var startFreq, endFreq, src, aEnv, fEnv;
    
    startFreq = fFac * freq;
    endFreq = freq;
    
    aEnv = EnvGen.ar(Env.perc(attack, decay), timeScale: sustain, doneAction: 2, levelScale: amp);
    fEnv = EnvGen.ar(Env([startFreq, endFreq], [fTime]));
    src = SinOsc.ar(fEnv, 1, mul: 1 + distort).wrap2(1);
    
    Out.ar(out, DelayN.ar(src * aEnv!2, 0.1, delay))
}).add
)

(
Pdef(\grainer, Pbind(
    \radiation, Pseq([
        Pseq([10] ++ (0.1 ) ++ [10] ++ (0.1!6), 1),
        Pseq([ 1] ++ (0.1!6) ++ [ 1], inf)
    ]),
    \instrument, \grain,
    \freq, ([1200, 800, 600, 200]!12).flat.collect{|v| v * rrand(0.99, 1)} * Prand([4, 1, 2, 3, 4, 8], inf),
    \fTime, 0.0125,
    \fFac, 5,
    \sustain, 0.1,
    \attack, 0.0005,
    \decay, 2,
    //\distort, {Pwhite(0.1, 5.0)}!(12 * 4),
    \amp, 0.1,
    \delay, {Pwhite(0.01, 0.1)}!(12 * 4),
    \dur, Pkey(\radiation)
)).play
)


Pdef(\grainer).stop
raw 1128 chars (focus & ctrl+a+c to copy)
reception
comments
LFSaw ↪ user 22 Jan'24 00:35

https://archive.org/details/alarm-LFSaw

LFSaw ↪ user 22 Jan'24 00:35