PADsynthXtended DESCRIPTION: This PADsynth Xtended instrument has 30 sinewaves to produce a sample - a nice sound, but the PADsynth algorithm always sounds a bit (too) clean to my ears (https://zynaddsubfx.sourceforge.io/doc/PADsynth/PADsynth.htm). With this instrument, several methods are used to try to obtain an evn more interesting, evolving timbre. Modules like FM distortion and/or hyperbolic tangent distortion spices things up. i have chosen for the distorion to be placed AFTER the filter section, so any resonaces of the filter will add to a dirty, screamy sound. Of course, all off these modules can be swtiched off. This instruments can morph sounds from heaven to hell - and back! From LoFi to HiFi... It takes a little while for the PADsynth GEN to generate the sample; the bigger amount of 'sonic quality in bits' that are to be computed, the longer it takes. But the smoother the sound gets, as more bits mean s bigger samples.... connections of the modules: PADSYNTH --> FREQUENCY MODULATION --> FILTERS --> DISTORTION --> OUTPUT CONTROLLERS: fundamental in Hertz - fundamental frequency for the generated table (cycles per second). when set to -1, it is 261.625565 Hz. But you can set a different frequency. score format - see p4 and p5 as real values or as midi note events sonic quality in bits - the higer, the longer samples harmonics - gain of 1st fundamental frequencies + 29 harmonics partial bandwith in cents - bandwidth of each partial in cents scale bandwith in partials - ratio that bandwidth increases with harmonic number (log of increase/decrease with partial frequency, 0 is no stretch or shrink) harmonic stretch - ratio of stretch of the overtones (1 is harmonic) profile shape - extra parameter for the bandwidth profile (0.5 is default) harmonic shape bandwidth - number specifying the shape of the bandwidth profile: Gaussian, Square or Exponential FM ON/OFF: carrier - frequency of carrier mod - frequency of modulator index - number of (in)harmonics created direct/FM - mix direct and FM signal Filter type: frequency - frequency cutoff of filter bandwith - influences region of frequencies resonance - amount of feedback of filter Distortion ON/OFF: compress - compresses signal before distortion is applied pregain - determines the amount of gain applied to the signal before waveshaping positive - determines the shape of the positive part of the curve negative - determines the shape of the negative part of the curve gain - amount of gain after distortion has been applied direct/distort - mix direct and distorted signal envelopes per note: FM env. (on/off) - envelope for FM distortion Filter freq. (on/off) - envelope for filter cutoff Filter Depth (on/off) - envelope for filter depth Distortion (on/off) - envelope for distortion Pitch Bend (on/off) - envelope for pitch bend scale x - repeat envelope in note several times (also for Amplitude) Output: dirt (on/off) - amount of randomness for amplitude tuning - tuning of total sounding result ADSR: on/off - set retriggering of ADSR on or off speed - frequency of retriggering amplitude attack/decay/sustain/release - ADSR controllers L/R - output gain of resulting sound score example: ; frq amp i1 0 2 66 1 ; real values p4, p5 or ; note velocity i1 0 2 66 100 ; midi values p4, p5 --- version 3.1, June 2020 - added midi note/real value MACRO - added on/off checkbox for Filter - renaming of ALs - added comments on controllers version 3.0, April 2019 - complete overhaul of all envelopes - envelopes for Amplitude, FM, Filter Frequency, Filter Depth, Distortion and Pitch Bend can be set on a per note basis - envelopes have on/off switch - cleaned up menu by removing harmonics and better naming version 2.1, october 2017 - replaced Unique ID number with INSTRUMENT ID --> Unique ID could be removes - some further GUI tweaking version 2.0, march 2017 - latest GUI (Blue 2.7.0 or greater) - produce sample in Global Orchestra - changed ADSR to madsr - when basefreqency = -1, then basefrequnecy = 261.625565 - removed redundant code - renamed AL for better names - When you want to use more than 1 of this instrument, you will have to give NO: unique numbers. version 1.01, november 2016 - improved checkbox code version 1.0, september 2016 - table resolution can be set of PADsynth, controlling the quality of the produced "sample". A setting of 18 produces a sample table of 2^18, and is a compromise between a fast response and sound quality. Lower settings are faster, but can produce some LoFi results. - FM on/off switch and mix for direct/FM - ADSR envelope for index of FM - Low, band, highpass filter (or no filter) is placed BEFORE the distortion unit. This can produce sqeaking sounds for extra "dirt" - distortion module with on/off switch, - compression on/off to control big amplitude differences of distortion - ADSR envelope for distortion - dirt setting for amplitude creates a random fluctuation in amplitude gispec_len<INSTR_ID> init 2^i(<resolution in bits>) ibasehz = <base frequency> ibasehz = (ibasehz == -1) ? 261.625565 : <base frequency> ; p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 gi_padsynth<INSTR_ID> ftgenonce 0, 0, gispec_len<INSTR_ID>, "padsynth", ibasehz, i(<harmonic partial bandwith>), i(<harmonic partial scale>), i(<harmonic stretch scale>), <harmonic shape bandwidth>, i(<harmonic profile function>), \ <harmonic 1>, <harmonic 2>, <harmonic 3>, <harmonic 4>, <harmonic 5>, <harmonic 6>, <harmonic 7>, <harmonic 8>, <harmonic 9>, <harmonic 10>, \ <harmonic 11>, <harmonic 12>, <harmonic 13>, <harmonic 14>, <harmonic 15>, <harmonic 16>, <harmonic 17>, <harmonic 18>, <harmonic 19>, <harmonic 20>, \ <harmonic 21>, <harmonic 22>, <harmonic 23>, <harmonic 24>, <harmonic 25>, <harmonic 26>, <harmonic 27>, <harmonic 28>, <harmonic 29>, <harmonic 30> ifreq, iamp k_SCORE_format i(<SCORE_format>), p4, p5 ;======================create tables============================================ if <envelope amplitude exp/lin> == 1 then ; amplitude envelope kampenv loopxseg <envelope scale Amplitude>/p3, 0, 0, <envelope_Amplitude envelope>, 0 ; exp. filter envelopes else kampenv loopseg <envelope scale Amplitude>/p3, 0, 0, <envelope_Amplitude envelope>, 0 ; or linear envelope endif kdistenv loopxseg <envelope scale Distortion>/p3, 0, 0, <envelope_Distortion envelope>, 0 ; exp. distortion envelope kFMenv loopxseg <envelope scale FMmod>/p3, 0, 0, <envelope_Frequency Modulation envelope>, 0 ; exp. freq. modulator envelope kFilterDepthenv loopxseg <envelope scale FilterDepth>/p3, 0, 0, <envelope_Filter Depth envelope>, 0 ; exp. filter depth envelope kFilterFreqenv loopxseg <envelope scale Filter Frequency>/p3, 0, 0, <envelope_Filter Frequency envelope>, 0 ; exp. filter envelopes kPitchBendenv loopxseg <envelope scale Pitch Bend>/p3, 0, 0, <envelope_Pitch Bend envelope>, 0 ; exp. pitch bend envelopes aampenv interp kampenv ;======================oscilator================================================ ibasehz = <base frequency> ibasehz = (ibasehz == -1) ? 261.625565 : <base frequency> if <DIRT ON> == 1 then kranda = <DIRT volume> ; randomize the amplitude kspline rspline -(kranda), kranda, 3, 15 ; to create some dirt else kspline = 0 endif kpitch = <tuning> if <envelope Pitch Bend ON> == 1 then ; pitchbend kpitch *= kPitchBendenv endif if <FM ON> != 0 then ; FM on/off asigL foscili iamp + kspline, ifreq * (sr/gispec_len<INSTR_ID>/ibasehz) * kpitch, <FM carrier>, <FM modulator>, <FM index> , gi_padsynth<INSTR_ID> asigR foscili iamp + kspline, ifreq * (sr/gispec_len<INSTR_ID>/ibasehz) * kpitch, <FM carrier>, <FM modulator>, <FM index> , gi_padsynth<INSTR_ID>, rnd(.5) asigL2 poscil iamp + kspline, ifreq * (sr/gispec_len<INSTR_ID>/ibasehz) * kpitch, gi_padsynth<INSTR_ID> asigR2 poscil iamp + kspline, ifreq * (sr/gispec_len<INSTR_ID>/ibasehz) * kpitch, gi_padsynth<INSTR_ID>, .5 if <envelope FM ON> == 1 then asigL *= kFMenv asigR *= kFMenv endif kx = <FM mix> ; crossfade between FM and PADsynth aoutL ntrpol asigL, asigL2, kx aoutR ntrpol asigR, asigR2, kx else ; pure signal, PADsynth sines only aoutL poscil iamp + kspline, ifreq * (sr/gispec_len<INSTR_ID>/ibasehz) * kpitch, gi_padsynth<INSTR_ID> aoutR poscil iamp + kspline, ifreq * (sr/gispec_len<INSTR_ID>/ibasehz) * kpitch, gi_padsynth<INSTR_ID>, .5 aoutLL = aoutL aoutRR = aoutR endif ;==============================filter=========================================== if <envelope FILTER frequency ON> == 0 then kFilterFreqenv = <FILTER frequency> endif if <envelope FILTER depth ON> == 0 then kFilterDepthenv = 1 endif aoutL k_MultiFilter aoutL, <Filter ON>, <FILTER type>, (kFilterFreqenv*kFilterDepthenv), <FILTER bandwidth>, <FILTER resonance> aoutR k_MultiFilter aoutR, <Filter ON>, <FILTER type>, (kFilterFreqenv*kFilterDepthenv), <FILTER bandwidth>, <FILTER resonance> ;=============================distortion======================================== if <envelope DISTORT ON> == 0 then kdistenv = 1 endif if <DISTORT ON> == 1 then ; distortion on/off aoutLd distort1 aoutL, <DISTORT pregain> * kdistenv, <DISTORT gain>, <DISTORT positive shape>, <DISTORT negative shape>, 1 aoutRd distort1 aoutR, <DISTORT pregain> * kdistenv, <DISTORT gain>, <DISTORT positive shape>, <DISTORT negative shape>, 1 kxdist = <DISTORT mix> ; crossfade between DISTORTION and PADsynth aoutLL ntrpol aoutLd, aoutLL, kxdist aoutRR ntrpol aoutRd, aoutRR, kxdist aoutLc butlp aoutLL, 16000 aoutRc butlp aoutRR, 16000 ;==========================balance signal======================================= if <DISTORT compressor ON> == 1 then ; use a sine wave to compare the distorted sound to asin oscil <DISTORT pregain>*.07, 400 aoutLL balance aoutLc, asin aoutRR balance aoutRc, asin endif else ; pass signal untouched aoutLL = aoutL aoutRR = aoutR endif ;================================DC offset====================================== aoutLL buthp aoutLL, 16 aoutRR buthp aoutRR, 16 ;===============================simple anti-aliasing============================ aoutLL butlp aoutLL, 15000 aoutRR butlp aoutRR, 15000 ;============================output============================================= if (<ADSR ON> == 1) then if <ADSR envelope speed> > 0 then agate = lfo(1, <ADSR envelope speed>) aretrig init 1 aenv adsr140 agate, aretrig, <ADSR attack>, <ADSR decay>, <ADSR sustain>, <ADSR release> ; retriggering envelope 1 or else aretrig init 1 agate = linseg:a(1, p3 - i(<ADSR release>), 1, .001, 0, i(<ADSR release>), 0) aenv adsr140 agate, aretrig, <ADSR attack>, <ADSR decay>, <ADSR sustain>, <ADSR release> ; envelope 2 endif else ; no envelope at all aenv = .8 endif blueMixerOut aoutLL * aampenv * <output gain Left> * aenv, aoutRR * aampenv * <output gain Right> * aenv 5 5 LINE true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 5 5 l---------------------------- P A D s y n t h X t e n d e d ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 375 envelopes per note 0x669966ff 0x000000ff 0xffffffff true 1165 20 1070 185 System Bold 12.0 envelope Pitch Bend ON 955 130 true false true envelope FILTER depth ON 955 70 true false true envelope FM ON 955 10 true false true envelope amplitude exp/lin 10 180 true false true envelope scale FMmod 1050 5 true 1.0 40.0 0.01 1.0 100 true false envelope 10 10 935 150 4096.0 true COMMA false false envelope scale Amplitude 1050 155 true 1.0 50.0 0.01 1.0 100 true false 975 160 System Regular 12.0 envelope scale Pitch Bend 1050 125 true 1.0 50.0 0.01 1.0 100 true false envelope FILTER frequency ON 955 40 true false true envelope DISTORT ON 955 100 true false true envelope scale Filter Frequency 1050 35 true 1.0 50.0 0.01 1.0 100 true false envelope scale FilterDepth 1050 65 true 1.0 20.0 0.01 1.0 100 true false envelope scale Distortion 1050 95 true 1.0 50.0 0.01 1.0 100 true false 770 265 distortion 0x669966ff 0x1a1a1aff 0xffffffff true 405 89 30 15 System Regular 12.0 DISTORT gain 245 20 true 0.1 1.0 0.01 0.44999999999999996 60 true false 30 35 System Regular 12.0 25 55 System Regular 12.0 DISTORT pregain 80 10 true 1.0 10.0 0.1 6.6 160 true false DISTORT positive shape 80 30 true 0.0 1.0 0.01 0.68 160 true false DISTORT compressor ON 310 10 true false true DISTORT negative shape 80 50 true 0.0 1.0 0.01 0.4 160 true false 280 10 System Regular 12.0 DISTORT ON 5 5 true DISTORT mix 275 20 true 0.0 1.0 0.01 0.43 60 true false 245 10 System Regular 12.0 10 10 partial generation 0x669966ff 0x1a1a1aff 0xffffffff true 20 234 20 185 System Regular 12.0 485 195 System Regular 12.0 harmonic profile function 15 195 true 0.001 100.0 0.1 3.101 975 true false 25 40 harmonics 0x00000033 0x000000ff 0xffffffff true 20 20 harmonic 11 355 5 false 0.0 1.0 0.10389032229684081 30 true false true System Regular 12.0 harmonic 15 495 5 false 0.0 1.0 0.029110309726025685 30 true false true System Regular 12.0 harmonic 2 40 5 false 0.0 1.0 0.3553825848568193 30 true false true System Regular 12.0 harmonic 14 460 5 false 0.0 1.0 0.1387820100344972 30 true false true System Regular 12.0 harmonic 9 285 5 false 0.0 1.0 0.9135411382636834 30 true false true System Regular 12.0 harmonic 12 390 5 false 0.0 1.0 0.0 30 true false true System Regular 12.0 harmonic 30 1020 5 false 0.0 1.0 0.7411385218987095 30 true false true System Regular 12.0 harmonic 22 740 5 false 0.0 1.0 0.7207738830997326 30 true false true System Regular 12.0 harmonic 20 670 5 false 0.0 1.0 0.2288135906222637 30 true false true System Regular 12.0 harmonic 21 705 5 false 0.0 1.0 0.9370010044642667 30 true false true System Regular 12.0 harmonic 4 110 5 false 0.0 1.0 0.757635741438287 30 true false true System Regular 12.0 harmonic 18 600 5 false 0.0 1.0 0.15448751031091112 30 true false true System Regular 12.0 harmonic 6 180 5 false 0.0 1.0 0.2119826551094556 30 true false true System Regular 12.0 harmonic 19 635 5 false 0.0 1.0 0.7667705379655237 30 true false true System Regular 12.0 harmonic 17 565 5 false 0.0 1.0 0.47903686236882426 30 true false true System Regular 12.0 harmonic 5 145 5 false 0.0 1.0 0.5438022828264127 30 true false true System Regular 12.0 harmonic 23 775 5 false 0.0 1.0 0.6485220214958941 30 true false true System Regular 12.0 harmonic 7 215 5 false 0.0 1.0 0.9835261401932892 30 true false true System Regular 12.0 harmonic 24 810 5 false 0.0 1.0 0.07317297930342914 30 true false true System Regular 12.0 harmonic 10 320 5 false 0.0 1.0 0.0 30 true false true System Regular 12.0 harmonic 13 425 5 false 0.0 1.0 1.0 30 true false true System Regular 12.0 harmonic 29 985 5 false 0.0 1.0 0.5661628741769459 30 true false true System Regular 12.0 harmonic 25 845 5 false 0.0 1.0 1.0 30 true false true System Regular 12.0 harmonic 28 950 5 false 0.0 1.0 0.6396992899147687 30 true false true System Regular 12.0 harmonic 8 250 5 false 0.0 1.0 0.638122273730488 30 true false true System Regular 12.0 harmonic 1 5 5 false 0.0 1.0 1.0 30 true false true System Regular 12.0 harmonic 27 915 5 false 0.0 1.0 0.07631111916650668 30 true false true System Regular 12.0 harmonic 16 530 5 false 0.0 1.0 0.20579155083725575 30 true false true System Regular 12.0 harmonic 3 75 5 false 0.0 1.0 0.7174002585263294 30 true false true System Regular 12.0 harmonic 26 880 5 false 0.0 1.0 0.17047568628428522 30 true false true System Regular 12.0 20 15 System Regular 12.0 harmonic stretch scale 15 170 true 0.01 10.0 0.01 1.0 1025 true true 775 15 System Regular 12.0 harmonic partial bandwith 15 120 true 0.01 800.0 0.01 471.62 1025 true true 225 15 System Regular 12.0 1005 160 System Regular 12.0 480 170 System Regular 12.0 450 145 System Regular 12.0 120 170 System Bold 16.0 188 12 System Regular 12.0 resolution in bits 890 5 true 8.0 22.0 1 16.0 150 true true 990 185 System Regular 12.0 base frequency 150 10 -1 60 SCORE_format 305 10 true 0 12 true value as is cps Midi notes Midi Automatic automatic 445 120 System Regular 12.0 20 160 System Regular 12.0 harmonic partial scale 15 145 true 0.0 10.0 0.01 0.0 1025 true true harmonic shape bandwidth 995 200 false 0 12 true Gaussian 1 square 2 exponential 3 1175 10 ADSR 0x669966ff 0x000000ff 0xffffffff true 20 576 20 240 System Regular 12.0 output gain Left 14 469 true 0.0 7.0 0.01 4.91 91 true false 15 265 Group 0x00000033 0x000000ff 0xffffffff false 20 20 ADSR attack 5 0 true 0.0 1.0 0.02 31 true false true System Regular 12.0 ADSR release 0 135 true 0.0 1.0 0.2 31 true false true System Regular 12.0 ADSR sustain 0 90 true 0.0 1.0 0.0 31 true false true System Regular 12.0 ADSR decay 5 45 true 0.0 1.0 0.29000000000000004 31 true false true System Regular 12.0 ADSR ON 5 5 true 25 460 System Regular 12.0 45 460 System Regular 12.0 ADSR envelope speed 15 5 true 0.0 15.0 0.01 5.02 205 true true output gain Right 35 470 true 0.0 7.0 0.01 4.79 90 true false 390 265 filter 0x669966ff 0x1a1a1aff 0xffffffff true 380 91 60 40 System Regular 12.0 Filter ON 5 5 true FILTER bandwidth 220 5 true 1.0 2000.0 240.88000000000005 40 true true true System Regular 12.0 FILTER frequency 10 45 true 20.0 20000.0 0.1 8834.8 150 true true FILTER resonance 295 5 true 1.0 20.0 1.0 40 true true true System Regular 12.0 145 15 System Regular 12.0 FILTER type 45 10 true 0 12 true Low Pass 0 High Pass 1 Band Pass 2 Band Reject 3 10 265 FM 0x669966ff 0x1a1a1aff 0xffffffff true 380 89 FM ON 5 5 true 45 35 System Regular 12.0 FM mix 335 20 true 0.0 1.0 0.1 0.5 60 true false 35 15 System Regular 12.0 40 55 System Regular 12.0 340 10 System Regular 12.0 FM index 75 50 true 0.0 30.0 0.01 8.83 200 true true FM modulator 75 30 true 0.0 20.0 0.01 5.1 200 true true FM carrier 75 10 true 0.1 2.0 0.01 0.31 200 true true 1110 10 output 0x669966ff 0x1a1a1aff 0xffffffff true 20 234 DIRT volume 10 10 true 0.0 0.5 0.46499999999999997 40 true false true System Regular 12.0 tuning 5 105 true 0.01 2.0 0.01 1.0 90 true true DIRT ON 20 65 true 15 95 System Regular 12.0 true true 8.799963 id:1065891867 ver2:0.7836800218 100 0.4099952 ver2:0.7914500237 ver2:0.4969600141 ver2:0.8123700023 ver2:0.8378800154 ver2:0.0341700017 ver2:0.2119800001 ver2:0.8671500087 ver2:0.0450100005 ver2:0.4304400086 ver2:0.1339100003 ver2:0.5020800233 1.829969 28.399767 5.4900494 2.9699543 6.930001 ver2:0.4501900375 ver2:4.8404102325 22.0 ver2:0.4441100061 ver2:0.1687200069 false true false 1.0 ver2:74.2599029541 id:1065891869 1.0 ver2:0.7199100256 ver2:0.0001 ver2:0.0001 ver2:0.5 100 0.9 ver2:0.9314500093 ver2:0.1949400008 ver2:0.5 ver2:0.4599300027 ver2:180.9080047607 731.0 id:-2120469994 ver2:0 ver2:0 ver2:1 ver2:0 ver2:0 ver2:0.3571400046 ver2:1 ver2:0 ver2:0 ver2:0 0.59 17.82 4.74 1.0 21.93 3.77 ver2:0.6079800129 ver2:1.8999500275 14.0 ver2:0.6140900254 ver2:0.8000000119 false false true 1.0 ver2:77.2294006348 id:1065891869 0.32999998 ver2:0 ver2:0.0099999998 ver2:0.0001 ver2:0.0001 500 1.0 ver2:0.3100000024 ver2:0.349940002 ver2:0.3700000048 ver2:0.5898600221 ver2:380.808013916 2229.3 id:-2120469995 ver2:0.9100000262 ver2:0 ver2:0.5099800229 ver2:0 ver2:0.4199900031 ver2:0.3571400046 ver2:0.7900000215 ver2:0 ver2:1 ver2:0 0.42999998 0.96999997 2.08 1.0 2.37 4.49 ver2:0.2149000019 ver2:0.0001 12.0 ver2:0.3899900019 ver2:0.4199999869 false true false ver2:0.245 0.6 0.4 false false 0.1 0.7 3.0 ver2:400.8 false 1195.3 false ver2:4.6503401557 id:-1638137755 0.95 0.0 true 2.06 12.2 true false false ver2:0.02 ver2:0.49 ver2:0.2 ver2:0.22 false -1 version=2@_@Amplitude envelope:0.0:0.001:0.0:1.0:0.36355140186915885:1.0:1.0:0.001@_@Frequency Modulation envelope:0.0:0.5:0.33457943925233646:1.0:0.4785046728971963:1.0:0.6401869158878505:1.0:1.0:0.0@_@Filter Depth envelope:0.0:0.4733333333333334:0.17570093457943925:0.15333333333333332:0.24321608040201004:1.0:0.527:0.62:0.5411214953271029:0.3533333333333334:0.908411214953271:0.3533333333333334:1.0:0.43333333333333335@_@Filter Frequency envelope:0.0:1698.1333333333341:0.3383177570093458:1098.8000000000009:0.46261682242990654:6972.266666666667:0.5:8890.133333333333:0.5112149532710281:1937.866666666667:0.5663551401869159:3496.1333333333337:0.6030150753768844:7451.733333333334:0.6233644859813084:1937.866666666667:1.0:20.0@_@Distortion envelope:0.0:0.001:0.43177570093457945:0.001:0.7177570093457943:10.0:0.8803738317757009:0.001:1.0:5.000500000000001@_@Pitch Bend envelope:0.0:1.0:0.5175879396984925:1.0474:0.6512562814070352:0.5951999999999998:0.7668341708542713:1.0208:0.9396984924623115:2.271:0.9678391959798995:0.4356000000000001:1.0:4.0 5.02 1.53 1.64 ver2:1 ver2:0 ver2:0.1038903223 ver2:0 ver2:1 ver2:0.13878201 ver2:0.0291103097 ver2:0.2057915508 ver2:0.4790368624 ver2:0.1544875103 ver2:0.766770538 ver2:0.3553825849 ver2:0.2288135906 ver2:0.9370010045 ver2:0.7207738831 ver2:0.6485220215 ver2:0.0731729793 ver2:1 ver2:0.1704756863 ver2:0.0763111192 ver2:0.6396992899 ver2:0.5661628742 ver2:0.7174002585 ver2:0.7411385219 ver2:0.7576357414 ver2:0.5438022828 ver2:0.2119826551 ver2:0.9835261402 ver2:0.6381222737 ver2:0.9135411383 12.0 2.94 56.800999999999995 id:-1638143231 1.0 16.0 1.0 13.49 1.0 1.0 12.92 1.0 id:-1638139003 2.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_MultiFilter a aKKKKK ain, kon, ktype, kfreq, kbandwidth, kQ xin if (kon == 1) then if (ktype == 0) then ; low pass ahigh init 0 aband init 0 aout, ahigh, aband svfilter ain, kfreq, kQ elseif (ktype == 1) then ; high pass alow init 0 aband init 0 alow, aout, aband svfilter ain, kfreq, kQ elseif (ktype == 2) then ; band pass aout butterbp ain, kfreq, kbandwidth elseif (ktype == 3) then ; band reject aout butterbr ain, kfreq, kbandwidth endif else aout = ain endif xout aout k_SCORE_format ii iii iscore, ifreq, iamp xin ;iscore = i(<score p4, p5>) ;ifreq = p4 ;iamp = p5 if (iscore == 1) then ifreq mtof p4 iamp *= 0.007874016 elseif (iscore == 2) then ifreq = ifreq > 15 ? ifreq : cpspch(p4) iamp = iamp > 2 ? iamp*0.007874016 : p5 endif xout ifreq, iamp