Fortraneries/SoundBrotching/essai.f90

22 lines
407 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()
do n = 20, 85
freq = midi2freq(n)
write(0, '(12X, I5, 5X, F9.3)') n, freq
call sinw_burst2i(6, 22000, freq, freq, 0.9)
call silence_burst2i(800)
end do
end program