From 2c44d5cabdae40c7038af7862e0ef10dc5ea1d29 Mon Sep 17 00:00:00 2001
From: Rob van Son <r.j.j.h.vanson@gmail.com>
Date: Tue, 6 Dec 2016 12:35:22 +0100
Subject: [PATCH] Test of creaky voice detector

---
 ToneProt/SGC_ToneProt.praat | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/ToneProt/SGC_ToneProt.praat b/ToneProt/SGC_ToneProt.praat
index a44501a..baa02e6 100644
--- a/ToneProt/SGC_ToneProt.praat
+++ b/ToneProt/SGC_ToneProt.praat
@@ -149,10 +149,14 @@ procedure sgc_ToneProt sgc_ToneProt.currentSound$ sgc_ToneProt.pinyin$ sgc_ToneP
 		.numSamples = Get number of samples
 		.voiceTier = To TextGrid: "voice", ""
 		
-		call createShimmerContour .sound
-		.shimmer = selected("Sound")
-		call createCPPContour .sound
-		.cpp = selected("Sound")
+		# Determine the low F0 part of the 3rd tone
+		# Generate word
+		.newPinyin$ = replace_regex$(sgc_ToneProt.pinyin$, "3(?=[^0-9]+3)", "2", 0)
+		.newPinyin$ = replace$(.newPinyin$, "3", "9", 0)
+		call generateWord Pitch '.newPinyin$' 'sgc_ToneProt.register'
+		select Pitch '.newPinyin$'
+		.generatedWord = selected("Pitch");
+pause
 		
 		# Create a tier with creaky voice intervals
 		select .jitterShimmer
@@ -195,6 +199,7 @@ procedure sgc_ToneProt sgc_ToneProt.currentSound$ sgc_ToneProt.pinyin$ sgc_ToneP
 		# Devoice creaky voice parts
 		select .voiceTier
 		.numIntervals = Get number of intervals: 1
+.numIntervals = 0
 		for .v to .numIntervals
 			select .voiceTier
 			.label$ = Get label of interval: 1, .v
@@ -246,6 +251,7 @@ procedure sgc_ToneProt sgc_ToneProt.currentSound$ sgc_ToneProt.pinyin$ sgc_ToneP
 		plus .vuvTier
 		plus .voiceTier
 		plus .recordedPitchTier
+		plus .generatedWord
 		Remove
 	endif
 
-- 
2.11.4.GIT