-
Notifications
You must be signed in to change notification settings - Fork 0
/
VowelPlot_PortugueseVersion.PSC
80 lines (74 loc) · 4.9 KB
/
VowelPlot_PortugueseVersion.PSC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
## Script para plotagem maunal de vogias no espaço acústico f2xf1 ##
##
## Copyright (C) Leônidas Silva Jr., UEPB, 2023.
##---------------------------------------------------------------------------------##
##----##----##--- COMO CITAR ESTE PROGRAMA ----##----##
## Silva Jr., L. (2023). VowelPlot. [Computer program for Praat], Portuguese version.
#####################################################################################
form PLOTAGEM DE VOGAIS
## word Pasta Endereço da pasta
## word Nome_do_estudante EscrevaSeuNome
comment Escreva os valores de F1 e F2 da sua vogal
real F1
real F2
comment
comment Escreva o símbolo fonético da vogal (IPA) a ser plotado
comment Este é o código do Praat para os símbolos fonéticos (IPA) das vogais do protuguês brasileiro:
comment Vogais anteriores: i = [i]; e = [e]; \ef = [ɛ];
comment Vogais centrais: a = [a]; \at = [ɐ]
comment Vogais posteriores: \ct = [ɔ]; o = [o]; u = [u]
sentence IPA
integer Tamanho_da_fonte_IPA 20
comment Ajuste os eixos F2xF1
real Min_F1 200
real Max_F1 1200
real Min_F2 500
real Max_F2 2500
optionmenu IPA_cor: 1
option Black
option Red
option Green
option Blue
boolean Plotar_espaco_vocalico 1
endform
if plotar_espaco_vocalico = 1
call espaco_vocalico
elsif plotar_espaco_vocalico = 0
tamanho_da_fonte_IPA
endif
call plot
procedure plot
'iPA_cor$'
Text special... -'f2' Centre -'f1' Half Times
...'tamanho_da_fonte_IPA' 0 'iPA$'
endproc
procedure espaco_vocalico
beginPause: "Desmarcando a opção: 'Plotar espaco vocalico'"
comment: "Se for sua PRIMEIRA vogal, clique em 'Continue'"
comment: "Se não, clique em 'Stop' e desmarque a opção: 'Plotar espaco vocalico'"
endPause: "Continue", 1
Erase all
Viewport... 0 6 0 4
Line width... 1
Font size... 12
Times
'iPA_cor$'
Plain line
## ajuste os eixos X e Y para F2 e F1 respectivamente
Axes... max_F2 min_F2 max_F1 min_F1
# Axes... 2500 500 1000 200
Draw inner box
Marks bottom... 6 yes yes yes
Marks left... 5 yes yes yes
Text left... yes %F_1 (Hz)
Text bottom... yes %F_2 (Hz)
Axes... -max_F2 -min_F2 -max_F1 -min_F1
# Axes... -2500 -500 -1000 -200
endproc
Font size... 12
#pauseScript: "Salvar figura?"
# Font size... 14
# Text top: "yes", nome_do_estudante$
# Font size... 12
# Save as 600-dpi PNG file: pasta$ + "\" + nome_do_estudante$ + ".jpg"
# writeInfoLine: "Figura " + nome_do_estudante$ + ".jpg" + " foi salva com sucesso"