more debug

2022-05-23 11:11:09 +02:00
parent 0f92d09d5e
commit 67ea2613e6
7 changed files with 85 additions and 27 deletions
--- a/SoundBrotching/panoramix.f90
+++ b/SoundBrotching/panoramix.f90
@@ -21,11 +21,11 @@ program panoramix
    endif

    !  *** NON WORKING CODE ***
-    phi   = real(nblus) / 60000.0
+    phi   = real(nblus) / 44100.0
    ka    = sin(phi)
    value = (real(left)+real(right)) / 2.05
-    left  = int(value*ka)
-    right = int(value*(1.0-ka))
+    left  = int(value * ka)
+    right = int(value * (1.0-ka))

    print *, left, right