API tools faq
paste
Advertisement
Guest User

Untitled

a guest
Oct 2nd, 2017
99
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 12.96 KB | None | 0 0
raw download clone embed print report
  1. <CsoundSynthesizer>
  2.  
  3. <CsOptions>
  4. ; XO
  5. ;-+rtmidi=alsa --midi-device=hw:1,0 -+rtaudio=alsa -odac -r16000 -k160 ;-O stdout
  6. ; Mac
  7. -odac -r44100 -k441
  8. </CsOptions>
  9.  
  10. <CsInstruments>
  11. nchnls = 2
  12.  
  13. garvb init 0
  14. gadelay init 0
  15. gadelay2 init 0
  16. gamousy init 0
  17. gamousy2 init 0
  18. gamousy3 init 0
  19. gamousy4 init 0
  20. gklfo init 0
  21.  
  22.  
  23. ;drums
  24. instr 101
  25. ilevel = 1
  26. idrum = p6
  27. irvbsend = 0
  28. idelsend = .2
  29. if (idrum == 1) kgoto kick
  30. if (idrum == 2) kgoto snare
  31. if (idrum == 3) kgoto hihat
  32.  
  33. kick:
  34. kpenv linseg 60, 1, 40
  35. kampenv expseg .001, .01, p4, 1, .001
  36. a1 foscil kampenv, kpenv, 1, 4, p5, 1
  37. kgoto contin
  38.  
  39. snare:
  40. kampenv expseg p4, .5, .001
  41. a1 oscil kampenv, p5, 2
  42. kgoto contin
  43.  
  44. hihat:
  45. kampenv linseg p4+5000, .2, 0
  46. asig oscil kampenv, p5, 2
  47. afilt2 atone asig, 8000
  48. afilt1 atone afilt2, 8000
  49. a1 = afilt2
  50. kgoto contin
  51.  
  52. contin:
  53. a1 = a1 * ilevel
  54. outs a1, a1
  55. garvb = garvb+a1 * irvbsend
  56. gadelay = gadelay + a1 * idelsend
  57. endin
  58.  
  59.  
  60. ;sine
  61. instr 102
  62. ilevel = .8
  63. istay = .2
  64. ifall = 1
  65. ifrq = cpspch(p5)
  66. ipan = (p6/128)
  67. irvbsend = .1
  68. idelsend = .5
  69.  
  70. if (p7 == 0) kgoto contin
  71. kvib oscil 100, 8, 1 ; if anything other than 0 is in p7, vibrato
  72.  
  73. contin:
  74. kampenv linseg 0, .01, p4, .05, (p4/2), 1, 0
  75. kpenv linseg ifrq, ifall, cpspch((p5 - .01))
  76. asound oscil kampenv, kpenv + kvib, 1
  77. a1 = 2 * asound * ipan
  78. a2 = 2 * asound * (1 - ipan)
  79. a1 = a1 * ilevel
  80. a2 = a2 * ilevel
  81. outs a2, a1
  82. garvb = garvb + asound * irvbsend
  83. gadelay = gadelay + asound * idelsend
  84. kampenv = 0
  85. endin
  86.  
  87. ; guitar
  88. instr 103
  89. ilevel = .8
  90. iamp = p4 * .7
  91. iwhoneedsthis = p6
  92. idur = p3
  93. ifrq = cpspch(p5)
  94. idelsend = .4
  95. irvbsend = 0
  96. kampenv linseg iamp, idur, 0
  97. a1 pluck kampenv, ifrq, ifrq / 2, 0, 1
  98.  
  99. a1 = a1 * ilevel
  100. ;outs a1, a1
  101. garvb = garvb + a1 * irvbsend
  102. gadelay2 = gadelay2 + a1 * idelsend
  103. endin
  104.  
  105. ;grain dive
  106. instr 104
  107. ilevel = 1
  108. ifrq = p5
  109. idur = p3
  110. iamp = p4
  111. idens = 1100
  112. iampdeviation = 0
  113. ipitchoff = 880
  114. igraindur = .01
  115.  
  116. idelsend = .1
  117. irvbsend = .1
  118.  
  119. kampenv linseg 0, .01, p4, idur - .1, 0
  120. ktrem oscil 1, 5, 1
  121. kpitchoffc linseg ifrq * 2, idur, 0
  122.  
  123. asig grain kampenv * ktrem, kpitchoffc, idens, iampdeviation, kpitchoffc, igraindur, 1, 1, 1
  124.  
  125. kpanenv linseg .8, idur, .2 ; do some cool panning
  126. a1 = asig * kpanenv
  127. a2 = asig * (1 - kpanenv)
  128. a1 = a1 * ilevel
  129. a2 = a2 * ilevel
  130. outs a1, a2
  131. gadelay = gadelay + asig * idelsend
  132. garvb = garvb + asig * irvbsend
  133. endin
  134.  
  135. ; bass
  136. instr 105
  137. iamp = p4
  138. idur = p3
  139. iwhoneedsthis = p6
  140. ifrq = cpspch(p5)
  141. kfiltenv linseg 5000, idur, 60
  142. kampenv linseg 0, .01, iamp, idur - .05, 0
  143. asig oscil kampenv, ifrq, 3 ; triangle wave, biatch
  144. afilt3 tone asig, kfiltenv
  145. afilt2 tone afilt3, kfiltenv
  146. afilt1 reson afilt2, kfiltenv, 1000
  147. afilt reson afilt1, 80, 300
  148. afin balance afilt, asig
  149.  
  150. outs afin, afin
  151. endin
  152.  
  153. ; sawtooth
  154. instr 106
  155. idur = p3
  156. iamp = p4 / 3
  157. idelsend = .8
  158. irvbsend = 0
  159. ifrq = cpspch(p5)
  160. kfiltenv linseg 1000, idur, 100
  161. kampenv linseg 0, .01, iamp, idur - .01, 0
  162. ;asig oscil kampenv, ifrq, 4
  163. asig pluck kampenv, ifrq, ifrq, 4, 6
  164. afilt2 butterlp asig, gklfo * 8000 + kfiltenv
  165. afilt1 butterbp asig, gklfo * 8000 + kfiltenv, 100
  166. afin balance afilt1, asig
  167.  
  168. a1 = afilt2
  169. outs a1, a1
  170. gadelay = gadelay + a1 * idelsend
  171. garvb = garvb + a1 * irvbsend
  172. endin
  173.  
  174.  
  175.  
  176.  
  177.  
  178.  
  179. ;-------------------EFFECTS
  180. ;global lfo
  181. instr 197
  182. gklfo expseg .001, 6, 1, 6, .001
  183. endin
  184.  
  185.  
  186. ;globle dillay 2 ; eigth notes
  187. instr 196
  188. idellevel = .5
  189. ideltime = 1 * (60/150)
  190. idelstereospread = .3 ; (MAX = .5)
  191. gadelay2 = gadelay2 * idellevel
  192. asec delay gadelay2, ideltime ; setup the offset to go to asig2
  193. anit delay gadelay2 + gamousy3, ideltime ; calculate the first delay
  194. asig delay gadelay2 + gamousy4, (ideltime * 2) ; start the chain for asig
  195. asig2 delay asec + gamousy3, (ideltime *2) ; start the chain for asig2
  196. gamousy3 = asig * .5
  197. gamousy4 = asig2 * .5 ; multiplier for loop
  198.  
  199. ;a1 = asig * (.5 + idelstereospread) + ((asig2 + anit) * (.5 - idelstereospread))
  200. ;a2 = (asig2 * (.5 + idelstereospread)) + (asig * (.5 - idelstereospread))
  201. outs asig, asig2 + anit
  202. gadelay2 = 0
  203. endin
  204.  
  205.  
  206.  
  207.  
  208.  
  209. ;globle dillay
  210. instr 198
  211. idellevel = .5
  212. ideltime = 1 * (60/200)
  213. idelstereospread = .3 ; (MAX = .5)
  214. gadelay = gadelay * idellevel
  215. asec delay gadelay, ideltime ; setup the offset to go to asig2
  216. anit delay gadelay + gamousy, ideltime ; calculate the first delay
  217. asig delay gadelay + gamousy2, (ideltime * 2) ; start the chain for asig
  218. asig2 delay asec + gamousy, (ideltime *2) ; start the chain for asig2
  219. gamousy = asig * .5
  220. gamousy2 = asig2 * .5 ; multiplier for loop
  221.  
  222. ;a1 = asig * (.5 + idelstereospread) + ((asig2 + anit) * (.5 - idelstereospread))
  223. ;a2 = (asig2 * (.5 + idelstereospread)) + (asig * (.5 - idelstereospread))
  224. outs asig, asig2 + anit
  225. gadelay = 0
  226. endin
  227.  
  228. ; globle revarb
  229. instr 199
  230. irvbtim = .5
  231. ihiatn = .5
  232. arvb nreverb garvb, irvbtim, ihiatn
  233. outs arvb, arvb
  234. garvb = 0
  235. endin
  236. ;------------------------
  237. </CsInstruments>
  238. <CsScore>
  239. f 1 0 4096 10 1 ; sine
  240. f 2 0 4096 21 6 1 ; noise
  241. f 3 0 4096 7 0 1024 1 2048 -1 1024 0 ; triangle wave
  242. f 4 0 4096 7 -1 4096 1 ; sawtooth
  243.  
  244.  
  245. t 0 150 ;set tempo to 135
  246.  
  247.  
  248. ;a 0 0 164
  249.  
  250. #define REGDRUMS #
  251. ;drums
  252. ;inst st dr amp crzy idrum
  253. i101 0 1 15000 0 1
  254. i101 0 1 5000 1289 3
  255. i101 .5 1 10000 0 1
  256. i101 1.5 1 10000 0 1
  257. i101 2 1 20000 1289 2
  258. i101 3.5 1 15000 0 1
  259. i101 4 1 5000 1289 3
  260. i101 5 1 10000 0 1
  261. i101 5.5 1 10000 .3 1
  262. i101 6 1 20000 1289 2 #
  263.  
  264. #define DRUMSBECOMINGFM #
  265. ; drums becoming fm
  266. i101 0 1 15000 .4 1
  267. i101 0 1 5000 1289 3
  268. i101 .5 1 10000 .5 1
  269. i101 1.5 1 10000 1 1
  270. i101 2 1 20000 1289 2
  271. i101 3.5 1 10000 1.5 1
  272. i101 4 1 5000 1289 3
  273. i101 5 1 8000 2 1
  274. i101 5.5 1 6000 2.5 1
  275. i101 6 1 20000 1000 2
  276. i101 6.5 1 1000 1000 2
  277. i101 7 1 5000 1000 2 #
  278.  
  279. #define DRUMS3 #
  280. ;inst st dr amp crzy idrum
  281. i101 0 1 15000 0 1
  282. i101 0 1 5000 1289 3
  283. i101 .5 1 10000 0 1
  284. i101 1.5 1 10000 .2 1
  285. i101 2 1 20000 1289 2
  286. i101 3.5 1 15000 .5 1
  287. i101 4 1 5000 1289 3
  288. i101 5 1 10000 1 1
  289. i101 5.5 1 10000 2 1
  290. i101 6 1 20000 1289 2 #
  291.  
  292. #define DRUMS4 #
  293. i101 0 1 15000 0 1
  294. i101 0 1 6000 3 1
  295. i101 0 1 5000 1289 3
  296. i101 .5 1 4000 3.5 1
  297. i101 1 1 5000 1289 2
  298. i101 2 1 20000 1287 2
  299. i101 2.5 1 5000 4 1
  300. i101 3 1 3000 5 1
  301. i101 3 1 5000 1000 3
  302. i101 3.5 1 5000 6 1
  303. i101 4 1 5000 7 1
  304. i101 5.5 1 10000 940 2
  305. i101 6 1 20000 1000 2
  306. i101 6.5 1 10000 1000 2
  307. i101 7 1 10000 950 2 #
  308.  
  309. #define BORINGDRUMS #
  310. ;drums
  311. ;inst st dr amp crzy idrum
  312. i101 0 1 15000 0 1
  313. i101 0 1 5000 1289 3
  314. i101 .5 1 10000 0 1
  315. i101 1.5 1 10000 0 1
  316. i101 2 1 20000 1289 2
  317. i101 3.5 1 15000 0 1
  318. i101 4 1 5000 1289 3
  319. i101 5 1 10000 0 1
  320. i101 5.5 1 10000 .3 1
  321. i101 6 1 20000 1289 2 #
  322.  
  323. #define SINETHEME1 #
  324. ;sine
  325. i102 0 4 3000 8.18 90 0
  326. i102 1.5 4 3000 8.21 30
  327. i102 3 4 3000 8.15 90
  328. i102 5 4 3000 8.25 20 1 #
  329.  
  330. #define SINETHEME2 #
  331. ;sine part 2
  332. i102 0 4 3000 8.18 90 0
  333. i102 1.5 4 3000 8.21 30
  334. i102 3 4 3000 8.15 90 #
  335.  
  336.  
  337. #define SAWTOOTHCHORDS #
  338. ;sawtooth chords
  339. i106 0 .2 5000 8.09
  340. i106 . .2 . 8.04
  341. i106 . .2 . 8.01
  342. i106 .5 .2 . 8.09
  343. i106 . .2 . 8.04
  344. i106 . .2 . 8.01
  345. i106 1 .2 5000 8.09
  346. i106 . .2 . 8.04
  347. i106 . .2 . 8.01
  348. i106 1.5 .2 . 8.09
  349. i106 . .2 . 8.04
  350. i106 . .2 . 8.01
  351. i106 2 .2 5000 8.09
  352. i106 . .2 . 8.04
  353. i106 . .2 . 8.01
  354. i106 2.5 .2 . 8.09
  355. i106 . .2 . 8.04
  356. i106 . .2 . 8.01
  357. i106 3 .2 5000 8.09
  358. i106 . .2 . 8.04
  359. i106 . .2 . 8.01
  360. i106 3.5 .2 . 8.09
  361. i106 . .2 . 8.04
  362. i106 . .2 . 8.01 #
  363.  
  364. #define GUITARI- # ;guit I-
  365. i103 .02 1 5000 8.06
  366. i103 .05 . . 8.09
  367. i103 0 . . 8.01
  368. i103 .49 . . 8.06
  369. i103 .52 . . 8.09
  370. i103 .5 . . 8.01
  371. i103 1.5 . . 8.06
  372. i103 1.47 . . 8.09
  373. i103 1.53 . . 8.01
  374. i103 3.51 . . 8.06
  375. i103 3.5 . . 8.09
  376. i103 3.52 . . 8.01
  377. i103 4.5 . . 8.06
  378. i103 4.46 . . 8.09
  379. i103 4.51 . . 8.01
  380. i103 7 . . 8.06
  381. i103 7.02 . . 8.09
  382. i103 6.99 . . 8.01
  383. i103 7.5 . . 8.06
  384. i103 7.47 . . 8.09
  385. i103 7.51 . . 8.01
  386. #
  387.  
  388. #define GUITARV- # ;guit V-
  389. i103 .02 1 5000 8.04
  390. i103 .05 . . 8.08
  391. i103 0 . . 8.01
  392. i103 .49 . . 8.04
  393. i103 .52 . . 8.08
  394. i103 .5 . . 8.01
  395. i103 1.5 . . 8.04
  396. i103 1.47 . . 8.08
  397. i103 1.53 . . 8.01
  398. i103 3.51 . . 8.04
  399. i103 3.5 . . 8.08
  400. i103 3.52 . . 8.01
  401. i103 4.5 . . 8.04
  402. i103 4.46 . . 8.08
  403. i103 4.51 . . 8.01
  404. i103 7 . . 8.04
  405. i103 7.02 . . 8.08
  406. i103 6.99 . . 8.01
  407. i103 7.5 . . 8.04
  408. i103 7.47 . . 8.08
  409. i103 7.51 . . 8.01
  410. #
  411.  
  412. #define GUITARIV- # ;guit IV-
  413. i103 .02 1 5000 8.02
  414. i103 .05 . . 8.06
  415. i103 0 . . 7.99
  416. i103 .49 . . 8.02
  417. i103 .52 . . 8.06
  418. i103 .5 . . 7.99
  419. i103 1.5 . . 8.02
  420. i103 1.47 . . 8.06
  421. i103 1.53 . . 7.99
  422. i103 3.51 . . 8.02
  423. i103 3.5 . . 8.06
  424. i103 3.52 . . 7.99
  425. i103 4.5 . . 8.02
  426. i103 4.46 . . 8.06
  427. i103 4.51 . . 7.99
  428. i103 7 . . 8.02
  429. i103 7.02 . . 8.06
  430. i103 6.99 . . 7.99
  431. i103 7.5 . . 8.02
  432. i103 7.47 . . 8.06
  433. i103 7.51 . . 7.99
  434. #
  435.  
  436. #define GUITARII- # ;guit II-
  437. i103 .02 1 5000 8.08
  438. i103 .05 . . 8.11
  439. i103 0 . . 8.02
  440. i103 .49 . . 8.08
  441. i103 .52 . . 8.11
  442. i103 .5 . . 8.02
  443. i103 1.5 . . 8.08
  444. i103 1.47 . . 8.11
  445. i103 1.53 . . 8.02
  446. i103 3.51 . . 8.08
  447. i103 3.5 . . 8.11
  448. i103 3.52 . . 8.02
  449. i103 4.5 . . 8.08
  450. i103 4.46 . . 8.011
  451. i103 4.51 . . 8.02
  452. i103 7 . . 8.08
  453. i103 7.02 . . 8.11
  454. i103 6.99 . . 8.02
  455. i103 7.5 . . 8.08
  456. i103 7.47 . . 8.11
  457. i103 7.51 . . 8.03
  458. #
  459.  
  460.  
  461.  
  462. #define BASSI- #
  463. ;bass
  464. i105 0 .8 2000 6.04
  465. i105 .5 1 . 6.06
  466. i105 1.5 . . 6.06
  467. i105 3.5 . . 6.04
  468. i105 6 . . 6.04
  469. i105 6.5 . . 6.06 #
  470.  
  471. #define BASSV- #
  472. ;bass
  473. i105 0 .8 2000 6.04
  474. i105 .5 1 . 6.01
  475. i105 1.5 . . 6.04
  476. i105 3.5 . . 6.04
  477. i105 4.5 . . 6.01 #
  478.  
  479. #define BASSIV- #
  480. ;bass
  481. i105 0 .8 2000 6.02
  482. i105 .5 1 . 6.02
  483. i105 1.5 . . 6.02
  484. i105 3.5 . . 6.02
  485. i105 4.5 . . 6.02
  486.  
  487. #
  488.  
  489. #define CHILLBASS #
  490. ;bass
  491. i105 0 .8 4000 6.04
  492. i105 1 1 . 6.06
  493. i105 3.5 1 . 6.04
  494. i105 5 1 . 6.06 #
  495.  
  496. #define CHILLV- #
  497. ;bass
  498. i105 0 .8 4000 6.04
  499. i105 1 1 . 6.01
  500. i105 3.5 1 . 6.04
  501. i105 5 1 . 6.01 #
  502.  
  503. #define BREAKITDOWN #
  504. ;break it down
  505. i101 0 1 5000 950 2
  506. i101 .5 1 5000 9000 2
  507. i101 1 1 5000 940 2
  508. i101 5 1 5000 930 2
  509. i101 5.5 1 5000 8800 2
  510. i101 6 1 5000 910 2
  511. i101 6.5 1 5000 9000 2 #
  512.  
  513. #define BREAKITDOWN2 #
  514. ;break it down 2
  515. i101 0 1 5000 950 2
  516. i101 .5 1 5000 9000 2
  517. i101 1 1 5000 940 2
  518. i101 5 1 5000 930 2
  519. i101 5.5 1 5000 8800 2
  520. i101 6 1 5000 910 2
  521. i101 6.5 1 5000 9000 2 #
  522.  
  523. #define DRUMHIT #
  524. i101 0 1 15000 0 1
  525. i101 0 1 5000 1289 3
  526. i101 .5 1 10000 0 1
  527. i101 1.5 1 10000 0 1
  528. i101 2 1 20000 1289 2 #
  529.  
  530.  
  531. ;start song-------------------
  532.  
  533. i199 0 240
  534. i198 0 240
  535. i197 0 16
  536. i196 0 240
  537.  
  538. $SAWTOOTHCHORDS.
  539.  
  540. b 8
  541.  
  542. $SAWTOOTHCHORDS.
  543.  
  544. b 16
  545. i197 0 16
  546. $SAWTOOTHCHORDS.
  547. $REGDRUMS.
  548.  
  549. b 24
  550.  
  551. $DRUMSBECOMINGFM.
  552. $SAWTOOTHCHORDS.
  553. b 32
  554.  
  555. $DRUMS3.
  556.  
  557. b 40
  558.  
  559. $DRUMS4.
  560.  
  561. b 48
  562. $BREAKITDOWN.
  563. $SINETHEME1.
  564.  
  565. b 56
  566. $BREAKITDOWN2.
  567. $SINETHEME2.
  568.  
  569. b 64
  570. $REGDRUMS.
  571. $SINETHEME1.
  572.  
  573. b 72
  574. $REGDRUMS.
  575. $SINETHEME2.
  576.  
  577. b 80
  578. $SINETHEME1.
  579. $REGDRUMS.
  580.  
  581. b 88
  582. $DRUMSBECOMINGFM.
  583. $SINETHEME2.
  584.  
  585. b 96
  586. $SINETHEME1.
  587. $DRUMS3.
  588.  
  589. b 104
  590. $SINETHEME2.
  591. $DRUMS4.
  592.  
  593. b 112
  594. $BREAKITDOWN.
  595.  
  596. b 120
  597. $BREAKITDOWN2.
  598.  
  599. b 128
  600. $GUITARI-.
  601.  
  602. b 136
  603. $GUITARV-.
  604.  
  605. b 144
  606. $GUITARIV-.
  607.  
  608. b 152
  609.  
  610. b 160
  611. $GUITARI-.
  612. $BASSI-.
  613.  
  614. b 168
  615. $GUITARV-.
  616. $BASSV-.
  617.  
  618. b 176
  619. $GUITARIV-.
  620. $BASSIV.
  621.  
  622. b 184
  623. ;grain
  624. i104 0 8 500 1000
  625.  
  626. b 192
  627. $GUITARI-.
  628. i197 0 16
  629. $SAWTOOTHCHORDS.
  630. $REGDRUMS.
  631. $BASSI-.
  632.  
  633. b 200
  634. $GUITARV-.
  635. $SAWTOOTHCHORDS.
  636. $REGDRUMS.
  637. $BASSV-.
  638.  
  639. b 208
  640. $GUITARIV-.
  641. i197 0 16
  642. $SAWTOOTHCHORDS.
  643. $REGDRUMS.
  644. $BASSIV-.
  645.  
  646. b 216
  647. $DRUMS4.
  648. </CsScore>
  649.  
  650. </CsoundSynthesizer>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
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!