sr = 96000
kr = 96000
nchnls = 2
0dbfs = 1
zakinit 2, 1
vbaplsinit 2, 2, -30.0, 30.0
gi_origin = 27.748268
gi_integer_width = -0.139089
gi_distance_to_speakers = 1.27
gi_vh_amplitude_A199087 ftgen 0, 0, 17, -2, 0.072400, 0.099331, 0.142515, 0.174006, 0.287409, 0.522020, 0.939636, 1.231502, 1.642182, 2.169283, 2.781509, 3.445332, 4.565628, 5.719020, 7.296681, 9.199154, 12.61412
gi_vh_panning_A199087 ftgen 0, 0, 17, -2, 29.02895, 24.93075, 20.94638, 17.41737, 14.11604, 10.70087, 7.399539, 4.098205, 0, -3.468533, -6.602664, -9.790157, -13.66068, -16.96201, -20.26334, -23.56468, -26.52449
gi_wavetable_0_A199087 ftgen 0, 0, 16384, 1, "glottal_pulse_three.wav", 0, 0, 0
gi_lowest_integer = 1
gi_highest_integer = 400
gi_base_frequency = 327.000000
gi_resonance_filter_bandwidth_from = 24
gi_resonance_filter_bandwidth_to = 16
gi_golden_ratio = (sqrt(5)-1)/2
gi_power_of_golden_ratio pow gi_golden_ratio, 12
gi_temperament = gi_power_of_golden_ratio+1
instr A199087
i_duration = p3
i_integer = p4
i_azimuth = gi_origin+(i_integer-gi_lowest_integer)*gi_integer_width
i_multiplier pow gi_temperament, i_integer-gi_lowest_integer
i_frequency = gi_base_frequency*i_multiplier
i_resonance_filter_bandwidth = gi_resonance_filter_bandwidth_from+(i_integer-gi_lowest_integer)*((gi_resonance_filter_bandwidth_to-gi_resonance_filter_bandwidth_from)/(gi_highest_integer-gi_lowest_integer))
k_amplitude table3 (i_integer-gi_lowest_integer)*(16/(gi_highest_integer-gi_lowest_integer)), gi_vh_amplitude_A199087
k_panning table3 (i_integer-gi_lowest_integer)*(16/(gi_highest_integer-gi_lowest_integer)), gi_vh_panning_A199087
a_index lphasor 1
a_signal table a_index, gi_wavetable_0_A199087
a_signal reson a_signal, i_frequency, i_resonance_filter_bandwidth*i_frequency*.01, 1
a_panning = 1.0
vbapz 2, 0, a_panning, k_panning
a_0, a_1 delayst a_signal*k_amplitude, i_azimuth, gi_distance_to_speakers
a_p0 zar 0
a_p1 zar 1
a_0 = a_0*a_p0
a_1 = a_1*a_p1
outs a_0, a_1
endin
