From: Art Hunkins ()
Date: Dec 5, 2004
Subject:
Re: Csound mixer
This is a multi-part message in MIME format.
-+K0 -+Om0d+M -+P0
sr = 44100
kr = 4410
ksmps = 10
nchnls = 2
FLpanel "In paradisum (2004) - Arthur B. Hunkins [stparadisum.csd]", 410, 340, 100, 100
gkm,im FLcount "Bank 1-6 1st Cont # (0-122)", 0, 122, 1, 10, 1, 190, 25, 10, 10, -1
FLsetVal_i 10, im
gkma,ima FLcount "Bank 7-12 1st Cont # (0-122)", 0, 122, 1, 10, 1, 190, 25, 210, 10, -1
FLsetVal_i 18, ima
gks,i0 FLcount "Shimmer (0-20)", 0, 20, 1, 5, 1, 190, 25, 10, 60, -1
gkd,i0 FLbutton "OFF - Tone Controls Paired ON - Like Controls Grouped", 1, 0, 3, 196, 30, 210, 60, -1
gkr,i0 FLbutton "Richer Amp Mod", 1, 0, 3, 125, 30, 10, 100, -1
gkt,i0 FLbutton "Test Mode", 1, 0, 3, 86, 30, 210, 100, -1
gkm1,im1 FLcount "#1(E) Amp Mod Fac (.08-.23)", .08, .23, .01, .05, 1, 190, 25, 10, 140, -1
FLsetVal_i .09, im1
gkm2,im2 FLcount "#2(G) Amp Mod Fac (.08-.23)", .08, .23, .01, .05, 1, 190, 25, 210, 140, -1
FLsetVal_i .11, im2
gkm3,im3 FLcount "#3(A) Amp Mod Fac (.08-.23)", .08, .23, .01, .05, 1, 190, 25, 10, 190, -1
FLsetVal_i .13, im3
gkm4,im4 FLcount "#4(C) Amp Mod Fac (.08-.23)", .08, .23, .01, .05, 1, 190, 25, 210, 190, -1
FLsetVal_i .15, im4
gkm5,im5 FLcount "#5(D) Amp Mod Fac (.08-.23)", .08, .23, .01, .05, 1, 190, 25, 10, 240, -1
FLsetVal_i .17, im5
gkm6,im6 FLcount "#6(E) Amp Mod Fac (.08-.23)", .08, .23, .01, .05, 1, 190, 25, 210, 240, -1
FLsetVal_i .19, im6
gkmv,i0 FLbutton "Moving Pan On/Off", 1, 0, 3, 140, 30, 10, 290, -1
gke,ie FLcount "Moving Pan Cont # (0-128)", 0, 128, 1, 10, 1, 190, 25, 210, 290, -1
FLsetVal_i 128, ie
FLpanel_end
FLrun
gif1 = 1320
gif2 = 1570
gif3 = 1760
gif4 = 2096
gif5 = 2355
gif6 = 2640
gkv1 init 0
gkv2 init 0
gkv3 init 0
gkv4 init 0
gkv5 init 0
gkv6 init 0
gkv7 init 0
gkv8 init 0
gkv9 init 0
gkv10 init 0
gkv11 init 0
gkv12 init 0
instr 1
init:
im = i(gkm)
ima = i(gkma)
id = i(gkd)
ie = i(gke)
if id == gkd kgoto next
if gkv1 + gkv2 + gkv3 + gkv4 + gkv5 + gkv6 + gkv7 + gkv8 + gkv9 + gkv10 + gkv11 + gkv12 == -300 kgoto again
next: if im != gkm kgoto again
if ima != gkma kgoto again
if ie != gke kgoto again
kgoto skip
again: reinit init
skip:
gkv1 ctrl7 1, im, -50, 511
gkv2 ctrl7 1, (id == 0? im+1: ima), 0, 4000
gkv3 ctrl7 1, (id == 0? im+2: im+1), -50, 511
gkv4 ctrl7 1, (id == 0? im+3: ima+1), 0, 4000
gkv5 ctrl7 1, (id == 0? im+4: im+2), -50, 511
gkv6 ctrl7 1, (id == 0? im+5: ima+2), 0, 4000
gkv7 ctrl7 1, (id == 0? ima: im+3), -50, 511
gkv8 ctrl7 1, (id == 0? ima+1: ima+3), 0, 4000
gkv9 ctrl7 1, (id == 0? ima+2: im+4), -50, 511
gkv10 ctrl7 1, (id == 0? ima+3: ima+4), 0, 4000
gkv11 ctrl7 1, (id == 0? ima+4: im+5), -50, 511
gkv12 ctrl7 1, ima+5, 0, 4000
if ie == 128 goto next1
gkmode ctrl7 1, ie, 0, 1
goto over
next1:
gkmode = gkmv
over: rireturn
kon1 trigger gkv1, 0, 0
kon2 trigger gkv3, 0, 0
kon3 trigger gkv5, 0, 0
kon4 trigger gkv7, 0, 0
kon5 trigger gkv9, 0, 0
kon6 trigger gkv11, 0, 0
koff1 trigger gkv1, 0, 1
koff2 trigger gkv3, 0, 1
koff3 trigger gkv5, 0, 1
koff4 trigger gkv7, 0, 1
koff5 trigger gkv9, 0, 1
koff6 trigger gkv11, 0, 1
schedkwhen kon1, 0, 0, 2, 0, -1
schedkwhen kon2, 0, 0, 3, 0, -1
schedkwhen kon3, 0, 0, 4, 0, -1
schedkwhen kon4, 0, 0, 5, 0, -1
schedkwhen kon5, 0, 0, 6, 0, -1
schedkwhen kon6, 0, 0, 7, 0, -1
schedkwhen koff1, 0, 0, -2, .2, .01
schedkwhen koff2, 0, 0, -3, .2, .01
schedkwhen koff3, 0, 0, -4, .2, .01
schedkwhen koff4, 0, 0, -5, .2, .01
schedkwhen koff5, 0, 0, -6, .2, .01
schedkwhen koff6, 0, 0, -7, .2, .01
endin
instr 2
ir = i(gkr)
im = i(gkm1)
imode = i(gkmode)
kv1 table gkv1, 5
kv1 port kv1, .03
kv2 port gkv2, .1
amod1 oscil kv2, (gkt == 1? gkm1: im)*gif1, (ir == 1? 3: 2)
kfreq randi gif1*.00012*gks, 50
asig oscil (4000+amod1)*kv1, gif1+kfreq, 1
ipan rnd31 1, 0
kpan randi 1, .05, abs(ipan)
aleft, aright, a3, a4 pan asig, (imode > .5? abs(kpan): abs(ipan)), 1, 4, 1
outs aleft, aright
endin
instr 3
ir = i(gkr)
im = i(gkm2)
imode = i(gkmode)
kv1 table gkv3, 5
kv1 port kv1, .03
kv2 port gkv4, .1
amod1 oscil kv2, (gkt == 1? gkm2: im)*gif2, (ir == 1? 3: 2)
kfreq randi gif2*.00012*gks, 50
asig oscil (4000+amod1)*kv1, gif2+kfreq, 1
ipan rnd31 1, 0
kpan randi 1, .05, abs(ipan)
aleft, aright, a3, a4 pan asig, (imode > .5? abs(kpan): abs(ipan)), 1, 4, 1
outs aleft, aright
endin
instr 4
ir = i(gkr)
im = i(gkm3)
imode = i(gkmode)
kv1 table gkv5, 5
kv1 port kv1, .03
kv2 port gkv6, .1
amod1 oscil kv2, (gkt == 1? gkm3: im)*gif3, (ir == 1? 3: 2)
kfreq randi gif3*.00012*gks, 50
asig oscil (4000+amod1)*kv1, gif3+kfreq, 1
ipan rnd31 1, 0
kpan randi 1, .05, abs(ipan)
aleft, aright, a3, a4 pan asig, (imode > .5? abs(kpan): abs(ipan)), 1, 4, 1
outs aleft, aright
endin
instr 5
ir = i(gkr)
im = i(gkm4)
imode = i(gkmode)
kv1 table gkv7, 5
kv1 port kv1, .03
kv2 port gkv8, .1
amod1 oscil kv2, (gkt == 1? gkm4: im)*gif4, (ir == 1? 3: 2)
kfreq randi gif4*.00012*gks, 50
asig oscil (4000+amod1)*kv1, gif4+kfreq, 1
ipan rnd31 1, 0
kpan randi 1, .05, abs(ipan)
aleft, aright, a3, a4 pan asig, (imode > .5? abs(kpan): abs(ipan)), 1, 4, 1
outs aleft, aright
endin
instr 6
ir = i(gkr)
im = i(gkm5)
imode = i(gkmode)
kv1 table gkv9, 5
kv1 port kv1, .03
kv2 port gkv10, .1
amod1 oscil kv2, (gkt == 1? gkm5: im)*gif5, (ir == 1? 3: 2)
kfreq randi gif5*.00012*gks, 50
asig oscil (4000+amod1)*kv1, gif5+kfreq, 1
ipan rnd31 1, 0
kpan randi 1, .05, abs(ipan)
aleft, aright, a3, a4 pan asig, (imode > .5? abs(kpan): abs(ipan)), 1, 4, 1
outs aleft, aright
endin
instr 7
ir = i(gkr)
im = i(gkm6)
imode = i(gkmode)
kv1 table gkv11, 5
kv1 port kv1, .03
kv2 port gkv12, .1
amod1 oscil kv2, (gkt == 1? gkm6: im)*gif6, (ir == 1? 3: 2)
kfreq randi gif6*.00012*gks, 50
asig oscil (4000+amod1)*kv1, gif6+kfreq, 1
ipan rnd31 1, 0
kpan randi 1, .05, abs(ipan)
aleft, aright, a3, a4 pan asig, (imode > .5? abs(kpan): abs(ipan)), 1, 4, 1
outs aleft, aright
endin
f1 0 32768 10 1 .006 .011
f2 0 32768 10 1
f3 0 32768 10 1 .07 .03
f4 0 8193 9 .25 1 0
f5 0 512 16 1 511 2.2 1000
i1 0 3600
e
-- [EMAIL REMOVED] (or to http://www.cs.bath.ac.uk/cgi-bin/csound ) [EMAIL REMOVED]