SFinst DESCRIPTION: SFinst, based on the sfinstr3 opcode, loads the instruments of a Soundfont. So it does NOT use the Presets of the Soundfont, but the instruments the Presets are made of. SFinst is suited for use in microtonal compositions; for instance, the PianoRoll Object can contain an arbitrary tone scale, SFinst will follow the notes nicely when microtuned. SFinst can use midi note numbers as entries for p4, but also frequencies. Set the parameter 'scoreP4' accordingly. A PianoRoll for example, must be set to Pch Generation --> Frequency (and not the Midi note pitch), while a PianoRoll using the familiar 12TET set Pch Generation --> MIDI. Or use the AL. Velocity (= p5) is from 0 - 1, but scaled to 0-127 according to the SF expectency. It then follows the normal Soundfont/midi protocol. Reason for this instrument is to have easy acces to those well-known acoustical musical instruments but with different and interesting transformation options and microtonality. That makes the well-known and mostly harmonic sounds "only" basic material to start molding new sounds with an already acoustal property. ATTENTION: SoundFont Presets can be made of stereo samples. According to SF Protocol, these samples are divided over 2 mono Instruments, each with its own number. This means that if you select an Instrument, you load only the Left channel or the Right channel if it is part of a stereo sample. There is a checkbox that makes the mono sound a pseudostereo sound by panning the notes freely over the stereo image. note example: i2 0 0.8 60 1.0 ; P4 = midi value, P5 = amplitude i2 0 0.2 261.625565 1.0 ; P4 = frequency, P5 = amplitude CONTROLLERS: see the help balloon when hovering over the controllers in the instrument. Help can be turned off by pressing the 'I' button next to the play bar. --- version 3.2, December 2020 - added color option, for accessing a sample on a different key - changed from mono reading to stereo reading of SF version 3.1, November 2020 - added tremolo envelope version 3.0, October 2020 - big overhaul: new filters - filters have amplitude or frequency/pitch followers (exponentially) - switch for P4 = frequency or MidiPitch - 2 types of filter envelopes, can be mixed - optional Score Module version 2.0, July 2020 - big changes in: dynamics, vibrato, version 1.1, August 2019 - added Show Midi Key, so you know what keys are hit and adjust the range of the preset accordingly - added Depth slider for filters version 1, August 2019 - first version- that's why i call it version 1 gisf<INSTR_ID> sfload <file> ; if i(<SF:show instruments>) == 1 then sfilist gisf<INSTR_ID> endif ;================================init=========================================== inum = p4 ; frequency in Hz iamp = p5 * 127 ; midi velocity if (i(<scoreP4>) == 0) then ; p4 = frequency inumber = ftom:i(inum + .000001) endif if <pitch slider> == 1 then ; use pitch slider to override kpitch = <pitch coarse> + <pitch fine> else kpitch = 1 endif ;=========================set envelopes========================================= if i(<amplitude exponential switch>) == 1 then kenvamp loopxseg 1/p3, 0, 0, <envelope_amplitude envelope2>, 0 ; main envelope else kenvamp loopxseg 1/p3, 0, 0, <envelope_amplitude envelope2>, 0 endif ktremolo loopxseg (<rate amplitude envelope>/p3), 0, 0, <envelope_tremolo envelope>, 0 ; create tremolo envelope atremolo interp ktremolo aampenv interp kenvamp if i(<filter exponential switch>) == 1 then ; create filter envelope kenvfilter loopxseg (<rate filter envelope>/p3), 0, 0, <envelope_filter envelope>, 0 ; exponential envelope else kenvfilter loopseg (<rate filter envelope>/p3), 0, 0, <envelope_filter envelope>, 0 ; or linear envelepe endif kpitchbend loopxseg <rate pitch envelope>/p3, 0, 0, <envelope_pitch bend envelope>, 0 ; exponential envelope kglissando linseg 0, p3, p6 ;================================================================================ if (<pitch bend envelope> == 0) then ; switch for pitch bend kpitchbend = 1 endif ktuning = <tuning> ; set coarse tuning if <pitch bend envelope> == 1 then ; add envelope pitchbend ktuning = <tuning> * kpitchbend 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 ; vibrato starts right away endif kvib = lfo3(<vibrato speed>, <vibrato wave>) kvib *= <vibrato depth> * kvibfade_in endif ;========================SoundFont============================================== kmidifreq = ktuning * kpitch + kvib kfrequency = inum * ktuning * kpitch + (kvib*300) istart_sample = i(<SF playback offset>) + p7 ; playback position in SF if changed2(<SF playback offset>) == 1 then reinit STARTPLAYBACK endif ; iamp, inotenum, xamp, xfreq, instrnum, ifilhandle , iflag , ioffset if (<scoreP4> == 1) then ; switch between MIDI score events or not STARTPLAYBACK: asigFL, asigFR sfinstr3 int(iamp), inum, .00001 * <pregain> * iamp, kmidifreq, <SFinstrument>, gisf<INSTR_ID>, 0, istart_sample ; midi note rireturn else STARTPLAYBACK: asigFL, asigFR sfinstr3 int(iamp), inumber + <sample of other key> + p9, .00001 * <pregain> * iamp, kfrequency+kglissando, <SFinstrument>, gisf<INSTR_ID>, 1, istart_sample ; freq in Hz rireturn if i(<show midi key>) == 1 then prints "\nINSTR %d: MIDI KEY = %5.4f, AND IS USING SAMPLE (COLOR) OF KEY = %5.4f\n\n", <INSTR_ID>, inumber, inumber + <sample of other key> + p9 endif endif if (<pseudostereo> == 1) then ; pseudostereo for mono sounds ipan random 0.1, .9 asigFL, asigFR pan2 asigFL, ipan endif ;================================filter========================================= if (<filterON> == 1) then ; switch filter ON by checkbox or p6 ; switch for amplitude or frequency dependency if (<filter follower> == 0) then acutoff = <filter frequency cutoff> elseif (<filter follower> == 1) then ; amp --> filter kfiltcut = <filter frequency cutoff> kurve logcurve iamp, 10 kampfilter = kfiltcut * (kurve) acutoff = kfiltcut * kampfilter elseif (<filter follower> == 2) then ; -(amp) --> filter kfiltcut = <filter frequency cutoff> kurve logcurve iamp, 17 kampfilter = kfiltcut / kurve acutoff = kfiltcut * kampfilter elseif (<filter follower> == 3) then ; key --> filter acutoff = limit(octcps(inum) - 4.35, 0, 10) ; frequency to filter elseif (<filter follower> == 4) then koct = limit(octcps(inum) - 4.35, 0, 10) acutoff = abs(<filter frequency cutoff> - koct + 5) ; avoid negative freqs endif if (<filter envelopes> == 0) then ; envelopes disabled ; do nothing, but pass through elseif (<filter envelopes> == 1) then ; switch for ADS envelope aretrig init 1 agate = 1 acutenv adsr140 agate, aretrig, <filter ads attack>, <filter ads decay>, <filter ads sustain>, 0 acutoff *= acutenv * <filter ads depth> elseif (<filter envelopes> == 2) then ; graphical envelope acutoff *= (kenvfilter * <filter envelope depth>) elseif (<filter envelopes> == 3) then ; switch for ADS envelope and graphical combined acuto = (kenvfilter * <filter envelope depth> * 3.2) aretrig init 1 agate = 1 afilterads adsr140 agate, aretrig, <filter ads attack>, <filter ads decay>, <filter ads sustain>, 0 acutoff = acuto + (afilterads * <filter ads depth> * 3.2) endif acutoff *= <filter total depth> ; scale total depth of filters acutoff = cpsoct:a(4.35 + limit(acutoff, 0, 10)) ; finally convert to frequencies acutoff limit acutoff, 10, 21000 ; limit frequency band of filter, a safeguard ;filter opcode section kQ = <filter resonance> al, abpL, ahpL zdf_2pole_mode asigFL, acutoff, kQ ; don't use lowpass filter here ar, abpR, ahpR zdf_2pole_mode asigFR, acutoff, kQ ; use only for bandpass and highpass (12 dB) alpL zdf_ladder asigFL, acutoff, kQ ; but use this lowpass (24 dB) alpR zdf_ladder asigFR, acutoff, kQ alpL *= <filter lowpass gain> ; filters gain Left ahpL *= <filter highpass gain> abpL *= <filter bandpass gain> alpR *= <filter lowpass gain> ; filters gain Right ahpR *= <filter highpass gain> abpR *= <filter bandpass gain> ;gain of filters asigL = (ahpL + alpL + abpL) * <output gain left> ; mix all filter gains asigR = (ahpR + alpR + abpR) * <output gain right> else asigL = asigFL * <output gain left> ; gain without filters asigR = asigFR * <output gain right> endif ;=======================gains=================================================== aLeft = asigL * atremolo * aampenv aRight = asigR * atremolo * aampenv blueMixerOut aLeft, aRight blueMixerOut "SubChannel1", aLeft * p8 ,aRight * p8 5 2 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 1115 0 Score Module - use this to add extra P-fields in Score and instrumentcode Score Module 0x66666600 0x000000ff 0xff0000ff false 137 20 14 34 4 System Regular 14.0 28 197 100 28 134 sample key 100 6 159 10 System Regular 14.0 14 97 7 System Regular 14.0 28 239 100 6 222 13 System Regular 14.0 28 71 glissando 100 28 260 100 14 53 5 System Regular 14.0 14 74 6 System Regular 14.0 6 179 11 System Regular 14.0 36 53 volume System Regular 12.0 28 113 reverb send 100 28 178 100 28 219 100 28 156 100 6 199 12 System Regular 14.0 36 34 frequency System Regular 12.0 6 243 14 System Regular 14.0 14 117 8 System Regular 14.0 14 138 9 System Regular 14.0 4 10 Pfield description System Bold 14.0 28 93 start time 100 6 263 15 System Regular 14.0 0 0 l---------------------------- SF i n s t ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 10 import SoundFont load SoundFont 0x669966ff 0x1a1a1aff 0xffffffff true 1095 20 pregain 923 74 pregain of preset volume true 0.01 3.0 0.01 0.33 90 true true 2 16 soundfont System Bold 20.0 pitch coarse 120 70 coarse tuning of preset true 0.0 3.0 0.001 0.594 650 true true SFinstrument 710 18 instrument number that can be found when 'show instrument list' is checked. Can be in the hundreds... 0 49 76 84 __ System Regular 12.0 tuning 923 96 overall tuning true 0.01 4.0 0.01 1.0 90 true true file 120 15 choose SoundFont. Rightclick and there is an option to opy To Media Folder /media/menno/datae/soundfonts2uitzoeken/SoundFonts - The Collection/ZSF Distribution/SoundFonts/Colossus.SF2/4400/021 Accordion.sf2 485 true sample of other key 796 18 a value of 0 means that the sample on the key being used is the one belonging to the midi key. If other than 0, samples that belong to other keys are transposed so, that they match the frequency of the midi key. Often this results in different colors. false 36 12 true -36 -36 -35 -35 -34 -34 -33 -33 -32 -32 -31 -31 -30 -30 -29 -29 -28 -28 -27 -27 -26 -26 -25 -25 -24 -24 -23 -23 -22 -22 -21 -21 -20 -20 -19 -19 -18 -18 -17 -17 -16 -16 -15 -15 -14 -14 -13 -13 -12 -12 -11 -11 -10 -10 -9 -9 -8 -8 -7 -7 -6 -6 -5 -5 -4 -4 -3 -3 -2 -2 -1 -1 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 640 22 instrument System Regular 12.0 90 90 l System Regular 12.0 scoreP4 875 6 switch for Pfield 4 true 0 12 true P4 = frequency 0 P4 = Midi Pitch 1 75 75 coarse System Regular 12.0 SF:show instruments 875 34 show all instruments in Soundfont. Left channel and Right channel of 1 instrument have become 2 different numbers, so instrument is always mono true show instrument list false true SF playback offset 118 48 start playback in samples of presets true 0.0 48000.0 1 0.0 652 true true 40 90 pitch System Regular 12.0 763 22 color System Regular 12.0 81 55 offset System Regular 12.0 pitch fine 120 95 fine tuning of preset true 0.0 0.06 0.005 0.005 650 true true 90 100 fine System Regular 12.0 876 78 pregain System Regular 12.0 pitch slider 20 90 switch pitch on/off true false true show midi key 875 56 show what MIDI key would have been for this frequency true show midi key ## false true 875 102 tuning System Regular 12.0 10 162 amplitude and filter envelope 0x669966ff 0x1a1a1aff 0xffffffff true 1063 269 861 192 vibrato 0x669966ff 0x000000ff 0xffffffff false 20 104 vibrato depth 124 8 depth of the vibrato true 0.0 0.15 0.15 40 true true depth true System Regular 12.0 vibrato wave 81 22 true 0.0 5.0 1 0.0 58 true false vibrato speed 174 8 frequency rate of vibrato true 0.0 10.0 7.6 40 true true speed true System Regular 12.0 vibrato fade in 10 32 vibrato sets in slowly and is at full at the end of the note event true fade in false true 85 8 type System Regular 12.0 VibratoON 10 10 switch for Vibrato ON or OFF true vibrato false true 0 0 graphic envelopes 0x669966ff 0x000000ff 0xffffffff false 1084 20 1019 86 output System Regular 12.0 output gain left 1011 98 output level Left channel true 0.0 1.0 0.05 0.35 70 true false pitch bend envelope 931 146 switch for pitch envelope true false true 870 168 freq. rate System Regular 12.0 1023 168 L System Regular 12.0 filter exponential switch 952 34 let filter envelope be exponential true filter exponential false true 1047 168 R System Regular 12.0 rate pitch envelope 905 24 frequency rate of pitch envelope true 1.0 40.0 0.05 1.0 142 true false amplitude exponential switch 952 12 let amplitude envelope be exponential true amp exponential true true 907 10 pitch System Regular 12.0 857 10 tremolo System Regular 12.0 rate amplitude envelope 863 24 frequency rate of amplitude envelope true 1.0 40.0 0.05 1.0 142 true false pseudostereo 952 56 will create a stereo image by pannign notes randomly true pseudostereo false true envelope 10 10 draw envelopes for amplitude, filter and pitch 845 150 1.0 true COMMA false false output gain right 1037 98 output level Right channel true 0.0 1.0 0.05 0.35 70 true false 10 194 filters 0x669966ff 0x000000ff 0xffffffff false 850 20 filter resonance 312 8 gain of feedback of filters true 0.5 25.0 17.650000000000006 40 true true resonance true System Regular 12.0 filter frequency cutoff 271 8 cutoff frequency of filters true 0.0 10.0 1.1999999999999993 40 true true cutoff true System Regular 12.0 188 8 high System Regular 12.0 filter total depth 377 8 gain of filters true 0.01 5.0 3.7525 40 true true depth true System Regular 12.0 filter bandpass gain 220 20 gain of bandpass filter true 0.0 0.5 0.1 0.0 56 true false 218 8 bndP System Regular 12.0 filterON 11 8 filters ON or OFF true filters false true filter highpass gain 188 20 gain of highpass filter true 0.0 0.5 0.1 0.4 56 true false 161 8 low System Regular 12.0 filter follower 11 52 open and close filter depending on amplitude or frequency true 1 12 true --- 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 435 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 filter ads attack 7 36 attack portion of envelope true 0.0 1.0 0.0 31 true false attack true System Regular 12.0 7 8 A-D-S System Bold 18.0 356 10 depth System Regular 12.0 280 10 GRAPH System Bold 18.0 filter ads depth 137 22 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false 132 8 depth System Regular 12.0 filter ads sustain 87 36 sustain portion of envelope true 0.0 1.0 0.0 31 true false sustain true System Regular 12.0 filter envelope depth 359 24 gain of filter envelope true 0.0 1.0 0.05 0.65 57 true false rate filter envelope 300 36 frequency rate of filter envelope true 1.0 20.0 7.65 31 true false rate true System Regular 12.0 filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.27999999999999997 31 true false decay true System Regular 12.0 filter envelopes 171 50 bypass envelopes, or choose one of them or both of them true 0 12 true disabled 0 AttDecSus 1 Graphic 2 ADS+Graphic 3 filter lowpass gain 156 20 gain of lowpass filter true 0.0 2.5 0.1 2.5 56 true false true id:1666121356 id:1666121228 true 0.65 true version=2@_@amplitude envelope:0.0:0.0:0.007594936708860759:1.0:0.7629213483146068:0.9933333333333333:0.8835443037974684:0.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:1.0:0.43820224719101125:0.9266666666666666:0.479746835443038:0.1333333333333333:0.6012658227848101:0.8066666666666666:0.6455696202531646:0.12:0.7734177215189874:0.8866666666666667:0.7734177215189874:0.040000000000000036:0.8741573033707866:0.29333333333333333:0.9696202531645569:0.7733333333333333:1.0:0.0@_@pitch bend envelope:0.0:1.0026666666666666:0.015730337078651686:0.9706666666666667:0.3235955056179775:1.0:0.7831460674157303:1.0:1.0:1.0 /media/menno/datae/soundfonts/Gort's_MiniPiano_J1.SF2 ver2:0.68 0.0 ver2:0.84 ver2:2.3054 0.45 id:597933803 true ver2:3.9 0.0 2.5 ver2:16.67 ver2:0.78 true id:597933801 1.9 1.9 false 0.962 0.0 false 0.72 1.0 ver2:3.28 1.0 0.0 id:597943980 1.0 ver2:0.046 true ver2:5.4 1.0 0.0 false 0 false true version=2@_@amplitude envelope:0.0:0.0:0.007594936708860759:1.0:0.7629213483146068:0.9933333333333333:0.8835443037974684:0.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:0.0:0.10414201183431952:0.9866666666666667:0.4887573964497041:0.2733333333333333:0.6497041420118344:0.3533333333333334:0.7734177215189874:0.8866666666666667:0.9696202531645569:0.7733333333333333:1.0:0.0@_@pitch bend envelope:0.0:1.0026666666666666:0.015730337078651686:0.9706666666666667:0.3183431952662722:0.9333333333333333:0.7831460674157303:1.0:1.0:1.0 /media/menno/datae/soundfonts/Harp_Strings.sf2 ver2:0 ver2:0.59 1.0 ver2:0.12 0.5 1.0 id:-540861395 true id:-540861397 ver2:3.5 0.0 0.0 ver2:8.83 ver2:1.3074 true 0.4 0.4 true 0.693 0.0 false 0.41000000000000003 true 1.0 ver2:1 1.0 id:-540861402 false 1.0 ver2:0.15 false ver2:4.7 0.0 adsr140_calc_coef k kk knum_samps, kratio xin xout exp( -log((1.0 + kratio) / kratio) / knum_samps) adsr140 a aakkkk agate, aretrig, kattack, kdecay, ksustain, krelease xin kstate init 0 ; 0 = attack, 1 = decay, 2 = sustain klasttrig init -1 kval init 0.0 asig init 0 kindx = 0 kattack_base init 0 kdecay_base init 0 krelease_base init 0 kattack_samps init 0 kdecay_samps init 0 krelease_samps init 0 kattack_coef init 0 kdecay_coef init 0 ksustain_coef init 0 klast_attack init -1 klast_decay init -1 klast_release init -1 if (klast_attack != kattack) then klast_attack = kattack if(kattack > 0) then kattack_samps = kattack * sr kattack_coef = adsr140_calc_coef(kattack_samps, 0.3) kattack_base = (1.0 + 0.3) * (1 - kattack_coef) else kattack_samps = 0 kattack_coef = 0 kattack_base = 0 endif endif if (klast_decay != kdecay) then klast_decay = kdecay kdecay_samps = kdecay * sr kdecay_coef = adsr140_calc_coef(kdecay_samps, 0.0001) kdecay_base = (ksustain - 0.0001) * (1.0 - kdecay_coef) endif if (klast_release != krelease) then klast_release = krelease krelease_samps = krelease * sr krelease_coef = adsr140_calc_coef(krelease_samps, 0.0001) krelease_base = -0.0001 * (1.0 - krelease_coef) endif while (kindx < ksmps) do if (agate[kindx] > 0) then kretrig = aretrig[kindx] if (kretrig > 0 && klasttrig <= 0) then kstate = 0 endif klasttrig = kretrig if (kstate == 0) then if(kattack <= 0) then kval = 1.0 kstate = 1 else kval = kattack_base + (kval * kattack_coef) if(kval >= 1.0) then kval = 1.0 kstate = 1 endif asig[kindx] = kval endif elseif (kstate == 1) then kval = kdecay_base + (kval * kdecay_coef) if(kval <= ksustain) then kval = ksustain kstate = 2 endif asig[kindx] = kval else asig[kindx] = ksustain endif else ; in a release state kstate = 0 if (kval == 0.0) then asig[kindx] = 0 else ; releasing kval = krelease_base + (kval * krelease_coef) if(kval <= 0.0) then kval = 0.0 endif asig[kindx] = kval endif endif kindx += 1 od xout asig lfo3 k kk kcps, ktype xin iSineTable chnget "lfo2_sine" if (iSineTable == 0) then iSineTable ftgen 0, 0, 65536, 10, 1 ; sine wave chnset iSineTable, "lfo2_sine" 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 kout downsamp aout 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 kout downsamp aout elseif (ktype == 5) then ;SAW TOOTH (DOWN) aout vco2 1, kcps, 0 kout downsamp aout kout = kout * -1 endif xout kout