Addition to the Great Formant Extraction Script – checks for “Stød”

clearinfo

files = Get number of strings

for file to files

    select Strings appended

    string$ = Get string... file

    Read from file... L:\Korpus\vokaler\'string$'

    vowels = Get number of points... 4

    for vowel to vowels

        time = Get time of point... 4 vowel

        ortointerval = Get interval at time... 1 time
        word$ = Get label of interval... 1 ortointerval
        phon$ = Get label of interval... 2 ortointerval

        if index (string$, "Long") > 0    
            
            if index (string$, "AN") > 0

                if index (phon$, "z:!") > 0

                    stod$ = "!"

                else
                    stod$ = ""
                endif

            elsif index (string$, "AM") > 0

                if index (phon$, "A:!") > 0

                    stod$ = "!"
                else
                    stod$ = ""
                endif
            endif

        elsif index (string$, "Long") = 0
            stod$ = ""
        endif

        printline 'stod$'
    endfor
    Remove
endfor

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>