diff options
Diffstat (limited to 'MyMusicMIDI.csd')
-rw-r--r-- | MyMusicMIDI.csd | 158 |
1 files changed, 79 insertions, 79 deletions
diff --git a/MyMusicMIDI.csd b/MyMusicMIDI.csd index d7e41f9..bda55e6 100644 --- a/MyMusicMIDI.csd +++ b/MyMusicMIDI.csd @@ -1,79 +1,79 @@ -; OurMusic (2009) for Sugar and Sugar-on-a-Stick - by Arthur B. Hunkins
-; MyMusicMIDI.csd - requires MIDI device with 8 or 9 pots/sliders
-
-<CsoundSynthesizer>
-<CsOptions>
-
--odac -+rtaudio=alsa -+rtmidi=alsa -M hw:1,0 -m0d --expression-opt -b128 -B2048 -+raw_controller_mode=1
-
-</CsOptions>
-<CsInstruments>
-
-sr = 32000
-ksmps = 100
-nchnls = 2
-
- seed 0
-
-gichan chnexport "chan", 1
-gictrl1 chnexport "ctrl", 1
-gipan chnexport "pan", 1
-gipctrl chnexport "panctrl", 1
-
- instr 1, 2, 3, 4, 5, 6, 7, 8
-
-kpan init 0
-indx = p1 - 1
-ictrl = gictrl1 + indx
-kamp2 ctrl7 (gichan > 0? gichan: p1), (gichan > 0? ictrl: 7), 0, 1
-kamp table kamp2 * 512, 1
-kamp = (kamp2 == 0? 0: kamp)
-kamp port kamp, .01
-ktrig trigger kamp2, .01, 0
- if ktrig == 0 goto skip
- if gipan == 1 goto skip2
-kpan rnd31 .5, .7
-kpan = (p1 > 1? kpan: 0)
- kgoto skip
-skip2:
-gkpan ctrl7 (gichan > 0? gichan: 9), (gichan > 0? gipctrl: 7), -.5, .5
- if p1 > 1 goto skip3
-kpan = 0
-gkpan2 = gkpan
-gkflag = 1
- kgoto skip
-skip3:
-kpan = (((gkpan2 == gkpan) && (gkflag == 1))? 0: gkpan)
-gkpan2 = gkpan
-gkflag = (kpan == 0? 1: 0)
-skip:
-kmod2 rspline 1.4, 2, 1.5, 2.5
-kmod rspline .85, 1, 20, 25
-kfreq jspline .25, 1, 2
-kpw jspline p7, 1, 2
-aout vco2 p4 * kamp * kmod * kmod2, 440 + (p1 > 1? kfreq: 0), p5, p6 + kpw
-kamp2 port kamp2, .01
-a1,a2,a3,a4 pan aout, .5 + (kamp2 * kpan), 1, 2, 1
- outs a1 - (.02 * a2), a2 - (.02 * a1)
-
- endin
-
-</CsInstruments>
-
-<CsScore>
-
-f1 0 512 16 1 511 2.2 1000
-f2 0 8193 7 0 8193 1
-i1 0 3600 6000 4 .5 .015
-i2 0 3600 3000 4 .7 .02
-i3 0 3600 4200 4 .8 .017
-i4 0 3600 2000 4 .95 .01
-i5 0 3600 1300 2 .6 .02
-i6 0 3600 1500 2 .7 .02
-i7 0 3600 2100 2 .8 .02
-i8 0 3600 2200 2 .95 .014
-
-e
-
-</CsScore>
-</CsoundSynthesizer>
+; OurMusic (2009) for Sugar and Sugar-on-a-Stick - by Arthur B. Hunkins +; MyMusicMIDI.csd - requires MIDI device with 8 or 9 pots/sliders + +<CsoundSynthesizer> +<CsOptions> + +-odac -+rtaudio=alsa -+rtmidi=alsa -M hw:1,0 -m0d --expression-opt -b128 -B2048 -+raw_controller_mode=1 + +</CsOptions> +<CsInstruments> + +sr = 32000 +ksmps = 100 +nchnls = 2 + + seed 0 + +gichan chnexport "chan", 1 +gictrl1 chnexport "ctrl", 1 +gipan chnexport "pan", 1 +gipctrl chnexport "panctrl", 1 + + instr 1, 2, 3, 4, 5, 6, 7, 8 + +kpan init 0 +indx = p1 - 1 +ictrl = gictrl1 + indx +kamp2 ctrl7 (gichan > 0? gichan: p1), (gichan > 0? ictrl: 7), 0, 1 +kamp table kamp2 * 512, 1 +kamp = (kamp2 == 0? 0: kamp) +kamp port kamp, .01 +ktrig trigger kamp2, .01, 0 + if ktrig == 0 goto skip + if gipan == 1 goto skip2 +kpan rnd31 .5, .7 +kpan = (p1 > 1? kpan: 0) + kgoto skip +skip2: +gkpan ctrl7 (gichan > 0? gichan: 9), (gichan > 0? gipctrl: 7), -.5, .5 + if p1 > 1 goto skip3 +kpan = 0 +gkpan2 = gkpan +gkflag = 1 + kgoto skip +skip3: +kpan = (((gkpan2 == gkpan) && (gkflag == 1))? 0: gkpan) +gkpan2 = gkpan +gkflag = (kpan == 0? 1: 0) +skip: +kmod2 rspline 1.4, 2, 1.5, 2.5 +kmod rspline .85, 1, 20, 25 +kfreq jspline .25, 1, 2 +kpw jspline p7, 1, 2 +aout vco2 p4 * kamp * kmod * kmod2, 440 + (p1 > 1? kfreq: 0), p5, p6 + kpw +kamp2 port kamp2, .01 +a1,a2,a3,a4 pan aout, .5 + (kamp2 * kpan), 1, 2, 1 + outs a1 - (.02 * a2), a2 - (.02 * a1) + + endin + +</CsInstruments> + +<CsScore> + +f1 0 512 16 1 511 2.2 1000 +f2 0 8193 7 0 8193 1 +i1 0 3600 6000 4 .5 .015 +i2 0 3600 3000 4 .7 .02 +i3 0 3600 4200 4 .8 .017 +i4 0 3600 2000 4 .95 .01 +i5 0 3600 1300 2 .6 .02 +i6 0 3600 1500 2 .7 .02 +i7 0 3600 2100 2 .8 .02 +i8 0 3600 2200 2 .95 .014 + +e + +</CsScore> +</CsoundSynthesizer> |