Gift for Christmas !!
Created by SAS EVSN (Frank)
Methodology for making the VU meters respond on channels 1 to 8 of my XTouch (perhaps Icon, Presonus, Mackie …also)
-
Create a Scriptlet block in the wiring. Insert the code below.
-
Create an “Envelope Follower” block (found in the internal “MIDI Processing and Monitoring” plugins).
Input the audio you want to display on the XTouch LEDs into this Envelope Follower block. -
Create two Knob widgets and group them using “widget link” (e.g., A).
Link the first widget to the Envelope Follower plugin and set parameter 18 to “Audio Level Channel 0”.
Link the second widget to the Scriptlet plugin you created and select the channel on which you want to display the LEDs on the XTouch.
That’s it!
The XTouch LEDs will light up on the channel selected in the second widget and will follow the audio input to the Envelope Follower.
Note: If you output the audio to both the Left and Right channels, you will only see the Left channel.
The scriptlet 
Var
Canal1 : Parameter 0 .. 15 = 0
Canal2 : Parameter 0 .. 15 = 0
Canal3 : Parameter 0 .. 15 = 0
Canal4 : Parameter 0 .. 15 = 0
Canal5 : Parameter 0 .. 15 = 0
Canal6 : Parameter 0 .. 15 = 0
Canal7 : Parameter 0 .. 15 = 0
Canal8 : Parameter 0 .. 15 = 0
last1 : Integer = -1
last2 : Integer = -1
last3 : Integer = -1
last4 : Integer = -1
last5 : Integer = -1
last6 : Integer = -1
last7 : Integer = -1
last8 : Integer = -1
On ParameterValueChanged matching Canal1
Var v : Integer
v = Canal1
If v != last1 Then
SendNow(MakeMidiMessage2(208, v))
last1 = v
End
End
On ParameterValueChanged matching Canal2
Var v : Integer
v = 16 + Canal2
If v != last2 Then
SendNow(MakeMidiMessage2(208, v))
last2 = v
End
End
On ParameterValueChanged matching Canal3
Var v : Integer
v = 32 + Canal3
If v != last3 Then
SendNow(MakeMidiMessage2(208, v))
last3 = v
End
End
On ParameterValueChanged matching Canal4
Var v : Integer
v = 48 + Canal4
If v != last4 Then
SendNow(MakeMidiMessage2(208, v))
last4 = v
End
End
On ParameterValueChanged matching Canal5
Var v : Integer
v = 64 + Canal5
If v != last5 Then
SendNow(MakeMidiMessage2(208, v))
last5 = v
End
End
On ParameterValueChanged matching Canal6
Var v : Integer
v = 80 + Canal6
If v != last6 Then
SendNow(MakeMidiMessage2(208, v))
last6 = v
End
End
On ParameterValueChanged matching Canal7
Var v : Integer
v = 96 + Canal7
If v != last7 Then
SendNow(MakeMidiMessage2(208, v))
last7 = v
End
End
On ParameterValueChanged matching Canal8
Var v : Integer
v = 112 + Canal8
If v != last8 Then
SendNow(MakeMidiMessage2(208, v))
last8 = v
End
End
