SFluidly SFluidly is a wrapper for Fluidsynth: http://www.fluidsynth.org/ Soundfonts have some modulators embedded. They were put there at creation. Modulations depends on if and how much of these embedded modulators are present. All modulators are global. This means that they effect all the notes playing at that point in time. For more info: https://github.com/kunstmusik/blue/wiki/Fond-of-Soundfont version 1.0, September 2019 gifld<INSTR_ID> fluidEngine i(<CHORUS_ON>), i(<REVERB_ON>) ; initialize FluidSynth if i(<SF:show presets>) == 1 then ; print Soundfont list gisf2 fluidLoad <file>, gifld<INSTR_ID>, 1 else gisf2 fluidLoad <file>, gifld<INSTR_ID>, 0 endif fluidProgramSelect gifld<INSTR_ID>, <INSTR_ID>, gisf2, i(<SFbank>), i(<SFpreset>) ;================================init=========================================== inum = p4 ; midi note ivel = p5 ; midi velocity ;=========================set global envelopes========================================= if (<expression switch>) == 1 then if i(<expression exponential switch>) == 1 then ; create expression envelope kenvexp loopxseg <scale expression envelope>/p3, 0, 0, <global envelope_expression envelope>, 0 ; exponential envelope else kenvexp loopseg <scale expression envelope>/p3, 0, 0, <global envelope_expression envelope>, 0 ; or linear envelepe endif else kenvexp = 127 endif if i(<pitch bend switch>) == 1 then kpitchbend loopxseg <scale pitch envelope>/p3, 0, 0, <global envelope_pitch bend envelope>, 0 ; exponential envelope endif if i(<filter exponential switch>) == 1 then ; create filter envelope kenvfilter loopxseg (<scale filter envelope>/p3), 0, 0, <global envelope_filter envelope>, 0 ; exponential envelope else kenvfilter loopseg (<scale filter envelope>/p3), 0, 0, <global envelope_filter envelope>, 0 ; or linear envelepe endif ;=============================================================================== kenvfilter *= <filter depth> kfilter = <frequency cutoff> ;printk2 kfilter if <filter envelope switch> == 1 then ; switch for filter envelope kfilter = kenvfilter + kfilter endif gafilterenv interp kfilter if (<pitch bend switch>) == 0 then ; switch for pitch bend kpitchbend = 0 endif ;===========================vibrato============================================= if (<VibratoON>) == 1 then if i(<vibrato fade in>) == 1 then kvibfade_in expseg 0.01, p3, 1 ; fade in vibrato else kvibfade_in = 1 endif endif kchanged changed2 <vibrato LFO type> ; check if LFO type has changed if kchanged == 1 then reinit STARTvibrato endif STARTvibrato: kvb k_Vibrato i(<VibratoON>), <vibrato depth> * kvibfade_in, <vibrato speed> ,i(<vibrato LFO type>), 0, 0 ;========================SoundFont============================================== ivelocity ampmidicurve ivel, 1, i(<dynamic range>) print ivelocity fluidSetInterpMethod gifld<INSTR_ID>, <INSTR_ID>, 7 ; highest quality of interpolation fluidControl gifld<INSTR_ID>, 224, <INSTR_ID>, <finetuning>, (64 + kpitchbend) * (kvb + 1)*<tuning>, 0 ; pitch bend and vibrato fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 1, <controllers_0> ; modulation CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 10, <controllers_1> ; pan CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 64, <controllers_2> ; sustain CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 66, <controllers_3> ; sostenuto CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 68, <controllers_4> ; legato CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 91, <controllers_5> ; reverb CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 93, <controllers_6> ; chorus CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 65, <portamento_0> ; portamento switch CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 5, <portamento_1> ; portamento time CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 84, <portamento_2> ; portamento control CC fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 7, int(<volume>) ; volume CC, used for total volume fluidCCk gifld<INSTR_ID>, <INSTR_ID>, 11, int(kenvexp) ; expression CC, used for global volume changes fluidNote gifld<INSTR_ID>, <INSTR_ID>, inum, ivelocity*127 asigFL, asigFR fluidOut gifld<INSTR_ID> ; output sound ;================================filter========================================= kfil = k(gafilterenv) ;printk2 kfil if <filterON> == 1 then kQ = <filterQ> ahpL,alpL,abpL,abrL statevar asigFL, gafilterenv, kQ, 10 ahpR,alpR,abpR,abrR statevar asigFR, gafilterenv, kQ, 10 alpL *= <filter lowpass gain> ahpL *= <filter highpass gain> abpL *= <filter bandpass gain> abrL *= <filter bandreject gain> alpR *= <filter lowpass gain> ahpR *= <filter highpass gain> abpR *= <filter bandpass gain> abrR *= <filter bandreject gain> asigL = (ahpL + alpL + abpL + abrL) * <volume> ; mix all filter outputs asigR = (ahpR + alpR + abpR + abrR) * <volume> else asigL = asigFL * <volume> asigR = asigFR * <volume> endif ;=======================outputs================================================= blueMixerOut asigL, asigR 2 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- SF l u i d l y ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 12 load sample 0x669966ff 0x1a1a1aff 0xffffffff false 881 20 676 80 Group 0x669966ff 0x000000ff 0xffffffff false 20 20 dynamic range 12 15 true 0.0 5.0 0.1 2.1 90 true true 36 10 dynamics System Regular 12.0 volume 42 50 true 0.0 127.0 29.210000000000008 40 true false volume true System Regular 12.0 730 296 Group 0x669966ff 0x000000ff 0xffffffff false 20 79 52 48 scale X System Regular 12.0 scale expression envelope 95 15 true 1.0 20.0 1.0 35 true true label false System Regular 12.0 expression switch 10 10 true expr. env false true 10 55 SF global controllers 0x669966ff 0x000000ff 0xffffffff true 20 20 315 105 reverb System Regular 12.0 575 105 control System Regular 12.0 375 105 chorus System Regular 12.0 520 105 time System Regular 12.0 CHORUS_ON 388 5 true true true 495 5 PORTAMENTO System Regular 12.0 255 105 legato System Regular 12.0 459 105 switch System Regular 12.0 controllers 10 25 true 0.0 127.0 1 150 5 true true 0 0 true 0.0 127.0 1 0.0 150 true true 0 0 true 0.0 127.0 1 64.0 150 true true 0 0 true 0.0 127.0 1 0.0 150 true true 0 0 true 0.0 127.0 1 0.0 150 true true 0 0 true 0.0 127.0 1 0.0 150 true true 0 0 true 0.0 127.0 1 127.0 150 true true 0 0 true 0.0 127.0 1 127.0 150 true true 15 105 modul. System Regular 12.0 80 105 pan System Regular 12.0 130 105 sustain System Regular 12.0 186 105 sostenuto System Regular 12.0 portamento 450 25 true 0.0 127.0 1 150 5 true true 0 0 true 0.0 127.0 1 0.0 150 true true 0 0 true 0.0 127.0 1 0.0 150 true true 0 0 true 0.0 127.0 1 0.0 150 true true REVERB_ON 328 5 true true true 730 375 Group 0x669966ff 0x000000ff 0xffffffff false 20 75 50 47 scale X System Regular 12.0 scale filter envelope 95 15 true 1.0 20.0 1.0 35 true true label false System Regular 12.0 filter envelope switch 10 10 true filter env true true SF:show presets 762 55 true show presets true true 809 27 program System Regular 12.0 724 27 bank System Regular 12.0 412 205 vibrato 0x669966ff 0x000000ff 0xffffffff false 20 90 vibrato depth 94 10 true 0.0 1.0 1.0 40 true false depth true System Regular 12.0 vibrato fade in 10 60 true fade in false true vibrato speed 144 10 true 0.0 10.0 6.1000000000000005 40 true false speed true System Regular 12.0 202 12 type System Regular 12.0 VibratoON 10 10 true vibrato false true vibrato LFO type 195 30 true 0.0 5.0 1 1.0 20 true false 10 295 global envelopes 0x669966ff 0x000000ff 0xffffffff true 20 20 global envelope 10 10 700 150 1.0 true COMMA false false expression exponential switch 10 185 true treat expression env as exponential true true filter exponential switch 510 185 true treat filter env as exponential false true file 140 15 /media/menno/datae/soundfonts/sf_GMbank.sf2 485 true 730 450 Group 0x669966ff 0x000000ff 0xffffffff false 20 76 scale pitch envelope 96 14 true 1.0 20.0 1.0 35 true true label false System Regular 12.0 52 46 scale X System Regular 12.0 pitch bend switch 10 10 true pitch env. true true SFbank 674 22 true 0 12 true 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63 64 64 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100 101 101 102 102 103 103 104 104 105 105 106 106 107 107 108 108 109 109 110 110 111 111 112 112 113 113 114 114 115 115 116 116 117 117 118 118 119 119 120 120 121 121 122 122 123 123 124 124 125 125 126 126 127 127 10 205 Group 0x669966ff 0x000000ff 0xffffffff false 20 20 160 10 high System Regular 12.0 filter highpass gain 160 20 true 0.0 1.0 0.1 0.0 56 true false frequency cutoff 285 10 true 20.0 18000.0 250.0 40 true true freq cutoff true System Regular 12.0 filter lowpass gain 120 20 true 0.0 1.0 0.1 1.0 56 true false filter bandpass gain 200 20 true 0.0 1.0 0.1 0.0 54 true false filterON 5 10 true activate filters true true 35 46 depth System Regular 12.0 filter depth 9 50 true 0.0 1.0 0.1 0.3 80 true false 125 10 low System Regular 12.0 filter bandreject gain 240 20 true 0.0 1.0 0.1 0.0 54 true false 190 10 bandP System Regular 12.0 filterQ 350 10 true 0.1 4.0 4.0 40 true true Quality true System Regular 12.0 235 10 bandR System Regular 12.0 16 16 soundfont System Bold 20.0 SFpreset 759 22 true 29 12 true 0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 8 8 9 9 10 10 11 11 12 12 13 13 14 14 15 15 16 16 17 17 18 18 19 19 20 20 21 21 22 22 23 23 24 24 25 25 26 26 27 27 28 28 29 29 30 30 31 31 32 32 33 33 34 34 35 35 36 36 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 49 49 50 50 51 51 52 52 53 53 54 54 55 55 56 56 57 57 58 58 59 59 60 60 61 61 62 62 63 63 64 64 65 65 66 66 67 67 68 68 69 69 70 70 71 71 72 72 73 73 74 74 75 75 76 76 77 77 78 78 79 79 80 80 81 81 82 82 83 83 84 84 85 85 86 86 87 87 88 88 89 89 90 90 91 91 92 92 93 93 94 94 95 95 96 96 97 97 98 98 99 99 100 100 101 101 102 102 103 103 104 104 105 105 106 106 107 107 108 108 109 109 110 110 111 111 112 112 113 113 114 114 115 115 116 116 117 117 118 118 119 119 120 120 121 121 122 122 123 123 124 124 125 125 126 126 127 127 658 205 tuning 0x669966ff 0x000000ff 0xffffffff false 210 20 50 20 fine System Regular 12.0 finetuning 10 20 true 0.0 127.0 1 0.0 140 true true tuning 10 50 true 0.0 2.0 0.01 1.0 140 true true 40 50 coarse System Regular 12.0 75 10 tuning System Regular 12.0 k_Vibrato k KKKiKK kOnVibrato, kdepth, kspeed, itype, kjitdepth, kjitfreq xin if kOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices kvb lfo kdepth, kspeed, itype ; LFO 0-5 kjit randi kjitdepth, kjitfreq ; create some jitter kvibrato = kvb + kjit ; add jitter and LFO else kvibrato = 0 ; if switch = OFF, there is no vibrato endif xout kvibrato