Evolver Type A DESCRIPTION: The Evolver instruments are created because i was looking for string/pad sounds and textures that could evolve in time, with (small or radical) variations in timbre. The instruments are of a modular design, built with ftmorf as a basis module; so you can stream fluidly from one timbre to another within a single note. Other standard modules in these instruments are: Phaser, Swell, Output. The Evolver Type A uses the adsynt opcode. The A in the name represents 'adsynt'. scheme: FTMORF ---------ADSYNT --------(FILTER)--------(PHASER)--------(SWELL)------OUTPUT 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 2.2, November 2020 - added filter - added ADSR graphic envelope - added P4 frequency/Midi pitch option version 2.1, November 2019 - added 3 ADSRs version 2.0, octobre 2019 - new GUI (more compact) - renaming BSBs - # of voices and Harmonic Ratio can be changed in between Objects version 1, december 2017 - choose from a list of timbre presets - evolve from one timbre to another up to 16 sounds, forwards or backwards - scale fuction to scale wavesequencer sounds over the note - determine where to start the scaling in the note - morphing can also be done manually by drawing an Automation Line (wavedraw) - mono or stereo with setting different seed values with XY controller for Left and Right channel - special effects section (copied and adapted from the Csound manual (adsynt example)) - phaser effect implemented with on/off switch and mixing, lots of options to slowly evolve the timbre even more - Swell for amplitude to give an amp accent in the note ;==================system tables number <INSTR_ID>====================================== isize = 16384*2 gi_empty<INSTR_ID> ftgen 11000+<INSTR_ID> , 0, isize, 10, 1 ; table is used to be overwritten by morphed sounds ;============preset sound tables1================================== ;[once]{ gi_sn1 ftgen 20, 0, isize, 10, 1 gi_sn2 ftgen 21, 0, isize, 10, 0, 1 gi_sn3 ftgen 22, 0, isize, 10, 0, 0, 1 gi_sn4 ftgen 23, 0, isize, 10, 0, 0, 0, 1 gi_sn5 ftgen 24, 0, isize, 10, 0, 0, 0, 0, 1 gi_sn6 ftgen 25, 0, isize, 10, 0, 0, 0, 0, 0, 1 gi_sn7 ftgen 26, 0, isize, 10, 0, 0, 0, 0, 0, 0, 1 gi_sn8 ftgen 27, 0, isize, 10, 1, 1, 1, 1, 1, 1, 1 gisaw ftgen 30, 0, isize, 7, 1, isize, -1 gisquare ftgen 31, 0, isize,10, 1,0, 1/3,0, 1/5,0, 1/7,0, 1/9,0, 1/11,0, 1/13,0, 1/15,0, 1/17,0, 1/19,0, 1/21,0, 1/23,0, 1/25,0, 1/27,0, 1/29,0, 1/31,0, 1/33,0, 1/35,0, 1/37,0, 1/39 giahh ftgen 32, 0, isize, 10, 1, 0.615880,0.089582,0.201498,0.202694,0.249961,0.225852,0.199864,0.029378,0.012306,0.007803,0.007846,0.007454,0.008827,0.007466,0.007495,0.007979,0.017837,0.061000,0.059055,0.039181,0.038364,0.032715,0.048415,0.029643,0.010094 giorg ftgen 33,0,isize,9, 1,1,rnd(1), 2,1/2,rnd(1), 4,1/4,rnd(1), 8,1/8,rnd(1), 16,1/16,rnd(1), 32,1/32,rnd(1), 64,1/64,rnd(1), 128,1/128,rnd(1) gitromb ftgen 34,0,isize,10,0.104682,0.077444,0.175816,0.178469,0.192922,0.167695,0.127283,0.094343,0.073856,0.045425,0.030985,0.027993,0.019936,0.013950,0.010611,0.007164,0.006458,0.003987,0.002664,0.002030,0.001435,0.001274,0.001036,0.000975,0.000876 gitrpt ftgen 35,0,isize,10,0.346469,0.852732,0.693941,0.494616,0.677656,0.590592,0.441108,0.626951,0.588338,0.416046,0.198161,0.107710,0.085130,0.075318,0.052485,0.050367,0.041515,0.039286,0.027532,0.023320,0.016384,0.012677,0.009971,0.006867,0.004900 gibassoon ftgen 36,0,isize,10, 0.130954,0.157859,0.302897,0.190190,0.890855,0.427124,0.039988,0.105341,0.011869,0.102000,0.115308,0.039058,0.131398,0.081308,0.047672,0.026006,0.010927,0.034420,0.033017,0.014769,0.014178,0.023091,0.023960,0.013178,0.004946 gioboe ftgen 37,0,isize,10, 0.258272,0.920123,0.458442,0.445704,0.088446,0.177257,0.063786,0.140382,0.031660,0.021808,0.048812,0.007823,0.004163,0.004775,0.002608,0.001464,0.001702,0.004168,0.003318,0.003878,0.002319,0.002505,0.002480,0.003416,0.002453 giclarinet ftgen 38,0,isize,10, 0.820044,0.009787,0.242206,0.034475,0.058957,0.021330,0.028307,0.053692,0.006131,0.002513,0.002370,0.001698,0.001269,0.000933,0.002758,0.001387,0.000831,0.000953,0.000658,0.000892,0.000687,0.000479,0.000481,0.000310,0.000425 gieee ftgen 39,0,isize,10, 0.430487,0.778043,0.090552,0.011467,0.030632,0.017911,0.006520,0.006820,0.007109,0.006437,0.008527,0.009083,0.016774,0.058922,0.070507,0.116728,0.045479,0.060107,0.069023,0.036487,0.047350,0.049526,0.036678,0.022550,0.022550 giooh ftgen 40,0,isize,10, 0.110941,0.606890,0.046168,0.040510,0.031310,0.007323,0.003115,0.002749,0.002420,0.002253,0.002853,0.002337,0.002672,0.002061,0.002202,0.002410,0.002615,0.005079,0.003192,0.002699,0.003708,0.003501,0.002264,0.001713,0.001713 ;} ;=====generate random sound tables number <INSTR_ID>============================= seed <INSTR_ID> irnd1 random 0, 1 irnd2 random 0, 1 irnd3 random 0, 1 irnd4 random 0, 1 irnd5 random 0, 1 irnd6 random 0, 1 irnd7 random 0, 1 irnd8 random 0, 1 irnd9 random 0, 1 irnd10 random 0, 1 ;[once]{ girnd1 ftgen 50, 0, isize, 10, 1, irnd2, 0, irnd4, 0, irnd6, 0, irnd8, 0, irnd10 girnd2 ftgen 51, 0, isize, 10, 1, irnd3, 0, irnd5, 0, irnd7, 0, irnd9, 0, irnd1 girnd3 ftgen 52, 0, isize, 10, 0, irnd4, 0, irnd6, 0, irnd8, 0, irnd10, 0, irnd2 girnd4 ftgen 53, 0, isize, 10, 0, irnd5, 0, irnd7, 0, irnd9, 0, irnd1, 0, irnd3 girnd5 ftgen 54, 0, isize, 10, 1, irnd6, 1, irnd8, 0, irnd10, 0, irnd2, 0, irnd4 girnd6 ftgen 55, 0, isize, 10, 1, irnd7, 1, irnd9, 0, irnd1, 0, irnd3, 0, irnd5 girnd7 ftgen 56, 0, isize, 10, 1, irnd8, 1, irnd10, 1, irnd2, 0, irnd4, 0, irnd6 girnd8 ftgen 57, 0, isize, 10, 1, irnd9, 1, irnd1, 1, irnd3, 0, irnd5, 0, irnd7 girnd9 ftgen 58, 0, isize, 10, 0, irnd10, 1, irnd2, 1, irnd4, 1, irnd6, 1, irnd8 girnd10 ftgen 59, 0, isize, 10, irnd10, irnd1, irnd2, irnd3, irnd4, irnd5, irnd6, irnd7, irnd8, irnd9 ;================================================================================================================================================================================= giwave1 ftgen 60, 0, isize, 9, 1000/32,1.000,0, 2000/32,1.000,0, 3000/32,1.000,0, 4000/32,1.000,0, 5000/32,1.000,0, 6000/32,1.000,0, 7000/32,1.000,0, 8000/32,1.000,0, 9000/32,1.000,0, 10000/32,1.000,0, 11000/32,1.000,0, 12000/32,1.000,0, 13000/32,1.000,0, 14000/32,1.000,0, 15000/32,1.000,0, 16000/32,1.000,0, 17000/32,1.000,0, 18000/32,1.000,0, 19000/32,1.000,0, 20000/32,1.000,0 giwave2 ftgen 61, 0, isize, 9, 1000/32,1.000,0, 2890/32,1.000,0, 4950/32,1.000,0, 6990/32,1.000,0, 8010/32,1.000,0, 9020/32,1.000,0 giwave3 ftgen 62, 0, isize, 9, 1000/32,1.000,0, 2000/32,1.000,0, 3010/32,1.000,0, 4010/32,1.000,0, 4690/32,1.000,0, 5630/32,1.000,0 giwave4 ftgen 63, 0, isize, 9, 1000/32,1.000,0, 3932/32,1.000,0, 9538/32,1.000,0, 16688/32,1.000,0, 24566/32,1.000,0, 31147/32,1.000,0 giwave5 ftgen 64, 0, isize, 9, 1000/32,1.000,0, 2778/32,0.500,0, 5180/32,0.250,0, 8162/32,0.125,0, 11660/32,0.062,0, 15638/32,0.031,0, 19990/32,0.016,0 giwave6 ftgen 65, 0, isize, 9, 1000/32,1.000,0, 1026/32,1.000,0, 1422/32,1.000,0, 1447/32,1.000,0, 1466/32,1.000,0, 1499/32,1.000,0, 1789/32,1.000,0, 1876/32,1.000,0, 1964/32,1.000,0, 1978/32,1.000,0, 2033/32,1.000,0, 2145/32,1.000,0, 2156/32,1.000,0, 2253/32,1.000,0, 2290/32,1.000,0, 2333/32,1.000,0, 2456/32,1.000,0, 2492/32,1.000,0, 2566/32,1.000,0, 2605/32,1.000,0, 2669/32,1.000,0, 2714/32,1.000,0 giwave7 ftgen 66, 0, isize, 9, 1000/32,1.000,0, 3200/32,1.000,0, 6230/32,1.000,0, 6270/32,1.000,0, 9920/32,1.000,0, 14150/32,1.000,0 giwave8 ftgen 67, 0, isize, 9, 1000/32,1.000,0, 1470/32,1.000,0, 2090/32,1.000,0, 2560/32,1.000,0 giwave9 ftgen 68, 0, isize, 9, 622/32,1.000,0, 1231/32,1.000,0, 2000/32,1.000,0, 2931/32,1.000,0, 4016/32,1.000,0, 5180/32,1.000,0, 6437/32,1.000,0, 7755/32,1.000,0, 11034/32,1.000,0, 12025/32,1.000,0 giwave10 ftgen 69, 0, isize, 9, 1000/32,1.000,0, 1470/32,1.000,0, 2110/32,1.000,0, 2570/32,1.000,0 giwave11 ftgen 70, 0, isize, 9, 1000/32,1.000,0, 1420/32,1.000,0, 2110/32,1.000,0, 2470/32,1.000,0 giwave12 ftgen 71, 0, isize, 9, 1000/32,1.000,0, 2572/32,1.000,0, 4644/32,1.000,0, 6984/32,1.000,0, 9723/32,1.000,0, 12000/32,1.000,0 giwave13 ftgen 72, 0, isize, 9, 1000/32,1.000,0, 2756/32,1.000,0, 5423/32,1.000,0, 8988/32,1.000,0, 13448/32,1.000,0, 18680/32,1.000,0 giwave14 ftgen 73, 0, isize, 9, 1000/32,1.000,0, 3984/32,1.000,0, 10668/32,1.000,0, 17979/32,1.000,0, 23679/32,1.000,0, 33642/32,1.000,0 giwave15 ftgen 74, 0, isize, 9, 1000/32,1.000,0, 3997/32,1.000,0, 9469/32,1.000,0, 15566/32,1.000,0, 20863/32,1.000,0, 29440/32,1.000,0 giwave16 ftgen 75, 0, isize, 9, 1000/32,1.000,0, 1725/32,1.000,0, 5806/32,1.000,0, 7419/32,1.000,0, 13919/32,1.000,0 giwave17 ftgen 76, 0, isize, 9, 1000/32,1.000,0, 2662/32,1.000,0, 4837/32,1.000,0, 7515/32,1.000,0, 10640/32,1.000,0, 14210/32,1.000,0, 18140/32,1.000,0 giwave18 ftgen 77, 0, isize, 9, 1000/32,1.000,0, 2765/32,1.000,0, 5121/32,1.000,0, 7806/32,1.000,0, 10784/32,1.000,0 giwave19 ftgen 78, 0, isize, 9, 1000/32,1.000,0, 2320/32,1.000,0, 4250/32,1.000,0, 6630/32,1.000,0, 9380/32,1.000,0 giwave20 ftgen 79, 0, isize, 9, 1000/32,1.000,0, 1001/32,0.833,0, 1793/32,0.694,0, 1800/32,0.579,0, 2520/32,0.482,0, 2522/32,0.402,0, 2990/32,0.335,0, 2994/32,0.279,0, 3785/32,0.233,0, 3806/32,0.194,0, 4568/32,0.162,0, 4575/32,0.135,0, 5029/32,0.112,0, 5045/32,0.093,0, 6075/32,0.078,0, 5909/32,0.065,0, 6412/32,0.054,0, 6443/32,0.045,0, 7082/32,0.038,0, 7092/32,0.031,0, 7318/32,0.026,0, 7555/32,0.022,0 ;================================================================================================================================================================================= ;} gifrqs<INSTR_ID> ftgen 0, 0, 32, 7, 0, 32, 0 ; Generate two empty tables for adsynt2. giamps<INSTR_ID> ftgen 0, 0, 32, 7, 0, 32, 0 ; A table for freqency and amp parameters. ifreq, ivolume k_SCORE_format i(<SCORE_format>), p4, p5 kfreq init ifreq kvolume init ivolume kenvamp loopxseg <rate amplitude envelope>/p3, 0, 0, <envelope_amplitude envelope>, 0 ; exponential envelope kenvfilter loopxseg <rate filter envelope>/p3, 0, 0, <envelope_filter envelope>, 0 ; exponential envelope ;=============envelope============================== if (<ADSRon> == 1) then if <envelope speed> > 0 then agate = lfo(1, <envelope speed>) aretrig init 10 aenv adsr140 agate, aretrig, <envelope attack>, <envelope decay>, <envelope sustain>, <envelope release> ; envelope 1 or else aretrig init 1 agate = linseg:a(1, p3 - i(<envelope release>), 1, .001, 0, i(<envelope release>), 0) aenv adsr140 agate, aretrig, <envelope attack>*p3, <envelope decay> *p3, <envelope sustain>*p3, <envelope release> *p3 ; envelope 2 endif else aenv = .3 endif kswell k_Zwel_m <Swell ON>, <Swell position>, <Swell amplitude> ; UDO k_Zwel_m aenv *= kswell ;===============input wave tables=========================== i_arr<INSTR_ID> ftgenonce 10000+<INSTR_ID>, 0, 16, -2, <wave1>, <wave2>, <wave3>, <wave4>, <wave5>, <wave6>, <wave7>, <wave8>, <wave9>, <wave10>, <wave11>, <wave12>, <wave13>, <wave14>, <wave15>, <wave16> if i(<wavedrawON>) == 1 then prints "\nmorphing is drawn manually!\n\n" ; draw morphing manually ftmorf <wavedraw>, i_arr<INSTR_ID>, gi_empty<INSTR_ID> else kndx transeg i(<wave start>)-1, p3 * i(<position of morphs>), 1, i(<wave start>)-1, p3 * (1 - i(<position of morphs>)), i(<scale waves>), i(<wave end>)-1 ; or use the sequencer ftmorf kndx, i_arr<INSTR_ID>, gi_empty<INSTR_ID> endif ;========================oscilators==================================== kSwitch changed2 <voices>, <harmonic ratio>, <faseX>, <faseY> if kSwitch=1 then reinit STARTPARTIAL1 endif STARTPARTIAL1: if <special_effectsON> == 1 then if (<special_effects> == 0) then ; ONCE index = 0 ; Init loop index. loopONCE: ; Loop only executed at init time. ifreq3 pow index + 1, i(<harmonic ratio>) ; define (non)-harmonic ratio. iamp = 1 / (index+1) ; define amplitudes. tablew ifreq3, index, gifrqs<INSTR_ID> ; write freq and amps to tables. tablew iamp, index, giamps<INSTR_ID> index = index + 1 if (index < i(<voices>)) igoto loopONCE ; Do loop else ; MULTI kindex = 0 ; Reset loop index. loopMULTI: ; Loop executed every k-cycle. kspeed pow kindex + 1, <FREQ lfo speed> ; Generate lfo for frequencies, Individual phase for each voice. kphas phasorbnk kspeed, kindex, i(<voices>), .1 klfo table kphas, 11000+<INSTR_ID> , 1 kdepth pow <FREQ lfo depth>, kindex ; Arbitrary parameter twiddling... kfreq2 pow kindex + 1, <harmonic ratio> kreq3 = kfreq2 kfreq2 = kfreq2 + (klfo * 0.1 * kdepth) kfreq2 ntrpol kreq3, kfreq2, <FREQ total depth> tablew kfreq2, kindex, gifrqs<INSTR_ID> ; Write freqs to table for adsynt2. kspeed pow kindex + 1, <AMP lfo speed> ; Generate lfo for amplitudes. kphas phasorbnk kspeed*0.13, kindex, i(<voices>), i(<AMP phase>) ; Individual phase for each voice. klfo table kphas, 11000+<INSTR_ID> , 1 kampl pow 1 / (kindex + 1), <AMP harmonics> ; Arbitrary parameter twiddling... kampl2 = kampl kampl = kampl * (0.35*(klfo+1)) kamp ntrpol kampl2, (kampl*2.5), <AMP total depth> tablew kamp, kindex, giamps<INSTR_ID> ; Write amps to table for adsynt2. kindex = kindex + 1 if (kindex < i(<voices>)) kgoto loopMULTI ; Do loop. endif endif asigL adsynt2 1*kenvamp, kfreq * <detune>, 11000+<INSTR_ID> , gifrqs<INSTR_ID>, giamps<INSTR_ID>, i(<voices>) , i(<faseX>) asigR adsynt2 1*kenvamp, kfreq * <detune>, 11000+<INSTR_ID> , gifrqs<INSTR_ID>, giamps<INSTR_ID>, i(<voices>) , i(<faseY>) rireturn ;=======================filter yucci stuff====================================== asigL buthp asigL, 10 ; no DC please! asigR buthp asigR, 10 asigL butlp asigL, 15000 ; no aliasing either! asigR butlp asigR, 15000 ;================================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 kvolume, 10 kampfilter = kfiltcut * (kurve) acutoff = kfiltcut * kampfilter elseif (<filter follower> == 2) then ; -(amp) --> filter kfiltcut = <filter frequency cutoff> kurve logcurve kvolume, 17 kampfilter = kfiltcut / kurve acutoff = kfiltcut * kampfilter elseif (<filter follower> == 3) then ; key --> filter acutoff = limit(octcps(kfreq) - 4.35, 0, 10) ; frequency to filter elseif (<filter follower> == 4) then koct = limit(octcps(kfreq) - 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 asigL, acutoff, kQ ; don't use lowpass filter here ar, abpR, ahpR zdf_2pole_mode asigR, acutoff, kQ ; use only for bandpass and highpass (12 dB) alpL zdf_ladder asigL, acutoff, kQ ; but use this lowpass (24 dB) alpR zdf_ladder asigR, 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 ) ; mix all filter gains asigR = (ahpR + alpR + abpR ) else asigL = asigL ; gain without filters asigR = asigR endif ;====================phaser============================================== if <PHASER ON> == 1 then ; switch for phaser klfo jitter2 <PHASER lfo depth>, <PHASER lfo depth1>, <PHASER lfo speed1>, <PHASER lfo depth2>, <PHASER lfo speed2>, <PHASER lfo depth3>, <PHASER lfo speed3>, 1 klfo += 1 ; set center frequency aoutL phaser2 asigL, <PHASER frequency> * klfo, <PHASER quality>, <PHASER notches>, <PHASER mode>, <PHASER scale>, <PHASER feedback> aoutR phaser2 asigR, <PHASER frequency> * (klfo + 0.01), <PHASER quality>, <PHASER notches>, <PHASER mode>, <PHASER scale>, <PHASER feedback> kx = <PHASER mix> ; crossfade between direct and effect asigL ntrpol aoutL, asigL, kx asigR ntrpol aoutR, asigR, kx endif ;==================outs======================================= blueMixerOut asigL * aenv * <gain Left> * kvolume, asigR * aenv * <gain Right> * kvolume 5 5 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- E v o l v e r T y p e A ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 envelope 820 345 draw envelopes for amplitude, filter and pitch 400 86 1.0 true COMMA false false 5 185 special effects 0x669966ff 0x000000ff 0xffffffff true 365 141 195 5 amplitude System Bold 16.0 140 115 effect System Regular 12.0 300 115 effect System Regular 12.0 AMP harmonics 285 30 true 0.0 3.0 0.54 40 true true harmonics true System Regular 12.0 FREQ lfo speed 75 30 true 0.0 2.0 2.0 40 true true lfo spd true System Regular 12.0 special_effectsON 10 10 ON/OFF for special effects true false true AMP total depth 200 100 mix direct and effect true 0.0 1.0 0.01 1.0 140 true false special_effects 10 45 choose once or multi true 1 12 true once 0 multi 1 FREQ total depth 80 100 mix direct and effect true 0.0 1.0 0.01 1.0 100 true false AMP lfo speed 195 30 true 0.0 30.0 6.299999999999996 40 true true lfo spd true System Regular 12.0 FREQ lfo depth 125 30 true 1.0E-4 2.0 0.720064 40 true true lfo depth true System Regular 12.0 AMP phase 245 30 true 0.0 1.1 0.924 40 true true phase true System Regular 12.0 75 5 pitch System Bold 16.0 1220 5 output 0x669966ff 0x000000ff 0xffffffff true 20 429 65 405 L System Regular 12.0 45 285 stereo color System Regular 12.0 fase 30 300 choose stereo placement true 100 30 0.0 1.0 0.0 1.0 0.88 0.6333333333333333 true false gain Left 55 335 gain for Left channel true 0.0 0.7 0.01 0.36 75 true false 85 405 R System Regular 12.0 5 185 place accent in amplitude on the note Swell 0x669966ff 0x000000ff 0xffffffff true 120 79 Swell position 20 10 true 1.0E-5 0.96 0.1 0.6000099999999999 130 true false Swell ON 5 10 true false true Swell amplitude 20 40 true 0.0 2.0 0.01 1.28 125 true false 40 5 position in note System Regular 12.0 55 35 amplitude System Regular 12.0 5 5 ADSR, can be used as tremolo also envelope 0x669966ff 0x000000ff 0xffffffff true 20 20 envelope speed 100 10 true 0.0 30.0 0.01 16.34 110 true true 50 70 Decay System Regular 12.0 55 135 Rel. System Regular 12.0 5 70 Attack System Regular 12.0 envelope decay 50 25 true 0.0 1.0 1.0 31 true true label false System Regular 12.0 amplitude exponential 65 5 true exp false true 5 135 Sustain System Regular 12.0 ADSRon 10 5 true false true envelope release 50 90 true 0.0 1.0 1.0 31 true true label false System Regular 12.0 envelope sustain 10 90 true 0.0 1.0 1.0 31 true true label false System Regular 12.0 envelope attack 10 25 true 0.0 10.0 0.31 31 true true label false System Regular 12.0 gain Right 75 335 gain for Right channel true 0.0 0.7 0.01 0.36 75 true false 375 185 phaser 0x669966ff 0x000000ff 0xffffffff true 638 139 PHASER feedback 80 15 true -0.98 0.98 0.7643999999999999 40 true true label false System Regular 12.0 75 70 feedback System Regular 12.0 20 70 quality System Regular 12.0 PHASER scale 245 10 scaling factor used, in conjunction with imode, to determine the frequencies of the additional notches in the output spectrum. true 0.0 2.0 0.001 0.725 105 true false PHASER mode 60 95 used in calculation of notch frequencies. true 0 12 true 1 1 2 2 PHASER notches 135 10 the number of allpass stages in series. true 1.0 10.0 0.1 5.5 75 true true PHASER mix 630 10 mix of direct and effect true 0.0 1.0 0.1 0.6 75 true true 135 115 notches System Regular 12.0 PHASER ON 5 5 true false true PHASER frequency 187 10 frequency (in Hz) of the filter(s). This is the center frequency of the notch of the first allpass filter in the series. This frequency is used as the base frequency from which the frequencies of the other notches are derived. true 50.0 3000.0 1 824.0 75 true true 20 100 mode System Regular 12.0 240 115 scaling System Regular 12.0 290 15 slowly moving LFOs to create slow waves LFO 0x669966ff 0x000000ff 0xffffffff true 20 20 PHASER lfo speed3 95 40 true 0.0 1.0 0.001 0.14400001 150 true false 130 65 slow speeds System Regular 12.0 PHASER lfo depth 25 10 true 0.0 1.0 0.55 41 true true label false System Regular 12.0 PHASER lfo depth3 255 40 true 0.0 1.0 0.001 0.9990001 70 true false PHASER lfo depth1 255 10 true 0.0 1.0 0.001 0.9990001 70 true false 260 55 amount System Regular 12.0 15 65 total depth System Regular 12.0 PHASER lfo speed2 95 25 true 0.0 1.0 0.001 0.72 150 true false PHASER lfo speed1 95 10 true 0.0 1.0 0.001 0.602 150 true false PHASER lfo depth2 255 25 true 0.0 1.0 0.001 0.9990001 70 true false 660 15 direct System Regular 12.0 PHASER quality 20 15 Q of each notch. Higher Q values result in narrow notches. A Q between 0.5 and 1 results in the strongest "phasing" effect, but higher Q values can be used for special effects. true 0.0 1.5 1.1400000000000001 40 true true label false System Regular 12.0 645 115 mix System Regular 12.0 660 70 wet System Regular 12.0 200 115 freq System Regular 12.0 1080 5 0x669966ff 0x000000ff 0xffffffff true 140 161 30 40 score format System Regular 12.0 wavedrawON 10 10 activate to draw the Automation Line so, that a manual morph trajectory is realised true morph using AL true true SCORE_format 10 55 choose for pitch between midi pitch/real values true 0 12 true P4 = frequency 0 P4 = MIDI pitch 1 5 345 filters 0x669966ff 0x000000ff 0xffffffff false 814 20 151 8 low System Regular 12.0 filterON 11 8 filters ON or OFF true filters false true filter frequency cutoff 251 8 cutoff frequency of filters true 0.0 10.0 1.2999999999999994 40 true true cutoff true System Regular 12.0 405 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 132 8 depth System Regular 12.0 filter envelope depth 359 24 gain of filter envelope true 0.0 1.0 0.05 1.0 57 true false filter ads depth 137 22 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false 280 10 GRAPH System Bold 18.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 7 8 A-D-S System Bold 18.0 filter ads attack 7 36 attack portion of envelope true 0.0 1.0 1.0 31 true false attack 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 rate true System Regular 12.0 filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.0 31 true false decay true System Regular 12.0 356 10 depth System Regular 12.0 filter ads sustain 87 36 sustain portion of envelope true 0.0 1.0 0.7 31 true false sustain true System Regular 12.0 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 filter bandpass gain 210 20 gain of bandpass filter true 0.0 0.5 0.1 0.0 56 true false filter highpass gain 178 20 gain of highpass filter true 0.0 0.5 0.1 0.0 56 true false filter lowpass gain 146 20 gain of lowpass filter true 0.0 2.5 0.1 2.5 56 true false filter resonance 292 8 gain of feedback of filters true 0.5 25.0 18.629999999999995 40 true true resonance true System Regular 12.0 filter total depth 357 8 gain of filters true 0.01 5.0 4.5509 40 true true depth true System Regular 12.0 208 8 bndP System Regular 12.0 178 8 high System Regular 12.0 1080 185 Group 0x669966ff 0x000000ff 0xffffffff false 140 160 22 6 amp System Regular 12.0 rate amplitude envelope 20 20 frequency rate of amplitude envelope true 1.0 20.0 0.05 1.0 115 true false 80 130 detune System Regular 12.0 detune 75 10 detuning for whole instrument true 0.0 2.0 0.001 1.0 90 true true 10 130 freq. rate System Regular 12.0 5 5 maximum of 16 waves to morph wavesequence oscilators 0x669966ff 0x1a1a1aff 0xffffffff true 1054 20 wavedraw 565 115 true 1.0 16.0 2.866520183415713 105 5 2 System Bold 18.0 15 50 start System Regular 12.0 wave16 990 25 false 0 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 880 5 14 System Bold 18.0 wave6 340 25 false 2 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 945 5 15 System Bold 18.0 10 100 scale System Regular 12.0 620 5 10 System Bold 18.0 wave3 145 25 false 8 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave10 600 25 false 3 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave end 40 65 last wave to morph to true 1.0 16.0 1 12.0 985 true false wave12 730 25 false 5 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave5 275 25 false 14 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 575 100 waves over note System Regular 12.0 575 125 harmonic ratio System Regular 12.0 scale waves 40 95 distribute morphing over the note duration true -50.0 10.0 0.01 0.04999999999999716 485 true true 300 5 5 System Bold 18.0 430 5 7 System Bold 18.0 175 5 3 System Bold 18.0 560 5 9 System Bold 18.0 wave start 40 45 start wave to morph from true 1.0 16.0 1 4.0 985 true false 235 5 4 System Bold 18.0 wave8 470 25 false 0 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave15 925 25 false 7 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 745 100 offset of morphs System Regular 12.0 20 70 end System Regular 12.0 15 125 ratio System Regular 12.0 815 5 13 System Bold 18.0 685 5 11 System Bold 18.0 365 5 6 System Bold 18.0 wave7 405 25 false 23 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave14 860 25 false 6 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave13 795 25 false 12 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 harmonic ratio 40 120 determines the (non)harmonics of the sound produced true -3.0 4.0 0.0001 0.49250000000000016 485 true true position of morphs 850 95 start time fot morphing true 1.0E-5 1.0 0.01 1.0E-5 175 true false wave2 80 25 false 37 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 voices 840 120 density of voices true 1.0 25.0 1 12.0 175 true true 750 5 12 System Bold 18.0 1005 5 16 System Bold 18.0 wave1 15 25 false 34 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave11 665 25 false 4 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 wave9 535 25 false 2 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 740 125 number of voices System Regular 12.0 40 5 1 System Bold 18.0 wave4 210 25 false 10 12 true sine 20 sine_1 21 sine_2 22 sine_3 23 sine_4 24 sine_5 25 sine_6 26 sine_7 27 saw 30 square 31 ahh 32 organ 33 tromb 34 trump 35 basso 36 oboe 37 clarin 38 eeh 39 ooh 40 rand1 50 rand2 51 rand3 52 rand4 53 rand5 54 rand6 55 rand7 56 rand8 57 rand9 58 rand10 59 inhar1 60 inhar2 61 inhar3 62 inhar4 63 inhar5 64 inhar6 65 inhar7 66 inhar8 67 inhar9 68 inhar10 69 inhar11 70 inhar12 71 inhar13 72 inhar14 73 inhar15 74 inhar16 75 inhar17 76 inhar18 77 inhar19 78 inhar20 79 495 5 8 System Bold 18.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 k_Zwel_m K KKK kOnSwell,kposition, ksw xin if kOnSwell == 1 then ; switch Swell on/off irise = p3 * i(kposition) ; relative position 0 > position < 1 inside note ifall = p3 - irise kswell linseg 1, irise, i(ksw) , ifall, 1 else kswell = 1 ; if switch = OFF, no effect endif xout kswell use to put a amplitude accent inside the note - switch to activate - where to position the amp accent - amount of amplitude for accent to be used with amplitude envelope generator like this: envelope * k_Zwell_m Because of depenedency on the note duration (p3), use it with envelope type of the r type or madsr. Ohterwise it is okay to use k_Zwell k_SCORE_format ii iii iscore, ifreq, iamp xin if (iscore > 0) then ifreq mtof p4 endif xout ifreq, iamp