9.0 41.0 2channelModulate -12566464 untitled if (<ModON> == 1) then kLFO = k_lfo5(<Mod speed>, <Mod wave>) kLFO *= <Mod depth> if (<Mod range> == 1) then ; range 0..1 kLFO += 1 kmod = kLFO * .5 ; output 1 from 0.5 up kmod_inverse = 1 - kmod ; output 2 from 0.5 down else ; range -1..1 kmod = kLFO ; output 1 from 0 up kmod_inverse = -1 * kmod ; output 2 from 0 down endif else kmod = 1 kmod_inverse = 1 endif gkModulate = kmod ; create a Global k rate gkModulate_inverse = kmod_inverse ; and for the 2nd isntrument 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 Roboto 12.0 0 0 2channelModulate 0x996600ff 0x000000ff 0xffffffff false 228 100 Roboto 12.0 Mod depth 10 25 depth of the vibrato true 0.0 1.0 1.0 60 true true depth true Roboto 12.0 Mod wave 10 128 sine, triangle, square x 2, saw up, saw down true 0.0 6.0 1 6.0 130 true false 32 148 1 Roboto 14.0 Mod speed 75 25 frequency rate of vibrato true 0.001 30.0 30.0 60 true true speed true Roboto 12.0 90 148 4 Roboto 14.0 110 148 5 Roboto 14.0 155 40 2 outputs 0x00000033 0x000000ff 0xffffffff true 121 117 Roboto 12.0 75 80 --> Roboto 24.0 Mod range 45 10 true 0.0 1.0 1 1.0 45 true false 10 90 output 2 Roboto 12.0 75 65 --> Roboto 24.0 90 15 0..1 Roboto 12.0 10 15 -1..1 Roboto 12.0 10 70 output 1 Roboto 12.0 60 85 f Standard Symbols PS 20.0 70 148 3 Roboto 14.0 ModON 180 10 true activate true true 52 148 2 Roboto 14.0 14 148 0 Roboto 14.0 128 148 6 Roboto 14.0 k_lfo5 k kk kcps, ktype xin iSineTable chnget "lfo4_cosine" if (iSineTable == 0) then iSineTable ftgen 0, 0, 65536, 11, 1 ; cosine wave chnset iSineTable, "lfo4_cosine" endif kout init 0 if (ktype == 0) then ;SINE kout oscil3 1, kcps, iSineTable elseif (ktype == 1) then ;TRIANGLE aout vco2 1, kcps, 12 kout downsamp aout elseif (ktype == 2) then ;SQUARE (BI-POLAR) aout vco2 1, kcps, 10 kdwn downsamp aout kout port kdwn, 0.005 ;declick elseif (ktype == 3) then ;SQUARE (UNI-POLAR) aout vco2 1, kcps, 10 kout downsamp aout kout = (kout + 1) / 2 elseif (ktype == 4) then ;SAW TOOTH (UP) aout vco2 1, kcps, 0 kdwn2 downsamp aout kout port kdwn2, 0.0001 ;declick elseif (ktype == 5) then ;SAW TOOTH (DOWN) aout vco2 1, kcps, 0 kdwn3 downsamp aout kdwn3 *= -1 kout port kdwn3, 0.0001 ;declick elseif (ktype == 6) then ;RANDOM kout jspline 1, kcps*1, kcps*2 endif xout kout 2channelModulate outputs 2 output modulations, one has the inverse phase of the other. 2 ranges can be set: from -1 to 1 or from 0 to 1 This modulator can be used to, for example having set the range to 0..1, modulate the amplitude of 2 instruments. Where the amplitude of the one increases, the amplitude of the other decreases at the same speed. When set at slow speeds, one instrument takes over the other one etc. When set to higher speeds, these 2 instruments seem to merge. The range -1..1 can be used, for example, to modulate around a fixed value. A filter of instrument 1 will get modulated around its filter setting, while in instrument 2 the same thing will happen but in inverse. Idea is to create some level of interdependence between 2 instruments. 2channelModulate uses the Global variable system to communicate between different instruments. In the instruments to be modulated, code must be added. For example, for amplitude for the first instrument: blueMixerOut asigL * gkModulate, asigR * gkModulate for the second instrument: blueMixerOut asigL * gkModulate_inverse, asigR * gkModulate_inverse --- version 1.1, November 2022 - changed chnset/chnget for Global k rates (simpler) version 1, November 2022 - initial version