DISTRHO
/
DISTRHO-Ports
mirror of https://github.com/DISTRHO/DISTRHO-Ports
1
0
Fork 0
Code Releases 5 Activity
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
2 Commits
6 Branches
135MB
Tree: 49edfaaa68
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '49edfaaa68'
${ noResults }
DISTRHO-Ports/bin/cabbage/Synths/bassline.csd

613 lines
24KB
Raw Blame History 

  1. <Cabbage>

  2. form caption("Bassline") size(615, 250), pluginID("basl")

  3. 

  4. snapshot bounds( 80,185,200, 20), preset("bassline"), items("Preset 1", "Preset 2", "Preset 3", "Preset 4", "Preset 5", "Preset 6", "Preset 7", "Preset 8", "Preset 9", "Preset 10")

  5. 

  6. image    bounds(  0,  0,615,220), colour("grey"), shape("rounded"), outline("white"), line(4)

  7. checkbox bounds( 64,  8,  4,  4), channel("Act1"),  value(0), colour("yellow"), shape("ellipse")

  8. checkbox bounds( 99,  8,  4,  4), channel("Act2"),  value(0), colour("yellow"), shape("ellipse")

  9. checkbox bounds(134,  8,  4,  4), channel("Act3"),  value(0), colour("yellow"), shape("ellipse")

  10. checkbox bounds(169,  8,  4,  4), channel("Act4"),  value(0), colour("yellow"), shape("ellipse")

  11. checkbox bounds(204,  8,  4,  4), channel("Act5"),  value(0), colour("yellow"), shape("ellipse")

  12. checkbox bounds(239,  8,  4,  4), channel("Act6"),  value(0), colour("yellow"), shape("ellipse")

  13. checkbox bounds(274,  8,  4,  4), channel("Act7"),  value(0), colour("yellow"), shape("ellipse")

  14. checkbox bounds(309,  8,  4,  4), channel("Act8"),  value(0), colour("yellow"), shape("ellipse")

  15. checkbox bounds(344,  8,  4,  4), channel("Act9"),  value(0), colour("yellow"), shape("ellipse")

  16. checkbox bounds(379,  8,  4,  4), channel("Act10"), value(0), colour("yellow"), shape("ellipse")

  17. checkbox bounds(414,  8,  4,  4), channel("Act11"), value(0), colour("yellow"), shape("ellipse")

  18. checkbox bounds(449,  8,  4,  4), channel("Act12"), value(0), colour("yellow"), shape("ellipse")

  19. checkbox bounds(484,  8,  4,  4), channel("Act13"), value(0), colour("yellow"), shape("ellipse")

  20. checkbox bounds(519,  8,  4,  4), channel("Act14"), value(0), colour("yellow"), shape("ellipse")

  21. checkbox bounds(554,  8,  4,  4), channel("Act15"), value(0), colour("yellow"), shape("ellipse")

  22. checkbox bounds(589,  8,  4,  4), channel("Act16"), value(0), colour("yellow"), shape("ellipse")

  23. 

  24. label    bounds( 10, 23, 40, 12), text("Note"), FontColour("black"), colour("black")

  25. rslider  bounds( 45, 15, 45, 45), text("1"), FontColour("black"),  channel("Note1"),  range(24, 96, 60, 1, 1), preset("bassline")

  26. rslider  bounds( 80, 15, 45, 45), text("2"),  channel("Note2"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  27. rslider  bounds(115, 15, 45, 45), text("3"),  channel("Note3"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  28. rslider  bounds(150, 15, 45, 45), text("4"),  channel("Note4"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  29. rslider  bounds(185, 15, 45, 45), text("5"),  channel("Note5"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  30. rslider  bounds(220, 15, 45, 45), text("6"),  channel("Note6"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  31. rslider  bounds(255, 15, 45, 45), text("7"),  channel("Note7"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  32. rslider  bounds(290, 15, 45, 45), text("8"),  channel("Note8"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  33. rslider  bounds(325, 15, 45, 45), text("9"),  channel("Note9"), FontColour("black"),  range(24, 96, 60, 1, 1), preset("bassline")

  34. rslider  bounds(360, 15, 45, 45), text("10"), channel("Note10"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  35. rslider  bounds(395, 15, 45, 45), text("11"), channel("Note11"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  36. rslider  bounds(430, 15, 45, 45), text("12"), channel("Note12"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  37. rslider  bounds(465, 15, 45, 45), text("13"), channel("Note13"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  38. rslider  bounds(500, 15, 45, 45), text("14"), channel("Note14"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  39. rslider  bounds(535, 15, 45, 45), text("15"), channel("Note15"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  40. rslider  bounds(570, 15, 45, 45), text("16"), channel("Note16"), FontColour("black"), range(24, 96, 60, 1, 1), preset("bassline")

  41. 

  42. label    bounds( 10, 62, 40, 12), text("On/Off"), colour("black"), FontColour("black")

  43. checkbox bounds( 61, 62, 12, 12), channel("On1"),  value(0), preset("bassline")

  44. checkbox bounds( 96, 62, 12, 12), channel("On2"),  value(0), preset("bassline")

  45. checkbox bounds(131, 62, 12, 12), channel("On3"),  value(0), preset("bassline")

  46. checkbox bounds(166, 62, 12, 12), channel("On4"),  value(0), preset("bassline")

  47. checkbox bounds(201, 62, 12, 12), channel("On5"),  value(0), preset("bassline")

  48. checkbox bounds(236, 62, 12, 12), channel("On6"),  value(0), preset("bassline")

  49. checkbox bounds(271, 62, 12, 12), channel("On7"),  value(0), preset("bassline")

  50. checkbox bounds(306, 62, 12, 12), channel("On8"),  value(0), preset("bassline")

  51. checkbox bounds(341, 62, 12, 12), channel("On9"),  value(0), preset("bassline")

  52. checkbox bounds(376, 62, 12, 12), channel("On10"), value(0), preset("bassline")

  53. checkbox bounds(411, 62, 12, 12), channel("On11"), value(0), preset("bassline")

  54. checkbox bounds(446, 62, 12, 12), channel("On12"), value(0), preset("bassline")

  55. checkbox bounds(481, 62, 12, 12), channel("On13"), value(0), preset("bassline")

  56. checkbox bounds(516, 62, 12, 12), channel("On14"), value(0), preset("bassline")

  57. checkbox bounds(551, 62, 12, 12), channel("On15"), value(0), preset("bassline")

  58. checkbox bounds(586, 62, 12, 12), channel("On16"), value(0), preset("bassline")

  59. 

  60. label    bounds( 11, 80, 40, 12), text("Hold"), colour("black"), FontColour("black")

  61. checkbox bounds( 61, 80, 12, 12), channel("Hold1"),  value(0), preset("bassline")

  62. checkbox bounds( 96, 80, 12, 12), channel("Hold2"),  value(0), preset("bassline")

  63. checkbox bounds(131, 80, 12, 12), channel("Hold3"),  value(0), preset("bassline")

  64. checkbox bounds(166, 80, 12, 12), channel("Hold4"),  value(0), preset("bassline")

  65. checkbox bounds(201, 80, 12, 12), channel("Hold5"),  value(0), preset("bassline")

  66. checkbox bounds(236, 80, 12, 12), channel("Hold6"),  value(0), preset("bassline")

  67. checkbox bounds(271, 80, 12, 12), channel("Hold7"),  value(0), preset("bassline")

  68. checkbox bounds(306, 80, 12, 12), channel("Hold8"),  value(0), preset("bassline")

  69. checkbox bounds(341, 80, 12, 12), channel("Hold9"),  value(0), preset("bassline")

  70. checkbox bounds(376, 80, 12, 12), channel("Hold10"), value(0), preset("bassline")

  71. checkbox bounds(411, 80, 12, 12), channel("Hold11"), value(0), preset("bassline")

  72. checkbox bounds(446, 80, 12, 12), channel("Hold12"), value(0), preset("bassline")

  73. checkbox bounds(481, 80, 12, 12), channel("Hold13"), value(0), preset("bassline")

  74. checkbox bounds(516, 80, 12, 12), channel("Hold14"), value(0), preset("bassline")

  75. checkbox bounds(551, 80, 12, 12), channel("Hold15"), value(0), preset("bassline")

  76. checkbox bounds(586, 80, 12, 12), channel("Hold16"), value(0), preset("bassline")

  77. 

  78. label    bounds( 11, 98, 40, 12), text("Accent"), colour("black"), FontColour("black")

  79. checkbox bounds( 61, 98, 12, 12), channel("Acc1"),  value(0), preset("bassline")

  80. checkbox bounds( 96, 98, 12, 12), channel("Acc2"),  value(0), preset("bassline")

  81. checkbox bounds(131, 98, 12, 12), channel("Acc3"),  value(0), preset("bassline")

  82. checkbox bounds(166, 98, 12, 12), channel("Acc4"),  value(0), preset("bassline")

  83. checkbox bounds(201, 98, 12, 12), channel("Acc5"),  value(0), preset("bassline")

  84. checkbox bounds(236, 98, 12, 12), channel("Acc6"),  value(0), preset("bassline")

  85. checkbox bounds(271, 98, 12, 12), channel("Acc7"),  value(0), preset("bassline")

  86. checkbox bounds(306, 98, 12, 12), channel("Acc8"),  value(0), preset("bassline")

  87. checkbox bounds(341, 98, 12, 12), channel("Acc9"),  value(0), preset("bassline")

  88. checkbox bounds(376, 98, 12, 12), channel("Acc10"), value(0), preset("bassline")

  89. checkbox bounds(411, 98, 12, 12), channel("Acc11"), value(0), preset("bassline")

  90. checkbox bounds(446, 98, 12, 12), channel("Acc12"), value(0), preset("bassline")

  91. checkbox bounds(481, 98, 12, 12), channel("Acc13"), value(0), preset("bassline")

  92. checkbox bounds(516, 98, 12, 12), channel("Acc14"), value(0), preset("bassline")

  93. checkbox bounds(551, 98, 12, 12), channel("Acc15"), value(0), preset("bassline")

  94. checkbox bounds(586, 98, 12, 12), channel("Acc16"), value(0), preset("bassline")

  95. 

  96. button   bounds( 10,120, 60, 25), colour("Green"), text("Stop", "Run"), channel("OnOff"), value(1)

  97. combobox bounds( 10,150, 60, 15), channel("Waveform"), value(1), text("saw","square","triangle","PWM","noise"), preset("bassline")

  98. rslider  bounds( 20,170, 40, 40), text("P.W."),  channel("pw"),  range(0.01,0.99, 0.25), preset("bassline"), FontColour("black")

  99. rslider  bounds( 70,120, 60, 60), text("Vol."),  channel("Vol"),  range(0, 5.00, 1), preset("bassline"), FontColour("black")

  100. rslider  bounds(120,120, 60, 60), text("Cutoff"),  channel("CfBase"),  range(4.00, 14, 8), preset("bassline"), FontColour("black")

  101. rslider  bounds(170,120, 60, 60), text("Env.Mod"),  channel("CfEnv"),  range(0, 10.00, 4), preset("bassline"), FontColour("black")

  102. rslider  bounds(220,120, 60, 60), text("Res."),  channel("Res"),  range(0,0.98, .4), preset("bassline"), FontColour("black")

  103. rslider  bounds(270,120, 60, 60), text("Dist."),  channel("Dist"),  range(0,1.00, 0), preset("bassline"), FontColour("black")

  104. rslider  bounds(320,120, 60, 60), text("Decay"),  channel("Decay"),  range(0.10, 5, .3, 0.25), preset("bassline"), FontColour("black")

  105. rslider  bounds(370,120, 60, 60), text("Accent"),  channel("Accent"),  range(0, 1.00, .5), preset("bassline"), FontColour("black")

  106. rslider  bounds(420,120, 60, 60), text("Tempo"),  channel("Tempo"),  range(1, 500, 110, 1, 1), FontColour("black"), FontColour("black")

  107. button   bounds(480,120, 60, 15), text("Reset"), channel("Reset"), value(0)

  108. button   bounds(540,120, 60, 15), text("Random"), channel("Rnd"), value(0)

  109. button   bounds(480,140, 60, 15), text("-semi"), channel("SemiDn"), value(0)

  110. button   bounds(540,140, 60, 15), text("+semi"), channel("SemiUp"), value(0)

  111. button   bounds(480,160, 60, 15), text("-oct"), channel("OctDn"), value(0)

  112. button   bounds(540,160, 60, 15), text("+oct"), channel("OctUp"), value(0)

  113. 

  114. button bounds(280, 185, 80, 20), text("External", "Internal"), channel("ClockSource"), value(0)

  115. label  bounds(285, 205, 80, 12), text("Clock Source"), FontColour("black")

  116. 

  117. image bounds(5, 225, 330, 20), colour(75, 85, 90, 100), plant("credit"){

  118. label bounds(0.03, 0.1, .6, .7), text("Author: Iain McCurdy |2012|"), colour("white")

  119. }

  120. 

  121. hostbpm channel("bpm")

  122. </Cabbage>

  123. 

  124. <CsoundSynthesizer>

  125. 

  126. <CsOptions>

  127. -d -n

  128. </CsOptions>

  129. 

  130. <CsInstruments>

  131. 

  132. sr 		= 	44100	;SAMPLE RATE

  133. ksmps 		= 	32	;NUMBER OF AUDIO SAMPLES IN EACH CONTROL CYCLE

  134. nchnls 		= 	2	;NUMBER OF CHANNELS (2=STEREO)

  135. 0dbfs		=	1

  136. 		seed	0

  137. 		

  138. ;Author: Iain McCurdy (2012)

  139. 

  140. opcode	moogladdersr,a,akk

  141. 	asig,kcf,kres	xin

  142. 		setksmps	1

  143. 	acf	interp	kcf

  144. 	kcf	downsamp	acf

  145. 	asig      moogladder   asig, kcf, kres

  146. 		xout	asig

  147. endop

  148. 

  149. opcode	resonsr,a,akki

  150. 	asig,kcf,kbw,iscal	xin

  151. 		setksmps	1

  152. 	acf	interp	kcf

  153. 	kcf	downsamp	acf

  154. 	abw	interp	kbw

  155. 	kbw	downsamp	abw

  156. 	asig      reson   asig, kcf, kbw,iscal

  157. 		xout	asig

  158. endop

  159. 

  160. instr	1	;BASSLINE INSTRUMENT

  161. 	kporttime	linseg	0,0.001,0.01	;PORTAMENTO TIME RAMPS UP QUICKLY FROM ZERO TO A HELD VALUE

  162. 	;READ IN WIDGETS...

  163. 	gkOnOff		chnget	"OnOff"

  164. 	gkNote1		chnget	"Note1"

  165. 	gkNote2		chnget	"Note2"

  166. 	gkNote3		chnget	"Note3"

  167. 	gkNote4		chnget	"Note4"

  168. 	gkNote5		chnget	"Note5"

  169. 	gkNote6		chnget	"Note6"

  170. 	gkNote7		chnget	"Note7"

  171. 	gkNote8		chnget	"Note8"

  172. 	gkNote9		chnget	"Note9"

  173. 	gkNote10	chnget	"Note10"

  174. 	gkNote11	chnget	"Note11"

  175. 	gkNote12	chnget	"Note12"

  176. 	gkNote13	chnget	"Note13"

  177. 	gkNote14	chnget	"Note14"

  178. 	gkNote15	chnget	"Note15"

  179. 	gkNote16	chnget	"Note16"

  180. 	gkOn1		chnget	"On1"

  181. 	gkOn2		chnget	"On2"

  182. 	gkOn3		chnget	"On3"

  183. 	gkOn4		chnget	"On4"

  184. 	gkOn5		chnget	"On5"

  185. 	gkOn6		chnget	"On6"

  186. 	gkOn7		chnget	"On7"

  187. 	gkOn8		chnget	"On8"

  188. 	gkOn9		chnget	"On9"

  189. 	gkOn10		chnget	"On10"

  190. 	gkOn11		chnget	"On11"

  191. 	gkOn12		chnget	"On12"

  192. 	gkOn13		chnget	"On13"

  193. 	gkOn14		chnget	"On14"

  194. 	gkOn15		chnget	"On15"

  195. 	gkOn16		chnget	"On16"

  196. 	gkHold1		chnget	"Hold1"

  197. 	gkHold2		chnget	"Hold2"

  198. 	gkHold3		chnget	"Hold3"

  199. 	gkHold4		chnget	"Hold4"

  200. 	gkHold5		chnget	"Hold5"

  201. 	gkHold6		chnget	"Hold6"

  202. 	gkHold7		chnget	"Hold7"

  203. 	gkHold8		chnget	"Hold8"

  204. 	gkHold9		chnget	"Hold9"

  205. 	gkHold10	chnget	"Hold10"

  206. 	gkHold11	chnget	"Hold11"

  207. 	gkHold12	chnget	"Hold12"

  208. 	gkHold13	chnget	"Hold13"

  209. 	gkHold14	chnget	"Hold14"

  210. 	gkHold15	chnget	"Hold15"

  211. 	gkHold16	chnget	"Hold16"

  212. 	gkAcc1	chnget	"Acc1"

  213. 	gkAcc2	chnget	"Acc2"

  214. 	gkAcc3	chnget	"Acc3"

  215. 	gkAcc4	chnget	"Acc4"

  216. 	gkAcc5	chnget	"Acc5"

  217. 	gkAcc6	chnget	"Acc6"

  218. 	gkAcc7	chnget	"Acc7"

  219. 	gkAcc8	chnget	"Acc8"

  220. 	gkAcc9	chnget	"Acc9"

  221. 	gkAcc10	chnget	"Acc10"

  222. 	gkAcc11	chnget	"Acc11"

  223. 	gkAcc12	chnget	"Acc12"

  224. 	gkAcc13	chnget	"Acc13"

  225. 	gkAcc14	chnget	"Acc14"

  226. 	gkAcc15	chnget	"Acc15"

  227. 	gkAcc16	chnget	"Acc16"

  228. 	gkVol	chnget	"Vol"

  229. 	gkCfBase	chnget	"CfBase"

  230. 	gkCfBase	portk	gkCfBase,kporttime*5

  231. 	gkCfEnv	chnget	"CfEnv"

  232. 	gkCfEnv	portk	gkCfEnv,kporttime*5

  233. 	gkRes	chnget	"Res"

  234. 	gkDist	chnget	"Dist"

  235. 	gkDecay	chnget	"Decay"

  236. 	gkAccent	chnget	"Accent"

  237. 	gkWaveform	chnget	"Waveform"

  238. 	kpw	chnget	"pw"

  239. 	gkReset	chnget	"Reset"

  240. 	gkRnd	chnget	"Rnd"

  241. 	kSemiDn	chnget	"SemiDn"

  242. 	kSemiUp	chnget	"SemiUp"

  243. 	kOctDn	chnget	"OctDn"

  244. 	kOctUp	chnget	"OctUp"

  245. 	kClockSource	chnget	"ClockSource"

  246. 	if kClockSource==0 then

  247. 	 gkTempo	chnget	"Tempo"

  248. 	else

  249. 	 gkTempo	chnget	"bpm"

  250. 	 gkTempo	limit	gkTempo,1,2000

  251. 	endif

  252. 	

  253. 	kNonActive	init	0	

  254. 	kStop	trigger	gkOnOff,0.5,1	; IS LOOP PLAYING TURNED OFF...

  255. 	if kStop==1 then

  256. 	 chnset kNonActive,"Act1"

  257. 	 chnset kNonActive,"Act2"

  258. 	 chnset kNonActive,"Act3"

  259. 	 chnset kNonActive,"Act4"

  260. 	 chnset kNonActive,"Act5"

  261. 	 chnset kNonActive,"Act6"

  262. 	 chnset kNonActive,"Act7"

  263. 	 chnset kNonActive,"Act8"

  264. 	 chnset kNonActive,"Act9"

  265. 	 chnset kNonActive,"Act10"

  266. 	 chnset kNonActive,"Act11"

  267. 	 chnset kNonActive,"Act12"

  268. 	 chnset kNonActive,"Act13"

  269. 	 chnset kNonActive,"Act14"

  270. 	 chnset kNonActive,"Act15"

  271. 	 chnset kNonActive,"Act16"

  272. 	 reinit RESET_LOOP

  273. 	endif

  274. 	RESET_LOOP:

  275. 

  276. 	if gkOnOff==0 kgoto SKIP

  277. 	kPhFreq   =            gkTempo/240	;FREQUENCY WITH WHICH TO REPEAT THE ENTIRE PHRASE

  278. 	kBtFreq   =            gkTempo/15	;FREQUENCY OF EACH 1/16TH NOTE

  279. 	kNewNote	metro	kBtFreq		;GENERATES A TRIGGER FOR EACH BEAT

  280. 	;ENVELOPES WITH HELD SEGMENTS

  281. 	;                      freq     trig      ph  NOTE:1 (dur) 2            3            4            5            6            7            8            9            10            11            12            13            14            15            16             DUMMY

  282. 	kNoteLoop lpshold      kPhFreq, 0,        0,  gkNote1, 1,  gkNote2, 1,  gkNote3, 1,  gkNote4, 1,  gkNote5, 1,  gkNote6, 1,  gkNote7, 1,  gkNote8, 1,  gkNote9, 1,  gkNote10, 1,  gkNote11, 1,  gkNote12, 1,  gkNote13, 1,  gkNote4,  1,  gkNote15, 1,  gkNote16,   1  ;,gkNote1	;NEED AN EXTRA 'DUMMY' VALUE

  283. 	kOn       lpshold      kPhFreq, 0,        0,  gkOn1,   1,  gkOn2,   1,  gkOn3,   1,  gkOn4,   1,  gkOn5,   1,  gkOn6,   1,  gkOn7,   1,  gkOn8,   1,  gkOn9,   1,  gkOn10,   1,  gkOn11,   1,  gkOn12,   1,  gkOn13,   1,  gkOn14,   1,  gkOn15,   1,  gkOn16,     1  ;,1		;NEED AN EXTRA 'DUMMY' VALUE

  284. 	kAcc      lpshold      kPhFreq, 0,        0,  gkAcc1,  1,  gkAcc2,  1,  gkAcc3,  1,  gkAcc4,  1,  gkAcc5,  1,  gkAcc6,  1,  gkAcc7,  1,  gkAcc8,  1,  gkAcc9,  1,  gkAcc10,  1,  gkAcc11,  1,  gkAcc12,  1,  gkAcc13,  1,  gkAcc14,  1,  gkAcc15,  1,  gkAcc16,    1  ;,1		;NEED AN EXTRA 'DUMMY' VALUE

  285. 	kHoldLoop lpshold      kPhFreq, 0,        0,  gkHold1, 1,  gkHold2, 1,  gkHold3, 1,  gkHold4, 1,  gkHold5, 1,  gkHold6, 1,  gkHold7, 1,  gkHold8, 1,  gkHold9, 1,  gkHold10, 1,  gkHold11, 1,  gkHold12, 1,  gkHold13, 1,  gkHold14, 1,  gkHold15, 1,  gkHold16,   1  ;,0		;NEED AN EXTRA 'DUMMY' VALUE

  286. 	kStep 	  lpshold      kPhFreq, 0,        0,  1,       1,  2,       1,  3,       1,  4,       1,  5,       1,  6,       1,  7,       1,  8,       1,  9,       1,  10,       1,  11,       1,  12,       1,  13,       1,  14,       1,  15,       1,  16,         1  ;,0		;NEED AN EXTRA 'DUMMY' VALUE

  287. 	

  288. 	kNewOn	trigger	kOn,0.5,0	;SENSE A NOTE ON FOLLOWING A NOTE OFF

  289. 	kAcc	portk	kAcc*gkAccent,kporttime	;SCALE ACCENT USING ON-SCREEN KNOB AND SMOOTH CHANGES IN ACCENT VALUE TO PREVENT CLICKS

  290. 	

  291. 	;IGNORE PITCH VALUES AND HOLD VALUES FOR 'OFF' NOTES

  292. 	kNote	init	i(gkNote1)

  293. 	if kOn==1 then			;IF THIS IS AN 'ON' NOTE...

  294. 	 kNote = kNoteLoop		;USE NOTE LOOP VALUE FOR PCH

  295. 	 kHold = kHoldLoop		;USE HOLD LOOP VALUE FOR HOLD

  296. 	endif

  297. 	

  298. 	kHoldDel  vdel_k       kHold, 1/(kBtFreq*2), 1	;OFFSET HOLD SO THAT ITS VALUE WILL OVERLAP THE NEXT NOTE

  299. 	kNote      portk        kNote, 0.01*kHoldDel*kOn	;APPLY PORTAMENTO TO PITCH CHANGES - IF NOTE IS NOT HELD, NO PORTAMENTO WILL BE APPLIED

  300. 		

  301. 	;FILTER ENVELOPE

  302. 	kFiltRetrig	=	(1-kHoldDel) * kNewNote * kOn ; + kOnTrig

  303. 	;CREATE A FILTER CUTOFF FREQUENCY ENVELOPE. FILTER ATTACK LEVEL IS A SUM OF BASE FREQUENCY, ENVELOPE DEPTH AND ACCENT

  304. 	;                       freq    trig                ph v                          t        v         t             v         t(?)

  305. 	kCfOct	  loopseg	1/3600, kFiltRetrig+kNewOn, 0, gkCfBase+gkCfEnv+(kAcc*2), gkDecay, gkCfBase, 3600-gkDecay, gkCfBase, 0

  306. 	kCfOct    limit        kCfOct, 4, 14	;LIMIT THE CUTOFF FREQUENCY TO BE WITHIN SENSIBLE LIMITS

  307. 	;AMPLITUDE ENVELOPE - SEPARATES NOTES THAT ARE NOT HELD

  308. 	katt	=	0.02 * (60/gkTempo)

  309. 	kdec	=	0.02 * (60/gkTempo)

  310. 	;                      freq     trig  ph   v   tim   v   t                      v   t    v  t(?)

  311. 	kAmpEnv   loopseg      kBtFreq, 0,    0,   0,  katt, 1,  (1/kBtFreq)-katt-kdec, 1,  kdec,0, 0	;SUSTAIN SEGMENT DURATION (AND THEREFORE ATTACK AND DECAY SEGMENT DURATIONS) ARE DEPENDENT UPON TEMPO

  312. 	kAmp	=	(kHoldDel==1?1:kAmpEnv)

  313. 	

  314. 	;AUDIO OSCILLATOR

  315. 	kWavTrig  changed      gkWaveform		;GENERATE A 'BANG' IF WAVEFORM SELECTOR CHANGES

  316. 	if kWavTrig=1 then				;IF A 'BANG' HAS BEEN GENERATED...

  317. 	 reinit REINIT_VCO				;BEGIN A REINITIALIZATION PASS FROM THE LABEL 'REINIT_VCO'

  318. 	endif

  319. 	REINIT_VCO:							;A LABEL

  320. 	if     i(gkWaveform)==1 then	;SAWTOOTH

  321. 	 imode	=	0

  322. 	elseif i(gkWaveform)==2 then	;SQUARE

  323. 	 imode	=	10

  324. 	elseif i(gkWaveform)==3 then	;TRIANGLE

  325. 	 imode	=	12

  326. 	elseif i(gkWaveform)==4 then	;PWM

  327. 	 imode	=	2

  328. 	elseif i(gkWaveform)==5 then	;NOISE

  329. 	 anoise	pinkish	1

  330. 	 aSig	resonsr	anoise,cpsmidinn(kNote),cpsmidinn(kNote)*0.005,1

  331. 	 aSig	=	aSig*20

  332. 	 goto SKIP_VCO2

  333. 	endif

  334. 	kpw	portk	kpw,kporttime

  335. 	aSig      vco2         0.2, cpsmidinn(kNote), imode, kpw	;GENERATE AUDIO USING VCO OSCILLATOR

  336. 	SKIP_VCO2:

  337. 	rireturn							;RETURN FROM INITIALIZATION PASS TO PERFORMANCE PASSES

  338. 

  339. 	;FILTER (CALLS UDO: A VERSION OF moogladder IN WHICH CUTOFF FREQUENCY IS MODULATED AT kr=sr) IN ORDER TO PREVENT QUANTISATION NOISE)

  340. 	kres	limit	gkRes+(kAcc*0.4),0,0.98				;PREVENT EXCESSIVE RESONANCE THAT COULD RESULT FROM THE COMBINATION OF RESONANCE SETTING AND ACCENTING

  341. 	

  342. 	/*

  343. 	aFilt      moogladdersr   aSig, cpsoct(kCfOct), kres		;FILTER AUDIO 

  344. 	aSig       balance        aFilt,aSig

  345. 	;DISTORTION

  346. 	if gkDist==0 kgoto SKIP_DISTORTION 

  347. 	iSclLimit ftgentmp     0, 0, 1024, -16, 1, 1024,  -8, 0.01	;RESCALING CURVE FOR CLIP 'LIMIT' PARAMETER

  348. 	iSclGain  ftgentmp     0, 0, 1024, -16, 1, 1024,   4, 10	;RESCALING CURVE FOR GAIN COMPENSATION

  349. 	kLimit    table        gkDist, iSclLimit, 1			;READ LIMIT VALUE FROM RESCALING CURVE

  350. 	kGain     table        gkDist, iSclGain, 1			;READ GAIN VALUE FROM RESCALING CURVE

  351. 	kTrigDist changed      kLimit					;IF LIMIT VALUE CHANGES GENERATE A 'BANG'

  352. 	if kTrigDist=1 then						;IF A 'BANG' HAS BEEN GENERATED...

  353. 		reinit REINIT_CLIP					;BEGIN A REINITIALIZATION PASS FROM LABEL 'REINIT_CLIP'

  354. 	endif

  355. 	REINIT_CLIP:

  356. 	aSig      clip         aSig, 0, i(kLimit)			;CLIP DISTORT AUDIO SIGNAL

  357. 	rireturn							;

  358. 	aSig      =            aSig * kGain				;COMPENSATE FOR GAIN LOSS FROM 'CLIP' PROCESSING

  359. 	*/

  360. 	

  361. 	iSclGain  ftgentmp     0, 0, 1024, -16, 1, 1024,   -6, 0.1	;RESCALING CURVE FOR GAIN COMPENSATION

  362. 	kGain     table        gkDist, iSclGain, 1			;READ GAIN VALUE FROM RESCALING CURVE

  363. 	aSig	lpf18	aSig,cpsoct(kCfOct),kres, (gkDist^2)*20		;LOWPASS

  364. 	;aSig	tone	aSig,cpsoct(kCfOct)

  365. 	af1	resonz	aSig,150,150,1

  366. 	aSig	=	aSig+af1

  367. 	aSig	butlp	aSig,4000

  368. 	aSig      =            aSig * kGain				;COMPENSATE FOR GAIN LOSS FROM 'CLIP' PROCESSING

  369. 	

  370. 	SKIP_DISTORTION:

  371. 		

  372. 	kOn       port         kOn, 0.006				;SMOOTH CHANGES IN ON OFF SWITCHING

  373. 	aAmp        interp  kAmp*kOn*((kAcc*0.7)+1)*gkVol		;COMBINE ALL FACTORS THAT CONTRIBUTE TO AMPLITUDE AND INTERPOLATE AND CREATE AN A-RATE VERSION OF THIS RESULT (TO PREVENT QUANTISATION NOISE) 

  374. 	aSig	=	aSig * aAmp					;SCALE AUDIO USING AMPLITUDE CONTROL FUNCTION

  375. 		outs	aSig, aSig     					;AUDIO SENT TO OUTPUT, APPLY AMP. ENVELOPE, VOLUME CONTROL AND NOTE ON/OFF STATUS

  376. 

  377. 	rireturn

  378. 	SKIP:

  379. 	

  380. 	;RESET SEQUENCE TO BLANK

  381. 	ktrig	changed	gkReset

  382. 	if ktrig==1 then

  383. 	 kval	=	60

  384. 	 chnset	kval,"Note1"

  385. 	 chnset	kval,"Note2"

  386. 	 chnset	kval,"Note3"

  387. 	 chnset	kval,"Note4"

  388. 	 chnset	kval,"Note5"

  389. 	 chnset	kval,"Note6"

  390. 	 chnset	kval,"Note7"

  391. 	 chnset	kval,"Note8"

  392. 	 chnset	kval,"Note9"

  393. 	 chnset	kval,"Note10"

  394. 	 chnset	kval,"Note11"

  395. 	 chnset	kval,"Note12"

  396. 	 chnset	kval,"Note13"

  397. 	 chnset	kval,"Note14"

  398. 	 chnset	kval,"Note15"

  399. 	 chnset	kval,"Note16"

  400. 	 kval	=	0

  401. 	 chnset	kval,"On1"

  402. 	 chnset	kval,"On2"

  403. 	 chnset	kval,"On3"

  404. 	 chnset	kval,"On4"

  405. 	 chnset	kval,"On5"

  406. 	 chnset	kval,"On6"

  407. 	 chnset	kval,"On7"

  408. 	 chnset	kval,"On8"

  409. 	 chnset	kval,"On9"

  410. 	 chnset	kval,"On10"

  411. 	 chnset	kval,"On11"

  412. 	 chnset	kval,"On12"

  413. 	 chnset	kval,"On13"

  414. 	 chnset	kval,"On14"

  415. 	 chnset	kval,"On15"

  416. 	 chnset	kval,"On16"

  417. 	 chnset	kval,"Hold1"

  418. 	 chnset	kval,"Hold2"

  419. 	 chnset	kval,"Hold3"

  420. 	 chnset	kval,"Hold4"

  421. 	 chnset	kval,"Hold5"

  422. 	 chnset	kval,"Hold6"

  423. 	 chnset	kval,"Hold7"

  424. 	 chnset	kval,"Hold8"

  425. 	 chnset	kval,"Hold9"

  426. 	 chnset	kval,"Hold10"

  427. 	 chnset	kval,"Hold11"

  428. 	 chnset	kval,"Hold12"

  429. 	 chnset	kval,"Hold13"

  430. 	 chnset	kval,"Hold14"

  431. 	 chnset	kval,"Hold15"

  432. 	 chnset	kval,"Hold16"

  433. 	 chnset	kval,"Acc1"

  434. 	 chnset	kval,"Acc2"

  435. 	 chnset	kval,"Acc3"

  436. 	 chnset	kval,"Acc4"

  437. 	 chnset	kval,"Acc5"

  438. 	 chnset	kval,"Acc6"

  439. 	 chnset	kval,"Acc7"

  440. 	 chnset	kval,"Acc8"

  441. 	 chnset	kval,"Acc9"

  442. 	 chnset	kval,"Acc10"

  443. 	 chnset	kval,"Acc11"

  444. 	 chnset	kval,"Acc12"

  445. 	 chnset	kval,"Acc13"

  446. 	 chnset	kval,"Acc14"

  447. 	 chnset	kval,"Acc15"

  448. 	 chnset	kval,"Acc16"

  449. 	endif

  450. 

  451. 	;RANDOMISE SEQUENCE

  452. 	ktrig	changed	gkRnd

  453. 	if ktrig==1 then

  454. #define	RANDOM_STEP(N)

  455. 	 #

  456. 	 kval	random	48,72.999

  457. 	 chnset	int(kval),"Note$N"

  458. 	 kval	random	0,1.999

  459. 	 chnset	int(kval),"On$N"

  460. 	 kval	random	0,1.999

  461. 	 chnset	int(kval),"Hold$N"

  462. 	 kval	random	0,1.999

  463. 	 chnset	int(kval),"Acc$N"

  464. 	 #

  465. 	 $RANDOM_STEP(1)

  466. 	 $RANDOM_STEP(2)

  467. 	 $RANDOM_STEP(3)

  468. 	 $RANDOM_STEP(4)

  469. 	 $RANDOM_STEP(5)

  470. 	 $RANDOM_STEP(6)

  471. 	 $RANDOM_STEP(7)

  472. 	 $RANDOM_STEP(8)

  473. 	 $RANDOM_STEP(9)

  474. 	 $RANDOM_STEP(10)

  475. 	 $RANDOM_STEP(11)

  476. 	 $RANDOM_STEP(12)

  477. 	 $RANDOM_STEP(13)

  478. 	 $RANDOM_STEP(14)

  479. 	 $RANDOM_STEP(15)

  480. 	 $RANDOM_STEP(16)

  481. 	 

  482. 	endif

  483. 	

  484. 	;PROGRESS INDICATORS

  485. 	kStepChange	changed	kStep

  486. 	kActive	=	1

  487. 	kNonActive	=	0

  488. 	if kStepChange==1 then

  489. 	 if kStep==1 then

  490. 	  chnset kActive,"Act1"

  491. 	  chnset kNonActive,"Act16"

  492. 	 elseif kStep==2 then

  493. 	  chnset kActive,"Act2"

  494. 	  chnset kNonActive,"Act1"

  495. 	 elseif kStep==3 then

  496. 	  chnset kActive,"Act3"

  497. 	  chnset kNonActive,"Act2"

  498. 	 elseif kStep==4 then

  499. 	  chnset kActive,"Act4"

  500. 	  chnset kNonActive,"Act3"

  501. 	 elseif kStep==5 then

  502. 	  chnset kActive,"Act5"

  503. 	  chnset kNonActive,"Act4"

  504. 	 elseif kStep==6 then

  505. 	  chnset kActive,"Act6"

  506. 	  chnset kNonActive,"Act5"

  507. 	 elseif kStep==7 then

  508. 	  chnset kActive,"Act7"

  509. 	  chnset kNonActive,"Act6"

  510. 	 elseif kStep==8 then

  511. 	  chnset kActive,"Act8"

  512. 	  chnset kNonActive,"Act7"

  513. 	 elseif kStep==9 then

  514. 	  chnset kActive,"Act9"

  515. 	  chnset kNonActive,"Act8"

  516. 	 elseif kStep==10 then

  517. 	  chnset kActive,"Act10"

  518. 	  chnset kNonActive,"Act9"

  519. 	 elseif kStep==11 then

  520. 	  chnset kActive,"Act11"

  521. 	  chnset kNonActive,"Act10"

  522. 	 elseif kStep==12 then

  523. 	  chnset kActive,"Act12"

  524. 	  chnset kNonActive,"Act11"

  525. 	 elseif kStep==13 then

  526. 	  chnset kActive,"Act13"

  527. 	  chnset kNonActive,"Act12"

  528. 	 elseif kStep==14 then

  529. 	  chnset kActive,"Act14"

  530. 	  chnset kNonActive,"Act13"

  531. 	 elseif kStep==15 then

  532. 	  chnset kActive,"Act15"

  533. 	  chnset kNonActive,"Act14"

  534. 	 elseif kStep==16 then

  535. 	  chnset kActive,"Act16"

  536. 	  chnset kNonActive,"Act15"

  537. 	 endif

  538. 	endif	

  539. 

  540. 	;TRANSPOSE

  541. 	ktrig1	changed	kSemiDn

  542. 	ktrig2	changed	kSemiUp

  543. 	ktrig3	changed	kOctDn

  544. 	ktrig4	changed	kOctUp

  545. 	if ktrig1+ktrig2+ktrig3+ktrig4==1 then

  546. #define	TRANSPOSE(N)

  547. 	 #

  548. 	 kval	limit	gkNote$N+kInt,24,96

  549. 	 chnset	kval,"Note$N"

  550. 	 #

  551. 	 if ktrig1==1 then

  552. 	  kInt	=	-1

  553. 	 elseif ktrig2==1 then

  554. 	  kInt	=	1

  555. 	 elseif ktrig3==1 then

  556. 	  kInt	=	-12

  557. 	 elseif ktrig4==1 then

  558. 	  kInt	=	12

  559. 	 endif	  

  560. 	 $TRANSPOSE(1)

  561. 	 $TRANSPOSE(2)

  562. 	 $TRANSPOSE(3)

  563. 	 $TRANSPOSE(4)

  564. 	 $TRANSPOSE(5)

  565. 	 $TRANSPOSE(6)

  566. 	 $TRANSPOSE(7)

  567. 	 $TRANSPOSE(8)

  568. 	 $TRANSPOSE(9)

  569. 	 $TRANSPOSE(10)

  570. 	 $TRANSPOSE(11)

  571. 	 $TRANSPOSE(12)

  572. 	 $TRANSPOSE(13)

  573. 	 $TRANSPOSE(14)

  574. 	 $TRANSPOSE(15)

  575. 	 $TRANSPOSE(16)

  576. 	endif

  577. endin

  578. 	

  579. </CsInstruments>

  580. 

  581. <CsScore>

  582. i 1 0 [3600*24*7]

  583. </CsScore>

  584. 

  585. </CsoundSynthesizer>

  586. 

  587. 

  588. 

  589. 

  590. 

  591. 

  592. 

  593. 

  594. 

  595. 

  596. 

  597. 

  598. 

  599. 

  600. 

  601. 

  602. 

  603. 

  604. 

  605. 

  606. 

  607. 

  608. 

  609. 

  610. 

  611.