sr = 96000
kr = 96000
nchnls = 2
0dbfs = 1
zakinit 2, 1
vbaplsinit 2, 2, -30.0, 30.0
gi_origin = -25.808314
gi_integer_width = 1.564140
gi_distance_to_speakers = 1.27
gi_vh_amplitude_A116403 ftgen 0, 0, 17, -2, 0.129945, 0.024125, 0.018595, 0.016652, 0.015650, 0.015700, 0.015995, 0.016094, 0.016094, 0.016044, 0.016094, 0.016143, 0.016537, 0.017177, 0.017939, 0.019442, 0.021548
gi_vh_panning_A116403 ftgen 0, 0, 17, -2, -26.68182, -23.61129, -20.11724, -16.62320, -13.44679, -10.05862, -6.670457, -3.705808, 0, 2.858766, 6.458696, 9.423341, 12.28211, 15.98792, 18.95256, 22.12897, 25.30538
gi_wavetable_0_A116403 ftgen 0, 0, 0, 1, "falsetto_fourteen.wav", 0, 0, 0
gi_lowest_integer = 1
gi_highest_integer = 34
gi_base_frequency = 87.500000
gi_attack_from = .0055
gi_release_from = .0089
instr A116403
i_duration = p3
i_integer = p4
i_frequency = gi_base_frequency*i_integer
i_attack = gi_attack_from
i_release = gi_release_from
i_azimuth = gi_origin+(i_integer-gi_lowest_integer)*gi_integer_width
k_amplitude table3 (i_integer-gi_lowest_integer)*(16/(gi_highest_integer-gi_lowest_integer)), gi_vh_amplitude_A116403
k_panning table3 (i_integer-gi_lowest_integer)*(16/(gi_highest_integer-gi_lowest_integer)), gi_vh_panning_A116403
i_wavetable_0_A116403 ftgenonce 0, 0, 8192, 30, gi_wavetable_0_A116403, 1, floor((sr/2)/i_frequency)
a_signal poscil3 k_amplitude, i_frequency, i_wavetable_0_A116403
a_attack linen 1.0, i_attack, i_duration, 0.0
a_release linen 1.0, 0.0, i_duration, i_release
a_signal = a_signal*a_attack
a_panning = 1.0
vbapz 2, 0, a_panning, k_panning
a_0, a_1 delayst a_signal, 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_release, a_1*a_release
endin
