2022-02-07 23:17:22 +01:00
|
|
|
program genwaves
|
|
|
|
|
|
|
|
|
|
use soundbrotch
|
|
|
|
|
! -----------------------------
|
|
|
|
|
implicit none
|
|
|
|
|
|
2022-05-05 06:58:45 +02:00
|
|
|
integer :: clock
|
|
|
|
|
! type(t_sample2i) :: sample
|
|
|
|
|
real :: fleft, fright ! frequencies
|
|
|
|
|
|
|
|
|
|
write(0, *) "*** Genwaves ***"
|
2022-02-07 23:17:22 +01:00
|
|
|
call soundbrotch_version()
|
|
|
|
|
|
2022-05-05 06:58:45 +02:00
|
|
|
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
|
2022-02-07 23:17:22 +01:00
|
|
|
|
|
|
|
|
end program
|
|
|
|
|
|
