This program is a GtkAda application that demonstrates the Doppler effect using OpenAL-GtkAda.
Moving airplane causes Stereo Sound Doppler effect.
The Source Airplane moving in the screen and the Listner location is relocatable.
OpenAL: Coreland 1.1.1, Stereo Doppler effect, Soure: 1000Hz PCM Mono tone sound file.
Timer Interrupt: Locate next position, Cycle: Programmable.
X,Y Location: Calculation X=Sin(2Pit)+X0, Y=Sin(2Pit)+Y0.
Doppler Effect: OpenAL calculates with relative speed and direction.
Updated 8/29/2025: Bug fixed and Warnings fixed.
Tested environement: Ubuntu: 24.04.2 LTS, Gnat: 14.2.1, Gtkada:25.0.1
OpenAL-Ada(Coreland) 1.1.1, Alire 2.0.2
PC: OMEN 17-ck2095cl, i9-13900HX, RTX-4080
Audio source file: Mono, 44.1kHz, 16bit, 5sec WAV file Looping.
Detail: https://n7sd.com/ada1-2/openal_gtkada_gui_doppler_effect_plane_1/