;CHANGE YOUR INPUT AND OUTPUT DEVICE NUMBER HERE IF NECESSARY!
-iadc0 -odac0 -B512 -b128
;Example by Joachim Heintz
sr = 44100 ;set sample rate to 44100 Hz
ksmps = 32 ;number of samples per control cycle
nchnls = 2 ;use two audio channels
0dbfs = 1 ;set maximum level as 1
instr 1
aIn inch 1 ;take input from channel 1
kInLev downsamp aIn ;convert audio input to control signal
printk .2, abs(kInLev)
;make modulator frequency oscillate 200 to 1000 Hz
kModFreq poscil 400, 1/2
kModFreq = kModFreq+600
aMod poscil 1, kModFreq ;modulator signal
aRM = aIn * aMod ;ring modulation
outch 1, aRM, 2, aRM ;output to channel 1 and 2
endin
i 1 0 3600