more debug

SoundBrotching/essai.f90

@@ -0,0 +1,21 @@
+program essai
+
+  use soundbrotch
+  ! -----------------------------
+  implicit none
+
+  integer          :: n
+  real             :: freq
+
+  write(0, *) "*** On essaye des trucs (shotgun!) ***"
+
+  call soundbrotch_version()
+
+  do n = 20, 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)
+  end do
+
+end program