; Select audio/midi flags here according to platform
-odac ;;;realtime audio out
;-iadc ;;;uncomment -iadc if realtime audio input is needed too
; For Non-realtime ouput leave only the line below:
; -o gen04.wav -W ;;; for file output any platform
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
gisine ftgen 0, 0, 16384, 10, 1 ;sine wave
instr 1
ihertz = cpspch(p4)
ipkamp = p5
iwsfn = p6 ;waveshaping function
inmfn = p7 ;normalization function
agate linen 1, .01, p3, .1 ;overall amp envelope
kctrl linen .9, 2, p3, 2 ;waveshaping index control
aindex poscil kctrl/2, ihertz, gisine ;sine wave to be distorted
asignal tablei .5+aindex, iwsfn, 1 ;waveshaping
knormal tablei 1/kctrl, inmfn , 1 ;amplitude normalization
outs asignal*knormal*ipkamp*agate, asignal*knormal*ipkamp*agate
endin
f1 0 64 21 6 ;Gaussian (random) distribution
f2 0 33 4 1 1 ;normalizing function with midpoint bipolar offset
s
; st dur pch amp wsfn inmfn
i1 0 4 6.00 .7 1 2
i1 4 . 7.00 .
i1 8 . 8.00 .
;-------------------------------------------------------------------------------------
f3 0 1025 13 1 1 0 5 0 5 0 10 ;Chebyshev algorithm
f4 0 513 4 3 1 ;normalizing function with midpoint bipolar offset
s
; st dur pch amp wsfn inmfn
i1 0 4 6.00 .9 3 4
i1 4 . 7.00 .
i1 8 . 8.00 .
e