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/Metronome.csd

140 lines
6.5KB
Raw Blame History 

  1. Metronome.csd

  2. For the best timing accuracy, set ksmps = 1

  3. Iain McCurdy, 2013

  4. 

  5. ; level 1	-	amplitude level for the main 'beat' (1st beat of the bar)

  6. ; level 2	-	amplitude level for other beats of the bar (subdivisions)

  7. ; Subdiv.	-	subdivision of the bar. i.e. 4 for 4/4, 3 for 3/4 etc.

  8. ; tone 1	-	tone of the main beat (1st beat of the bar)

  9. ; tone 2	-	tone level for other beats of the bar (subdivisions)

  10. ; duration	-	duration of each 'click'

  11. ; width		-	stereo width of each click

  12. 

  13. ; to achieve a simple 1 click metronome, set level 2 to zero and subdiv to 1. 

  14.  

  15. A simple Cabbage metronome

  16. 

  17. <Cabbage>

  18. form caption("Metronome"), size(770,140), pluginID("mtro")

  19. image            bounds(  0,  0,770,140), colour(160, 70,20,100), shape("rounded"), outline("white"), line(4) 

  20. checkbox bounds( 15, 20,130, 40), text("Start/Stop") channel("OnOff"), FontColour("White"), colour(250,250,100)  value(0)

  21. 

  22. rslider  bounds(120, 13, 65, 65), text("Level 1"),     colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("level1"), range(0, 1.00, 0.4, 0.5, 0.001)

  23. rslider  bounds(180, 13, 65, 65), text("Level 2"),     colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("level2"), range(0, 1.00, 0.1, 0.5, 0.001)

  24. rslider  bounds(240, 13, 65, 65), text("Subdiv."),     colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("subdiv"), range(1, 16, 3, 1, 1)

  25. rslider  bounds(300, 13, 65, 65), text("Tone 1"),      colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("tone1"),  range(0, 4.00, 2.5)

  26. rslider  bounds(360, 13, 65, 65), text("Tone 2"),      colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("tone2"),  range(0, 4.00, 1.56)

  27. rslider  bounds(420, 13, 65, 65), text("Duration"),    colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("dur"),    range(0.003, 0.1, 0.012, 0.5, 0.00001)

  28. rslider  bounds(480, 13, 65, 65), text("Width"),       colour(160, 70,20,100), trackercolour(250,250,200), FontColour("White"), channel("width"),  range(0, 2.00, 0)

  29. checkbox bounds(550, 18, 45, 45) channel("indicator"), FontColour("White"), colour(255, 50, 50)  value(0), shape("ellipse")

  30. checkbox bounds(600, 18, 45, 45) channel("indicator2"), FontColour("White"), colour(100,255,100)  value(0), shape("ellipse")

  31. 

  32. hslider  bounds( 10, 75,750, 40), colour(160, 70,20,100), trackercolour(160, 70, 20,100), FontColour("White"), channel("tempo"), range(10,1000, 90, 1, 1) textBox(1)

  33. label    bounds(345, 110, 80, 12), text("Tempo [BPM]"), fontcolour("white")

  34. 

  35. groupbox bounds(655, 25,1030, 520), colour(160, 70,20,100), line(0), popup(1), plant("Large LEDs"){

  36. checkbox bounds( 10, 10,500,500) channel("indicator"), FontColour("White"), colour(255, 50, 50)  value(0), shape("ellipse")

  37. checkbox bounds(520, 10,500,500) channel("indicator2"), FontColour("White"), colour(100,255,100)  value(0), shape("ellipse")

  38. }

  39. 

  40. label   bounds( 10,120, 200, 12), text("Author: Iain McCurdy |2013|"), FontColour("silvers")

  41. </Cabbage>

  42. 

  43. <CsoundSynthesizer>

  44. 

  45. <CsOptions>

  46. -dm0 -n -+rtmidi=null -M0

  47. </CsOptions>

  48. 

  49. <CsInstruments>

  50. 

  51. sr 		= 	44100

  52. ksmps 		= 	16	; for maximum timing accuracy set ksmps = 1

  53. nchnls 		= 	2

  54. 0dbfs		=	1	;MAXIMUM AMPLITUDE

  55. 

  56. gistrt	ftgen	0,0,8,-2,	200,	200,	2500,	5000,	5000

  57. giend	ftgen	0,0,8,-2,	20,	1000,	20,	20,	1000

  58. 

  59. gisine	ftgen	0,0,4096,10,1	; sine wave (used by the audio oscillator)

  60. gasend	init	0		; global variable used to send audio to the 'stereo' instrument

  61. 

  62. gibar	ftgen	0,0,64,-2,1	; bar structure basically a '1' followed by 63 zeroes, '1' indicating the first neat of a bar and zero indicating any other beat

  63. 

  64. instr	1

  65.  kOnOff		chnget	"OnOff"

  66.  kdur		chnget	"dur"

  67.  ksubdiv	chnget	"subdiv"

  68.  ktone1	chnget	"tone1"

  69.  ktone2	chnget	"tone2"

  70.  klevel1	chnget	"level1"

  71.  klevel2	chnget	"level2"

  72.  kstrt	tablei	ktone1,gistrt

  73.  kend	tablei	ktone1,giend

  74.  kstrt2	tablei	ktone2,gistrt

  75.  kend2	tablei	ktone2,giend

  76. 

  77.  ; restart metronome if subdiv changes to ensure timing accuracy

  78.  ktrig	changed	ksubdiv,kOnOff

  79.  if ktrig==1 then

  80.   reinit RESTART

  81.  endif

  82.  RESTART:

  83.  

  84.  kbeat	init	0	; initialise beat position (0 = first beat of the bar)

  85. 

  86.  if kOnOff==1 then

  87.   gktempo	chnget	"tempo"

  88.   kmetro	metro	 gktempo/60			; bar metronome

  89. 

  90.   if kmetro=1 then					; if a beat is occuring...

  91.    ktype	table	kbeat,gibar	;1=bar 0=beat	; read if this is a first beat of a bar or not (1=first beat, 0=any other)

  92.    if ktype=1 then					; if first beat of a bar...

  93.     event "i",2,0,kdur,kstrt,kend,klevel1,1		; ... call metronome click as if 1st beat (p7 = 1 = flash indicator)

  94.    else							; otherwise (must be aby other beat of a bar)...

  95.     event "i",2,0,kdur,kstrt2,kend2,klevel2,0		; ...call metronome click as if any other beat of a bar (p7 = 0 = don't flash indicator)

  96.    endif

  97.    kbeat wrap kbeat+1, 0, ksubdiv			; increment beat position but wrap around to zero if final beat of a bar has already been reacxhed

  98.   endif

  99.  endif

  100. endin

  101. 

  102. instr	2	; produce metronome sound (this instrument will be called repeatedly)

  103. 	iwidth	chnget	"width"

  104. 	acps	transeg	p4,p3,-7,p5		; pitch of oscillator (a quickly decaying exponential curve) start='tone 1', end='tone 2'

  105. 	aenv	transeg	1,p3,-7,0		; amplitude of oscillator (a quickly decaying exponential curve)

  106. 	asig	oscili	p6,acps,gisine	; audio oscillator

  107. 	amod	oscili	3,200,gisine		; modulation signal

  108. 	asig	=	asig*amod		; ring modulate original audio signal

  109. 	asig	butbp	asig*10,100,100		; bandpass filter the sound to attenuate lows and highs

  110. 	asig	=	asig*aenv		; apply envelope

  111. 		outs	asig,asig		; send audio to outputs

  112. 	gasend	=	gasend+asig*iwidth	; send a bit of the audio to the stereo-ifying instrument

  113. 	event_i	"i",5-p7,0,0.08		; flash indicator (call instrument 4 for 0.1 duration)

  114. endin

  115. 

  116. instr	3	; 'stereo'ify the sound

  117. 	aL	delay	gasend,	rnd(0.01)	; slightly delay audio by a random amount to create left channel audio

  118. 	aR	delay	gasend,	rnd(0.01)	; slightly delay audio by a random amount to create right channel audio

  119. 	aL	butlp	aL,cpsoct(rnd(10))	; filter left channel (random cutoff frequency)

  120. 	aR	butlp	aR,cpsoct(rnd(10))	; filter right channel (random cutoff frequency)

  121. 		outs	aL,aR			; send audio to outputs

  122. 	gasend	=	0			; clear global send variable

  123. endin

  124. 

  125. instr	4	; flash red indicator

  126. 	gkrelease	release			; krelease=0 while note is active, =1 when note ends (final k-cycle)

  127. 	chnset	1-gkrelease,"indicator"		; turn indicator on or off

  128. endin

  129. 

  130. instr	5	; flash green indicator

  131. 	gkrelease	release			; krelease=0 while note is active, =1 when note ends (final k-cycle)

  132. 	chnset	1-gkrelease,"indicator2"		; turn indicator on or off

  133. endin

  134. </CsInstruments>

  135. 

  136. <CsScore>

  137. i 1 0 [60*60*24*7]

  138. i 3 0 [60*60*24*7]

  139. </CsScore>

  140. </CsoundSynthesizer>