diff options
Diffstat (limited to 'FileMixASC.csd')
-rwxr-xr-x | FileMixASC.csd | 19 |
1 files changed, 9 insertions, 10 deletions
diff --git a/FileMixASC.csd b/FileMixASC.csd index 3578936..f98cb56 100755 --- a/FileMixASC.csd +++ b/FileMixASC.csd @@ -302,18 +302,14 @@ ifile = p1 - 1 ichans filenchnls ifile ilen filelen ifile ipeak filepeak ifile -imult = 8190 / ipeak +imult = 32760 / gifile / ipeak kamp2 = kamp2 * imult irand unirand ilen * .75 - istart = (gistrt == 0? irand: 0) - kbase lineto k4, gktime kbase = (giparm == 4? kbase: 1) if (gidel == 1) && (gktrig == 0) goto end - iloop = (giloop == 1? 0: 1) - if ichans == 2 goto skip5 a1 diskin2 ifile, kbase, istart, iloop if giparm == 1 goto skip7 @@ -327,14 +323,17 @@ kfreq table kfreq, 2 kfreq port kfreq, .01 kres lineto k3, gktime kres = (giparm > 2? kres: .25) -a3,a4,a5 svfilter a1, kfreq, kres - if ichans == 1 goto skip7 -a6,a7,a8 svfilter a2, kfreq, kres +a3,a4,a5 svfilter a1, kfreq, kres, 1 + if ichans == 1 goto skip8 +a6,a7,a8 svfilter a2, kfreq, kres, 1 +skip8: + if giparm == 2 goto skip7 +kamp2 = kamp2 + (kamp2 * 3 * (kres - .25)) skip7: ifade = gifade - if gifade > 0 goto skip8 + if gifade > 0 goto skip10 ifade tab_i gifade + 3, 3 -skip8: +skip10: kamp3 linseg (gidel == 0? 1: 0), ifade, 1, (iloop == 0? ilen - (ifade * 2) - istart: .01), 1, (iloop == 0? ifade: .01), (iloop == 0? 0: 1) kamp2 = kamp2 * kamp3 if giparm > 1 goto skip9 |