Stretcher DESCRIPTION: Stretcher is a sampler for mono and stereo samples. It is capable of stretching the sample in realtime. Or plays them in reverse. Attention: by activating the filter, also the filter envelope drawings become available. In Midi Pitch mode, Midi C4 = normal pitch of sample In Frequency mode, frequency note 8.00 = normal pitch of sample Also, real values can be used. 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 i2 0 0.2 1 1.0 ; P4 = real value, 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 2, February 2023 - initial version ;==================P4 and P5 from score========================================= ipitch, iamp k_SCORE_format_Sampler i(<SCORE_format_Sampler>), p4, p5 ; choose between Frequency or Midi option ;------------------------------check file--------------------------------------- Suf, iok k_suffixSOUND <soundfile>, 1 if (iok == 0) then else prints "\ninstrument %d needs an audiofile!\n\n", <INSTR_ID> ; not the suffix from the list goto nosound ; jump to label endif ;;=========================amplitude envelope=================================== if <envelope amplitude ON> == 1 then if i(<amplitude exponential switch>) == 1 then ; create amplitude envelope kenvamp loopxseg <envelope amplitude rate>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; exponential envelope else kenvamp loopseg <envelope amplitude rate>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; or linear envelepe endif kjitamp jitter <amplitude jitter depth>, <amplitude jitter min>, <amplitude jitter max> ; create some amplitude jitter aampenv = (kenvamp + kjitamp) * <sample pregain> ; pregain for loaded sample + jitter else aampenv = <sample pregain> ; no amplitude envelope, only pregain endif ;================================a few settings================================= kcoarsetuning = <tuning coarse> ; set coarse tuning kfinetuning = <tuning fine> ; fine tuning ktuning = (kcoarsetuning + kfinetuning) ; add them ;================================pitch envelope================================= if (<envelope pitch bend ON>) == 1 then ; envelope pitchbend kenvpitchbend loopxseg <envelope pitch rate>/p3, 0, 0, <envelope_pitch bend envelope>, 0 ; exponential envelope kenvpitchbend *= <pitchbend depth> kjitpitch jitter <pitch jitter depth>, <pitch jitter min>, <pitch jitter max> ; create some pitch jitter ktuning = (ktuning + kjitpitch) + kenvpitchbend else kenvpitchbend = 0 endif ;=============================================================================== if (ktuning >=1) then ; compensate for loud screaming when tuning goes up kcomp logcurve ktuning, 1.50 else kcomp = 1 endif ;================================vibrato======================================== if (<VibratoON> == 1) then if i(<vibrato fade in>) == 1 then kvibfade_in expseg 0.01, p3, 1 ; fade in the vibrato else kvibfade_in = 1 ; vibrato starts right away endif kvib = lfo3(<vibrato speed>, <vibrato wave>) kvib *= <vibrato depth> * kvibfade_in else kvib = 0 endif ;============================check sample channels============================== identify = <INSTR_ID> ; for printing the right instrument ichnls filenchnls <soundfile> ; check number of channels ilenorg filelen <soundfile> ; calculate length of original soundfile if (<check mono/stereo> == 1) then if ichnls == 1 then prints "\n ---instr.%d Stretcher --> mono sample\n\n", <INSTR_ID> elseif (ichnls == 2) then prints "\n ---instr.%d Stretcher --> stereo sample\n\n", <INSTR_ID> endif endif ;=============================Sample =========================================== itrapwindow = <window size> / <window overlap> ; create an error trap, protection if (itrapwindow <= 1) then prints "\n ---instr.%d Stretcher --> window size and overlap values NOT OK\n\n", <INSTR_ID> iamp = 0 ; print warning, produce silence endif inewlen = (i(<sample length>)*.01) ioffset = (i(<sample offset>)*.01) inewlen -= ioffset atrns linseg 1, i(<transient lenght>), 0 ; lenght of transient kcps = ipitch * ktuning + kvib idel = <window size>/sr ; calculate latency if ichnls == 1 then ; IF mono sample iSample, ilen, ioff sampleONCE+ <soundfile>, ioffset, inewlen ; import mono soundfile, set length and offset fsig pvstanal <sample timescaling> , <sample pregain> * iamp, ipitch * ktuning + kvib, iSample, <onset>, <sample wrap>, 0, <window size>, <window overlap> asigFL pvsynth fsig ; analyzed sample asigL diskin2 <soundfile>, kcps * ktuning, ioff ; direct signals, offset asigL *= atrns * iamp ; set length if (<sample latency> == 1) then asigL delay asigL, (idel) * .5 ; delay dry signal, to align it with the analyzed signal endif asigFL ntrpol asigL, asigFL, <transientmix> ; mix transient with PVOC signal asigFR = asigFL ; both channels are now mono mixed elseif ichnls == 2 then ; IF stereo sample iSampleL, iSampleR, ilen, ioff sampleONCEstereo+ <soundfile>, ioffset, inewlen ; import stereo soundfile, set length and offset fsigL pvstanal <sample timescaling>, <sample pregain> * iamp, (ipitch * ktuning + kvib) , iSampleL, <onset>, <sample wrap>, 0, <window size>, <window overlap> fsigR pvstanal <sample timescaling>, <sample pregain> * iamp, (ipitch * ktuning + kvib) , iSampleR, <onset>, <sample wrap>, 0, <window size>, <window overlap> asigFL pvsynth fsigL ; analyzed signals asigFR pvsynth fsigR asigL, asigR diskin2 <soundfile>, kcps * ktuning, ioff ; direct signals, offset asigL *= atrns * iamp ; set length asigR *= atrns * iamp if <MS> == 1 then ; switch for MS stereo decoding asigFL, asigFR ms2st asigFL, asigFR, <MSwidth> ; decode effect & asigL, asigR ms2st asigL, asigR, <MSwidth> ; direct endif if (<sample latency> == 1) then asigL delay asigL, idel ; delay dry signals, to align it with the analyzed signals asigR delay asigR, idel endif asigFL ntrpol asigL, asigFL, <transientmix> ; mix direct & effect asigFR ntrpol asigR, asigFR, <transientmix> elseif ichnls > 2 then ; skip IF multichannel, protection prints "\n ---instr.%d Stretcher --> multichannel soundfiles NOT ACCEPTED\n\n", <INSTR_ID> asigFL = 0 asigFR = asigFL endif ;============================information sample================================= if (i(<show sample length>) == 1) then prints "\n ---instr.%d Stretcher --> original sample lenght: %5.2f seconds", <INSTR_ID>, ilenorg prints "\n --> present sample lenght: %5.2f seconds", inewlen * ilenorg if changed2(<sample timescaling>) == 1 then reinit CALC_RESTRETCH endif CALC_RESTRETCH: printks2 " --> length AFTER stretch: %5.2f seconds\n\n", inewlen * ilenorg * (1/i(<sample timescaling>)) rireturn endif ;=============================================================================== if ktuning == 0 then ; protection asigFL = 0 asigFR = 0 endif ;================================filter========================================= if <filterON> == 1 then if i(<filter exponential switch>) == 1 then ; graphic 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 kcutoff expcurve <filter frequency cutoff>, 2 ; turn linear into exponential if <filter follower> == 0 then ; disable follower acutoff = kcutoff elseif <filter follower> == 1 then ; amp --> filter acutoff = iamp * kcutoff; elseif <filter follower> == 2 then ; -(amp) --> filter acutoff = kcutoff - (iamp * kcutoff) elseif <filter follower> == 3 then ; key --> filter acutoff = kcutoff * ipitch ;* kenvpitchbend elseif <filter follower> == 4 then ; -(key) --> filter acutoff = kcutoff * 1/ipitch; * kenvpitchbend endif if (<filter envelopes> == 0) then ; envelopes disabled ; do nothing, just pass through elseif (<filter envelopes> == 1) then ; filter ADS envelope aretrig init 1 agate = linseg:a(1, p3 - i(<ADSR release>), 1, 0, 0, i(<ADSR release>), 0) acutenv adsr140 agate, aretrig, <filter attack>, <filter decay>, <filter sustain>, <filter release> * <ADSR release> acutoff *= acutenv * <filter ADS depth> elseif (<filter envelopes> == 2) then ; filter graphical envelope acutoff *= (kenvfilter * <filter envelope depth>) elseif (<filter envelopes> == 3) then ; filter ADS envelope and graphical combined acuto = (kenvfilter * <filter envelope depth> * 10000) aretrig init 1 agate = linseg:a(1, p3 - i(<ADSR release>), 1, 0, 0, i(<ADSR release>), 0) afilterads adsr140 agate, aretrig, <filter attack>, <filter decay>, <filter sustain>, <filter release> * <ADSR release> acutoff = acuto + (afilterads * <filter ADS depth> * 10000) endif acutoff *= <filter total depth> ; total depth of filter acutoff limit acutoff, 20, 21000 ; limit frequency band of filter ; the filters 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> aoutL = (ahpL + alpL + abpL) ; mix all filter gains aoutR = (ahpR + alpR + abpR) aoutL ntrpol aoutL, asigFL, <output filters> aoutR ntrpol aoutR, asigFR, <output filters> else aoutL = asigFL aoutR = asigFR endif ;=======================outputs================================================= if ichnls == 1 && (<autopanning if mono> == 1) then ; autopan mono sample krandP randi .3, 1, .61 krandP = (krandP +1)*.5 asigL, asigR pan2 aoutL, krandP, 0 else asigL = aoutL asigR = aoutR endif ;=================================tremolo Module================================ asigL, asigR k_Tremolo_adsr140_STEREO <tremolo trigger>, asigL, asigR, <tremolo attack>, <tremolo decay>, <tremolo sustain>, <tremolo release>, <tremolo envelope speed>, <mix tremolo> ;============================ADSR amplitude Module============================== if (<ADSR ON> == 1) then aret init 1 agte = linseg:a(1, p3 - i(<ADSR release>), 1, 0, 0, i(<ADSR release>), 0) aa adsr140 agte, aret, <ADSR attack>, <ADSR decay>, <ADSR sustain>, <ADSR release> else aa = 1 endif ;===========================output============================================== asigL *= aampenv * aa * <gain Left> asigR *= aampenv * aa * <gain Right> blueMixerOut asigL, asigR nosound: 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 Roboto 12.0 1138 0 Score Module - use this to add extra P-fields in Score and instrumentcode. Serves as a reminder what the Pfield is for. Score Module 0x66666600 0x000000ff 0xff0000ff false 137 20 Roboto 12.0 28 134 100 36 53 volume Roboto 12.0 6 243 14 Roboto 14.0 28 113 100 12 10 Pfield description Roboto 14.0 28 156 100 28 197 100 6 159 10 Roboto 14.0 14 34 4 Roboto 14.0 36 34 frequency Roboto 12.0 14 117 8 Roboto 14.0 28 239 100 6 263 15 Roboto 14.0 14 97 7 Roboto 14.0 28 219 100 28 178 100 14 53 5 Roboto 14.0 28 260 100 14 74 6 Roboto 14.0 14 138 9 Roboto 14.0 6 222 13 Roboto 14.0 6 179 11 Roboto 14.0 6 199 12 Roboto 14.0 28 93 100 28 71 100 0 0 S T R E T C H E R 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 Roboto 14.0 10 10 sample settings 0x282828ff 0x000000ff 0xffffffff true 940 20 Roboto 12.0 sample length 65 55 length of this slider represents the total of the sample true 0.0 100.0 0.001 7.26 750 true true 885 10 pregain Roboto 12.0 5 16 sample Roboto 20.0 show sample length 612 13 true show sample lengths true true 673 180 size Roboto 12.0 15 150 Group 0x3a3a3aff 0x000000ff 0xffffffff false 635 20 Roboto 12.0 onset 560 5 suspends timescaling momentarily so the onsets are not modified true onset true true transient lenght 444 10 duration of direct sample attack true 0.0 1.0 0.001 0.213 100 true false transientmix 59 10 adds attack portion of sample true 0.0 1.0 0.05 0.55 255 true false sample latency 560 25 compensate start time to allign with direct signal true latency true true 310 15 effect Roboto 12.0 352 15 transient lenght Roboto 12.0 10 14 transient Roboto 12.0 check mono/stereo 612 33 false report number of channels true true 19 60 length % Roboto 12.0 22 90 offset % Roboto 12.0 soundfile 75 15 import sample to use /home/menno/accordeon.wav 500 true sample pregain 880 23 pregain for sample true 0.0 2.0 0.1 0.6 147 true true sample timescaling 65 115 stretch sample by ... true -10.0 10.0 0 0.34999942779541016 750 true true 26 120 time X Roboto 12.0 753 130 forward Roboto 12.0 window size 698 178 The FFT size in samples false 3 12 true 256 256 512 512 1024 1024 2048 2048 4096 4096 sample offset 65 85 set start loop point in sample true 0.0 100.0 0.001 0.0 750 true true 73 130 backwards Roboto 12.0 763 180 overlap Roboto 12.0 window overlap 805 178 The distance in samples (?hop size?) between overlapping analysis frames false 0 12 true 256 256 512 512 1024 1024 sample wrap 815 13 loop the sample true loop true true 10 245 amplitude = red, filter = blue, brown = pitch Group 0x282828ff 0x000000ff 0xffffffff false 940 188 Roboto 12.0 envelope 10 10 amplitude = red, filter = blue, brown = pitch 920 124 1.0 true COMMA false false 10 440 amplitude envelope 0x282828ff 0x000000ff 0xffffffff true 215 122 Roboto 12.0 envelope amplitude ON 10 10 OFF/ON graphical amplitude envelope true false true amplitude exponential switch 10 84 true true true amplitude jitter max 165 10 maximum value for randomness true 0.0 40.0 3.9344994736367256 35 false true max true Roboto 12.0 amplitude jitter depth 83 10 adds randomness to amplitude true 0.0 3.0 0.35670092630744854 35 true true jitter true Roboto 12.0 envelope amplitude rate 35 10 repeat amplitude envelope as set in window true 1.0 20.0 1.0 35 false true scale true Roboto 12.0 31 85 exponential Roboto 12.0 amplitude jitter min 123 10 minimum value for randomness true 0.0 38.0 0.0 35 false true min true Roboto 12.0 665 440 4 envelopes for amplitude ADSR 0x282828ff 0x000000ff 0xffffffff true 20 122 Roboto 12.0 ADSR ON 5 10 ON/OFF true true true ADSR decay 90 10 true 0.0 2.0 0.0 50 true true decay true Roboto 12.0 ADSR sustain 155 10 true 0.0 1.0 1.0 50 true true sustain true Roboto 12.0 ADSR release 225 10 true 0.0 1.0 1.0 50 true true release true Roboto 12.0 ADSR attack 25 10 true 0.0 3.0 0.0 50 true true attack true Roboto 12.0 230 440 pitch envelope 0x282828ff 0x000000ff 0xffffffff true 215 77 Roboto 12.0 pitch jitter depth 90 10 adds randomness to pitch envelope true 0.0 0.3 0.0 35 true true jitter true Roboto 12.0 envelope pitch bend ON 10 10 on/off true false true pitchbend depth 60 80 depth of scaling true 0.0 1.0 0.01 0.12 150 true false 10 85 scaledepth Roboto 12.0 pitch jitter min 130 10 minimum value for randomness true 0.0 100.0 1.0 35 true true min true Roboto 12.0 pitch jitter max 170 10 maximum value for randomness true 0.0 100.0 5.0 35 true true max true Roboto 12.0 envelope pitch rate 40 10 repeat pitch envelope true 1.0 20.0 8.455636634346682 35 true true scale true Roboto 12.0 10 585 filters 0x282828ff 0x000000ff 0xffffffff false 940 20 Roboto 12.0 filter envelopes 365 70 bypass envelopes, or choose one of them or both of them true 1 12 true disabled 0 AttDecSusRel 1 Graphic 2 ADS+Graphic 3 885 85 filtered Roboto 12.0 74 13 envelopes 0x3a3a3aff 0x000000ff 0xffffffff false 20 90 Roboto 12.0 72 6 bndP Roboto 12.0 filter bandpass gain 68 18 gain of bandpass filter true 0.0 0.5 0.1 0.0 56 true false filter resonance 160 6 gain of feedback of filters true 0.5 25.0 2.4090156355342707 40 true true resonance true Roboto 12.0 filter lowpass gain 4 18 gain of lowpass filter true 0.0 2.5 0.1 0.0 56 true false filter frequency cutoff 116 6 cutoff frequency of filters true 4.35 14.3 9.686463988711413 40 true true cutoff true Roboto 12.0 15 6 low Roboto 12.0 filter highpass gain 36 18 gain of highpass filter true 0.0 0.5 0.1 0.5 56 true false filter total depth 217 6 gain of filters true 0.0 1.0 1.0 40 true true depth true Roboto 12.0 42 6 high Roboto 12.0 870 15 mix Roboto 12.0 filterON 10 10 filters ON or OFF true filters false true 362 15 filter follow modes Roboto 12.0 output filters 855 25 mix direct with filtered signal true 0.0 1.0 0.001 0.0 80 true false filter follower 355 35 open and close filter depending on amplitude or frequency true 0 12 true envelopes 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 494 13 envelopes 0x3a3a3aff 0x000000ff 0xffffffff false 313 91 Roboto 12.0 67 6 adsr Roboto 18.0 187 6 depth Roboto 12.0 filter exponential switch 283 39 treat anvelope ar exponential true true true filter sustain 91 32 sustain portion of envelope true 0.0 1.0 0.7019409394555494 31 true false sustain true Roboto 12.0 305 6 depth Roboto 12.0 filter decay 53 32 decay portion of envelope true 0.0 1.0 1.0 31 true false decay true Roboto 12.0 284 55 exp Roboto 12.0 filter attack 11 32 attack portion of envelope true 0.0 3.0 3.0 31 true false attack true Roboto 12.0 rate filter envelope 239 32 frequency rate of filter envelope true 1.0 30.0 10.946494472975278 31 true false rate true Roboto 12.0 filter envelope depth 298 20 gain of filter envelope true 0.0 1.0 0.05 1.0 57 true false 249 6 graph Roboto 18.0 filter release 140 32 release portion of filter envelope. Is relative to Amplitude envelope true 0.0 1.0 0.6429052975811664 31 true false release true Roboto 12.0 filter ADS depth 177 20 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false 885 25 direct Roboto 12.0 953 8 globals 0x282828ff 0x000000ff 0xffffffff true 20 674 Roboto 12.0 77 483 R Roboto 12.0 57 483 L Roboto 12.0 10 10 trigger for tremolo envelope tremolo 0x3a3a3aff 0x000000ff 0xffffffff true 20 20 Roboto 12.0 7 260 direct Roboto 12.0 12 28 speed Roboto 12.0 tremolo trigger 0 0 active retriggering of ADSR true trigger false true 89 260 ADSR Roboto 12.0 77 23 4 envelopes for amplitude Group 0x00000033 0x000000ff 0xffffffff false 20 20 Roboto 12.0 tremolo attack 10 0 true 0.0 1.0 0.0 31 true false attack true Roboto 12.0 tremolo sustain 7 90 true 0.0 1.0 0.0 31 true false sustain true Roboto 12.0 tremolo release 7 134 true 0.0 1.0 0.0 31 true false release true Roboto 12.0 tremolo decay 10 45 true 0.0 1.0 0.8857756424174704 31 true false decay true Roboto 12.0 mix tremolo 41 218 mix direct signal with Tremolo true 0.0 1.0 0.35624996833081146 50 true false mix true Roboto 12.0 tremolo envelope speed 5 40 speed of retriggering true 0.0 60.0 0.01 5.81 145 true true gain Right 58 488 gain of Right channel true 0.0 5.0 0.01 3.75 85 true false gain Left 37 487 gain Left channel true 0.0 5.0 0.01 3.77 86 true false MS 20 422 ON/OFF MS stereo true MS false true autopanning if mono 20 440 if SF is mono, proovides some stereo panning true autopan if mono false true 5 343 tuning Roboto 12.0 MSwidth 57 420 width of MS stereo true 0.0 1.0 0.01 0.21 88 true false tuning fine 39 362 overall tuning true -0.5 0.5 0.0001 0.0 70 true true SCORE_format_Sampler 27 605 pitch: expect frequency, midi notes or real values true 0 12 true P4 = frequency 0 P4 = MIDI pitch 1 P4 = real value 2 52 560 volume Roboto 12.0 21 367 fine Roboto 12.0 tuning coarse 39 340 overall tuning true 0.01 4.0 0.01 1.0 70 true true 450 440 vibrato 0x282828ff 0x000000ff 0xffffffff true 212 100 Roboto 12.0 vibrato wave 50 80 sine, triangle, square x 2, saw up, saw down true 0.0 5.0 1 0.0 150 true false 83 96 1 Roboto 14.0 vibrato fade in 10 55 vibrato sets in slowly and is at full at the end of the note event true fade in false true 159 96 4 Roboto 14.0 vibrato depth 102 8 depth of the vibrato true 0.0 0.15 0.15 40 true true depth true Roboto 12.0 133 96 3 Roboto 14.0 VibratoON 10 10 switch for Vibrato ON or OFF true vibrato false true 185 96 5 Roboto 14.0 17 85 waves Roboto 12.0 57 96 0 Roboto 14.0 vibrato speed 152 8 frequency rate of vibrato true 0.0 20.0 2.4924540116263905 40 true true speed true Roboto 12.0 107 96 2 Roboto 14.0 sampleONCEstereo+ iiii Sii Sfile, ioffset, inewlen xin ilen filelen Sfile ; find length isamps = ilen * sr ; Total number of samples isamps *= inewlen ; new length ioffset *= ilen ; produce offset itableL chnget Sfile itableR chnget Sfile if (itableL == 0) then itableL ftgen 0, 0, isamps, 1, Sfile, ioffset, 0, 1 itableR ftgen 0, 0, isamps, 1, Sfile, ioffset, 0, 2 chnset itableL, Sfile chnset itableR, Sfile endif xout itableL, itableR, ilen, ioffset sampleONCE+ iii Sii Sfile, ioffset, inewlen xin ilen filelen Sfile ; find length isamps = ilen * sr ; Total number of samples isamps *= inewlen ; new length ioffset *= ilen ; produce offset itable chnget Sfile ; get file in if (itable == 0) then itable ftgen 0, 0, isamps, 1, Sfile, ioffset, 0, 0 chnset itable, Sfile endif xout itable, ilen, ioffset k_suffixSOUND Si So ;returns the suffix of a filename or path, optional in lower case Spath, ilow xin ipos strrindex Spath, "." Suf strsub Spath, ipos+1 if ilow != 0 then Suf strlower Suf endif iok1 strcmp "wav", Suf ; specify wanted file extensions iok2 strcmp "flac", Suf iok3 strcmp "ogg", Suf iok4 strcmp "mp3", Suf iok5 strcmp "aif", Suf iok6 strcmp "aiff", Suf if (iok1 == 0) || (iok2 == 0) || (iok3 == 0) ||(iok4 == 0) || (iok5 == 0) ||(iok6 == 0) then iok = 0 ; check OK else iok = 1 ; not OK endif xout Suf, iok /**************************************************************************** Suf StrSuf Spath [,ilow] Returns the suffix of a filename or path, optional in lower case Returns the suffix (extension) of a filename or a full path, optional in lower case. written by joachim heintz Spath - full pathname (or filename) as string ilow - return ensuring lower case (1) or return as in Spath (0 = default) ****************************************************************************/ 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) ;kval *= 1.00005 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 k_SCORE_format_Sampler ii iii iscore, ipitch, iamp xin if (iscore == 0) then ; frequency mode ipitch *= .0038222 elseif (iscore == 1) then ipitch = semitone(ipitch - 48) else ;empty endif xout ipitch, iamp k_Vibrato_noJitter k kkkk kOnVibrato, kdepth, kspeed, kwave xin if kOnVibrato == 1 then ; if switch = ON, add vibrato to sall voices if(changed2(kwave)==1) then ; check if LFO type has changed reinit VIBRATOreinit endif VIBRATOreinit: itype = i(kwave) kvibrato lfo kdepth, kspeed, itype ; LFO 0-5 rireturn else kvibrato = 0 ; if switch = OFF, there is no vibrato endif xout kvibrato 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 k_Tremolo_adsr140_STEREO aa kaakkkkkk kon, ain1, ain2, katt, kdec, ksus, krel, kspeed, kmix xin ; tremolo ON, in1, in2, attack, decay, sustain, release, speed, mix effect if (kon == 1) then if (kspeed > 0) then agate = lfo(1, kspeed) aretrig init 1 aadsr adsr140 agate, aretrig, katt, kdec, ksus, krel ; retriggering envelope 1 aadsr *= 1.2 else aretrig init 1 agate = linseg:a(1, p3 - i(krel), 1, .001, 0, i(krel), 0) aadsr adsr140 agate, aretrig, katt, kdec, ksus, krel ; envelope 2 endif else ; no tremolo at all aadsr = 1 endif aresL = ain1 * aadsr ; impose tremolo on incoming audio aresR = ain2 * aadsr aoutL ntrpol ain1, aresL, kmix ; mix incoming audio with treated audio aoutR ntrpol ain2, aresR, kmix xout aoutL, aoutR This Module takes in a stereo signal, outputs a stereo signal with tremolo and/or mixed with the original signal. Needs other UDOs: adsr140_calc_coef and adsr140 (in that order)