My First Instrument

classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

My First Instrument

Chuckk Hubbard
I forgot about this.  I came up with this months ago, experimenting
with the little bits of knowledge I had, rather than filling my head
up with as much as possible like I have been lately.  I meant to clean
it up, add more control of the glissandi and panning, but I never did.
 I don't remember why I used 11000, probably picked it up from an
online tutorial, but I kind of like it better at that sr.
Not the most melodically useful sound, but I think it sounds cool.

-Chuckk

<CsoundSynthesizer>
<CsInstruments>

sr = 11000
kr = 1100
ksmps = 10
nchnls = 2


        instr 1

idur = p3
imod = p4
imod2 = p5
iwarb1 = p6
iwarb2 = p7

kmod linseg imod, p3/2, imod2, p3/2, imod
kwarb linseg iwarb1, .3*idur, iwarb2, .7*idur, iwarb1
aringf oscil kmod, kwarb/p3, 3
;aringf = aringf + kmod
aring oscil 100, aringf, 3
afund = aring*aring

adump delayr .2
adel1 deltapi .03
adel2 deltapi .04
adel3 deltapi .07
        delayw afund

afundr = aring*aring*aring*.02

adumpr delayr .23
adel1r deltapi .034
adel2r deltapi .042
adel3r deltapi .0701
        delayw afundr
asigl = afund+.7*adel1+.4*adel2+.4*adel3*3
asigr = afundr+.7*adel1r+.4*adel2r+.4*adel3r

        outs asigl, asigr
        endin


</CsInstruments>
<CsScore>

f3 0 4096 10 1 .5 .33 .25 .2 .1666 .143 .125 .1111 .1 .091 .083333

i1 0 3 200 100 100 100
i1 + 3 50  300 100 150
i1 + 1.5 300 1000 220 440
i1 + 2 250 300 1000 100
i1 . 3 1000 500 15 10
i1 + 3 2000 1000 2 100
i1 + 3 15  440 100 1


e

</CsScore>
</CsoundSynthesizer>
--
Send bugs reports to this list.
To unsubscribe, send email to [hidden email]