tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

more debug

Browse Source
This commit is contained in:
tth
2022-05-23 11:11:09 +02:00
parent 0f92d09d5e
commit 67ea2613e6
7 changed files with 85 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
SoundBrotching/genwaves.f90
View File

@@ -11,12 +11,13 @@ program genwaves
write(0, *) "*** Genwaves ***"
call soundbrotch_version()
do clock = 1, 8
do clock = 1, 11
fleft = real(100 * clock)
fright = real(150 * clock)
fright = real(116 * clock)
write(0, '(1X,I8, 9X, F8.2, 6X, F8.2)') clock, fleft, fright
call sinw_burst2i(6, 4800, fleft, fright, 0.7)
enddo
call sinw_burst2i(6, 23200, fleft, fright, 0.7)
enddo
call silence_burst2i(1337)
end program