bad or not bad ?

2022-05-05 06:58:45 +02:00
parent fca15a210a
commit 0f92d09d5e
6 changed files with 71 additions and 11 deletions
--- a/SoundBrotching/genwaves.f90
+++ b/SoundBrotching/genwaves.f90
@@ -4,8 +4,19 @@ program genwaves
  ! -----------------------------
  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