24 lines
523 B
Fortran
24 lines
523 B
Fortran
program genwaves
|
|
|
|
use soundbrotch
|
|
! -----------------------------
|
|
implicit none
|
|
|
|
integer :: clock
|
|
! type(t_sample2i) :: sample
|
|
real :: fleft, fright ! frequencies
|
|
|
|
write(0, *) "*** Genwaves ***"
|
|
call soundbrotch_version()
|
|
|
|
do clock = 1, 11
|
|
fleft = real(100 * clock)
|
|
fright = real(116 * clock)
|
|
write(0, '(1X,I8, 9X, F8.2, 6X, F8.2)') clock, fleft, fright
|
|
call sinw_burst2i(6, 23200, fleft, fright, 0.7)
|
|
enddo
|
|
call silence_burst2i(1337)
|
|
|
|
end program
|
|
|