# spiffyscore

Diff

## To Artifact [cf2b0ca1e3]:

 ```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 sr = 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 endin ``` ```< < < < < < < | < | | > > > > < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < < > > > > ``` ``` 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 ```