form 输入框 comment If you think the values token from the editor are wrong, comment please input the correct values in the following textbox: sentence Vowel_Symbol original real Frequency_of_First_Formant_(Hz) 0 (=auto input) real Frequency_of_Second_Formant_(Hz) 0 (=auto input) positive Maximum_Frequency_of_First_Formant_(Hz) 1000 positive Maximum_Frequency_of_Second_Formant_(Hz) 3000 positive Width_of_the_picture 5 positive Height_of_the_picture 5 boolean Draw_the_vowel_on_a_new_picture 0 endform vowelN$=vowel_Symbol$ fff=frequency_of_First_Formant fsf=frequency_of_Second_Formant newPic=draw_the_vowel_on_a_new_picture hyu=maximum_Frequency_of_Second_Formant zyu=maximum_Frequency_of_First_Formant wP=width_of_the_picture hP=height_of_the_picture wP=wP+0.5 hP=hP+0.5 hjiange=hyu/10000 zjiange=zyu/10000 if vowelN$="original" textName$=selected$("TextGrid") editor TextGrid 'textName$' txt$= Get label of interval endeditor else txt$=vowelN$ endif if fff=0 textName$=selected$("TextGrid") editor TextGrid 'textName$' ff= Get first formant endeditor else ff=fff endif if fsf=0 textName$=selected$("TextGrid") editor TextGrid 'textName$' fs= Get second formant endeditor else fs=fsf endif ff=1-ff/zyu fs=1-fs/hyu if newPic=1 Erase all Viewport... 0.5 'wP' 0.5 'hP' Black Plain line Draw line... 0 0 1 0 Draw line... 0 1 1 1 Draw line... 1 1 1 0 Draw line... 0 1 0 0 for i from 0 to 10 a=i/10 b=(10-i)*hjiange b='b:2' Black Plain line Text special... 'a' Centre 1 Bottom Times 10 0 'b' Grey Dotted line if a<>0 and a<>1 Draw line... 'a' 1 'a' 0 endif endfor for i from 0 to 9 a=i/10 b=(10-i)*zjiange b='b:2' Plain line Black Text special... 1 Left 'a' Bottom Times 10 0 'b' Grey Dotted line if a<>0 and a<>1 Draw line... 1 'a' 0 'a' endif endfor Plain line Black Text special... 1 Left 1 Bottom Times 10 0 K endif Plain line Black Draw circle... 'fs' 'ff' 0.006 a=ff/zjiange b=floor(a) c=ceiling(a) d=(b+c)/2 if a>d tf=ff-0.02 else tf=ff+0.02 endif a=fs/hjiange b=floor(a) c=ceiling(a) d=(b+c)/2 if a>d ts=fs-0.02 else ts=fs+0.02 endif Blue Text special... 'ts' Centre 'tf' Half Times 14 0 'txt$'