| That's a pretty cool drum!
I've discovered it can even do good kick drums of several flavors, with
some parameter tweaking like so...
i15 0 .15 32000 5.05 100 1000 .3 100 .5
i15 0.125 .15 32000 5.05 100 100 .3 20
i15 0.250 .15 32000 5.05 100 100 .8 20
i15 0.5 .15 32000 5.08 100 100 .4 20
i15 0.625 .15 32000 5.08 6000 700 .5 100
Hans Mikelson wrote:
>
> Hi,
>
> Continuing the drum thread a bit, here are some FM toms.
>
> Bye,
> Hans Mikelson
>
> ; ORC
> sr = 44100 ; Sample rate
> kr = 4410 ; Kontrol rate
> ksmps = 10 ; Samples/Kontrol period
> nchnls = 2 ; Normal stereo
>
> ;---------------------------------------------------------
> ; FM Tom-Tom
> ; Coded by Hans Mikelson 9/5/99
> ;---------------------------------------------------------
> instr 15
>
> idur = p3 ; Duration
> iamp = p4 ; Amplitude
> ifqc = cpspch(p5) ; Convert pitch to frequency
> irez = p6 ; Resonance or Q
> ifco = p7 ; Cut off frequency
> ihit = p8 ; Noise duration
> ihamp = p9 ; Noise amplitude
> ipanl = sqrt(p10) ; Pan left
> ipanr = sqrt(1-p10) ; Pan right
>
> afqc1 linseg 1+iamp/30000, ihit*.5*idur, 1, .1, 1 ; Pitch bend
> afqc = afqc1*afqc1 ; Pitch bend squared
> adclck linseg 0, .002, 1, idur-.004, 1, .002, 0 ; Declick envelope
> aamp1 expseg .01, .001, 1, idur-.001, .04 ; Tone envelope
> aamp2 expseg .01, .001, 1, idur*ihit-.001, .01 ; Noise envelope
>
> arnd1 rand ihamp ; Genrate noise
> arnd rezzy arnd1, ifco, irez, 1 ; High pass mode
> asig oscil 1, afqc*ifqc*(1+arnd*aamp2), 1 ; Frequency modulation with
> noise
>
> aout = asig*iamp*aamp1*adclck ; Apply amp envelope and
> declick
>
> outs aout*ipanl, aout*ipanr ; Output the sound
>
> endin
---------------- paul winkler ------------------
slinkP arts: music, sound, illustration, design, etc.
zarmzarm@hotmail.com --or-- slinkp AT ulster DOT net
http://www.ulster.net/~abigoo/ |