-
Notifications
You must be signed in to change notification settings - Fork 2
/
Copy pathplotoq.praat
54 lines (39 loc) · 1.03 KB
/
plotoq.praat
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
## plotoq.praat: plot Oq by period for dEGG and Howard methods
## James Kirby <j.kirby@ed.ac.uk>
## 4 Jan 2017
## Note that if you see periods plotted starting at 0, something is wrong
procedure plotoq: .plotName$
Erase all
Solid line
12
# scatterplots
Select outer viewport: 0, 6, 0, 4
select Matrix 'name$'_degg
Red
Scatter plot: 1, 5, 0, 0, 0, 1, 2, "+", "no"
select Matrix 'name$'_howard
Blue
Scatter plot: 1, 5, 0, 0, 0, 1, 2, "+", "no"
# axes
Marks left: 6, "yes", "yes", "no"
Marks bottom every: 1, 5, "yes", "yes", "no"
Text left: "yes", "OQ"
Text bottom: "yes", "period"
Text top: "no", "'.plotName$'"
# border
Black
Draw inner box
# draw grid
Dotted line
i = 5
while i < nb_periods
Draw line... i 0 i 1
i = i + 5
endwhile
# legend
10
Red
Text: (nb_periods/10), "Left", 0.125, "Half", "+ dEGG"
Blue
Text: nb_periods - (nb_periods/10), "Right", 0.125, "Half", "+ Howard"
endproc