Fortraneries/SoundBrotching/essai.f90

22 lines
427 B
Fortran
Raw Normal View History

2022-05-23 11:11:09 +02:00
program essai
use soundbrotch
! -----------------------------
implicit none
integer :: n
real :: freq
write(0, *) "*** On essaye des trucs (shotgun!) ***"
call soundbrotch_version()
2023-01-03 21:59:38 +01:00
do n = 40, 85
2022-05-23 11:11:09 +02:00
freq = midi2freq(n)
2023-01-03 21:59:38 +01: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 11:11:09 +02:00
end do
end program