2OutputModulator This Instrument creates 2 Low Frequency Oscilators: 1 normal and 1 phaase inverted. 1 or 2 modules can be activated. They are then mixed, so more comples modulations are possible. Example: the normal output modulates the amplitude of 1 instrument, and the phase inverted one the amplitude of a 2nd instrument. Result is that one gets louder, the other gets softer in the same speed. 2OutputModulator uses the Global variable system to send the LFO signals to different instruments. In the instruments to be modulated, code must be added. Following the example above, for amplitude for the first instrument: blueMixerOut asigL * gkModulate, asigR * gkModulate for the second instrument: blueMixerOut asigL * gkModulate_inverse, asigR * gkModulate_inverse --- version 1.2, December 2022 - initial version if (<ModON1> == 1) then ; Modulator 1 kLFO1 = k_lfo6(<Mod speed1>, <Mod wave1>, <Manual1>) kLFO1 *= <Mod depth> kmod1 scale kLFO1, 1 , <DC>, 1, 0 else kmod1 = 1 endif if (<ModON2> == 1) then ; Modulator 2 kLFO2 = k_lfo6(<Mod speed2>, <Mod wave2>, <Manual2>) kLFO2 *= <Mod depth> kmod2 scale kLFO2, 1 , <DC>, 1, 0 else kmod2 = 1 endif kmod = kmod1 * kmod2 ; normal output kmod_inverse = 1 - kmod ; and phase inverted output gkModulate = kmod ; create 2 Global k rate LFOs gkModulate_inverse = kmod_inverse ; 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 Roboto 12.0 0 0 2 O u t p u t M o d u l a t o r 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 Roboto 14.0 10 10 2channel Modulate 0x59853eff 0x000000ff 0xffffffff false 228 100 Roboto 12.0 10 10 Modulator1 0x00000033 0x000000ff 0xffffffff true 20 20 Roboto 12.0 30 150 1 Roboto 14.0 130 170 I Roboto 14.0 128 150 7 Roboto 14.0 ModON1 30 0 true activate 1 true true Manual1 10 180 true -1.0 1.0 0.01 0.28 130 true false 72 194 0 Roboto 12.0 64 150 3 Roboto 14.0 Mod wave1 10 128 sine, triangle, square x 2, saw up, saw down true 0.0 7.0 1 0.0 130 true false 80 150 4 Roboto 14.0 96 150 5 Roboto 14.0 112 150 6 Roboto 14.0 15 195 -1 Roboto 12.0 46 150 2 Roboto 14.0 130 195 1 Roboto 12.0 Mod speed1 45 25 frequency rate of vibrato true 0.001 30.0 1.0 60 true true speed true Roboto 12.0 14 150 0 Roboto 14.0 155 245 + Roboto 24.0 15 275 outputs 0x00000033 0x000000ff 0xffffffff true 121 117 Roboto 12.0 DC 105 10 true 0.0 1.0 0.2747999801061912 60 true false DC bias true Roboto 12.0 155 80 1 Roboto 12.0 100 80 -1/1.. Roboto 12.0 271 60 0 Roboto 8.0 190 60 output 1 Roboto 12.0 240 60 --> Roboto 18.0 285 80 0 Roboto 8.0 130 80 0/1... Roboto 12.0 265 62 0 Roboto 12.0 190 80 output 2 Roboto 12.0 240 80 --> Roboto 18.0 Mod depth 10 10 depth of the vibrato true 0.0 1.0 0.6577580194878677 60 true true depth true Roboto 12.0 265 80 180 Roboto 12.0 165 10 Modulator2 0x00000033 0x000000ff 0xffffffff true 20 20 Roboto 12.0 128 150 7 Roboto 14.0 112 150 6 Roboto 14.0 14 150 0 Roboto 14.0 96 150 5 Roboto 14.0 130 170 I Roboto 14.0 Mod speed2 40 25 frequency rate of vibrato true 0.001 30.0 1.1 60 true true speed true Roboto 12.0 72 194 0 Roboto 12.0 46 150 2 Roboto 14.0 30 150 1 Roboto 14.0 130 195 1 Roboto 12.0 64 150 3 Roboto 14.0 80 150 4 Roboto 14.0 ModON2 30 0 true activate 2 true true Manual2 10 180 true -1.0 1.0 0.01 -0.72 130 true false 15 195 -1 Roboto 12.0 Mod wave2 10 128 sine, triangle, square x 2, saw up, saw down true 0.0 7.0 1 0.0 130 true false 320 10 Score Module - use this to add extra P-fields in Score and instrumentcode Wave Type 0x66666600 0x000000ff 0xf0f0ffff true 103 139 Roboto 12.0 37 5 sine Roboto 12.0 15 35 2 Roboto 14.0 15 5 0 Roboto 14.0 35 35 square1 Roboto 12.0 15 95 6 Roboto 14.0 15 111 7 Roboto 14.0 15 80 5 Roboto 14.0 37 65 saw up Roboto 12.0 15 65 4 Roboto 14.0 35 50 square2 Roboto 12.0 37 80 saw down Roboto 12.0 15 51 3 Roboto 14.0 35 95 random Roboto 12.0 15 20 1 Roboto 14.0 35 110 manual Roboto 12.0 37 20 triangle Roboto 12.0 k_lfo6 k kkk kcps, ktype, kline 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 elseif (ktype == 7) then ;straight line kout = kline endif xout kout