mandarin.csd

<CsoundSynthesizer>

<CsInstruments>
sr = 44100
kr = 441
ksmps = 100
nchnls = 1
gibase = 440 * 3 / 16
gip4=4000


;::::::::::::::::::::::::::::::::::::::::::::::: Gen Tables
ifn ftgen 1, 0, 8192, 10, 1           ;:::::::Sine:::::::
ifn ftgen 2, 0, 8192, 19, .5, 1, 270, 1 ;:::::::Sigmoid::::
ifn ftgen 3, 0, 8192, 10, 10, 8, 7,    ;:::::::Sine:::::::
ifn ftgen 4, 0, 8192, 10, 10, 8, 4
ifn ftgen 5, 0, 8192, 10, 10, 7, 1, 2
ifn ftgen 6, 0, 8192, 10, 10, 5, 2
ifn ftgen 7, 0, 8192, 10, 10, 4
ifn ftgen 8, 0, 8192, 20, 1
ifn ftgen 9, 0, 512, 7, -1, 400, 0, 112, 1

gitrumpet=.45
gibass=.7
giharm=.1

gitrumpetprev=1
gibassprev=1
giharmprev=1

 giphrase = 6+rnd(6)

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
instr 2 ;::::::::::::Trumpet:::::::::::::::::::::::::::::::
;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
  kdyn linseg rnd(1.4)+.3,  rnd(.1),  rnd(1)+1,  rnd(.5),  rnd(1)
 ifir = 200*(rnd(.3)+.7)/gip4
 isec = 300*(rnd(.3)+.7)/gip4
 iatt1 = rnd(.2)+.2
 iatt2 = rnd(.2)+.2
  kcra linseg 0, p3/3, 0, iatt1, ifir, iatt1, 0, p3/3, 0, iatt2, isec, iatt2, 0
 irange = gibase*16
  inote = irange* p4 / 2
  iprev = (p5 > 0 ? gitrumpetprev : inote)
   knot linseg iprev, p3*rnd(.333), inote, 1, inote
    knott = knot*(1/(kcra/(kdyn*12)+1))
 ivalve = int(4*frac(inote*323))
  kvibc linseg 3, p3, 1
  kvibr oscil 1, kvibc, 1
   iatt =5000*(rnd(.02)+p3/100)/gip4
   kmainenv linseg 0.001, iatt, 1, p3-iatt-.1, 1, .1, 0.001
    kenv = ((1000+.9* gip4)*kdyn+kvibr*100)*kmainenv
 knote = knott+kvibr*inote/400
 kformcon linseg 0, .2, 1, 4, 1
  kform = 690+ivalve*10+ gip4/40+kformcon*70
 a1 fof kenv, knote, kform, 0, 600, .001,.002,.001, 200, 3, 2, p3
 agrain grain 8000, inote, 30, 1000, inote/400, .08, 3, 8, 1
 kcon linseg 900, .1, 1800, p3/2, 1500, p3/2, 900
  a2 butterlp a1, kcon*kdyn+ gip4/40
   a3 tone a2, 700
    a4 gain a3+agrain*((inote+2000)/180000), kenv
 out (a4)*gitrumpet
 gitrumpetprev=inote
endin

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
instr 3 ;::::::::::::Bass::::::::::::::::::::::::::::::::::
;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
 iatt = (rnd(40)+20)/1200
  kenv1 linseg 0, iatt, 1, p3-.1-iatt, 1, .1, 0
 kenv2 expseg gip4, 22, 1
  kenv = kenv1*kenv2
 irange = gibase*4
  inote = irange* p4
  iprev = (p5 > 0 ? gibassprev : inote)
knote linseg iprev, rnd(.5), inote, 1, inote
 istr = int(2*frac(inote*323))
 istrin = (inote < irange*3/2 ? 4 : 6)
  istring = istrin + istr
  acon      oscil       4095, knote/4, 9
  a1        tablei      acon+4096, istring
  ar        reson       a1, knote/2, 10, 1
  at        tone        ar+a1, 1700
  a2        gain        at, kenv

  aat pluck gip4, knote, gibase,9,1



 out (aat+a2)*gibass
 gibassprev=inote
endin



;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

instr 4 ;::::::::::::Harmonium:::::::::::::::::::::::::::::

;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
p3 = 4
 iatt = rnd(.4)+.4
  kenv1 expseg 1, iatt, gip4, p3-.5, gip4*2, 1, 1
  kconv linseg 1, p3/2, .5, p3/2, 1
   kvib oscil .1, kconv*5, 1
  kenv=kenv1*(kvib+1)*kconv
 irange = gibase*8
  inote = irange* p4
iprev = (p5 > 0 ? giharmprev : inote)
   knote1 linseg iprev, iatt*2, inote, p3, inote
 ire = int(5*frac(inote*323))
  kbell  oscil 1, 3+rnd(1), 1
  kbell2  oscil 1, 3+rnd(3), 1
  iree = 3000/inote
   ireed = iree+ire
  knote=knote1*(kbell/250+1)
 a1 buzz kenv+kbell*300, knote, ireed, 1
 accent buzz kenv*p5+kbell2*300, knote*2, iree, 1
  ar1 reson a1+accent, 300, 200, 1
  ar2 reson a1+accent, 400, 300, 1
  ar3 reson a1+accent, 200, 100, 1
   kcon linseg 200, iatt, 400, p3, 300, 1, 300
    at tone a1+accent, (kvib+1)*kcon
  a2 = ar1 + ar2 +ar3*at/100
  a3 butterlp a2, 4000
  a4 gain a3, kenv
 out a4*giharm*1.3 
giharmprev = inote
endin



instr 5



 ktrig lfo 1, 2, 3
 kloop loopseg rnd(4), ktrig, 0, 0, rnd(1.1), 1, rnd(1), .1, rnd(9), 0, rnd(9)+120, 0
 ktrig2 lfo 1, 4, 3
 kloop2 loopseg rnd(60), ktrig2, 0, 1, rnd(1), .1, rnd(9), 0, rnd(9)+120, 0
 ktrig3 lfo 1, 8, 3
 kloop3 loopseg rnd(60), ktrig3, 0, 1, rnd(1), .1, rnd(9), 0, rnd(9)+120, 0
 a2 oscil kloop2*gibase*4, gibase*kloop3*6+gibase*12, int(rnd(8)+1)
 a3 oscil kloop*5000, gibase*kloop2*8+gibase*4+a2, int(rnd(8)+1)
 aguir guiro kloop3*12000*p5, .05
 aseli sleighbells (1-p5)*12000*kloop2, .05

 a4 rezzy a3, p4*p4*gibase*64+kloop3*gibase*64, rnd(100)*p5
  out a3 +aguir+aseli
endin

</CsInstruments>
<CsScore>
;CSOUND SCO BASED ON 
;"THE DASTGAH CONCEPT 
;IN PERSIAN MUSIC" 
;BY HORMOZ FARHAT, 
;CHAPTER 9: 
;DASTGAH-E SEGAH.
;
;ALSO INSPIRED BY
;IANNIS XENAKIS
;"PERSEPOLIS"

t 0 60

#define ZANGESOTOR(I#T)#
i $I $T 1 [1] 0
i $I + 4 [27/22] 1
i $I + 1 [1] 0
i $I + 4 [4/3] 1
i $I + 1 [1] 0
i $I + 4 [27/22] 1
i $I + 1 [1] 0
i $I + 4 [3/2] 1
i $I + 1 [1] 0
i $I + 4 [4/3] 1
i $I + 1 [1] 0
i $I + 4 [27/22] 1
i $I + 1 [1] 0
i $I + 4 [162/98] 1
i $I + 1 [1] 0
i $I + 4 [3/2] 1
i $I + 1 [1] 0
i $I + 4 [4/3] 1
i $I + 1 [1] 0
i $I + 4 [27/22] 1#

#define MUYEBASIS(I#T)#
i $I $T 2  [27/22] 0
i $I + 1 [4/3] 0
i $I + 2 [3/2] 0
i $I + 2 [162/98] 0
i $I + 2 [9/5] 0
i $I + 1 [2] 0
i $I + 2 [9/5] 0
i $I + 2 [162/98] 0
i $I + 2 [3/2] 0
i $I + 1 [4/3] 0
i $I + 2  [27/22] 0#

#define HESARBASIS(I#T)#
i $I $T 1  [7/5] 0
i $I + 2 [3/2] 0
i $I + 2 [5/3] 0
i $I + 2 [49/27] 0
i $I + 2 [2] 0
i $I + 1 [9/4] 0
i $I + 1 [27/11] 0
i $I + 1 [9/4] 0
i $I + 2 [2] 0
i $I + 2 [49/27] 0
i $I + 2 [5/3] 0
i $I + 2 [3/2] 0
i $I $T 1  [7/5] 0#

#define MOXALEFBASIS(I#T)#
i $I $T 2 [3/2] 0
i $I + 2 [162/98] 0
i $I + 2 [49/27] 0
i $I + 2 [2] 0
i $I + 2 [9/4] 0
i $I + 1 [12/5] 0
i $I + 2 [9/4] 0
i $I + 2 [2] 0
i $I + 2 [49/27] 0
i $I + 2 [162/98] 0
i $I + 2 [3/2] 0#

#define MAQLUBBASIS(I#T)#
i $I $T 1 [3/2] 0
i $I + 1 [162/98] 0
i $I + 2 [49/27] 0
i $I + 2 [2] 0
i $I + 2 [9/4] 0
i $I + 2 [12/5] 0
i $I + 2 [8/3] 0
i $I + 2 [12/5] 0
i $I + 2 [9/4] 0
i $I + 2 [2] 0
i $I + 2 [49/27] 0
i $I + 1 [162/98] 0
i $I + 1 [3/2] 0#


#define DARAMADS(I#T)#
i $I $T 2 [27/22] 0
i $I + .25 [1] 0
i $I + .5 [27/22] 1
i $I + .25 [1] 0
i $I + .75 [27/22] 1
i $I + 2 [27/22] 0
i $I + .75 [4/3] 0
i $I + .25 [27/22] 1
i $I + .75 [4/3] 0
i $I + .25 [27/22] 1
i $I + .25 [4/3] 0
i $I + .25 [3/2] 1
i $I + .25 [3/2] 1
i $I + .25 [4/3] 1
i $I + 2 [3/2]  0
i $I + .75 [4/3] 0
i $I + .25 [27/22] 1
i $I + .5 [4/3] 0
i $I + .5 [3/2] 0
i $I + .25 [4/3] 0
i $I + .25 [4/3] 1
i $I + .25 [27/22] 1
i $I + 2 [27/22] 0
i $I + .25 [1] 0
i $I + .5 [27/22] 0
i $I + 2 [27/22] 0#

#define ZABOL(I#T)#
i $I $T .5 [27/22] 0
i $I + .5 [4/3] 0
i $I + 2 [3/2] 0
i $I + .25 [4/3] 0
i $I + .75 [3/2] 0
i $I + .25 [162/98] 0
i $I + .25 [3/2] 1
i $I + .25 [162/98] 1
i $I + .25 [3/2] 1
i $I + 2 [162/98] 1
i $I + 2 [3/2] 0
i $I + .25 [162/98] 0
i $I + .25 [3/2] 1
i $I + .25 [4/3] 1
i $I + .25 [27/22] 1
i $I + .25 [4/3] 0
i $I + .25 [3/2] 1
i $I + .25 [3/2] 0
i $I + .25 [4/3] 0
i $I + 1.75 [3/2] 1
i $I + .25 [162/98] 0
i $I + .25 [3/2] 1
i $I + .25 [4/3] 1
i $I + 2 [27/22] 1#


#define MUYE(I#T)#
i $I $T .25 [3/2] 0
i $I + .25 [162/98] 1
i $I + .25 [9/5] 1
i $I + .5 [162/98] 0
i $I + .5 [9/5] 0
i $I + 1.5 [162/98] 0
i $I + .5 [3/2] 1
i $I + .25 [162/98] 0
i $I + 1.75 [9/5] 0
i $I + 1.5 [162/98] 0
i $I + .25 [3/2] 1
i $I + .25 [9/5] 0
i $I + .25 [162/98] 1
i $I + .25 [3/2] 0
i $I + .25 [162/98] 0
i $I + .25 [3/2] 0
i $I + .25 [162/98] 0
i $I + .25 [3/2] 0
i $I + .25 [162/98] 0
i $I + .25 [3/2] 0
i $I + .25 [162/98] 0
i $I + .5 [162/98] 0
i $I + 2.5 [3/2] 1
i $I + .25 [3/2] 0
i $I + .25 [162/98] 1
i $I + .25 [9/5] 0
i $I + .5 [162/98] 1
i $I + .25 [3/2] 1
i $I + .25 [162/98] 0
i $I + 1.75 [9/5] 0
i $I + .25 [162/98] 0
i $I + .25 [3/2] 1
i $I + .25 [4/3] 1
i $I + .25 [27/22] 1#

#define HESAR(I#T)#
i $I $T .25 [3/2] 0
i $I + .25 [5/3] 1
i $I + .25 [49/27] 1
i $I + .25 [2] 0
i $I + .25 [49/27] 1
i $I + .25 [5/3] 1
i $I + .25 [49/27] 0
i $I + .25 [2] 1
i $I + .25 [49/27] 1
i $I + .5 [2] 0
i $I + 2 [49/27] 0 
i $I + .1 [2] 0
i $I + .65 [49/27] 1 
i $I + .25 [2] 1
i $I + .125 [49/27] 0 
i $I + .125 [2] 0 
i $I + .125 [49/27] 0 
i $I + .125 [2] 0 
i $I + .125 [49/27] 0 
i $I + .125 [2] 0 
i $I + .125 [49/27] 0
i $I + .125 [2] 0
i $I + .0625 [49/27] 0 
i $I + .0625 [2] 0 
i $I + .0625 [49/27] 0 
i $I + .0625 [2] 0 
i $I + .0625 [49/27] 0 
i $I + .0625 [2] 0 
i $I + .0625 [49/27] 0
i $I + .0625 [2] 0
i $I + .0625 [49/27] 0 
i $I + .0625 [2] 0 
i $I + .0625 [49/27] 0 
i $I + .0625 [2] 0 
i $I + .0625 [49/27] 0 
i $I + .0625 [2] 0 
i $I + .0625 [49/27] 0
i $I + .0625 [2] 0
i $I + 2 [2] 0 
i $I + .25 [49/27] 0
i $I + .25 [5/3] 1
i $I + .25 [49/27] 1
i $I + .25 [5/3] 1
i $I + 2 [49/27] 1
i $I + .5 [2] 0
i $I + .5 [49/27] 0
i $I + .25 [9/4] 0
i $I + .5 [2] 1
i $I + .25 [49/27] 1
i $I + 1.5 [2] 0
i $I + .5 [9/4] 1
i $I + .25 [2] 0 
i $I + .25 [49/27] 1
i $I + .25 [5/3] 1 
i $I + 2.5 [3/2] 1 
i $I + 1 [2] 0
i $I + 1 [49/27] 0
i $I + .25 [3/2] 0
i $I + .5 [49/27] 0 
i $I + 2 [49/27] 0#

#define FORUD(I#T)#
i $I $T 1 [27/22] 0
i $I + .25 [4/3] 0 
i $I + .375 [3/2] 0 
i $I + .125 [4/3] 1 
i $I + .75 [3/2] 0 
i $I + .25 [162/98] 1
i $I + .25 [3/2] 0 
i $I + .25 [4/3] 1
i $I + .25 [27/22] 0 
i $I + .25 [4/3] 1
i $I + .25 [27/22] 1 
i $I + .25 [4/3] 1
i $I + .25 [27/22] 1 
i $I + .25 [4/3] 1 
i $I + .25 [27/22] 0 
i $I + .375 [4/3] 0 
i $I + .125 [27/22] 1 
i $I + .25 [3/2] 0 
i $I + .375 [4/3] 0 
i $I + .125 [27/22] 1 
i $I + 2 [27/22] 0 
i $I + 1 [1] 0 
i $I + 1 [27/22] 0 
i $I + .25 [1] 0
i $I + .5 [27/22] 0 
i $I + 2 [27/22] 0#

#define MOXALEF(I#T)#
i $I $T .25 [3/2] 0
i $I + .25 [3/2] 0
i $I + .5 [3/2] 0
i $I + .5 [162/98] 0 
i $I + .5 [49/27] 0 
i $I + 1 [2] 0 
i $I + .25 [9/5] 0 
i $I + .75 [2] 0 
i $I + .25 [49/27] 0 
i $I + .25 [2] 1 
i $I + .25 [9/4] 1 
i $I + .5 [2] 0 
i $I + .5 [9/4] 0 
i $I + .75 [2] 0 
i $I + .25 [49/27] 1 
i $I + 2 [9/4] 0 
i $I + .1 [12/5] 1
i $I + .4 [9/4] 0 
i $I + .5 [2] 0 
i $I + .5 [49/27] 0 
i $I + 2 [2] 0#

#define MAQLUB(I#T)#
i $I $T .1 [2] 0
i $I + .4 [49/27] 1
i $I + .5 [2] 0
i $I + 1 [49/27] 0
i $I + 1 [2] 0
i $I + 2 [12/5] 0
i $I + .125 [12/5] 0 
i $I + .125 [8/3] 0
i $I + .125 [12/5] 0 
i $I + .125 [8/3] 0
i $I + .125 [12/5] 0 
i $I + .125 [8/3] 0
i $I + .125 [12/5] 0 
i $I + .125 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .0625 [12/5] 0 
i $I + .0625 [8/3] 0
i $I + .25 [12/5] 0 
i $I + .5 [8/3] 0
i $I + .25 [12/5] 1 
i $I + .75 [8/3] 0
i $I + .25 [9/4] 1 
i $I + .25 [8/3] 0
i $I + .25 [12/5] 1
i $I + .25 [9/4] 1 
i $I + 1.5 [2] 0
i $I + .25 [49/27] 0
i $I + .25 [2] 1
i $I + .25 [9/4] 1
i $I + .25 [12/5] 1 
i $I + .25 [8/3] 1
i $I + .25 [12/5] 1
i $I + .25 [9/4] 1 
i $I + 1 [2] 0
i $I + .5 [8/3] 0
i $I + 1 [12/5] 0
i $I + .125 [9/4] 0 
i $I + .125 [12/5] 0 
i $I + .125 [9/4] 0 
i $I + .125 [12/5] 0 
i $I + .125 [9/4] 0 
i $I + .125 [12/5] 0 
i $I + .125 [9/4] 0 
i $I + .125 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .0625 [9/4] 0 
i $I + .0625 [12/5] 0 
i $I + .25 [9/4] 0 
i $I + .75 [12/5] 0
i $I + 1 [9/4] 0  
i $I + .125 [2] 0  
i $I + .125 [9/4] 0  
i $I + .125 [2] 0  
i $I + .125 [9/4] 0  
i $I + .125 [2] 0  
i $I + .125 [9/4] 0  
i $I + .125 [2] 0  
i $I + .125 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .0625 [2] 0  
i $I + .0625 [9/4] 0  
i $I + .25 [2] 0  
i $I + .75 [9/4] 0  
i $I + 1 [2] 0  
i $I + .125 [49/27] 0 </CsScore>
<bsbPanel>
 <label>Widgets</label>
 <objectName/>
 <x>624</x>
 <y>289</y>
 <width>400</width>
 <height>150</height>
 <visible>true</visible>
 <uuid/>
 <bgcolor mode="nobackground">
  <r>255</r>
  <g>255</g>
  <b>255</b>
 </bgcolor>
 <bsbObject version="2" type="BSBConsole">
  <objectName/>
  <x>10</x>
  <y>10</y>
  <width>400</width>
  <height>500</height>
  <uuid>{9cc06a4e-21e1-4ec5-9e4f-ea1795cdba8a}</uuid>
  <visible>true</visible>
  <midichan>0</midichan>
  <midicc>-3</midicc>
  <font>Courier</font>
  <fontsize>8</fontsize>
  <color>
   <r>0</r>
   <g>0</g>
   <b>0</b>
  </color>
  <bgcolor mode="nobackground">
   <r>255</r>
   <g>255</g>
   <b>255</b>
  </bgcolor>
 </bsbObject>
</bsbPanel>
<bsbPresets>
</bsbPresets>
<MacOptions>
Version: 1
Render: File
Ask: No
SFDIR: Macintosh HD:Users:melissamoore:Desktop:
Options: -b100 -A  -s -m7 -R -Lstdin 
</MacOptions>
<MacGUI>
ioView nobackground {65535, 65535, 65535}
ioListing {10, 10} {400, 500}
</MacGUI>