23 lines
491 B
Fortran
23 lines
491 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, 8
|
|
fleft = real(100 * clock)
|
|
fright = real(150 * clock)
|
|
write(0, '(1X,I8, 9X, F8.2, 6X, F8.2)') clock, fleft, fright
|
|
call sinw_burst2i(6, 4800, fleft, fright, 0.7)
|
|
enddo
|
|
|
|
end program
|
|
|