From cbd15e6ee9a10414e984a507072d3bb86c5de556 Mon Sep 17 00:00:00 2001 From: Rob van Son Date: Wed, 18 Feb 2015 14:55:52 +0100 Subject: [PATCH] Deactivated noise suppression --- sgc2.praat | 27 +++++++++++++++------------ 1 file changed, 15 insertions(+), 12 deletions(-) diff --git a/sgc2.praat b/sgc2.praat index a6f65f5..90107e5 100644 --- a/sgc2.praat +++ b/sgc2.praat @@ -863,19 +863,22 @@ procedure sound_detection .sound$ .margin .numberofIntervals = 0 endif + # AAARRRRHHHH this should not be activated! # Remove buzzing and other obnoxious sounds (if switched on) - for .i from 1 to .numberofIntervals - select TextGrid Input'.sound$' - .value$ = Get label of interval... 1 '.i' - .begintime = Get starting point... 1 '.i' - .endtime = Get end point... 1 '.i' - - # Remove noise - if .value$ = "silent" - select Sound '.sound$' - Set part to zero... '.begintime' '.endtime' at nearest zero crossing - endif - endfor + if 0 + for .i from 1 to .numberofIntervals + select TextGrid Input'.sound$' + .value$ = Get label of interval... 1 '.i' + .begintime = Get starting point... 1 '.i' + .endtime = Get end point... 1 '.i' + + # Remove noise + if .value$ = "silent" + select Sound '.sound$' + Set part to zero... '.begintime' '.endtime' at nearest zero crossing + endif + endfor + endif # Select target sound .maximumIntensity = -1 -- 2.11.4.GIT