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

pfeeee...

Browse Source
This commit is contained in:
tTh
2023-01-03 21:59:38 +01:00
parent b707b784bf
commit 3f95a964e5
9 changed files with 50 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SoundBrotching/essai.f90
View File

@@ -11,11 +11,11 @@ program essai
call soundbrotch_version()
do n = 20, 85
do n = 40, 85
freq = midi2freq(n)
write(0, '(12X, I5, 5X, F9.3)') n, freq
call sinw_burst2i(6, 22000, freq, freq, 0.9)
call silence_burst2i(800)
write(0, '(" midi", I5, " -> ", F9.3, " Hz")') n, freq
call sinw_burst2i(6, 44100, freq, freq, 0.9)
call silence_burst2i(2900)
end do
end program