####################
# Concatenate CV syllables #
####################
# concatenate all files in given directory and output to outdir
# modified from Ron Sprouse's script 11/15/05


fric_directory$ = "C:\Stimuli\Fricatives_Nat\"
vowel_directory$ = "C:\Stimuli\Vowels_Nof1\"
outdir$ = "C:\Stimuli\Syllables_NatNoF1\"

Create Strings as file list... list 'fric_directory$'*.wav
fric_names_id = selected("Strings")
number_of_fric_files = Get number of strings

Create Strings as file list... list 'vowel_directory$'*.wav
vowel_names_id = selected("Strings")
number_of_vowel_files = Get number of strings

for i from 1 to number_of_fric_files
   select fric_names_id
   current_fric_file$ = Get string... 'i'
   Read from file... 'fric_directory$''current_fric_file$'
   fric_id = selected("Sound")
   fric_name$ = selected$("Sound")

   for k from 1 to number_of_vowel_files
      select vowel_names_id
      current_vowel_file$ = Get string... 'k'
      Read from file... 'vowel_directory$''current_vowel_file$'
      vowel_id = selected("Sound")
      vowel_name$ = selected$("Sound")
      select fric_id
      plus vowel_id
      Concatenate
      Write to WAV file... 'outdir$''fric_name$'_'vowel_name$'NS.wav 
      #Remove 
   endfor
   
   select fric_id
   #Remove 
endfor

select all
Remove