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
41
42
43
44
45
46
|
; ************************************************************************
; ACCCI: 40_03_1.ORC
; synthesis: Waveshaping(40)
; Waveshaper Using Ring Modulation(03)
; source: Dodge (p.145, 1985)
; coded: jpg 8/93
= 44100
kr = 441
ksmps= 100
nchnls =2
instr 1; *****************************************************************
idur = p3
iamp = p4
ifq = cpspch(p5)
a1 oscili iamp, 1/idur, 1 ; envelope
a2 oscili a1, ifq, 1 ; sinus of ring modulation
a3 linseg 1, .04, 0, idur-.04, 0 ; very short envelope
a4 oscili a3, ifq*.7071, 1 ; sinus for waveshaper
; inline code for transfer function:
; f(x) = 1 + .841x - .707x**2 - .595x**3 + .5x**4 + .42x**5 -
; .354x**6 - .279x**7 + .25x**8 + .21x**9
a5 = a4*a4
a6 = a5*a4
a7 = a5*a5
a8 = a7*a4
a9 = a6*a6
a10 = a9*a4
a11 = a10*a4
a12 = a11*a4
; This is the polynomial representation of the transfer function
a13=1+.841*a4-.707*a5-.595*a6+.5*a7+.42*a8-.354*a9-.297*a10+.25*a11+.21*a12
a14 = a13*a2 ; ring modulation
outs a14,a14
|
<
<
<
<
<
<
<
|
<
|
|
|
<
<
<
<
|
<
<
|
<
<
|
<
<
<
<
<
<
<
<
<
<
<
|
<
|
|
<
|
<
<
<
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
sr=44100
ksmps=20
nchnls=1
instr 1
asound pluck p4, cpspch(p5), cpspch(p6), p7, p8 p9 p10
out asound
endin
instr 2
kenv linen p4, .1, p3, .2; envelope
asound oscili kenv, cpspch(p5), p6; oscillator
out asound
endin
|