DISTRHO
/
DISTRHO-Ports-Extra
mirror of https://github.com/DISTRHO/DISTRHO-Ports-Extra
1
0
Fork 0
Code Releases 0 Activity
Extra "ports" of juce-based plugins using the distrho build system
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
1 Branch
28MB
Tree: d45623e876
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'd45623e876'
${ noResults }
DISTRHO-Ports-Extra/bin/cabbage-extra/Synths/GuitarChords.csd

488 lines
21KB
Raw Blame History 

  1. GuitarChords

  2. ------------

  3. 

  4. Mute buttons dictate the behaviour of a string when it is open and un-fretted, they have no effect on fretted notes.

  5. 

  6. <Cabbage>

  7. form size(620, 260), caption("Guitar Chords"), pluginID("guit")

  8. 

  9. label  bounds( 56,  0, 80,  9), text("Mute"), FontColour("white")

  10. 

  11. combobox bounds(  3, 10, 50, 15), channel("TuneHighE"), value(64), text("G9","F#9","F9","E9","D#9","D9","C#9","C9","B8","A#8","A8","G#8","G8","F#8","F8","E8","D#8","D8","C#8","C8","B7","A#7","A7","G#7","G7","F#7","F7","E7","D#7","D7","C#7","C7","B6","A#6","A6","G#6","G6","F#6","F6","E6","D#6","D6","C#6","C6","B5","A#5","A5","G#5","G5","F#5","F5","E5","D#5","D5","C#5","C5","B4","A#4","A4","G#4","G4","F#4","F4","E4","D#4","D4","C#4","C4","B3","A#3","A3","G#3","G3","F#3","F3","E3","D#3","D3","C#3","C3","B2","A#2","A2","G#2","G2","F#2","F2","E2","D#2","D2","C#2","C2","B1","A#1","A1","G#1","G1","F#1","F1","E1","D#1","D1","C#1","C1","B0","A#0","A0","G#0","G0","F#0","F0","E0","D#0","D0","C#0","C0","B-1","A#-1","A-1","G#-1","G-1","F#-1","F-1","E-1","D#-1","D-1","C#-1","C-1")

  12. checkbox bounds( 59, 10, 15, 15), channel("HighE0"), colour("255, 20, 20")

  13. checkbox bounds(101, 10, 15, 15), channel("HighE1"), colour("250,250,  0")

  14. checkbox bounds(153, 10, 15, 15), channel("HighE2"), colour("250,250,  0")

  15. checkbox bounds(202, 10, 15, 15), channel("HighE3"), colour("250,250,  0")

  16. checkbox bounds(249, 10, 15, 15), channel("HighE4"), colour("250,250,  0")

  17. checkbox bounds(295, 10, 15, 15), channel("HighE5"), colour("250,250,  0")

  18. checkbox bounds(339, 10, 15, 15), channel("HighE6"), colour("250,250,  0")

  19. checkbox bounds(381, 10, 15, 15), channel("HighE7"), colour("250,250,  0")

  20. checkbox bounds(420, 10, 15, 15), channel("HighE8"), colour("250,250,  0")

  21. checkbox bounds(460, 10, 15, 15), channel("HighE9"), colour("250,250,  0")

  22. checkbox bounds(495, 10, 15, 15), channel("HighE10"), colour("250,250,  0")

  23. checkbox bounds(529, 10, 15, 15), channel("HighE11"), colour("250,250,  0")

  24. checkbox bounds(561, 10, 15, 15), channel("HighE12"), colour("250,250,  0")

  25. checkbox bounds(591, 10, 15, 15), channel("HighE13"), colour("250,250,  0")

  26. 

  27. combobox bounds(  3, 30, 50, 15), channel("TuneB"), value(69), text("G9","F#9","F9","E9","D#9","D9","C#9","C9","B8","A#8","A8","G#8","G8","F#8","F8","E8","D#8","D8","C#8","C8","B7","A#7","A7","G#7","G7","F#7","F7","E7","D#7","D7","C#7","C7","B6","A#6","A6","G#6","G6","F#6","F6","E6","D#6","D6","C#6","C6","B5","A#5","A5","G#5","G5","F#5","F5","E5","D#5","D5","C#5","C5","B4","A#4","A4","G#4","G4","F#4","F4","E4","D#4","D4","C#4","C4","B3","A#3","A3","G#3","G3","F#3","F3","E3","D#3","D3","C#3","C3","B2","A#2","A2","G#2","G2","F#2","F2","E2","D#2","D2","C#2","C2","B1","A#1","A1","G#1","G1","F#1","F1","E1","D#1","D1","C#1","C1","B0","A#0","A0","G#0","G0","F#0","F0","E0","D#0","D0","C#0","C0","B-1","A#-1","A-1","G#-1","G-1","F#-1","F-1","E-1","D#-1","D-1","C#-1","C-1")

  28. checkbox bounds( 59, 30, 15, 15), channel("B0"), colour("255, 20, 20")

  29. checkbox bounds(101, 30, 15, 15), channel("B1"), colour("250,250,  0"), value(1)

  30. checkbox bounds(153, 30, 15, 15), channel("B2"), colour("250,250,  0")

  31. checkbox bounds(202, 30, 15, 15), channel("B3"), colour("250,250,  0")

  32. checkbox bounds(249, 30, 15, 15), channel("B4"), colour("250,250,  0")

  33. checkbox bounds(295, 30, 15, 15), channel("B5"), colour("250,250,  0")

  34. checkbox bounds(339, 30, 15, 15), channel("B6"), colour("250,250,  0")

  35. checkbox bounds(381, 30, 15, 15), channel("B7"), colour("250,250,  0")

  36. checkbox bounds(420, 30, 15, 15), channel("B8"), colour("250,250,  0")

  37. checkbox bounds(460, 30, 15, 15), channel("B9"), colour("250,250,  0")

  38. checkbox bounds(495, 30, 15, 15), channel("B10"), colour("250,250,  0")

  39. checkbox bounds(529, 30, 15, 15), channel("B11"), colour("250,250,  0")

  40. checkbox bounds(561, 30, 15, 15), channel("B12"), colour("250,250,  0")

  41. checkbox bounds(591, 30, 15, 15), channel("B13"), colour("250,250,  0")

  42. 

  43. combobox bounds(  3, 50, 50, 15), channel("TuneG"), value(73), text("G9","F#9","F9","E9","D#9","D9","C#9","C9","B8","A#8","A8","G#8","G8","F#8","F8","E8","D#8","D8","C#8","C8","B7","A#7","A7","G#7","G7","F#7","F7","E7","D#7","D7","C#7","C7","B6","A#6","A6","G#6","G6","F#6","F6","E6","D#6","D6","C#6","C6","B5","A#5","A5","G#5","G5","F#5","F5","E5","D#5","D5","C#5","C5","B4","A#4","A4","G#4","G4","F#4","F4","E4","D#4","D4","C#4","C4","B3","A#3","A3","G#3","G3","F#3","F3","E3","D#3","D3","C#3","C3","B2","A#2","A2","G#2","G2","F#2","F2","E2","D#2","D2","C#2","C2","B1","A#1","A1","G#1","G1","F#1","F1","E1","D#1","D1","C#1","C1","B0","A#0","A0","G#0","G0","F#0","F0","E0","D#0","D0","C#0","C0","B-1","A#-1","A-1","G#-1","G-1","F#-1","F-1","E-1","D#-1","D-1","C#-1","C-1")

  44. checkbox bounds( 59, 50, 15, 15), channel("G0"), colour("255, 20, 20")

  45. checkbox bounds(101, 50, 15, 15), channel("G1"), colour("250,250,  0")

  46. checkbox bounds(153, 50, 15, 15), channel("G2"), colour("250,250,  0")    

  47. checkbox bounds(202, 50, 15, 15), channel("G3"), colour("250,250,  0")    

  48. checkbox bounds(249, 50, 15, 15), channel("G4"), colour("250,250,  0")    

  49. checkbox bounds(295, 50, 15, 15), channel("G5"), colour("250,250,  0")    

  50. checkbox bounds(339, 50, 15, 15), channel("G6"), colour("250,250,  0")

  51. checkbox bounds(381, 50, 15, 15), channel("G7"), colour("250,250,  0")

  52. checkbox bounds(420, 50, 15, 15), channel("G8"), colour("250,250,  0")

  53. checkbox bounds(460, 50, 15, 15), channel("G9"), colour("250,250,  0")

  54. checkbox bounds(495, 50, 15, 15), channel("G10"), colour("250,250,  0")

  55. checkbox bounds(529, 50, 15, 15), channel("G11"), colour("250,250,  0")

  56. checkbox bounds(561, 50, 15, 15), channel("G12"), colour("250,250,  0")

  57. checkbox bounds(591, 50, 15, 15), channel("G13"), colour("250,250,  0")

  58. 

  59. combobox bounds(  3, 70, 50, 15), channel("TuneD"), value(78), text("G9","F#9","F9","E9","D#9","D9","C#9","C9","B8","A#8","A8","G#8","G8","F#8","F8","E8","D#8","D8","C#8","C8","B7","A#7","A7","G#7","G7","F#7","F7","E7","D#7","D7","C#7","C7","B6","A#6","A6","G#6","G6","F#6","F6","E6","D#6","D6","C#6","C6","B5","A#5","A5","G#5","G5","F#5","F5","E5","D#5","D5","C#5","C5","B4","A#4","A4","G#4","G4","F#4","F4","E4","D#4","D4","C#4","C4","B3","A#3","A3","G#3","G3","F#3","F3","E3","D#3","D3","C#3","C3","B2","A#2","A2","G#2","G2","F#2","F2","E2","D#2","D2","C#2","C2","B1","A#1","A1","G#1","G1","F#1","F1","E1","D#1","D1","C#1","C1","B0","A#0","A0","G#0","G0","F#0","F0","E0","D#0","D0","C#0","C0","B-1","A#-1","A-1","G#-1","G-1","F#-1","F-1","E-1","D#-1","D-1","C#-1","C-1")

  60. checkbox bounds( 59, 70, 15, 15), channel("D0"), colour("255, 20, 20")

  61. checkbox bounds(101, 70, 15, 15), channel("D1"), colour("250,250,  0")

  62. checkbox bounds(153, 70, 15, 15), channel("D2"), colour("250,250,  0"), value(1)    

  63. checkbox bounds(202, 70, 15, 15), channel("D3"), colour("250,250,  0")    

  64. checkbox bounds(249, 70, 15, 15), channel("D4"), colour("250,250,  0")    

  65. checkbox bounds(295, 70, 15, 15), channel("D5"), colour("250,250,  0")    

  66. checkbox bounds(339, 70, 15, 15), channel("D6"), colour("250,250,  0")

  67. checkbox bounds(381, 70, 15, 15), channel("D7"), colour("250,250,  0")

  68. checkbox bounds(420, 70, 15, 15), channel("D8"), colour("250,250,  0")

  69. checkbox bounds(460, 70, 15, 15), channel("D9"), colour("250,250,  0")

  70. checkbox bounds(495, 70, 15, 15), channel("D10"), colour("250,250,  0")

  71. checkbox bounds(529, 70, 15, 15), channel("D11"), colour("250,250,  0")

  72. checkbox bounds(561, 70, 15, 15), channel("D12"), colour("250,250,  0")

  73. checkbox bounds(591, 70, 15, 15), channel("D13"), colour("250,250,  0")

  74. 

  75. combobox bounds(  3, 90, 50, 15), channel("TuneA"), value(83), text("G9","F#9","F9","E9","D#9","D9","C#9","C9","B8","A#8","A8","G#8","G8","F#8","F8","E8","D#8","D8","C#8","C8","B7","A#7","A7","G#7","G7","F#7","F7","E7","D#7","D7","C#7","C7","B6","A#6","A6","G#6","G6","F#6","F6","E6","D#6","D6","C#6","C6","B5","A#5","A5","G#5","G5","F#5","F5","E5","D#5","D5","C#5","C5","B4","A#4","A4","G#4","G4","F#4","F4","E4","D#4","D4","C#4","C4","B3","A#3","A3","G#3","G3","F#3","F3","E3","D#3","D3","C#3","C3","B2","A#2","A2","G#2","G2","F#2","F2","E2","D#2","D2","C#2","C2","B1","A#1","A1","G#1","G1","F#1","F1","E1","D#1","D1","C#1","C1","B0","A#0","A0","G#0","G0","F#0","F0","E0","D#0","D0","C#0","C0","B-1","A#-1","A-1","G#-1","G-1","F#-1","F-1","E-1","D#-1","D-1","C#-1","C-1")

  76. checkbox bounds( 59, 90, 15, 15), channel("A0"), colour("255, 20, 20")

  77. checkbox bounds(101, 90, 15, 15), channel("A1"), colour("250,250,  0")

  78. checkbox bounds(153, 90, 15, 15), channel("A2"), colour("250,250,  0")    

  79. checkbox bounds(202, 90, 15, 15), channel("A3"), colour("250,250,  0"), value(1)    

  80. checkbox bounds(249, 90, 15, 15), channel("A4"), colour("250,250,  0")    

  81. checkbox bounds(295, 90, 15, 15), channel("A5"), colour("250,250,  0")    

  82. checkbox bounds(339, 90, 15, 15), channel("A6"), colour("250,250,  0")

  83. checkbox bounds(381, 90, 15, 15), channel("A7"), colour("250,250,  0")

  84. checkbox bounds(420, 90, 15, 15), channel("A8"), colour("250,250,  0")

  85. checkbox bounds(460, 90, 15, 15), channel("A9"), colour("250,250,  0")

  86. checkbox bounds(495, 90, 15, 15), channel("A10"), colour("250,250,  0")

  87. checkbox bounds(529, 90, 15, 15), channel("A11"), colour("250,250,  0")

  88. checkbox bounds(561, 90, 15, 15), channel("A12"), colour("250,250,  0")

  89. checkbox bounds(591, 90, 15, 15), channel("A13"), colour("250,250,  0")

  90. 

  91. combobox bounds(  3,110, 50, 15), channel("TuneLowE"), value(88), text("G9","F#9","F9","E9","D#9","D9","C#9","C9","B8","A#8","A8","G#8","G8","F#8","F8","E8","D#8","D8","C#8","C8","B7","A#7","A7","G#7","G7","F#7","F7","E7","D#7","D7","C#7","C7","B6","A#6","A6","G#6","G6","F#6","F6","E6","D#6","D6","C#6","C6","B5","A#5","A5","G#5","G5","F#5","F5","E5","D#5","D5","C#5","C5","B4","A#4","A4","G#4","G4","F#4","F4","E4","D#4","D4","C#4","C4","B3","A#3","A3","G#3","G3","F#3","F3","E3","D#3","D3","C#3","C3","B2","A#2","A2","G#2","G2","F#2","F2","E2","D#2","D2","C#2","C2","B1","A#1","A1","G#1","G1","F#1","F1","E1","D#1","D1","C#1","C1","B0","A#0","A0","G#0","G0","F#0","F0","E0","D#0","D0","C#0","C0","B-1","A#-1","A-1","G#-1","G-1","F#-1","F-1","E-1","D#-1","D-1","C#-1","C-1")

  92. checkbox bounds( 59,110, 15, 15), channel("LowE0"), colour("255, 20, 20"), value(1)

  93. checkbox bounds(101,110, 15, 15), channel("LowE1"), colour("250,250,  0");52

  94. checkbox bounds(153,110, 15, 15), channel("LowE2"), colour("250,250,  0");49

  95. checkbox bounds(202,110, 15, 15), channel("LowE3"), colour("250,250,  0");47

  96. checkbox bounds(249,110, 15, 15), channel("LowE4"), colour("250,250,  0");46

  97. checkbox bounds(295,110, 15, 15), channel("LowE5"), colour("250,250,  0");44

  98. checkbox bounds(339,110, 15, 15), channel("LowE6"), colour("250,250,  0");42

  99. checkbox bounds(381,110, 15, 15), channel("LowE7"), colour("250,250,  0");39

  100. checkbox bounds(420,110, 15, 15), channel("LowE8"), colour("250,250,  0");40

  101. checkbox bounds(460,110, 15, 15), channel("LowE9"), colour("250,250,  0");35

  102. checkbox bounds(495,110, 15, 15), channel("LowE10"), colour("250,250,  0");34

  103. checkbox bounds(529,110, 15, 15), channel("LowE11"), colour("250,250,  0");32

  104. checkbox bounds(561,110, 15, 15), channel("LowE12"), colour("250,250,  0");30

  105. checkbox bounds(591,110, 15, 15), channel("LowE13"), colour("250,250,  0");

  106. 

  107. ; frets                                                               

  108. line bounds(134, 5, 2, 130), colour(50,50,50)	      	;	;

  109. line bounds(185,  5,  2, 130), colour(50,50,50)		;3      ;

  110. line bounds(232,  5,  2, 130), colour(50,50,50)		;       ;

  111. line bounds(279,  5,  2, 130), colour(50,50,50)      	;5      ;

  112. line bounds(324,  5,  2, 130), colour(50,50,50)       	;       ;

  113. line bounds(367,  5,  2, 130), colour(50,50,50)       	;7      ;

  114. line bounds(408,  5,  2, 130), colour(50,50,50)       	;       ;

  115. line bounds(447,  5,  2, 130), colour(50,50,50)       	;9      ;

  116. line bounds(484,  5,  2, 130), colour(50,50,50)       	;       ;

  117. line bounds(519,  5,  2, 130), colour(50,50,50)       	;       ;

  118. line bounds(552,  5,  2, 130), colour(50,50,50)       	;12     ;

  119. line bounds(583,  5,  2, 130), colour(50,50,50)       	;       ;

  120. line bounds(612,  5,  2, 130), colour(50,50,50)                 ;                                         

  121.                                                                

  122. image bounds(185,  5, 47,130), colour("tan"), line(0)	; 3rd fret

  123. image bounds(279,  5, 45,130), colour("tan"), line(0)	; 5th fret

  124. image bounds(367,  5, 42,130), colour("tan"), line(0)	; 7th fret

  125. image bounds(447,  5, 37,130), colour("tan"), line(0)	; 9th fret

  126. image bounds(552,  5, 31,130), colour("tan"), line(0)	; 12th fret

  127. image bounds( 80,  0,624,140), colour("white"), line(0)	; neck

  128. 

  129. button   bounds( 80,150,100, 30), text("strum"), channel("strum"), value(0), FontColour("yellow")

  130. combobox bounds( 80,185, 95, 17), channel("GuitarType"), value(0), text("6 String","12 String")

  131. checkbox bounds(185,150,100, 20), channel("ReverseStrum"), text("Reverse") colour("lime")

  132. hslider bounds(280,143,270, 40), text("Gap"),    colour("tan"), FontColour(195,126,  0), channel("gap"),   range(0,0.5,0.05,0.5,0.0001)

  133. hslider bounds(280,168,270, 40), text("Damp"),   colour("tan"), FontColour(195,126,  0), channel("damp"),   range(0.01,0.99,0.17)

  134. hslider bounds(280,193,270, 40), text("Pos."),   colour("tan"), FontColour(195,126,  0), channel("pos"),   range(0.0001, 0.5, 0.02, 0.5, 0.001)

  135. 

  136. image bounds(5, 235, 470, 20), colour(75, 85, 90, 50), plant("credit"){

  137. label bounds(0.03, 0.1, .6, .7), text("Author: Iain McCurdy |2013|"), colour("white"), FontColour(195,126,  0)

  138. }

  139. </Cabbage>

  140. 

  141. <CsoundSynthesizer>

  142. <CsOptions>

  143. -n -d -+rtmidi=NULL -M0 --midi-key-cps=4 --midi-velocity-amp=5

  144. </CsOptions>

  145. <CsInstruments>

  146. sr = 44100

  147. ksmps = 64

  148. nchnls = 2

  149. 0dbfs=1

  150. 

  151. iDetuneRange	=	0.025

  152. gidetune	ftgen	0, 0, 8, -21, 6, iDetuneRange	; table of detuning values for each string in a 12 string guitar configuration

  153. 

  154. instr 1

  155. 

  156. ; radio buttons mechanism

  157. koff		=	0	; checkbox value when off (needs to be k-rate)

  158. 

  159. kSumHighE	=	0	; sum of high E string buttons

  160. kSumB		=	0	; sum of B string buttons

  161. kSumG		=	0	; sum of G string buttons

  162. kSumD		=	0	; sum of D string buttons

  163. kSumA		=	0	; sum of A string buttons

  164. kSumLowE	=	0	; sum of low E string buttons

  165. 

  166. kTrigSumHighE	=	0	; sum of high E string on triggers

  167. kTrigSumB	=	0	; sum of B string change triggers

  168. kTrigSumG	=	0	; sum of G string change triggers

  169. kTrigSumD	=	0	; sum of D string change triggers

  170. kTrigSumA	=	0	; sum of A string change triggers

  171. kTrigSumLowE	=	0	; sum of low E string change triggers

  172. 

  173. kChangeTrigHighE	=	0	; sum of high E string change triggers

  174. kChangeTrigB		=	0	; sum of B string change triggers

  175. kChangeTrigG		=	0	; sum of G string change triggers

  176. kChangeTrigD		=	0	; sum of D string change triggers

  177. kChangeTrigA		=	0	; sum of A string change triggers

  178. kChangeTrigLowE		=	0	; sum of low E string change triggers

  179. 

  180. ; macro for string set-up

  181. #define	STRING_SETUP(LABEL)

  182. #

  183. k$LABEL0	chnget	"$LABEL0"

  184. kTune$LABEL	chnget	"Tune$LABEL"

  185. #

  186. $STRING_SETUP(HighE)

  187. $STRING_SETUP(B)

  188. $STRING_SETUP(G)

  189. $STRING_SETUP(D)

  190. $STRING_SETUP(A)

  191. $STRING_SETUP(LowE)

  192. 

  193. 

  194. ; macro for check box input

  195. #define	INPUT(N'LABEL)	

  196. #

  197. k$LABEL$N	chnget	"$LABEL$N"				; read in checkbox value

  198. kSum$LABEL	=	kSum$LABEL + k$LABEL$N			; accumulate to value for all checkboxes for this string

  199. ktrig$N	trigger	k$LABEL$N,0.5,0					; generate a trigger if this checkbox is switched *on*

  200. kTrigSum$LABEL	=	kTrigSum$LABEL + ktrig$N		; accumulation of all 'on' triggers for this string

  201. kChangeTrig	changed	k$LABEL$N				; generate a different trigger if this checkbox is switched either on or off

  202. kChangeTrig$LABEL	=	kChangeTrig$LABEL+kChangeTrig	; accumlation of all 'change' triggers for this string

  203. #

  204. 

  205. ; macro for radio button switching mechanism

  206. #define SWITCH(N'LABEL)	

  207. #

  208. if ktrig$N==1 then		

  209.  k$LABELVal	=	$N

  210.  kgoto SKIP$LABEL$N

  211. endif

  212. chnset	koff,"$LABEL$N"

  213. SKIP$LABEL$N:

  214. #

  215. 

  216. $INPUT(1'HighE)

  217. $INPUT(2'HighE)

  218. $INPUT(3'HighE)

  219. $INPUT(4'HighE)

  220. $INPUT(5'HighE)

  221. $INPUT(6'HighE)

  222. $INPUT(7'HighE)

  223. $INPUT(8'HighE)

  224. $INPUT(9'HighE)

  225. $INPUT(10'HighE)

  226. $INPUT(11'HighE)

  227. $INPUT(12'HighE)

  228. $INPUT(13'HighE)

  229. if(kTrigSum$LABEL>0) then

  230. $SWITCH(1'HighE)

  231. $SWITCH(2'HighE)

  232. $SWITCH(3'HighE)

  233. $SWITCH(4'HighE)

  234. $SWITCH(5'HighE)

  235. $SWITCH(6'HighE)

  236. $SWITCH(7'HighE)

  237. $SWITCH(8'HighE)

  238. $SWITCH(9'HighE)

  239. $SWITCH(10'HighE)

  240. $SWITCH(11'HighE)

  241. $SWITCH(12'HighE)

  242. $SWITCH(13'HighE)

  243. endif

  244. 

  245. $INPUT(1'B)

  246. $INPUT(2'B)

  247. $INPUT(3'B)

  248. $INPUT(4'B)

  249. $INPUT(5'B)

  250. $INPUT(6'B)

  251. $INPUT(7'B)

  252. $INPUT(8'B)

  253. $INPUT(9'B)

  254. $INPUT(10'B)

  255. $INPUT(11'B)

  256. $INPUT(12'B)

  257. $INPUT(13'B)

  258. if(kTrigSum$LABEL>0) then

  259. $SWITCH(1'B)

  260. $SWITCH(2'B)

  261. $SWITCH(3'B)

  262. $SWITCH(4'B)

  263. $SWITCH(5'B)

  264. $SWITCH(6'B)

  265. $SWITCH(7'B)

  266. $SWITCH(8'B)

  267. $SWITCH(9'B)

  268. $SWITCH(10'B)

  269. $SWITCH(11'B)

  270. $SWITCH(12'B)

  271. $SWITCH(13'B)

  272. endif

  273. 

  274. $INPUT(1'G)

  275. $INPUT(2'G)

  276. $INPUT(3'G)

  277. $INPUT(4'G)

  278. $INPUT(5'G)

  279. $INPUT(6'G)

  280. $INPUT(7'G)

  281. $INPUT(8'G)

  282. $INPUT(9'G)

  283. $INPUT(10'G)

  284. $INPUT(11'G)

  285. $INPUT(12'G)

  286. $INPUT(13'G)

  287. if(kTrigSum$LABEL>0) then

  288. $SWITCH(1'G)

  289. $SWITCH(2'G)

  290. $SWITCH(3'G)

  291. $SWITCH(4'G)

  292. $SWITCH(5'G)

  293. $SWITCH(6'G)

  294. $SWITCH(7'G)

  295. $SWITCH(8'G)

  296. $SWITCH(9'G)

  297. $SWITCH(10'G)

  298. $SWITCH(11'G)

  299. $SWITCH(12'G)

  300. $SWITCH(13'G)

  301. endif

  302. 

  303. $INPUT(1'D)

  304. $INPUT(2'D)

  305. $INPUT(3'D)

  306. $INPUT(4'D)

  307. $INPUT(5'D)

  308. $INPUT(6'D)

  309. $INPUT(7'D)

  310. $INPUT(8'D)

  311. $INPUT(9'D)

  312. $INPUT(10'D)

  313. $INPUT(11'D)

  314. $INPUT(12'D)

  315. $INPUT(13'D)

  316. if(kTrigSum$LABEL>0) then

  317. $SWITCH(1'D)

  318. $SWITCH(2'D)

  319. $SWITCH(3'D)

  320. $SWITCH(4'D)

  321. $SWITCH(5'D)

  322. $SWITCH(6'D)

  323. $SWITCH(7'D)

  324. $SWITCH(8'D)

  325. $SWITCH(9'D)

  326. $SWITCH(10'D)

  327. $SWITCH(11'D)

  328. $SWITCH(12'D)

  329. $SWITCH(13'D)

  330. endif

  331. 

  332. $INPUT(1'A)

  333. $INPUT(2'A)

  334. $INPUT(3'A)

  335. $INPUT(4'A)

  336. $INPUT(5'A)

  337. $INPUT(6'A)

  338. $INPUT(7'A)

  339. $INPUT(8'A)

  340. $INPUT(9'A)

  341. $INPUT(10'A)

  342. $INPUT(11'A)

  343. $INPUT(12'A)

  344. $INPUT(13'A)

  345. if(kTrigSum$LABEL>0) then

  346. $SWITCH(1'A)

  347. $SWITCH(2'A)

  348. $SWITCH(3'A)

  349. $SWITCH(4'A)

  350. $SWITCH(5'A)

  351. $SWITCH(6'A)

  352. $SWITCH(7'A)

  353. $SWITCH(8'A)

  354. $SWITCH(9'A)

  355. $SWITCH(10'A)

  356. $SWITCH(11'A)

  357. $SWITCH(12'A)

  358. $SWITCH(13'A)

  359. endif

  360. 

  361. $INPUT(1'LowE)

  362. $INPUT(2'LowE)

  363. $INPUT(3'LowE)

  364. $INPUT(4'LowE)

  365. $INPUT(5'LowE)

  366. $INPUT(6'LowE)

  367. $INPUT(7'LowE)

  368. $INPUT(8'LowE)

  369. $INPUT(9'LowE)

  370. $INPUT(10'LowE)

  371. $INPUT(11'LowE)

  372. $INPUT(12'LowE)

  373. $INPUT(13'LowE)

  374. if(kTrigSum$LABEL>0) then

  375. $SWITCH(1'LowE)

  376. $SWITCH(2'LowE)

  377. $SWITCH(3'LowE)

  378. $SWITCH(4'LowE)

  379. $SWITCH(5'LowE)

  380. $SWITCH(6'LowE)

  381. $SWITCH(7'LowE)

  382. $SWITCH(8'LowE)

  383. $SWITCH(9'LowE)

  384. $SWITCH(10'LowE)

  385. $SWITCH(11'LowE)

  386. $SWITCH(12'LowE)

  387. $SWITCH(13'LowE)

  388. endif

  389. 

  390. ; macro that checks for open strings

  391. #define	OPEN_STRING(LABEL)

  392. #

  393. if(kSum$LABEL==0) then

  394.  k$LABELVal	=	0

  395. endif

  396. #

  397. $OPEN_STRING(HighE)

  398. $OPEN_STRING(B)

  399. $OPEN_STRING(G)

  400. $OPEN_STRING(D)

  401. $OPEN_STRING(A)

  402. $OPEN_STRING(LowE)

  403. 

  404. ; macro for operations when a string is plucked

  405. #define	PLAY_STRING(LABEL'StringNum)

  406. #

  407. k$LABELNum	=	k$LABELVal + (128 - kTune$LABEL)	; derive MIDI note number (note that combobox value has to be inverted

  408. k$LABELCps	=	cpsmidinn(k$LABELNum)			; convert to cps

  409. kTimeElapsed	timeinsts					; elapsed time form the start of this note (this will be used to prevent premature triggering of the string)

  410. if(kChangeTrig$LABEL==1&&kTimeElapsed>0.1) then			; if a change note trigger for this string has been received and time buffer has elapsed...

  411.  turnoff2	2.$StringNum,4,1				; turnoff this string

  412.  if(kSum$LABEL==0&&k$LABEL0==1) kgoto SKIP$LABEL		; if this is an open and muted string jump string playing code

  413.  schedkwhen	kChangeTrig$LABEL,0,0,2.$StringNum,0,20,k$LABELCps,$StringNum		; play string (instr 2)

  414. endif

  415. if(kSum$LABEL==0&&k$LABEL0==1) kgoto SKIP$LABEL			; if this is an open and muted string jump string playing code

  416. kRndStrt	random	0,kgap*0.15

  417. schedkwhen	ktrig,0,0,2.$StringNum,kstart+kRndStrt,20,k$LABELCps,$StringNum		; play string (instr 2)

  418. kstart	=	kstart + kgap					; increment start time

  419. SKIP$LABEL:							; label

  420. #

  421. 

  422. kstrum	chnget	"strum"						; 'strum' button

  423. ktrig	changed	kstrum						; if 'strum' button has been clicked...

  424. if ktrig==1 then						; ...

  425.  turnoff2	2,0,1						; turn off all playing strings (in preparation for the new chord)

  426. endif

  427. 

  428. kgap	chnget	"gap"

  429. kreverse	chnget	"ReverseStrum"

  430. if kreverse==0 then

  431.  kstart	=	0							; start time (for first string plucked

  432. else

  433.  kstart	=	kgap*5

  434.  kgap	=	-kgap

  435. endif

  436. 

  437. $PLAY_STRING(LowE'1)

  438. $PLAY_STRING(A'2)

  439. $PLAY_STRING(D'3)

  440. $PLAY_STRING(G'4)

  441. $PLAY_STRING(B'5)

  442. $PLAY_STRING(HighE'6)

  443. 

  444. endin

  445. 

  446. instr	2	; string pluck

  447. kdamp	chnget	"damp"	; damping

  448. iplk	chnget	"pos"	; pluck position

  449. iamp	random	0.1,0.2

  450. 

  451. iGuitarType	chnget	"GuitarType"

  452.  if(iGuitarType==2) then					; if 12 string guitar...

  453.  kmvt1	jspline		0.15,0.2,0.4				; a bit of random pick-up movement animates the tone of the guitar	

  454.  kmvt2	jspline		0.15,0.2,0.4		

  455.  idtn	table		p5,gidetune				; detuning value. used in 12 string guitar only.

  456.  if p5<5 then							; strings 1 - 4 are in octaves in a 12-string guitar

  457.   a1	wgpluck2	iplk, iamp/2, p4,   0.2+kmvt1, kdamp

  458.   a2	wgpluck2	iplk, iamp/2, p4*(2+idtn), 0.2+kmvt2, kdamp

  459.  else								; strings 5 & 6 are in unison in a 12-string guitar

  460.   a1	wgpluck2	iplk, iamp/2, p4,     0.2         +kmvt1, kdamp

  461.   a2	wgpluck2	iplk, iamp/2, p4*(1+idtn), 0.2+rnd(0.5)+kmvt2, kdamp

  462.  endif

  463.   a2	delay	a2,0.01+rnd(0.01)				; slight delay to second string

  464.  asig	=	a1+a2

  465. else									; otherwise 6 string

  466.  kmvt	jspline		0.15,0.2,0.4		

  467.  asig	wgpluck2	iplk, iamp, p4,   0.2+kmvt,          kdamp

  468. endif

  469. 

  470. aenv		linsegr	0, 0.0008, 1, p3-0.1008, 0, 0.05, 0	; amplitude envelope. Attack removes excessive 'click'. Decays to nothing across note duration (p3). Short release stage prevents click if a note is interrupted.

  471. 

  472. /* FILTERING TO IMPROVE THE SOUND */

  473. af1	resonz	asig,200,200

  474. af2	resonz	asig,550,550

  475. af3	resonz	asig,2100,2100

  476. asig	sum	af1,af2*5,af3

  477. asig	=	asig/200

  478. /* ------------------------------ */

  479. 

  480. asig	=	asig*aenv

  481. 	outs	asig, asig

  482. endin

  483. 

  484. </CsInstruments>  

  485. <CsScore>

  486. i 1 0 3600

  487. </CsScore>

  488. </CsoundSynthesizer>