SFXloop DESCRIPTION: SFloop loads a Soundfont but does not use any of the transformations and modulations as is embedded in Soundfonts, like looping points, reverb or chorus. You have to set your own looping points here- allowing for new 'sounds' on the existing and well-known samples like piano, banjo, guitar etc. where p4 = frequency or Midi Pitch, p5 = amplitude. For more info: https://github.com/kunstmusik/blue/wiki/Fond-of-Soundfont Reason for this instrument is to have easy acces to those well-known acoustical musical instruments but with different, changeable loop points and interesting transformation options. It makes the well-known and mostly harmonic sounds "only" basic material to start from. 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.2, December 2020 - added color option, for accessing a sample on a different key version 3.1, November 2020 - added tremolo envelope version 2.1, October 2020 - againbig overhaul: new filters - filters have amplitude or frequency/pitch followers (exponentially) - checkbox for P4 = frequency or MidiPitch - 2 types of filter envelopes, can be mixed version 2.0, July 2020 - big changes: new vibrato, new dynamics, version 1, September 2019 - built with XlooperSolo as a template 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>, <INSTR_ID> ;================================init=========================================== inum = p4 iamp = p5 * 127 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 loopxseg 1/p3, 0, 0, <envelope_amplitude envelope>, 0 endif ktremolo loopxseg <rate tremolo envelope>/p3, 0, 0, <envelope_tremolo envelope>, 0 ; create tremolo envelope atremolo interp ktremolo aampenv interp kenvamp if (<filter envelopes> == 2) || (<filter envelopes> == 3) then 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 else kenvfilter = 1 endif kpitchbend loopxseg <rate pitch envelope>/p3, 0, 0, <envelope_pitch bend envelope>, 0 ; exponential envelope ;================================================================================ if (i(<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 ;============================dirt for loop====================================== kfade = <Xfade> krand = <Xrandom> ksplineX rspline -(krand), krand, 1, 10 ; randomize the crossfade time ;===========================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>-1) kvib *= <vibrato depth> * kvibfade_in endif ;========================SoundFont============================================== kbegin_sample = <sample begin loop> kend_sample = <sample end loop> + kfade istart_sample = i(<sample start playback>) * .001 if changed2(<sample start playback>, <loop direction>) == 1 then ; check if loop direction or start file playback has changed reinit START endif ; extract midi note from frequency and use fraction to calculate new pitch if (i(<scoreMIDI>) == 1) then ; switch between MIDI score events or frequency START: asigFL,asigFR sflooper int(iamp), inum, .0000002*<pregain> * iamp, ktuning * kpitch + kvib, gir<INSTR_ID>, kbegin_sample, kend_sample, kfade + ksplineX, istart_sample, i(<loop direction>) rireturn else inumber = ftom:i(inum + .000001) ; compensate rounding error icolor = <sample of other key> + p6 ifactor = semitone(icolor) ; for semitones print ifactor if i(<show midi key>) == 1 then prints "MIDI KEY = %5.4f\\n", inumber endif START: asigFL,asigFR sflooper int(iamp), inumber, .0000002*<pregain> * iamp, (ktuning * kpitch + kvib) * ifactor, gir<INSTR_ID>, kbegin_sample, kend_sample, kfade + ksplineX, istart_sample, i(<loop direction>) rireturn endif ;================================filter========================================= if (<filterON> == 1) then ; switch filter ON by checkbox or p6 ; switch for amplitude or frequency dependency if (<filter follower> == 0) then acutoff = <filter frequency cutoff> elseif (<filter follower> == 1) then ; amp --> filter kfiltcut = <filter frequency cutoff> kurve logcurve iamp, 10 kampfilter = kfiltcut * (kurve) acutoff = kfiltcut * kampfilter elseif (<filter follower> == 2) then ; -(amp) --> filter kfiltcut = <filter frequency cutoff> kurve logcurve iamp, 17 kampfilter = kfiltcut / kurve acutoff = kfiltcut * kampfilter elseif (<filter follower> == 3) then ; key --> filter acutoff = limit(octcps(inum) - 4.35, 0, 10) ; frequency to filter elseif (<filter follower> == 4) then koct = limit(octcps(inum) - 4.35, 0, 10) acutoff = abs(<filter frequency cutoff> - koct + 5) ; avoid negative freqs endif if (<filter envelopes> == 0) then ; envelopes disabled ; do nothing, but pass through elseif (<filter envelopes> == 1) then ; switch for ADS envelope aretrig init 1 agate = 1 acutenv adsr140 agate, aretrig, <filter ads attack>, <filter ads decay>, <filter ads sustain>, 0 acutoff *= acutenv * <filter ads depth> elseif (<filter envelopes> == 2) then ; graphical envelope acutoff *= (kenvfilter * <filter envelope depth>) elseif (<filter envelopes> == 3) then ; switch for ADS envelope and graphical combined acuto = (kenvfilter * <filter envelope depth> * 3.2) aretrig init 1 agate = 1 afilterads adsr140 agate, aretrig, <filter ads attack>, <filter ads decay>, <filter ads sustain>, 0 acutoff = acuto + (afilterads * <filter ads depth> * 3.2) endif acutoff *= <filter total depth> ; scale total depth of filters acutoff = cpsoct:a(4.35 + limit(acutoff, 0, 10)) ; finally convert to frequencies acutoff limit acutoff, 10, 21000 ; limit frequency band of filter, a safeguard ;filter opcode section kQ = <filter resonance> al, abpL, ahpL zdf_2pole_mode asigFL, acutoff, kQ ; don't use lowpass filter here ar, abpR, ahpR zdf_2pole_mode asigFR, acutoff, kQ ; use only for bandpass and highpass (12 dB) alpL zdf_ladder asigFL, acutoff, kQ ; but use this lowpass (24 dB) alpR zdf_ladder asigFR, acutoff, kQ alpL *= <filter lowpass gain> ; filters gain Left ahpL *= <filter highpass gain> abpL *= <filter bandpass gain> alpR *= <filter lowpass gain> ; filters gain Right ahpR *= <filter highpass gain> abpR *= <filter bandpass gain> ;gain of filters asigL = (ahpL + alpL + abpL) * <output gain left> ; mix all filter gains asigR = (ahpR + alpR + abpR) * <output gain right> else asigL = asigFL * <output gain left> ; gain without filters asigR = asigFR * <output gain right> endif ;=======================outputs================================================= blueMixerOut asigL * aampenv * iamp *atremolo, asigR * aampenv * iamp * atremolo 2 2 DOT true 0 0 Group 0x00000033 0x000000ff 0xffffffff true 20 20 0 0 l---------------------------- SF_X L o o p ----------------------------l 0x4d4d4dff 0x4d1a4dff 0xffffffff true 20 20 10 10 load sample 0x669966ff 0x1a1a1aff 0xffffffff true 1095 20 1049 10 System Regular 12.0 82 54 System Regular 12.0 sample of other key 840 20 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 48 12 true -48 -48 -47 -47 -46 -46 -45 -45 -44 -44 -43 -43 -42 -42 -41 -41 -40 -40 -39 -39 -38 -38 -37 -37 -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 37 37 38 38 39 39 40 40 41 41 42 42 43 43 44 44 45 45 46 46 47 47 48 48 86 134 System Regular 12.0 tuning 1044 23 overall tuning ofpresets of SF true 0.01 4.0 0.01 1.0 53 true true SFbank 665 20 bank number of SF 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 SFpreset 754 20 program number 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 50 140 System Regular 12.0 100 140 System Regular 12.0 18 92 System Regular 12.0 885 155 System Regular 12.0 loop direction 969 151 direction of loop: forward, backward, back-and forward true 0 12 true forward 0 backward 1 back-and-forth 2 pitch fine 120 145 fine tuning frequency of SF preset true 0.0 0.06 0.005 0.0 650 true true 88 102 System Regular 12.0 84 86 System Regular 12.0 98 92 System Regular 12.0 82 78 System Regular 12.0 SF:show presets 976 130 show list of available presets and their bank and program numbers true false true 4 18 System Bold 20.0 sample begin loop 118 72 looppoint begin true 0.0 1.0 0.001 0.053 830 true true 90 150 System Regular 12.0 show midi key 832 128 show what MIDI key would have been for this frequency true true true file 120 15 import a valid SoundFont, rightclick to put in Media Folder /media/menno/datae/soundfonts/Accordions & So on/Anttus Harmonica.SF2 500 true 715 25 System Regular 12.0 sample end loop 118 96 looppoin end true 0.0 0.5 0.001 0.096 830 true true pitch slider 25 140 switch for changing basic tuning of preset true 85 125 System Regular 12.0 998 10 System Regular 12.0 pregain 1004 22 pregain setting for presets true 0.0 1.0 0.1 1.0 53 true false 892 24 System Regular 12.0 pitch coarse 120 120 coarse tuning frequency of SF preset true 0.0 3.0 0.001 1.0 650 true true 804 25 System Regular 12.0 sample start playback 118 48 offset into sample of SF true 0.0 1000.0 1 0.0 830 true true 1115 10 global 0x669966ff 0x1a1a1aff 0xffffffff true 20 496 16 476 System Regular 12.0 Xfade 10 22 crossfade time, can be adjusted to avoid clicks true -0.1 0.1 0.001 0.04299999999999998 294 true true output gain left 6 430 output channel Left true 0.0 1.0 0.1 0.8 50 true false Xrandom 15 350 random time setting for crossfade true 0.0 0.01 0.0079 41 false true true System Regular 12.0 output gain right 36 430 otput channel Right true 0.0 1.0 0.1 0.8 50 true false 46 476 System Regular 12.0 10 215 amplitude and filter envelope 0x669966ff 0x1a1a1aff 0xffffffff true 1095 269 0 0 Group 0x669966ff 0x000000ff 0xffffffff false 20 20 envelope 6 6 draw freely the envelopes for amplitude, filter and pitch 890 150 1.0 true COMMA false false scoreMIDI 916 152 check to switch to Midi pitch mode true false true 910 0 Group 0x669966ff 0x000000ff 0xffffffff false 20 20 rate tremolo envelope 130 10 frequency of repeated envelope true 1.0 20.0 1.0 35 true true false System Regular 12.0 amplitude exponential switch 8 26 treat graphic envelope as exponential envelope true true true 30 10 System Regular 12.0 85 45 System Regular 12.0 0 186 filters 0x669966ff 0x000000ff 0xffffffff false 850 20 filter highpass gain 188 20 gain of highpass filter true 0.0 0.5 0.1 0.5 56 true false filter follower 11 52 open and close filter depending on amplitude or frequency true 1 12 true --- 0 amp follow 1 amp follow invert 2 key follow 3 key follow invert 4 435 4 envelopes 0x669966ff 0x000000ff 0xffffffff false 20 20 filter envelope depth 359 24 gain of filter envelope true 0.0 1.0 0.05 1.0 57 true false filter envelopes 171 50 bypass envelopes, or choose one of them or both of them true 0 12 true disabled 0 AttDecSus 1 Graphic 2 ADS+Graphic 3 filter exponential switch 340 40 treat graphic envelope as exponential envelope true filter ads attack 7 36 attack portion of envelope true 0.0 1.0 1.0 31 true false true System Regular 12.0 filter ads decay 49 36 decay portion of envelope true 0.0 1.0 0.69 31 true false true System Regular 12.0 filter ads sustain 87 36 sustain portion of envelope true 0.0 1.0 0.10999999999999999 31 true false true System Regular 12.0 280 10 System Bold 18.0 338 54 System Regular 12.0 356 10 System Regular 12.0 132 8 System Regular 12.0 rate filter envelope 300 36 frequency rate of filter envelope true 1.0 50.0 1.0 31 true false true System Regular 12.0 7 8 System Bold 18.0 filter ads depth 137 22 gain of ADS envelope true 0.0 1.0 0.01 1.0 57 true false filterON 11 8 filters ON or OFF true false true filter total depth 377 8 gain of filters true 0.01 5.0 3.8023999999999996 40 true true true System Regular 12.0 161 8 System Regular 12.0 188 8 System Regular 12.0 filter lowpass gain 156 20 gain of lowpass filter true 0.0 2.5 0.1 0.0 56 true false filter frequency cutoff 271 8 cutoff frequency of filters true 0.0 10.0 0.8000000000000008 40 true true true System Regular 12.0 218 8 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 15.199999999999996 40 true true true System Regular 12.0 846 188 vibrato 0x669966ff 0x000000ff 0xffffffff false 20 98 30 64 System Regular 12.0 vibrato speed 169 8 frequency of Vibrato true 0.0 10.0 1.4999999999999982 40 true false true System Regular 12.0 VibratoON 10 8 turn Vibrato ON or OFF true false true vibrato fade in 10 30 fade in vibrato at end of the note true false true vibrato depth 119 8 intensity of Vibrato true 0.0 0.2 0.13399999999999998 40 true false true System Regular 12.0 vibrato wave 65 60 sine, triangle, 2 x square, 2 x saw wave true 1.0 6.0 1 1.0 175 true false 910 70 Group 0x669966ff 0x000000ff 0xffffffff false 20 20 rate pitch envelope 130 10 frequency of repeated envelope true 1.0 20.0 1.0 35 true true false System Regular 12.0 85 45 System Regular 12.0 pitch bend envelope 10 10 true false true 1198 0 Score Module - use this to add extra P-fields in Score and instrumentcode Score Module 0x66666600 0x000000ff 0xff0000ff false 137 20 36 53 System Regular 12.0 14 34 System Regular 14.0 6 159 System Regular 14.0 28 93 start time 100 14 97 System Regular 14.0 28 134 100 6 243 System Regular 14.0 6 263 System Regular 14.0 28 113 100 28 239 100 6 179 System Regular 14.0 28 71 glissando 100 28 156 100 14 53 System Regular 14.0 14 138 System Regular 14.0 28 197 100 6 222 System Regular 14.0 4 10 System Bold 14.0 28 178 100 28 219 100 36 34 System Regular 12.0 6 199 System Regular 14.0 28 260 100 14 74 System Regular 14.0 14 117 System Regular 14.0 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 4 5 false 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:0.0 1.0 0.0 true false 0.0 1.0 true ver2:1.666 2517.2 id:-717362696 ver2:0.54 false false false 0.572 0.61 1.0 0.528 ver2:1 ver2:1 ver2:1 1.0 5.0 ver2:0.045 false ver2:10 ver2:1.76 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