API tools faq
paste
Guest User

test2

a guest
Aug 9th, 2015
291
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 35.26 KB | None | 0 0
raw download clone embed print report
  1. <CsoundSynthesizer>
  2. <CsOptions>
  3. -n
  4. </CsOptions>
  5. <CsInstruments>
  6. sr = 48000
  7. ksmps = 64
  8. nchnls = 2
  9. giFileSegmentCounter init 1
  10. giSpeakerMeters init 9
  11. giDelInterepWinSize init 16
  12.  
  13.  
  14. 0dbfs = 1
  15. giv = 0
  16.  
  17. giDiskInterpolation init 16
  18. giReverbImpulseVolume init -30
  19.  
  20.  
  21.  
  22. gkGlobalImpulseTrigger init 0
  23. gkGlobalImpulsePower init 0
  24. gkGlobalImpulseSpeed init 0
  25.  
  26. ; AMPLITUDE/SPAT EFFECTS
  27. gaGlobalDbAmp init 0
  28. gaChannelSwapper init 0
  29. giChannelSwapperToggle init 0
  30.  
  31. ; stem globals
  32. giFileSegmentCounter = 1
  33.  
  34. gitemp ftgen 1000, 0, 1024, 20, 2, 1 ; hanning granular window
  35.  
  36.  
  37.  
  38. opcode aExpEnv, a, iiii
  39. iamp, iatk, p3, i_env_shape xin
  40. aenv_lin linseg 0.00001, iatk, 1, p3-iatk, 0.00001
  41. aenv_expped pow aenv_lin, i_env_shape
  42. a_variable_envelope = aenv_expped*iamp
  43. a_variable_envelope limit a_variable_envelope, 0, iamp
  44. xout a_variable_envelope
  45. endop
  46.  
  47.  
  48.  
  49. opcode aNormSignal, a, aiiii
  50. asigin, ipeakdb, irmshp, ismooth, ilimitboost xin
  51. krms rms asigin, 1./irmshp
  52. krms portk krms, ismooth, ampdb(ipeakdb)
  53. kboost limit ampdb(ipeakdb)/krms, 0, ilimitboost
  54. ;printks "normsignal boost: %.3f\\n", 0.1, kboost
  55. asigout = asigin*kboost
  56. xout asigout
  57. endop
  58.  
  59.  
  60.  
  61.  
  62. opcode aDiskinVariablePlayStereo, aa, iSki
  63. p3, SFile, kPitch, iStartTimeSec xin
  64. iBufSize = sr*p3; maximum buffer size for read efficiency
  65. iDeclickTime = 0.1 ; in sec
  66. asnd1 = 1
  67. asnd2 = 1
  68. ; asnd1, asnd2 diskin2 SFile, kPitch, iStartTimeSec, 0, 0, giDiskInterpolation, iBufSize
  69. xout asnd1, asnd2
  70. endop
  71.  
  72.  
  73. opcode aDiskinVariablePlayMono, a, iSki
  74. p3, SFile, kPitch, iStartTimeSec xin
  75. iBufSize = sr*p3; maximum buffer size for read efficiency
  76. asnd = 1
  77. ;asnd diskin2 SFile, kPitch, iStartTimeSec, 0, 0, giDiskInterpolation, iBufSize
  78. xout asnd
  79. endop
  80.  
  81.  
  82.  
  83. opcode iAttackLikeDur, i, ii ; attack specified like ngen duration
  84. iatk, p3 xin
  85. if (iatk > 400) then
  86. iAtkOut = iatk-400 ; as raw value in sec
  87. else
  88. iAtkOut = iatk*p3 ; as percent
  89. if (iatk > 1) then
  90. prints "attack problems - %f %f\\n", iatk, p3
  91. endif
  92. endif
  93. xout iAtkOut
  94. endop
  95.  
  96.  
  97.  
  98. opcode kGlissTransLine, k, iiiii
  99. iTransStart, iTransEnd, iTransSlope, iTransPercentWait, p3 xin
  100. ; iWaitGlissPercent - positive percentage == wait before gliss
  101. ; - negative percentage == wait after gliss
  102. iWaitGlissTime = (abs(iTransPercentWait)/100)*p3
  103. if (iTransPercentWait > 0) then
  104. kTime linseg 0, iWaitGlissTime+0.0001, 0, p3-iWaitGlissTime, 1
  105. else
  106. kTime linseg 0, p3-iWaitGlissTime, 1, iWaitGlissTime+0.0001, 1
  107. endif
  108. kTime pow kTime, iTransSlope
  109. kGlissEnv = (kTime*(iTransEnd-iTransStart))+iTransStart
  110. xout kGlissEnv
  111. endop
  112.  
  113.  
  114.  
  115.  
  116. opcode kWaitBeforeGliss, k, ii
  117. ; outputs 0 to 100
  118. iWaitGliss, p3 xin
  119. iWaitBeforeGliss = (abs(iWaitGliss)/100)*p3
  120. if (iWaitGliss > 0) then
  121. kTime linseg 0, iWaitBeforeGliss+0.0001, 0, p3-iWaitBeforeGliss, 100
  122. else
  123. kTime linseg 0, p3-iWaitBeforeGliss, 100, iWaitBeforeGliss+0.0001, 100
  124. endif
  125. xout kTime
  126. endop
  127.  
  128.  
  129.  
  130.  
  131. ; for 5 filter crossfading...
  132. vbaplsinit 2.05, 5, 0, 45, 90, 180, 270
  133.  
  134.  
  135.  
  136.  
  137. instr 50
  138. iamp = ampdbfs(p4-100)
  139. iSourceRoutine = p5
  140. iSource1 = p6
  141. iSource2 = p7
  142. iSource3 = p8
  143. iSource4 = p9
  144. iSource5 = p10
  145. iSource6 = p11
  146. iSource7 = p12
  147. iSource8 = p13
  148. iSource9 = p14
  149. iSource10 = p15
  150. iSource11 = p16
  151. iSource12 = p17
  152. iSource13 = p18
  153. iSource14 = p19
  154. iSource15 = p20
  155. iSource16 = p21
  156. iSource17 = p22
  157. iSource18 = p23
  158. iSource19 = p24
  159. iSource20 = p25
  160. iSource21 = p26
  161. iSource22 = p27
  162. iSource23 = p28
  163. iSource24 = p29
  164. iSource25 = p30
  165. iSource26 = p31
  166. iSource27 = p32
  167. iSource28 = p33
  168. iSource29 = p34
  169.  
  170. iProcRoutine = p35
  171. iProc1 = p36
  172. iProc2 = p37
  173. iProc3 = p38
  174. iProc4 = p39
  175. iProc5 = p40
  176. iProc6 = p41
  177. iProc7 = p42
  178. iProc8 = p43
  179. iProc9 = p44
  180.  
  181. iDenoiseRoutine = p45
  182. iDenoise1 = p46
  183. iDenoise2 = p47
  184. iDenoise3 = p48
  185. iDenoise4 = p49
  186. iDenoise5 = p50
  187. iDenoise6 = p51
  188. iDenoise7 = p52
  189. iDenoise8 = p53
  190. iDenoise9 = p54
  191.  
  192. iEnvRoutine = p55
  193. iEnv1 = p56
  194. iEnv2 = p57
  195. iEnv3 = p58
  196. iEnv4 = p59
  197. iEnv5 = p60
  198. iEnv6 = p61
  199. iEnv7 = p62
  200. iEnv8 = p63
  201. iEnv9 = p64
  202.  
  203. iSpatRoutine = p65
  204. iSpat1 = p66
  205. iSpat2 = p67
  206. iSpat3 = p68
  207. iSpat4 = p69
  208. iSpat5 = p70
  209. iSpat6 = p71
  210. iSpat7 = p72
  211. iSpat8 = p73
  212. iSpat9 = p74
  213.  
  214. SspatAlgorithm strget p75
  215. SstemType strget p76
  216. SstemGroup strget p77
  217.  
  218.  
  219. iNoteTime times
  220. kNoteInstrTime timeinsts
  221.  
  222.  
  223.  
  224. ;print iEnvRoutine, iEnv1, iEnv2, iEnv3, iEnv4
  225. ;##############
  226. ;## ENVELOPE ##
  227. ;##############
  228. if (iEnvRoutine == 1) then ; normal variable envelope
  229. iattack = iEnv1
  230. islope = iEnv2 ; def=1
  231. ;===========================;
  232. iatk iAttackLikeDur iattack, p3
  233. idec = p3-iatk
  234. aEnvZeroToOne aExpEnv 1, iatk, p3, islope
  235.  
  236.  
  237.  
  238. elseif (iEnvRoutine == 2) then ; normal variable envelope
  239. iattack = iEnv1
  240. idec = iEnv2
  241. islope = iEnv3 ; def=1
  242. ;===========================;
  243. iatk iAttackLikeDur iattack, p3
  244. idec iAttackLikeDur idec, p3
  245. aEnvZeroToOne linseg 0, iatk, 1, p3-iatk-idec, 1, idec, 0
  246. aEnvZeroToOne limit aEnvZeroToOne, 0, 1
  247. ;aEnvZeroToOne pow aEnvZeroToOne, islope
  248. iNoClipLen = 0.001
  249. aNoClippy linseg 0, iNoClipLen, 1, p3-(iNoClipLen*2), 1, iNoClipLen, 0
  250. aEnvZeroToOne = aEnvZeroToOne * aNoClippy
  251.  
  252. elseif (iEnvRoutine == 3) then ; hamming granular (with amp stream control)
  253. iStartOffset = iEnv1
  254. iEndOffset = iEnv2
  255. SampStreamName strget iEnv3
  256. ;===========================;
  257. itablen = 16384
  258. ihammingtab ftgenonce 0, 0, itablen, 20, 2, 1
  259. aLine line iStartOffset*itablen, p3, iEndOffset*itablen
  260. aHamming table3 aLine, ihammingtab
  261. iNoClipLen = 0.001
  262. aNoClippy linseg 0, iNoClipLen, 1, p3-(iNoClipLen*2), 1, iNoClipLen, 0
  263. aEnvZeroToOne = aHamming*aNoClippy
  264.  
  265. iampstream strcmp "none", SampStreamName
  266. if (iampstream != 0) then
  267. aSteamAmp chnget SampStreamName
  268. aEnvZeroToOne = aEnvZeroToOne*aSteamAmp
  269. endif
  270.  
  271.  
  272.  
  273.  
  274. elseif (iEnvRoutine == 4) then ; k stream boost
  275. iattack = iEnv1
  276. idec = iEnv2
  277. islope = iEnv3 ; def=1
  278. SStreamName strget iEnv4
  279. ;===========================;
  280. iatk iAttackLikeDur iattack, p3
  281. idec iAttackLikeDur idec, p3
  282. kEnvZeroToOne linseg 0, iatk, 1, p3-iatk-idec, 1, idec, 0
  283. kEnvZeroToOne pow kEnvZeroToOne, islope
  284. kdbboost chnget SStreamName
  285. kEnvZeroToOne = kEnvZeroToOne*ampdb(kdbboost)
  286.  
  287. aEnvZeroToOne upsamp kEnvZeroToOne
  288.  
  289.  
  290.  
  291. elseif (iEnvRoutine == 5) then ; amp from f table
  292. itablenumber = iEnv1
  293. istartidx = iEnv2
  294. iendidx = iEnv3
  295. ihammingstart = iEnv4
  296. ihammingend = iEnv5
  297. ihammingpeaktime = iEnv6/p3
  298. ;===========================;
  299.  
  300. ahammingline linseg ihammingstart, p3*ihammingpeaktime, 0.5, p3*(1-ihammingpeaktime), ihammingend
  301. itablen = 2048
  302. ihammingtab ftgenonce 0, 0, itablen, 20, 2, 1
  303. alinehamming table3 ahammingline*itablen, ihammingtab
  304.  
  305. kline line istartidx, p3, iendidx
  306. kampfromtable table3 kline, itablenumber
  307. kampfromtable port kampfromtable, 0.5
  308.  
  309. aEnvZeroToOne = alinehamming;*kampfromtable
  310.  
  311.  
  312.  
  313. elseif (iEnvRoutine == 6) then ; atk/dec WITH WAIT
  314. iwait = iEnv1
  315. iatk = iEnv2
  316. iWaitPeakDb = iEnv3
  317. iSlope = iEnv4 ; def=1
  318. ;===========================;
  319. iWaitPeakScale = ampdb(iWaitPeakDb)
  320. iatk iAttackLikeDur iatk, p3
  321. iwait iAttackLikeDur iwait, p3
  322. idec = p3-iatk-iwait
  323. aEnvWaitLinear linseg 0, iwait, iWaitPeakScale, p3-iwait-idec, iWaitPeakScale, idec*0.5, ampdb(iWaitPeakDb*2), idec*0.5, 0
  324. aEnvPostWaitExp linseg 0, iwait, 0, iatk, 1, p3-iwait-iatk-idec, 1, idec*0.5, 0, idec*0.5, 0
  325. aEnvPostWaitExp limit aEnvPostWaitExp, 0, 1
  326. aEnvPostWaitExp pow aEnvPostWaitExp, iSlope
  327. aEnvZeroToOne = aEnvWaitLinear+(aEnvPostWaitExp*(1-iWaitPeakScale))
  328.  
  329.  
  330.  
  331. elseif (iEnvRoutine == 7) then ; ATK, WAIT, REATK, DEC
  332. iatk = iEnv1
  333. idec1 = iEnv2
  334. iwait = iEnv3
  335. ireatk = iEnv4
  336. iPostAtkScale = iEnv5
  337. iWaitPeakScale = iEnv6
  338. islope = iEnv7
  339. ;===========================;
  340. iPostAtkScale = ampdb(iPostAtkScale)
  341. iWaitPeakScale = ampdb(iWaitPeakScale)
  342. iatk iAttackLikeDur iatk, p3
  343. idec1 iAttackLikeDur idec1, p3
  344. iwait iAttackLikeDur iwait, p3
  345. ireatk iAttackLikeDur ireatk, p3
  346. idec2 = p3-iatk-idec1-iwait-ireatk
  347. print p3, iatk, idec1, iwait, ireatk, idec2
  348. aAttackLine linseg 0, iatk, 1, idec1, 0, p3-iatk-idec1-ireatk-idec2, 0, ireatk, 1, idec2, 0
  349. aWaiterLine linseg 0, iatk, iPostAtkScale, idec1, iPostAtkScale, p3-ireatk-idec2, iWaitPeakScale, 0, 0, ireatk+idec2, 0
  350. aAttackLine limit aAttackLine, 0, 1
  351. aAttackLine pow aAttackLine, islope
  352. aEnvZeroToOne = aWaiterLine+(aAttackLine*(1-iWaitPeakScale))
  353. kEnvZeroToOne downsamp aEnvZeroToOne
  354.  
  355. printk2 kEnvZeroToOne
  356.  
  357.  
  358.  
  359.  
  360.  
  361.  
  362. else
  363. prints "No Envelope!\\n"
  364. aEnvZeroToOne = 1 ; no change!
  365. endif
  366.  
  367. kEnvZeroToOne downsamp aEnvZeroToOne
  368.  
  369.  
  370.  
  371.  
  372.  
  373.  
  374.  
  375.  
  376. if (iSourceRoutine == 1) then ; simple soundfile play
  377. Ssoundfile strget p6
  378. iSfSkip = iSource2
  379. iTransStart = iSource3
  380. iTransEnd = iSource4
  381. iTransSlope = iSource5
  382. iTransPercentWait = iSource6
  383. ;===========================;
  384. iSrcChnls filenchnls Ssoundfile
  385. kTrans kGlissTransLine semitone(iTransStart), semitone(iTransEnd), iTransSlope, iTransPercentWait, p3
  386. if (iSrcChnls == 1) then
  387. asnd1 aDiskinVariablePlayMono p3, Ssoundfile, kTrans, iSfSkip
  388. else
  389. asnd1, asnd2 aDiskinVariablePlayStereo p3, Ssoundfile, kTrans, iSfSkip
  390. endif
  391.  
  392.  
  393.  
  394.  
  395.  
  396.  
  397.  
  398.  
  399. elseif (iSourceRoutine == 3) then ; sf percentage player
  400. Ssoundfile strget iSource1
  401. iTrans = iSource2
  402. iStartReadPercent = iSource3
  403. ;===========================;
  404. iSrcChnls filenchnls Ssoundfile
  405. iSfDur filelen Ssoundfile
  406. itransratio = semitone(iTrans)
  407. iSfSkip = (iSfDur*(1/itransratio))*(iStartReadPercent/100.)
  408.  
  409. if (iSrcChnls == 1) then
  410. asnd1 aDiskinVariablePlayMono p3, Ssoundfile, itransratio, iSfSkip
  411. else
  412. asnd1, asnd2 aDiskinVariablePlayStereo p3, Ssoundfile, itransratio, iSfSkip
  413. endif
  414.  
  415.  
  416.  
  417.  
  418.  
  419. elseif (iSourceRoutine == 4) then ; looper
  420. Ssoundfile strget p6
  421. iLoopStart = iSource2
  422. iLoopStop = iSource3
  423. iTrans = iSource4
  424. iJitterAmp = 0.05
  425. iNormDb = -18
  426. irmsspeed = 0.15
  427. ismoothspeed = 0.05
  428. ;===========================;
  429. iSrcChnls filenchnls Ssoundfile
  430. iFileSr filesr Ssoundfile
  431.  
  432. ; iPitchSlope = 2
  433. ; iPitchPercentWait = 66
  434. ;
  435. ; kPitchMidi kGlissTransLine iTrans, iTrans-2, iPitchSlope, iPitchPercentWait, p3
  436. ;
  437. ;
  438. ; ifilesr filesr Ssoundfile
  439. ; ktrans = 2
  440. ;
  441. ; iftable1 ftgenonce 0, 0, 0, 1, Ssoundfile, 0, 0, 1
  442. ; asnd1 loscil3 1, ktrans, iftable1, 1, 2, iLoopStart*ifilesr, iLoopStop*ifilesr
  443. ; asnd1 aNormSignal asnd1, iNormDb, irmsspeed, irmsspeed, 40
  444. ; if (iSrcChnls == 2) then
  445. ; iftable2 ftgenonce 0, 0, 0, 1, Ssoundfile, 0, 0, 2
  446. ; asnd2 loscil3 1, ktrans, iftable2, 1, 2, iLoopStart*ifilesr, iLoopStop*ifilesr
  447. ; asnd2 aNormSignal asnd2, iNormDb, irmsspeed, ismoothspeed, 40
  448. ; endif
  449.  
  450. aline line 0, p3, (p3/(iLoopStop-iLoopStart))*(semitone(iTrans))
  451. kjittery jitter iJitterAmp, 0.5, 2
  452. kjittery -= iJitterAmp/2.
  453. ajittery interp kjittery
  454. aloopphase mirror aline, 0, 1 ; mirror goes 0->1->0-> etc
  455. andx = ((aloopphase*iFileSr) + (iLoopStart*iFileSr))
  456.  
  457. iftable1 ftgenonce 0, 0, 0, 1, Ssoundfile, 0, 0, 1
  458. asnd1 table3 andx, iftable1
  459. asnd1 aNormSignal asnd1, iNormDb, irmsspeed, irmsspeed, 40
  460.  
  461. if (iSrcChnls == 2) then
  462. iftable2 ftgenonce 0, 0, 0, 1, Ssoundfile, 0, 0, 2
  463. asnd2 table3 andx, iftable2
  464. asnd2 aNormSignal asnd2, iNormDb, irmsspeed, ismoothspeed, 40
  465. endif
  466.  
  467.  
  468.  
  469.  
  470.  
  471.  
  472.  
  473.  
  474.  
  475. elseif (iSourceRoutine == 5) then ; NORMALIZING soundfile play
  476. Ssoundfile strget p6
  477. iSfSkipPlayablePercent = iSource2
  478. iTrans = iSource3
  479. iNormDb = -18
  480. irmsspeed = 0.25
  481. ismoothspeed = 0.05
  482. ;===========================;
  483. iSrcChnls filenchnls Ssoundfile
  484. isfdur filelen Ssoundfile
  485.  
  486. iplayabledur = isfdur-(p3*(1/semitone(iTrans)))
  487. iSfSkip = iplayabledur*(iSfSkipPlayablePercent/100.)
  488. if (iSrcChnls == 1) then
  489. asnd1 aDiskinVariablePlayMono p3, Ssoundfile, semitone(iTrans), iSfSkip
  490. asnd1 aNormSignal asnd1, iNormDb, irmsspeed, irmsspeed, 40
  491. else
  492. asnd1, asnd2 aDiskinVariablePlayStereo p3, Ssoundfile, semitone(iTrans), iSfSkip
  493. asnd1 aNormSignal asnd1, iNormDb, irmsspeed, ismoothspeed, 40
  494. asnd2 aNormSignal asnd2, iNormDb, irmsspeed, ismoothspeed, 40
  495. endif
  496.  
  497.  
  498.  
  499.  
  500.  
  501.  
  502.  
  503.  
  504.  
  505. elseif (iSourceRoutine == 10) then ; vibraphone speaker bending pitch coupled to impulse
  506. iMidiFreq = iSource1
  507. iStartBeat = iSource2
  508. iEndBeat = iSource3
  509. iTriggerBool = iSource4
  510. iTriggerAtten = iSource5
  511. ;===========================;
  512. iSrcChnls = 1
  513.  
  514.  
  515.  
  516. itriangle ftgenonce 0, 0, 8192, 20, 3
  517. kphasor phasor gkGlobalImpulseSpeed, 0.5
  518. kBeatEnv table3 kphasor*8192, itriangle
  519. kBeatEnv pow kBeatEnv, (gkGlobalImpulsePower*2.)+1
  520. kpow pow gkGlobalImpulsePower, 0.5
  521. kPitchPower = ampdb(iTriggerAtten*kpow)
  522. asnd1 oscil3 1, cpsmidinn(iMidiFreq)
  523. asnd1 = asnd1 * kBeatEnv
  524.  
  525.  
  526. ;
  527. ; giVibraphoneCentsAdjust = -10
  528. ; iMidiFreq = iMidiFreq+(giVibraphoneCentsAdjust/100.)
  529. ; kBeatLine line iStartBeat, p3, iEndBeat
  530. ; kPitchCpsBeat = cpsmidinn(iMidiFreq) + kBeatLine
  531. ; if (iTriggerBool == 1) then
  532. ; kPitchCpsBeat += gkGlobalImpulseSpeed
  533. ; endif
  534. ; kpow pow gkGlobalImpulsePower, 0.5
  535. ; kPitchPower = ampdb(iTriggerAtten*kpow)
  536. ;
  537. ; asnd1_a oscil3 1, cpsmidinn(iMidiFreq)
  538. ; asnd1_b oscil3 kPitchPower, kPitchCpsBeat
  539. ; asnd1 = asnd1_b + asnd1_a
  540.  
  541.  
  542.  
  543.  
  544. elseif (iSourceRoutine == 999) then ; gran stream amplitude envelope
  545. SampStreamName strget iSource1
  546. ;===========================;
  547. chnmix aEnvZeroToOne, SampStreamName
  548. ; kEnvZeroToOne downsamp aEnvZeroToOne
  549. ; printk2 kEnvZeroToOne
  550. goto END
  551.  
  552.  
  553.  
  554.  
  555. elseif (iSourceRoutine == 1000) then ; utility
  556. iUtilType = iSource1
  557. iUtilArg1 = iSource2
  558. ;===========================;
  559. iSrcChnls = 1
  560. if (iUtilType == 1) then
  561. p3 = 0.05
  562. asnd1 rand 0.25
  563.  
  564. elseif (iUtilType == 2) then
  565. asnd1 oscil3 1, cpsmidinn(iUtilArg1)
  566. endif
  567.  
  568.  
  569. endif
  570.  
  571.  
  572.  
  573.  
  574.  
  575.  
  576.  
  577.  
  578.  
  579.  
  580. ;####################
  581. ;## APPLY ENVELOPE ##
  582. ;####################
  583. aEnvelope = aEnvZeroToOne*iamp*ampdb(gaGlobalDbAmp)
  584. asnd1 = asnd1*aEnvelope
  585. if (iSrcChnls == 2) then
  586. asnd2 = asnd2*aEnvelope
  587. endif
  588.  
  589.  
  590.  
  591. ;###############
  592. ;## DIFFUSION ##
  593. ;###############
  594. if (iSpatRoutine == 1) then ; just reverb
  595. ireverb = iSpat1
  596. ;===========================;
  597. kazim = 0
  598. kspread = 0
  599.  
  600.  
  601.  
  602. elseif (iSpatRoutine == 2) then ; azimuth move
  603. iStartAzim = iSpat1
  604. iEndAzim = iSpat2
  605. iSlopeAzim = iSpat3
  606. ispread = iSpat4
  607. ireverb = iSpat5
  608. ;===========================;
  609. kazim line 0, p3, 1
  610. kazim limit kazim, 0, 1
  611. kazim pow kazim, iSlopeAzim
  612. kazim = (kazim*(iEndAzim-iStartAzim))+iStartAzim
  613. kspread = ispread
  614.  
  615.  
  616.  
  617. elseif (iSpatRoutine == 200) then ; audioguide spread out azimuth
  618. iCenterAzim = iSpat1
  619. iWidthAzim = iSpat2
  620. ispread = iSpat3
  621. ireverb = iSpat4
  622. iThisOverlap = iSpat7
  623. iMaxOverlaps = iSpat8
  624. iTgtSegIdx = iSpat9
  625. ;===========================;
  626. ioverlappercent = iThisOverlap/(iMaxOverlaps-1)
  627. iazim = (ioverlappercent*(iWidthAzim))+iStartAzim-(iWidthAzim/2.)
  628. kazim = iazim
  629. kspread = ispread
  630.  
  631.  
  632. elseif (iSpatRoutine == 300) then ; DIRECT OUTPUT
  633. Swhichdirect strget iSpat1
  634. ireverb = iSpat2
  635. ; HANDLED IN SPATILIZE AND WRITE MAX/MSP STEMS
  636.  
  637.  
  638.  
  639.  
  640. endif
  641.  
  642. ;##################
  643. ;## CHANNEL SWAP ##
  644. ;##################
  645. if (iSrcChnls == 2) then
  646. aLeft = sqrt(1-gaChannelSwapper)
  647. aRight = sqrt(gaChannelSwapper)
  648. ; kLeft downsamp aLeft
  649. ; kRight downsamp aRight
  650. ; kglobal downsamp gaChannelSwapper
  651. ; printks "Channel Swap Coeffs: %.3f %.3f (%.3f)\\n", 0.01, kLeft, kRight, kglobal
  652. ; asnd1 oscili 0.05, 400
  653. ; asnd2 oscili 0.05, 600
  654. atmp1 = (asnd1*aLeft) + (asnd2*aRight)
  655. atmp2 = (asnd2*aLeft) + (asnd1*aRight)
  656. asnd1 = atmp1
  657. asnd2 = atmp2
  658. endif
  659. ;#######################################
  660. ;## SPATILIZE AND WRITE MAX/MSP STEMS ##
  661. ;#######################################
  662. SfoutStemData sprintf "%s %s %f %f %f", SstemType, SstemGroup, p2, p3, ireverb
  663.  
  664. ivbap strcmp "vbap", SspatAlgorithm
  665. idbap strcmp "dbap", SspatAlgorithm
  666. iybap strcmp "ybap", SspatAlgorithm
  667. idirect strcmp "direct", SspatAlgorithm
  668. inone strcmp "none", SspatAlgorithm
  669. iSpkDelMs = (giSpeakerMeters/320.)*1000.
  670. iscale_delays = 1
  671.  
  672.  
  673.  
  674.  
  675. END:
  676. endin
  677.  
  678.  
  679.  
  680. instr 101; clean named audio stream
  681. SstreamName strget p4
  682. chnclear SstreamName
  683. endin
  684.  
  685. ;##########################
  686. ;## ASSEMBLE INSTRUMENTS ##
  687. ;##########################
  688. instr 200 ; assemble ELECTRONIC RENDER
  689. iAmp = p4
  690. Sfilename strget p5
  691. ;===========================;
  692. ifiledur filelen Sfilename
  693. p3 = ifiledur
  694. a1, a2 diskin2 Sfilename, 1
  695. outs a1, a2, a2*0.
  696. endin
  697.  
  698.  
  699. instr 201 ; assemble MOCK
  700. iAmp = p4
  701. Sfilename strget p5
  702. ;===========================;
  703. ifiledur filelen Sfilename
  704. p3 = ifiledur
  705. a1 diskin2 Sfilename, 1
  706. outs a1*0., a1*0., a1
  707. endin
  708.  
  709.  
  710.  
  711. </CsInstruments>
  712. <CsScore>
  713.  
  714. i50 0.128 0.18944 86.1078076517 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.0253763282 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.128 400.06144 1.24577657454 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  715. i50 0.31744 0.16896 85.442290109 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.85209188954 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.06144 400.10752 1.1147074683 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  716. i50 0.4864 0.24576 66.8774905263 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -18.0 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.10752 400.13824 0.5 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  717. i50 0.73216 0.256 82.968139867 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.8811085593 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.13824 400.11776 0.969246438372 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  718. i50 0.98816 0.3584 83.2124505123 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.37248643887 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.11776 400.24064 1.1892036134 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  719. i50 0.98816 0.28672 86.5945116818 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -6.83507538508 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.11776 400.16896 1.6542179783 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  720. i50 1.27488 0.24064 92.5395705263 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 0.0 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.16896 400.07168 3.5 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  721. i50 1.34656 0.384 81.0585969441 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.8402671551 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.24064 400.14336 0.974646059357 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  722. i50 1.51552 0.14336 86.1407110991 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -8.94560740474 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.07168 400.07168 1.25909282657 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  723. i50 1.65888 0.14336 87.5784708713 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -7.40663977497 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.07168 400.07168 1.53906741534 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  724. i50 1.73056 0.21504 83.1752117304 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.7366781528 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.14336 400.07168 0.98848003941 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  725. i50 1.80224 0.14336 86.1577075881 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -8.79492117546 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.07168 400.07168 1.28456922376 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  726. i50 1.9456 0.22016 83.738369281 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.1118522838 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.07168 400.14848 1.07613772585 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  727. i50 1.9456 0.14848 86.9155049826 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -7.8921920965 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.07168 400.0768 1.44599796865 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  728. i50 2.09408 0.14848 84.3544478609 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.3091344402 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.0768 400.07168 1.04767975054 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  729. i50 2.16576 0.31744 79.5390264345 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -12.4924851649 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.14848 400.16896 0.780858515365 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  730. i50 2.24256 0.1536 82.9596084198 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -11.4091372263 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.07168 400.08192 0.902217334275 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  731. i50 2.39616 0.16896 79.7277591161 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -13.6560129288 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.08192 400.08704 0.674724293288 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  732. i50 2.4832 0.27136 77.8009426802 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -14.0226439127 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.16896 400.1024 0.646475568939 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  733. i50 2.56512 0.18944 79.004588258 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -13.9119754307 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.08704 400.1024 0.654740230365 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  734. i50 2.75456 0.32256 77.3186250766 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -13.8506688835 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.1024 400.22016 0.6594161918 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  735. i50 2.75456 0.2048 79.1653089661 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -13.6084495586 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.1024 400.1024 0.678571437773 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  736. i50 2.95936 0.22016 78.5773193462 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -13.8091953843 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.1024 400.11776 0.662618919691 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  737. i50 3.07712 0.49152 72.3684955143 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -15.402966893 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.22016 400.27136 0.562449823695 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  738. i50 3.17952 0.23552 65.7262989474 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -18.0 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.11776 400.11776 0.5 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  739. i50 3.41504 0.27136 71.2176312832 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -17.0235688243 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.11776 400.1536 0.508827942971 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  740. i50 3.56864 0.45568 74.6809488426 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -14.1703465631 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.27136 400.18432 0.635798568954 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  741. i50 3.6864 0.33792 76.1524956796 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -14.180525145 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.1536 400.18432 0.635077668223 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  742. i50 4.02432 0.67072 72.0362418565 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -14.0114890539 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.18432 400.4864 0.647298329323 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  743. i50 4.02432 0.39424 75.710581714 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -13.8920096978 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.18432 400.20992 0.656255410397 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  744. i50 4.41856 0.4864 76.5027870811 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -12.3427349587 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.20992 400.27648 0.796339330999 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  745. i50 4.69504 1.27488 68.8548633999 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.1685009348 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.4864 400.78848 1.06789238527 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  746. i50 4.90496 0.58368 79.8407706792 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -7.97364181247 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.27648 400.3072 1.43081350467 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  747. i50 5.48864 0.78848 73.7014419548 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -11.0606722106 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.3072 400.48128 0.945872871935 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  748. i50 5.96992 1.27488 67.7585838781 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.4842678454 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.78848 400.4864 1.02302064647 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  749. i50 6.27712 0.96768 73.7974593144 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -8.42903954763 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.48128 400.4864 1.34817855538 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  750. i50 7.2448 1.49504 63.6024826362 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -11.2800630362 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.4864 401.00864 0.918125488868 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  751. i50 7.2448 0.99328 71.8270517512 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.58925653226 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.4864 400.50688 1.15500560815 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  752. i50 8.23808 1.00864 71.2087027664 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.5362897809 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.50688 400.50176 1.16328139512 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  753. i50 8.73984 2.03264 55.5105075626 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -11.90602289 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 401.00864 401.024 0.843857009414 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  754. i50 9.24672 0.98816 69.9253860091 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -10.5187373477 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.50176 400.4864 1.01823417475 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  755. i50 10.23488 1.024 69.6427818593 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.94495623403 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.4864 400.5376 1.10077527844 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  756. i50 10.77248 1.37216 62.9051023361 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -11.5512837085 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 401.024 400.34816 0.885055016747 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  757. i50 11.25888 0.88576 70.8311765964 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.98980686058 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.5376 400.34816 1.09410364936 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  758. i50 12.14464 2.33472 56.6704051505 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_E5.wav" 76.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_G#5.wav" 80.0 -20.0 0.6 1.2 "none" 0 0 0 0 -9.76315190402 77 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.34816 401.98656 1.12820061626 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  759. i50 12.14464 0.61952 76.4793798588 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -7.39233254692 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.34816 400.27136 1.54187600736 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  760. i50 12.76416 1.98656 58.0683765186 2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_p1_D#4.wav" 63.0 -40.0 0.6 1.2 "/Users/ben/Documents/1/sfdb/vib/hit/Vib_ES_So_sp-0_f1_A#3.wav" 58.0 -20.0 0.6 1.2 "none" 0 0 0 0 -8.313234904 61 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 400.27136 401.7152 1.36882794468 0 0 0 0 0 0 300 "vibes" 90 0 0 0 0 0 0 0 "direct" "none" "none"
  761.  
  762.  
  763. e
  764.  
  765. </CsScore>
  766. </CsoundSynthesizer>
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!