-
Notifications
You must be signed in to change notification settings - Fork 3
/
local_window_reversal.txt
149 lines (104 loc) · 2.92 KB
/
local_window_reversal.txt
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
########################################################################
#
# Local time reversals
# as in Saberi (1999)
#
# Matthew B Winn
# August 2014
########################################################################
form Enter settings for local time reversals
comment enter window size in milliseconds
real windowsize 30
comment move boundaries to nearest zero crossings?
boolean moveToZero = 1
endform
#windowsize = 30
#moveToZero = 1
# convert some numbers for clean naming
windowsizeSEC = windowsize / 1000
clearinfo
#print 'method'
pause select all sounds to be used for this operation
numberOfSelectedSounds = numberOfSelected ("Sound")
# number the sounds
for thisSelectedSound to numberOfSelectedSounds
sound'thisSelectedSound' = selected("Sound",thisSelectedSound)
endfor
# For each sound...
for thisSound from 1 to numberOfSelectedSounds
select sound'thisSound'
name$ = selected$("Sound")
Copy... temp
startTime = Get start time
endTime = Get end time
start = 0
select Sound temp
Edit
editor Sound temp
call blank_editor_settings
#pause editor blanked
Select... start (start+windowsizeSEC)
while start < endTime
call localReverse
endwhile
call restore_editor_settings
#pause editor restored
Close
endeditor
Rename... 'name$'_reversed_'windowsize'
endfor
########################################################################
procedure localReverse
Select... start (start+windowsizeSEC)
if moveToZero == 1
Move start of selection to nearest zero crossing
Move end of selection to nearest zero crossing
endif
Reverse selection
start = start+windowsizeSEC
endproc
procedure blank_editor_settings
info$ = Editor info
showFormants$ = extractLine$(info$, "Formant show: ")
if showFormants$ <> "no"
Show formants
endif
showPitch$ = extractLine$(info$, "Pitch show: ")
if showPitch$ <> "no"
Show pitch
endif
showIntensity$ = extractLine$(info$, "Intensity show: ")
if showIntensity$ <> "no"
Show intensity
endif
showPulses$ = extractLine$(info$, "Pulses show: ")
if showPulses$ <> "no"
Show pulses
endif
showSpectrogram$ = extractLine$(info$, "Spectrogram show: ")
if showSpectrogram$ <> "no"
Show spectrogram
endif
endproc
procedure restore_editor_settings
showFormants$ = extractLine$(info$, "Formant show: ")
if showFormants$ <> "no"
Show formants
endif
showPitch$ = extractLine$(info$, "Pitch show: ")
if showPitch$ <> "no"
Show pitch
endif
showIntensity$ = extractLine$(info$, "Intensity show: ")
if showIntensity$ <> "no"
Show intensity
endif
showPulses$ = extractLine$(info$, "Pulses show: ")
if showPulses$ <> "no"
Show pulses
endif
showSpectrogram$ = extractLine$(info$, "Spectrogram show: ")
if showSpectrogram$ <> "no"
Show spectrogram
endif
endproc