# print a sequence of ERBs

lower_freq_limit = 50
upper_freq_limit = 10000

pause select Sound to filter
name$ = selected$("Sound")

clearinfo
print ERB'tab$'Frequency'tab$'ERB_width'newline$'
freq1 = lower_freq_limit
erb_dist = erb(freq1)
freq2 = freq1 + erb_dist

print 1'tab$''freq1:2''tab$''erb_dist:2''newline$'

n = 0

while freq2 < upper_freq_limit
	n = n + 1
	freq1 = freq2
	erb_dist = erb(freq1)
	freq2 = freq1 + erb_dist

	print 'n''tab$''freq1:2''tab$''erb_dist:2''newline$'
	select Sound 'name$'
	Filter (pass Hann band): freq1, freq2, 10
	Rename... 'name$'_erb_'n'

endwhile