; chownFM.orc
; CHOWNING'S FM INSTRUMENT BASIC FM INSTRUMENT
sr = 44100
kr = 4410
ksmps = 10
nchnls = 1
instr 1
inotedur = p3
imaxamp = ampdb(p4)
icarrfreq = p5
imodfreq = p6
ilowndx = p7
indxdiff = p8-p7
; PARAMETERS DEFINING THE ADSR AMPLITUDE ENVELOPE
; TIMES ARE A PERCENTAGE OF p3
; attack amp = p9
; decay amp = p10
; sustain amp = p11
; release amp = p12
; end amp = p13
; attack lngth = p14
; decay lngth = p15
; sustain lngth = p16
; release lngth = p17
; PARAMETERS DEFINING THE ADSR FREQ DEVIATION ENVELOPE
; TIMES ARE A PERCENTAGE OF p3
; attack amp = p18
; decay amp = p19
; sustain amp = p20
; release amp = p21
; end amp = p22
; attack lngth = p23
; decay lngth = p24
; sustain lngth = p25
; release lngth = p26
aampenv linseg p9,p14*p3,p10,p15*p3,p11,p16*p3,p12,p17*p3,p13
adevenv linseg p18,p23*p3,p19,p24*p3,p20,p25*p3,p21,p26*p3,p22
amodosc oscili (ilowndx+indxdiff*adevenv)*imodfreq,imodfreq,1
acarosc oscili imaxamp*aampenv,icarrfreq+amodosc,1
out acarosc
endin
; chowdrum.sco
; DRUM SOUNDS WITH CHOWNING FM
f1 0 4096 10 1
t 0 92
; final amplitude envelope index(deviation) envelope
; values time valuestime
;p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24 p25 p26
;in st dur amp car mod i1 i2 atk dec sus rel end atk dec sus rel atk dec sus rel end atk dec sus rel
i1 0 0.125 88 24.5 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 + 0.125 88 > 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 . 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
i1 . 0.125 88 1583 161 0 5 .75 .8 1.0 .15 .0 .125 .125 .25 .5 1.0 .0 .0 .0 .0 .125 .25 .25 .25
e
905
61
399
502
true
231
46
255
slider1
5
5
20
100
{eb304083-95d0-44ff-9de9-1c0d169b6259}
true
0
-3
0.00000000
1.00000000
0.00000000
lin
continuous
-1.00000000
false
Version: 3
Render: Real
Ask: Yes
Functions: ioObject
Listing: Window
WindowBounds: 905 61 399 502
CurrentView: io
IOViewEdit: On
Options:
ioView nobackground {59367, 11822, 65535}
ioSlider {5, 5} {20, 100} 0.000000 1.000000 0.000000 slider1