4 # Intializing Praat script
6 # SpeakGoodChinese: InitializeSGC2.praat defines and sets the global variables
7 # and loads general SGC2 code
9 # Copyright (C) 2007-2010 R.J.J.H. van Son and 2010 the Netherlands Cancer Institute
10 # The SpeakGoodChinese team are:
11 # Guangqin Chen, Zhonyan Chen, Stefan de Koning, Eveline van Hagen,
12 # Rob van Son, Dennis Vierkant, David Weenink
14 # This program is free software; you can redistribute it and/or modify
15 # it under the terms of the GNU General Public License as published by
16 # the Free Software Foundation; either version 2 of the License, or
17 # (at your option) any later version.
19 # This program is distributed in the hope that it will be useful,
20 # but WITHOUT ANY WARRANTY; without even the implied warranty of
21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 # GNU General Public License for more details.
24 # You should have received a copy of the GNU General Public License
25 # along with this program; if not, write to the Free Software
26 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
29 # Do not store these variables as preferences
30 sgc.nonPreferences$ = " config.savePerf config.openPerf config.clearSummary config.audioName "
32 # Information for logging activity
33 currentDate$ = date$()
34 dateYear$ = right$(currentDate$, length(currentDate$) - rindex(currentDate$, " "))
35 logtimeStamp$ = replace_regex$(currentDate$, "[^a-zA-Z0-9\-_]", "-", 0)
36 currentLogDirectory$ = ""
37 feedbackTablePrefix$ = "Feedback"
38 feedbackTableName$ = ""
39 evaluationTablePrefix$ = "Evaluation"
40 evaluationTableName$ = ""
41 performanceTableName$ = "Performance"
46 yFeedback = yWordlist + 5
47 yPinyin = yFeedback + 10
48 yContour = yPinyin + 15
49 wipeContourArea$ = "demo Paint rectangle... White 20 80 'yContour' 100"
50 wipePinyinArea$ = "demo Paint rectangle... White 20 80 'yPinyin' 'yContour'"
51 wipeFeedbackArea$ = "demo Paint rectangle... White 0 100 'yFeedback' 'yPinyin'"
52 wipeWordlistArea$ = "demo Paint rectangle... White 20 80 'yWordlist' 'yFeedback'"
54 # Pop-Up window colors
55 sgc2.popUp_bordercolor$ = "{0.5,0.5,1}"
56 sgc2.popUp_backgroundcolor$ = "{0.9,0.9,1}"
58 # Initialize parameters
61 sgc.currentWordlist = -1
63 sgc.currentWordNum = 1
64 sgc.numberOfDisplayedWords = 0
68 sgc.customLanguage$ = ""
77 sgc.failedAttempts = 0
79 config.deleteWordlist = -1
80 config.displayNumbers = 1
81 config.displayPinyin = 1
82 config.displayChar = 0
83 config.displayTrans = 1
84 config.useSoundExample = 1
85 config.synthesis$ = "_DISABLED_"
86 config.input$ = "Microphone"
87 config.showBackground = 1
88 sgc2.noiseThresshold = -30
93 config.voicesTTS$ = "default f1 f2 f3 f4 f5 m1 m2 m3 m4 m5 m6 m7"
95 sgc.nativeOSXTTScommand$ = "say -vTing-Ting --rate=95"
96 sgc.nativeLinuxTTScommand$ = "spd-say -l zh -t female1 -r -60"
97 #sgc.nativeWindowsTTScommand$ = "mshta.exe vbscript:Execute(""CreateObject(""""SAPI.SpVoice"""").Speak """"<voice gender='female' xml:lang='zh-CN'><rate speed='-5'>$$$</rate></voice>"""":Close"")"
98 sgc.nativeWindowsTTScommand$ = "mshta.exe vbscript:Execute(""CreateObject(""""SAPI.SpVoice"""").Speak """"<voice gender='female' xml:lang='zh-CN'><rate speed='-5'><pron sym='@@@'/></rate></voice>"""":Close"")"
99 sgc.nativeTTScommand$ = ""
102 config.clearSummary = 0
103 config.audioName$ = ""
106 mainPage.saveAudio$ = ""
107 sgc.allWordLists = -1
109 sgc_ToneProt.minimumPitch = 40
110 sgc_ToneProt.maximumPitch = 600
112 # Platform dependent settings
113 if macintosh or windows
114 config.displayChar = 1
115 config.displayNumbers = 0
117 if windows and endsWith(build_SHA$, " XP")
118 config.displayChar = 0
119 config.displayNumbers = 0
122 config.displayChar = 0
123 config.displayNumbers = 1
127 samplingFrequency = 44100
129 samplingFrequency = 44100
131 samplingFrequency = 44100
135 # Be careful: Logging and Replaying can have side-effects
136 # sgc2.logging$ = "call saveLogOfActivity"
138 # When this is not "# ", the command 'replaySGC2Log$' will be run!
139 if not variableExists("replaySGC2Log$")
140 replaySGC2Log$ = "# "
143 config.language$ = "EN"
144 config.register = 249
145 preferencesAppFile$ = preferencesAppDir$+"/sgc2rc.txt"
146 preferencesLogDir$ = "'preferencesAppDir$'/log"
147 preferencesTableDir$ = "'preferencesAppDir$'/GUI"
148 sgc2wordlists$ = "'preferencesAppDir$'/wordlists"
149 localWordlistDir$ = sgc2wordlists$
151 # Global word lists must be installed BY THE ADMINISTRATOR
152 # This means, create the directory 'globalwordlists$' and
153 # fill it with wordlist directories containing wordlist.Table
154 # and audio files. They can be copied from a local directory.
155 globalwordlists$ = ""
156 globaltablelists$ = ""
159 globalwordlists$ = "/etc/'sgc2.demoAppName$'/wordlists"
160 globaltablelists$ = "/etc/'sgc2.demoAppName$'/GUI"
161 globalTTSdir$ = "/etc/'sgc2.demoAppName$'/TTS"
163 globalwordlists$ = "/Library/Preferences/'sgc2.demoAppName$'/wordlists"
164 globaltablelists$ = "/Library/Preferences/'sgc2.demoAppName$'/GUI"
165 globalTTSdir$ = "/Library/Preferences/'sgc2.demoAppName$'/TTS"
167 globalwordlists$ = "C:/Documents and Settings/All Users/Application Data/'sgc2.demoAppName$'/wordlists"
168 globaltablelists$ = "C:/Documents and Settings/All Users/Application Data/'sgc2.demoAppName$'/GUI"
169 globalTTSdir$ = "C:/Documents and Settings/All Users/Application Data/'sgc2.demoAppName$'/TTS"
171 sgc2.synthesizer = -1
172 sgc.alignedTextGrid = -1
174 ##############################################################
176 config.shuffleLists = 1
177 config.adaptiveLists = 0
179 defaultFont$ = "Helvetica"
182 # Set up directories if they do not exist already
183 call set_up_directories
185 # Get saved preferences
186 call read_preferences ""
189 speakCommandDir$ = "'preferencesAppDir$'/TTS"
190 speakCommandFile$ = ""
191 # Define a Praat TTS command that will set sgc2.synthesizer
192 call set_TTS_parameters
194 sgc.recordCommandFile$ = ""
195 sgc.playCommandFile$ = ""
197 sgc.scratchAudioDir$ = "'preferencesAppDir$'\audio\"
199 sgc.scratchAudioDir$ = "/tmp/SpeakGoodChinese/"
201 sgc.useAlternativeRecorder = 0
203 sgc.useAlternativePlayer = 0
206 # Set inital language
207 call set_language 'config.language$'
210 call load_word_list "'localWordlistDir$'" 0
212 # Set up evaluation table
213 initialiseSGC2.toneevaluation_table$ = ""
214 call initialize_toneevaluation_tables
219 ###############################################################
221 # Obligatory procedures
223 ###############################################################
224 # Initialize Demo Window
225 procedure init_window
227 demo Line width... 'defaultLineWidth'
229 call set_font_size 'defaultFontSize'
232 # If there is no recorded sound, try to read stored recording
233 if recordedSound$ = "" and sgc.saveAudio$ <> ""
235 select sgc.currentWordlist
236 if sgc.currentWord > 0 and sgc.currentWord <= sgc.numberOfWords
237 call readPinyin 'sgc.currentWord'
238 sgc.pinyin$ = readPinyin.pinyin$
239 sgc.character$ = readPinyin.character$
240 .outputName$ = "'sgc.saveAudio$'/'sgc.pinyin$'.wav"
241 if fileReadable(.outputName$)
242 sgc.recordedSound = Read from file: .outputName$
243 recordedSound$ = selected$("Sound")
245 # See feedback on earl;ier recorded words
246 if fileReadable("'sgc.saveAudio$'/TestSpeakGoodChinese2.txt")
247 call write_feedback Feedback
249 call write_grade 'sgc.pinyin$'
251 select Table Feedback
254 # Set config.audioName
255 .tmp$ = replace_regex$(sgc.saveAudio$, "[^/\\]+[/\\]?$", "", 0)
256 config.audioName$ = replace$(sgc.saveAudio$, .tmp$, "", 0)
262 # Set mainPage.saveAudio$ grade
263 call set_grade_display 'sgc.pinyin$'
264 call write_grade 'sgc.pinyin$'
268 .windowTitle$ = replace$(wordlistName$, "_", " ", 0)
269 call set_window_title 'buttons$' '.windowTitle$'
270 # Display the word-list
272 # Wipe screen and draw background
273 call wipeArea 'wipeContourArea$'
274 if config.showBackground
275 call draw_background Background
277 # Define buttons in a table
283 call draw_tone_contour
285 call paint_saveAudio_light
288 sgc.failedAttempts = 0
291 # Make sure all Preferences directories are available
292 procedure set_up_directories
293 .dirPath$ = "'preferencesAppDir$'"
294 createDirectory(.dirPath$)
295 .dirPath$ > '.dirPath$'/directory.txt
296 createDirectory("'.dirPath$'/wordlists")
297 .dirPath$ > '.dirPath$'/wordlists/directory.txt
298 createDirectory("'.dirPath$'/pitchmodels")
299 .dirPath$ > '.dirPath$'/pitchmodels/directory.txt
300 createDirectory("'.dirPath$'/log")
301 .dirPath$ > '.dirPath$'/log/directory.txt
302 createDirectory("'.dirPath$'/TTS")
303 .dirPath$ > '.dirPath$'/TTS/directory.txt
307 # Retrieve and store setting between sessions
309 procedure read_preferences .preferencesFile$
310 if not fileReadable(.preferencesFile$)
311 .preferencesFile$ = preferencesAppFile$
313 if fileReadable(.preferencesFile$)
314 Read from file... 'preferencesAppFile$'
315 .preferenceTable$ = selected$("Table")
316 .numPrefKeys = Get number of rows
317 for .row to .numPrefKeys
318 .variableName$ = Get value... '.row' Key
319 if variableExists(.variableName$)
320 .variableValue = Get value... '.row' Value
321 if .variableValue <> undefined
322 '.variableName$' = '.variableValue'
324 elsif variableExists(.variableName$+"$")
325 .variableValue$ = Get value... '.row' Value
326 .variableName$ = .variableName$+"$"
327 '.variableName$' = "'.variableValue$'"
331 select Table '.preferenceTable$'
336 procedure write_preferences .preferencesFile$
337 Create Table with column names... Preferences 0 Key Value
338 if index_regex(.preferencesFile$, "[a-zA-Z0-9]") <= 0
339 .preferencesFile$ = preferencesAppFile$
343 for .tableNum from 1 to 2
349 .varPrefix$ = replace_regex$(.table$, "^(.)", "\l\1", 0)
351 select Table '.table$'
352 .numTableRows = Get number of rows
353 for .tablerow to .numTableRows
354 select Table '.table$'
355 .label$ = Get value... '.tablerow' Label
356 .variableName$ = .varPrefix$+"."+(replace_regex$(.label$, "^(.)", "\l\1", 0))
357 .keyName$ = .variableName$
359 if sgc.nonPreferences$ <> "" and index(sgc.nonPreferences$, " '.variableName$' ")
361 elsif variableExists(.variableName$)
362 .value = '.variableName$'
364 elsif variableExists(.variableName$ + "$")
365 .variableName$ = .variableName$ + "$"
366 .value$ = '.variableName$'
367 elsif index(.variableName$, "_") > 0
368 .variableName$ = left$(.variableName$, rindex(.variableName$, "_") - 1)
369 .keyName$ = .variableName$
370 select Table Preferences
371 .prefRow = Search column... Key '.keyName$'
373 if variableExists(.variableName$)
374 .value = '.variableName$'
376 elsif variableExists(.variableName$ + "$")
377 .variableName$ = .variableName$ + "$"
378 .value$ = '.variableName$'
384 select Table Preferences
387 Set string value... '.row' Key '.keyName$'
388 Set string value... '.row' Value '.value$'
393 # Some extra settings
394 select Table Preferences
397 Set string value... '.row' Key wordlistDir
398 Set string value... '.row' Value 'localWordlistDir$'
400 select Table Preferences
403 Set string value... '.row' Key wordlistName
404 Set string value... '.row' Value 'wordlistName$'
406 select Table Preferences
407 Write to table file... '.preferencesFile$'
412 ###############################################################
414 # TTS (speech synthesis). Place commands in user info
417 # speakCommandDir$ = "'preferencesAppDir$'/TTS"
418 # speakCommandFile$ = ""
420 # Make sure sgc2.synthesizer is set!
421 procedure create_default_TTS .language$ .voice$ .samplefreq .gap .pitch_adj .pitch_range .words_per_minute .use_data$ .espeak_phones$
422 sgc2.synthesizer = Create SpeechSynthesizer... '.language$' '.voice$'
423 Set speech output settings... .samplefreq .gap .pitch_adj .pitch_range .words_per_minute '.use_data$' '.espeak_phones$'
427 if sgc2.synthesizer > 0
428 select sgc2.synthesizer
430 sgc2.synthesizer = -1
432 # Note, the TTScommand must set sgc2.synthesizer!
433 if config.strict$ = "'sgc.highestLevel'"
434 'sgc2.advancedTTScommand$'
436 'sgc2.normalTTScommand$'
440 .ttscommand$ = "speak"
444 .ttscommand$ = "espeak"
448 .ttscommand$ = "C:/Program Files/eSpeak/command_line/espeak.exe"
452 # Global TTS command has precedence
453 if fileReadable("'globalTTSdir$'/TTS_'.osName$'_command.txt")
454 speakCommandFile$ = "'globalTTSdir$'/TTS_'.osName$'_command.txt"
455 if config.synthesis$ = "_DISABLED_"
457 config.synthesis$ = "eSpeak"
461 # Local TTS command, if there is no global one
462 # Command does not exist yet, create it if eSpeak is installed
463 # Make sure to quote the path!
464 if speakCommandFile$ = ""
465 # Autodetect synthesizer command
466 # if not fileReadable("'speakCommandDir$'/TTS_'.osName$'_eSpeak_command.txt")
467 # .command_path$ = ""
469 # system_nocheck PATH=${PATH}:/opt/local/bin; bash -c -- 'which '.ttscommand$' > "'speakCommandDir$'/command_path.txt"'
470 # .command_path$ < 'speakCommandDir$'/command_path.txt
472 # system_nocheck PATH=${PATH};bash -c -- 'which '.ttscommand$' > "'speakCommandDir$'/command_path.txt"'
473 # .command_path$ < 'speakCommandDir$'/command_path.txt
475 # if fileReadable(.ttscommand$)
476 # .command_path$ = .ttscommand$
479 # # Remove any newlines
480 # .command_path$ = replace$(.command_path$, "'newline$'", "", 0)
482 # # Command path found
483 # if sgc2.synthesizer <= 0 and .command_path$ <> "" and fileReadable(.command_path$)
484 # deleteFile("'speakCommandDir$'/TTS_'.osName$'_eSpeak_command.txt")
485 # fileappend "'speakCommandDir$'/TTS_'.osName$'_eSpeak_command.txt"
486 # ...'.quote$''.ttscommand$''.quote$' -v zh+f4 -s 100 'newline$'
487 # speakCommandFile$ = "'speakCommandDir$'/TTS_'.osName$'_eSpeak_command.txt"
490 if fileReadable("'speakCommandDir$'/TTS_'.osName$'_eSpeak_command.txt")
491 speakCommandFile$ = "'speakCommandDir$'/TTS_'.osName$'_eSpeak_command.txt"
493 deleteFile("'speakCommandDir$'/command_path.txt")
496 # Close off (other TTS maybe a later option)
497 if sgc2.synthesizer > 0 or (speakCommandFile$ <> "" and fileReadable(speakCommandFile$))
498 config.synthesis$ = "eSpeak"
502 procedure set_TTS_parameters
504 .voice$ = replace_regex$(config.voicesTTS$, "^(\S+\s+){'config.voice'}(\S+)(\s+.*)?$", "\2", 0)
506 .voice$ = replace_regex$(config.voicesTTS$, "^(\S+)(\s+.*)?$", "\1", 0)
508 if .voice$ <> "" and index_regex(.voice$, "\s") <= 0
509 if .voice$ = "default"
512 config.voice$ = replace_regex$(.voice$, ".", "\u&", 0)
514 sgc2.normalTTScommand$ = "call create_default_TTS Mandarin '.voice$' 10000 0.01 50 100 95 no IPA"
515 sgc2.advancedTTScommand$ = "call create_default_TTS Mandarin '.voice$' 10000 0.01 50 70 125 no IPA"
517 if macintosh and fileReadable("/usr/bin/say")
518 sgc.nativeTTScommand$ = sgc.nativeOSXTTScommand$
519 elsif unix and fileReadable("/usr/bin/spd-say")
520 sgc.nativeTTScommand$ = sgc.nativeLinuxTTScommand$
522 sgc.nativeTTScommand$ = sgc.nativeWindowsTTScommand$
526 # Alternative audio recorder
527 procedure set_up_recorder
538 # Global TTS command has precedence
539 sgc.useAlternativeRecorder = 0
540 if fileReadable("'globalTTSdir$'/TTS_'.osName$'_record_command.txt")
541 createDirectory(sgc.scratchAudioDir$)
542 sgc.recordCommandFile$ = "'globalTTSdir$'/TTS_'.osName$'_record_command.txt"
543 sgc.useAlternativeRecorder = 1
544 elsif fileReadable("'speakCommandDir$'/TTS_'.osName$'_record_command.txt")
545 createDirectory(sgc.scratchAudioDir$)
546 sgc.recordCommandFile$ = "'speakCommandDir$'/TTS_'.osName$'_record_command.txt"
547 sgc.useAlternativeRecorder = 1
551 # Alternative audio player
552 procedure set_up_player
563 # Global TTS command has precedence
564 sgc.useAlternativePlayer = 0
565 if fileReadable("'globalTTSdir$'/TTS_'.osName$'_play_command.txt")
566 createDirectory(sgc.scratchAudioDir$)
567 sgc.playCommandFile$ = "'globalTTSdir$'/TTS_'.osName$'_play_command.txt"
568 sgc.useAlternativePlayer = 1
569 elsif fileReadable("'speakCommandDir$'/TTS_'.osName$'_play_command.txt")
570 createDirectory(sgc.scratchAudioDir$)
571 sgc.playCommandFile$ = "'speakCommandDir$'/TTS_'.osName$'_play_command.txt"
572 sgc.useAlternativePlayer = 1
576 ###############################################################
581 # initialiseSGC2.toneevaluation_table$ = ""
582 procedure initialize_toneevaluation_tables
583 .invalidperformanceTable = 0
584 .oldPerformanceTable = -1
585 # Mark old table for removal
586 if initialiseSGC2.toneevaluation_table$ != ""
587 .oldPerformanceTable = sgc2.performanceTable
588 sgc2.performanceTable = -1
590 initialiseSGC2.toneevaluation_table$ = ""
591 # Get the name of the table
592 call get_evaluation_table_labels 'config.language$'
593 performanceTableName$ = eval.performance$
595 if sgc.savePerf$ <> "" and fileReadable(sgc.savePerf$)
596 sgc2.performanceTable = Read Table from tab-separated file: sgc.savePerf$
597 Rename: performanceTableName$
598 .columnNameList$ = "'eval.pinyin$' 'eval.grade$' 'eval.correct$' 'eval.wrong$' 'eval.total$' 'eval.high$' 'eval.low$' 'eval.wide$' 'eval.narrow$' 'eval.unknown$' 'eval.commented$' 'eval.level$' 'eval.time$' 'eval.wordlist$'"
600 # Check to make sure all columns are initialized, but only if Pinyin exists!
601 select sgc2.performanceTable
602 .numColumns = Get number of columns
603 # Find Pinyin column on 1
604 if index("Pinyin 拼音 ピンイン", eval.pinyin$) > 0
605 .column = Get column index: "Pinyin"
607 .column = Get column index: "拼音"
610 .column = Get column index: "ピンイン"
613 .column = Get column index: eval.pinyin$
615 # This is not a valid Performance table, remove it
616 if .column != 1 or .numColumns != .numPerfColumns
617 select sgc2.performanceTable
620 # Set ERROR and remove file read
621 .invalidperformanceTable = 1
622 sgc2.performanceTable = .oldPerformanceTable
623 .oldPerformanceTable = -1
626 # ALWAYS make sure the column headers are translated!
627 select sgc2.performanceTable
628 .numColumns = Get number of columns
629 .nameList$ = .columnNameList$
630 for .col to .numColumns
631 .nameList$ = replace_regex$(.nameList$, "^\s+", "", 1)
632 .columnHeader$ = extractWord$(.nameList$, "")
633 .nameList$ = replace_regex$(.nameList$, "^\s*'.columnHeader$'\s*", "", 1)
634 select sgc2.performanceTable
635 Set column label (index): .col, .columnHeader$
638 # Performance table has been read. Set the wordlist to the first row
639 select sgc2.performanceTable
640 .numWords = Get number of rows
643 .wordlistLabel$ = eval.wordlist$
644 .col = Get column index: .wordlistLabel$
646 .wordlistLabel$ = "Wordlist"
647 .col = Get column index: .wordlistLabel$
649 while .col > 0 and .row <= .numWords and (wordlistName$ = "" or index_regex(wordlistName$, "[^\?\- ]") <= 0)
650 wordlistName$ = Get value: .row, .wordlistLabel$
654 call load_word_list: localWordlistDir$, 0
656 # If this is a graded list, look for the audio
657 if config.audioName$ = ""
658 # Check if there is a grade
659 select sgc2.performanceTable
660 .grade$ = Get value: get_toneevaluation_row.row, eval.grade$
661 # It is graded! Look for the audio
662 if index_regex(.grade$, "[\d]") > 0
664 select sgc2.performanceTable
665 .numRows = Get number of rows
667 select sgc2.performanceTable
668 .pinyin$ = Get value: .row, eval.pinyin$
669 .strings = Create Strings as file list: "Files", "'sgc.saveAudio$'/'.pinyin$'.*"
670 .numAudio = Get number of strings
678 .fileName$ = right$(sgc.savePerf$, length(sgc.savePerf$) - index_regex(sgc.savePerf$, "[/\\][^/\\]+$"))
679 .fileName$ = replace_regex$(.fileName$, "(?i\.tsv$)", "", 0)
680 call findLabel Config $AudioName
683 .openDialogue$ = Get value... '.row' Helptext
684 call convert_praat_to_latin1 '.openDialogue$'
685 .openDialogue$ = convert_praat_to_latin1.text$
687 sgc.saveAudio$ = chooseDirectory$ (.fileName$+": "+.openDialogue$)
694 sgc2.performanceTable = Create Table with column names... "'performanceTableName$'" 0 'eval.pinyin$' 'eval.grade$' 'eval.correct$' 'eval.wrong$' 'eval.total$' 'eval.high$' 'eval.low$' 'eval.wide$' 'eval.narrow$' 'eval.unknown$' 'eval.commented$' 'eval.level$' 'eval.time$' 'eval.wordlist$'
696 initialiseSGC2.toneevaluation_table$ = performanceTableName$
697 call get_toneevaluation_row 'eval.total$'
699 # Remove marked old table
700 if .oldPerformanceTable > 0
701 select .oldPerformanceTable
703 .oldPerformanceTable = -1
707 procedure get_toneevaluation_row .pinyin$
708 select sgc2.performanceTable
709 .colName$ = Get column label: 1
710 # Catch and rename Totals. Make sure it works when you stay within a new language
711 if index("Total Totaal 总计 合計", .pinyin$) > 0
712 .row = Search column: .colName$, "Total"
714 .row = Search column: .colName$, "Totaal"
717 .row = Search column: .colName$, "总计"
720 .row = Search column: .colName$, "合計"
723 Set string value: .row, .colName$, .pinyin$
726 .row = Search column: .colName$ , .pinyin$
730 .row = Get number of rows
731 Set string value: .row, eval.pinyin$, .pinyin$
732 Set numeric value... '.row' 'eval.correct$' 0
733 Set numeric value... '.row' 'eval.wrong$' 0
734 Set numeric value... '.row' 'eval.total$' 0
735 Set numeric value... '.row' 'eval.high$' 0
736 Set numeric value... '.row' 'eval.low$' 0
737 Set numeric value... '.row' 'eval.wide$' 0
738 Set numeric value... '.row' 'eval.narrow$' 0
739 Set numeric value... '.row' 'eval.unknown$' 0
740 Set numeric value... '.row' 'eval.commented$' 0
741 Set numeric value... '.row' 'eval.level$' 0
742 Set numeric value... '.row' 'eval.time$' 0
743 Set string value: .row, eval.wordlist$, wordlistName$
744 Sort rows... 'eval.pinyin$'
745 .row = Search column: eval.pinyin$, .pinyin$
749 procedure increment_toneevaluation_in_row .row .column$
750 select sgc2.performanceTable
751 .tmp = Get value... '.row' '.column$'
756 Set numeric value... '.row' '.column$' '.tmp'
759 Set string value: .row, eval.level$, config.strict$
761 # Set time stamp and wordlist
763 Set string value: .row, eval.time$, .dateTime$
764 Set string value: .row, eval.wordlist$, wordlistName$
768 # Update existing performance file with toneevaluation
769 procedure update_toneevaluation_file
770 if sgc.savePerf$ <> "" and fileReadable(sgc.savePerf$) and initialiseSGC2.toneevaluation_table$ <> ""
771 select sgc2.performanceTable
772 Write to table file... 'sgc.savePerf$'
776 procedure increment_toneevaluation_value .pinyin$ .column$
777 call get_toneevaluation_row '.pinyin$'
778 .row = get_toneevaluation_row.row
779 call increment_toneevaluation_in_row '.row' '.column$'
781 call get_toneevaluation_row 'eval.total$'
782 .row = get_toneevaluation_row.row
783 call increment_toneevaluation_in_row '.row' '.column$'
786 procedure add_feedback_to_toneevaluation .table$
787 select Table '.table$'
788 .line1$ = Get value... 1 Text
789 .line2$ = Get value... 2 Text
790 .label$ = Get value... 3 Text
792 .tones$ = replace_regex$(left$(.line1$, rindex(.line1$, ":")), "[^0-9]", "", 0)
793 .recognized$ = replace_regex$(right$(.line1$, length(.line1$)-rindex(.line1$, ":")), "[^0-9]", "", 0)
797 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.total$'
798 if .tones$ = .recognized$
799 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.correct$'
802 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.wrong$'
804 if index_regex(.label$, "(Correct|Wrong)") <= 0
805 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.commented$'
809 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.unknown$'
812 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.low$'
815 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.high$'
817 if .label$ = "Narrow"
818 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.narrow$'
821 call increment_toneevaluation_value 'sgc.pinyin$' 'eval.wide$'
825 # Update performance table when SaveAudio is on
827 call update_toneevaluation_file
831 procedure setGrade .grade$
832 select sgc.currentWordlist
833 if recordedSound$ <> "" and sgc.pinyin$ <> ""
834 call get_toneevaluation_row 'sgc.pinyin$'
835 .row = get_toneevaluation_row.row
836 select sgc2.performanceTable
837 .col = Get column index: eval.grade$
839 Insert column: 2, eval.grade$
841 .gradeNum = '.grade$'
846 Set numeric value: .row, eval.grade$, .gradeNum
847 .numRows = Get number of rows
850 for .r from 2 to .numRows
851 .tmp = Get value: .r, eval.grade$
859 .meanGrade = .sumGrade / .sumN
862 call get_evaluation_text '.language$' Total
863 .totalTxt$ = get_evaluation_text.text$
864 call get_toneevaluation_row '.totalTxt$'
865 .row = get_toneevaluation_row.row
866 Set numeric value: .row , eval.grade$, .meanGrade
868 # Store current performance table
869 call update_toneevaluation_file
873 procedure getGrade .pinyin$
876 call get_toneevaluation_row '.pinyin$'
877 .row = get_toneevaluation_row.row
879 select sgc2.performanceTable
880 .gradeLabel$ = eval.grade$
881 .col = Get column index: eval.grade$
883 .col = Get column index: "Grade"
884 .gradeLabel$ = "Grade"
887 Insert column... 2 Grade
889 .grade = Get value: .row, .gradeLabel$
890 if .grade = undefined
897 # Set mainPage.saveAudio$ to Grade
898 procedure set_grade_display .pinyin$
899 mainPage.saveAudio$ = ""
900 select sgc2.performanceTable
902 .col = Get column index: eval.grade$
903 if .pinyin$ <> "" and .col > 0
904 call get_toneevaluation_row 'eval.total$'
905 .row = get_toneevaluation_row.row
907 .grade$ = Get value: .row, eval.grade$
908 if index_regex(.grade$, "[0-9]") <= 0
914 .gradeNum = '.grade$'
915 mainPage.saveAudio$ = fixed$(.gradeNum, 1)
919 ###############################################################
921 # Miscelaneous procedures
923 ###############################################################
926 procedure synthesize_sound .pinyin$ .character$
927 .pinyin$ = replace_regex$(.pinyin$, "(^""|""$)", "", 0)
928 .character$ = replace_regex$(.character$, "(^""|""$)", "", 0)
929 .pinyinText$ = replace_regex$(.pinyin$, "0", "5", 0)
930 .pinyinExpanded$ = replace_regex$(.pinyin$, "([0-5])", " \1 - ", 0)
931 .pinyinExpanded$ = replace_regex$(.pinyinExpanded$, " - $", "", 0)
933 if .character$ = "-" or .character$ = "" or .character$ = "?"
934 .character$ = .pinyinText$
936 .currentCommand$ = ""
937 # Files need more checks!
938 if speakCommandFile$ <> "" and fileReadable(speakCommandFile$)
939 .currentCommand$ < 'speakCommandFile$'
940 .currentCommand$ = replace$(.currentCommand$, "'newline$'", " ", 0)
941 if index(.currentCommand$, "$$$") and .character$ <> .pinyinText$
942 # Find the character representation
943 .currentCommand$ = replace$(.currentCommand$, "$$$", .character$, 0)
944 elsif index(.currentCommand$, "&&&")
945 # Find the character representation
946 .currentCommand$ = replace$(.currentCommand$, "&&&", .pinyinText$, 0)
947 elsif index(sgc.nativeTTScommand$, "@@@")
948 .currentCommand$ = replace$(sgc.nativeTTScommand$, "@@@", .pinyinExpanded$, 0)
950 .currentCommand$ = .currentCommand$ + " ""'.pinyinText$'"""
953 system_nocheck PATH=${PATH}:/usr/local/bin:/opt/local/bin; bash -rc -- ''.currentCommand$''
955 system_nocheck bash -rc -- ''.currentCommand$''
957 runSystem_nocheck: .currentCommand$
959 elsif sgc.nativeTTScommand$ <> "" and config.voice <= 0
960 # Get the pinyin text on the correct place
961 if index(sgc.nativeTTScommand$, "$$$")
962 .currentCommand$ = replace$(sgc.nativeTTScommand$, "$$$", .character$, 0)
963 elsif index(sgc.nativeTTScommand$, "&&&")
964 .currentCommand$ = replace$(sgc.nativeTTScommand$, "&&&", .pinyinText$, 0)
965 elsif index(sgc.nativeTTScommand$, "@@@")
966 .currentCommand$ = replace$(sgc.nativeTTScommand$, "@@@", .pinyinExpanded$, 0)
968 .currentCommand$ = sgc.nativeTTScommand$ + " ""'.pinyinText$'"""
970 runSystem_nocheck: .currentCommand$
971 elsif sgc2.synthesizer > 0
972 select sgc2.synthesizer
973 Play text... '.pinyin$'
977 procedure align_recordedSound .pinyin$
978 if 0 and sgc2.synthesizer > 0 and recordedSound$ <> ""
979 select Sound 'recordedSound$'
980 .recordedTextGrid = To TextGrid... pinyin
981 Set interval text... 1 1 '.pinyin$'
982 select sgc2.synthesizer
983 plus Sound 'recordedSound$'
984 plus .recordedTextGrid
985 sgc.alignedTextGrid = nowarn noprogress To TextGrid (align,trim)... 1 1 1 -35 0.1 0.1 0.08
986 Rename... AlignedTextGrid
987 select .recordedTextGrid