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-23 11:11:09 +02:00
|
|
|
do clock = 1, 11
|
2022-05-05 06:58:45 +02:00
|
|
|
fleft = real(100 * clock)
|
2022-05-23 11:11:09 +02:00
|
|
|
fright = real(116 * clock)
|
2022-05-05 06:58:45 +02:00
|
|
|
write(0, '(1X,I8, 9X, F8.2, 6X, F8.2)') clock, fleft, fright
|
2022-05-23 11:11:09 +02:00
|
|
|
call sinw_burst2i(6, 23200, fleft, fright, 0.7)
|
|
|
|
|
enddo
|
|
|
|
|
call silence_burst2i(1337)
|
2022-02-07 23:17:22 +01:00
|
|
|
|
|
|
|
|
end program
|
|
|
|
|
|
