2022-05-23 20:11:09 +11:00
|
|
|
program essai
|
|
|
|
|
|
|
|
|
|
use soundbrotch
|
|
|
|
|
! -----------------------------
|
|
|
|
|
implicit none
|
|
|
|
|
|
|
|
|
|
integer :: n
|
|
|
|
|
real :: freq
|
|
|
|
|
|
|
|
|
|
write(0, *) "*** On essaye des trucs (shotgun!) ***"
|
|
|
|
|
|
|
|
|
|
call soundbrotch_version()
|
|
|
|
|
|
2023-01-04 07:59:38 +11:00
|
|
|
do n = 40, 85
|
2022-05-23 20:11:09 +11:00
|
|
|
freq = midi2freq(n)
|
2023-01-04 07:59:38 +11:00
|
|
|
write(0, '(" midi", I5, " -> ", F9.3, " Hz")') n, freq
|
|
|
|
|
call sinw_burst2i(6, 44100, freq, freq, 0.9)
|
|
|
|
|
call silence_burst2i(2900)
|
2022-05-23 20:11:09 +11:00
|
|
|
end do
|
|
|
|
|
|
|
|
|
|
end program
|
