SFplayer DESCRIPTION: SFplayer, based on the splay3 opcode, loads a Soundfont and plays the presets of a SoundFont. It does not use any of the transformations like internal modulations, reverb or chorus as embedde in the preset of the SoundFont, but does however respect the start and end loop points of the Soundfonts' preset. SFplayer is suited for use in microtonal compositions; for instance, the PianoRoll Object can contain an arbitrary tone scale, SFplayer will follow the notes nicely when microtuned. SFplayer can take midi note numbers as entries for p4, but also frequencies. A PianoRoll for example, must be set to Pch Generation --> MIDI or Pch Generation --> Frequency. P5 should be set to values 0 - 1. Reason for this instrument is my wish to have easy acces to (acoustic) musical instruments but with different and interesting transformation options and microtonality. This makes the well-known and mostly harmonic sounds a basic material, to start molding new sounds with an already acoustical property. Note: Big SoundFonts (> 100MB)take a while to load and play. 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.1, December 2020 - added color option, for accessing a sample on a different key - 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 ipos strrindex <file>, "." Suf strsub <file>, ipos+1 gisf2 strcmp "sf2", Suf gisf3 strcmp "sf3", Suf giSF2 strcmp "SF2", Suf gisf<INSTR_ID> sfload <file> if i(<SF:show presets>) == 1 then sfplist gisf<INSTR_ID> endif gir<INSTR_ID> sfpreset i(<SFpreset>), i(<SFbank>), gisf<INSTR_ID>, 0 if gisf2 == 0 || gisf3 == 0 || giSF2 == 0 then ; check if Soundfont is valid ;================================init=========================================== inum = p4 ; frequency in Hz iamp = p5 * 127 ; midi velocity if (i(<scoreP4>) == 0) then ; p4 = frequency inumber = ftom:i(inum + .000001) else ; p4 = Midi Pitch inum mtof p4 inumber = ftom:i(inum + .000001) ; compensate rounding error 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 envelope>, 0 ; main envelope else kenvamp loopseg 1/p3, 0, 0, <envelope_amplitude envelope>, 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 ;================================================================================ 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============================================== istart_sample = i(<SF playback offset>) print inum print inumber kchangedstart changed2 <SF playback offset> ; check if start of 'start file playback' has changed if kchangedstart == 1 then reinit START endif START: asigFL,asigFR sfplay3 int(iamp), inumber + <sample of other key>, .000001 * iamp * <pregain>, (ktuning * kpitchbend * kpitch + kvib) * inum, gir<INSTR_ID>, 1, istart_sample rireturn ;================================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================================================= blueMixerOut asigL * aampenv * atremolo, asigR * aampenv * atremolo else prints "\n--> INVALID SOUNDFONT FILE\n\n" turnoff endif 5 2 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- SFplayer ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 10 import SoundFont load SoundFont 0x669966ff 0x1a1a1aff 0xffffffff true 1095 20 2 16 System Bold 20.0 tuning 923 92 overall tuning true 0.01 4.0 0.01 1.0 90 true true SFpreset 707 12 select program preset true 21 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 653 33 System Regular 12.0 pitch slider 20 90 switch pitch on/off true 75 75 System Regular 12.0 pitch coarse 120 70 coarse tuning of preset true 0.0 3.0 0.001 0.453 650 true true 883 98 System Regular 12.0 file 120 15 choose SoundFont /media/menno/datae/soundfonts/SoundFonts - The Collection/ZSF Distribution/SoundFonts/Colossus.SF2/4400/021 Accordion.sf2 485 true 705 33 System Regular 12.0 76 84 System Regular 12.0 823 16 System Regular 12.0 SFbank 645 12 select banknummer of preset 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 pitch fine 120 95 fine tuning of preset true 0.0 0.06 0.005 0.0 650 true true sample of other key 769 12 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 57 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 SF playback offset 118 48 start playback in samples of presets true 0.0 48000.0 1 0.0 652 true true SF:show presets 870 16 reveals the presets in the SoundFont true false true pregain 923 70 pregain of preset volume true 0.01 3.0 0.01 0.8 90 true true 81 55 System Regular 12.0 90 100 System Regular 12.0 90 90 System Regular 12.0 40 90 System Regular 12.0 876 74 System Regular 12.0 scoreP4 945 44 switch for Pfield 4 true 0 12 true P4 = frequency 0 P4 = Midi Pitch 1 10 162 amplitude and filter envelope 0x669966ff 0x1a1a1aff 0xffffffff true 1063 269 861 192 vibrato 0x669966ff 0x000000ff 0xffffffff false 20 104 VibratoON 10 10 switch for Vibrato ON or OFF true false true vibrato depth 124 8 depth of the vibrato true 0.0 0.15 0.00899999999999998 40 true true true System Regular 12.0 vibrato speed 174 8 frequency rate of vibrato true 0.0 10.0 4.699999999999999 40 true true 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 false true 85 8 System Regular 12.0 vibrato wave 81 22 true 0.0 5.0 1 0.0 58 true false 0 0 graphic envelopes 0x669966ff 0x000000ff 0xffffffff false 1084 20 865 10 System Regular 12.0 envelope 10 10 draw envelopes for amplitude, filter and pitch 845 150 1.0 true COMMA false false amplitude exponential switch 952 14 let amplitude envelope be exponential true false true rate pitch envelope 901 24 frequency rate of pitch envelope true 1.0 20.0 0.05 16.45 142 true false 1023 168 System Regular 12.0 903 10 System Regular 12.0 output gain left 1011 86 output level Left channel true 0.0 3.0 0.1 1.9 80 true false 870 168 System Regular 12.0 1019 74 System Regular 12.0 rate amplitude envelope 867 24 frequency rate of amplitude envelope true 1.0 20.0 0.05 1.0 142 true false filter exponential switch 952 34 let filter envelope be exponential true true true output gain right 1037 86 output level Right channel true 0.0 3.0 0.1 1.9 80 true false 1047 168 System Regular 12.0 pitch bend envelope 927 146 switch for pitch envelope true 10 194 filters 0x669966ff 0x000000ff 0xffffffff false 850 20 filter follower 11 52 open and close filter depending on amplitude or frequency true 3 12 true --- 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 filterON 11 8 filters ON or OFF true false true 435 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.0 31 true false 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 132 8 System Regular 12.0 filter ads depth 137 22 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false filter envelope depth 359 24 gain of filter envelope true 0.0 1.0 0.05 0.65 57 true false filter ads sustain 87 36 sustain portion of envelope true 0.0 1.0 0.0 31 true false true System Regular 12.0 356 10 System Regular 12.0 7 8 System Bold 18.0 280 10 System Bold 18.0 filter ads attack 7 36 attack portion of envelope true 0.0 1.0 1.0 31 true false true System Regular 12.0 rate filter envelope 300 36 frequency rate of filter envelope true 1.0 20.0 1.0 31 true false 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 filter resonance 312 8 gain of feedback of filters true 0.5 25.0 11.28 40 true true true System Regular 12.0 218 8 System Regular 12.0 filter total depth 377 8 gain of filters true 0.01 5.0 1.9061999999999995 40 true true true System Regular 12.0 161 8 System Regular 12.0 188 8 System Regular 12.0 filter highpass gain 188 20 gain of highpass filter true 0.0 0.5 0.1 0.0 56 true false filter frequency cutoff 271 8 cutoff frequency of filters true 0.0 10.0 0.5 40 true true true System Regular 12.0 filter lowpass gain 156 20 gain of lowpass filter true 0.0 2.5 0.1 2.5 56 true false 4 5 true 0.04800000000000004 ver2:0.31 true false 261.625565 false version=2@_@amplitude envelope:0.0:0.0:0.19550561797752808:1.0:0.5700934579439252:1.0:0.6214953271028038:1.0:0.8121495327102803:1.0:1.0:0.0:1.0:0.0@_@filter envelope:0.0:9025.0:0.0691588785046729:1127.0000000000011:0.21460674157303372:648.3333333333331:0.516822429906542:528.6666666666658:0.798876404494382:7828.333333333334:1.0:289.3333333333329@_@pitch bend envelope:0.0:2.3466666666666667:0.525233644859813:2.293333333333333:0.5831460674157304:1.12:0.7168539325842697:1.7599999999999998:0.8299065420560747:0.0:1.0:2.24 /media/menno/datae/EigenWerk/eigenwerk/samples/gilpiep.wav ver2:1.0:1.0 1.0 0.0 true false 0.0 1.0 true ver2:1.666 2517.2 id:-717362694 ver2:0.54 false true false 0.299 0.321 1.0 0.237 ver2:1 ver2:1 ver2:1 1.0 2.0 ver2:0.102 false ver2:10 ver2:1.76 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 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